yessss

merlin — Thu, 10 Aug 2000 14:38:36 +0000

yes, i got it...
i 'simply' forgot the

use CGI;

$query = new CGI;
@parname = $query->param;
foreach $n (@parname) {
   $list{$n} = $query->param($n);
}

$action = $list{'action'};

'
part....
now it's working...

thnx vulken

Ken Elliott — Wed, 09 Aug 2000 16:39:48 +0000

Why not just copy and paste those subroutines into the show.pl file?

Try that out and see if it works. In reality it should be importing the subroutines from the required file. Make sure that they are chmoded correctly. Put an error routine to evaluate whether it is finding read.pl.

if that fails...include your subroutines in your if statements...ie.

if ($action eq "band") {
  sub band {
  my $file = "band.txt";
  ### Open file ###
  open (FILE, "$file") || die "No such file: $file";
  while (<FILE&gt;) {
	 $content = "$content$_";
}
close (FILE);
return;
}
1;
} elsif ($action eq "thanks") {
 #do the thanks subroutine
} else {
 #so on and so forth
}

'
Hope this helps.
Vulken
dookie

merlin — Wed, 09 Aug 2000 15:21:09 +0000

thanks vulken for your fast answer.
well, it sounds quite ok, but somehow it doesn't work... i suppose it doesn't find the subroutine...

please have a look at:
http://www.greenbreak.ch/htbin/show.pl that's the 'final' site (at about)...
http://www.greenbreak.ch/redesign/show.txt that's the show.pl-file (with your modifications)
http://www.greenbreak.ch/redesign/read.txt that's the read.pl-file
http://www.greenbreak.ch/redesign/temp.html that's the html-template

thanks!

Ken Elliott — Wed, 09 Aug 2000 13:47:31 +0000

Well I am supposing that all of the subroutines are contained within "read.pl". So you only have to specify it's requirement once at the top of your script. Then you can use your if statement like this.

if ($action eq "band") {
&band;
} elsif ($action eq "suckyband") {
&suckyband;
} else {
print "Your band must really suck";
}

The script knows that it needs to find the subroutine, and it knows that it is either contained within itself or within one of the required perl files.

Then in your link just make it like this
href="read.pl?$action=band"

alternating the value of the action scalar.

I think that should work.

VulKen
I know it smells in here...because I'm the ****