(UTC)
 Choose Language:
  BoardMod Mirror › Mod Support › Mod Troubleshooting › $action eq 'x'
‹ Previous Topic | Next Topic ›
Page Index Toggle Pages: 1 Send TopicPrint
Normal Topic $action eq 'x' (Read 737 times)
Spug
Full Member
***
Offline


Beware... For the Spug
is here.

Posts: 130
Location: Oslo
Joined: Oct 5th, 2001
Gender: Male
$action eq 'x'
Oct 22nd, 2003 at 6:13am
Print Post  
What's the SP1.3.1 equalivent of, for instance, the following text?
Code
Select All
elsif ($action eq 'xx') { require "$sourcedir/Admin.pl"; &xx; }

It's in many mods, so I just wondered if there's a specific place it's been moved or new code that does the same... Just to know if there's a general rule on what to change it to, or if it's different from action to action.
  
The Spug Files - It's Spugtacular!
Back to top
WWWAIM  
IP Logged
 
LoonyPandora
God Member
*****
Offline


Daft Cow?

Posts: 1705
Location: London
Joined: Jun 27th, 2002
Gender: Male
Re: $action eq 'x'
Reply #1 - Oct 22nd, 2003 at 9:09am
Print Post  
look in: /Sources/SubList.pl

equivalent is:
Code
Select All
'action',"SourceFile.pl&NameOfSubRoutine",


your example would look like:
Code
Select All
'xx',"Admin.pl&xx",


look about in SubList.pl, and compare to SP1.1 YaBB.pl - you will get an idea of how it works Smiley


EDIT: I assume that you mean the code in SP1.1's YaBB.pl - where there are loads of lines like you mentioned - other places, in other files can be different
  
Apple Technical Support
Code
Select All
#!/usr/bin/perl --
($sig ='ddiissjjttuuffss ddaoouu ssffaee uuiijjtt
jj ssvvmmff auu qqffssmm ttmmaoohhjjoohh nnauuddiifftt')
=~y~b-v~a-z~s;
print $sig;
Back to top
WWWICQ  
IP Logged
 
Spug
Full Member
***
Offline


Beware... For the Spug
is here.

Posts: 130
Location: Oslo
Joined: Oct 5th, 2001
Gender: Male
Re: $action eq 'x'
Reply #2 - Oct 24th, 2003 at 12:20pm
Print Post  
Yes, that was what I meant, sorry. Thanks a lot!
  
The Spug Files - It's Spugtacular!
Back to top
WWWAIM  
IP Logged
 
LoonyPandora
God Member
*****
Offline


Daft Cow?

Posts: 1705
Location: London
Joined: Jun 27th, 2002
Gender: Male
Re: $action eq 'x'
Reply #3 - Oct 24th, 2003 at 1:02pm
Print Post  
No problem - glad to help 8)
  
Apple Technical Support
Code
Select All
#!/usr/bin/perl --
($sig ='ddiissjjttuuffss ddaoouu ssffaee uuiijjtt
jj ssvvmmff auu qqffssmm ttmmaoohhjjoohh nnauuddiifftt')
=~y~b-v~a-z~s;
print $sig;
Back to top
WWWICQ  
IP Logged
 
Page Index Toggle Pages: 1
Send TopicPrint
‹ Previous Topic | Next Topic ›
 
  « Board Index ‹ Board Top  

BoardMod Mirror » Powered by YaBB 2.6.12!
YaBB Forum Software © 2000-2024. All Rights Reserved.

Valid RSS Valid XHTML Valid CSS Powered by Perl Source Forge