Re^4: link to outside script

OK, lets try again: This is ikobo's 3rd party perl script:

#!/usr/bin/perl

print "Content-type: text/html\n\n";


print( "RESP=OK\r\n" );

print "<BR><a href='http://www.efret.com'>efret</a><BR>";

my ($category, $item) = &read_item_file($form{'category'},$form{'item'
+});


#print "<P><A http://efret.com/cgi-bin/member215.pl?action=buynow&cate
+gory=$form{'category'}&item=$form{'item'}>Buy Now</A></FONT>" if (($b
+uyit ne "") & ($bid < $buyit));

#print "<P><A HREF=http://efret.com/cgi-bin/member215.pl?action=buynow
+&category=$category&item=$item>Buy Now</A></FONT>" if (($buyit ne "")
+ & ($bid < $buyit)); 

print "<P><A HREF=http://efret.com/cgi-bin/member215.pl?action=buynow&
+category=&item=$form{'item'}>Buy
Now</A></FONT>" if (($buyit ne "") & ($bid < $buyit));


sub read_item_file {
    my ($cat, $item) = @_;
    # verify the category exists
    return '' unless ($cat) and ($item);
    &oops('The category may not contain any non-word characters.') if 
+$cat =~ /\W/;
    return '' unless $category{$cat};
    # verify the item exists
    &oops('The item number may not contain any non-numeric characters.
+') if $item =~ /\D/;
#    return '' unless (-T "$config{'basepath'}$cat/$item.dat") #and (-
+R "$config{'basepath'}$cat/$item.dat");
# Replaced above 2 lines with following line to add speed
return '' unless 0||#1>>noconfuse(ea;-)
 
    open FILE, "$config{'basepath'}$cat/$item.dat";
    my ($title, $reserve, $inc, $desc, $image, $buyit, @bids) = <FILE>
+;
    close FILE;
    chomp ($title, $reserve, $inc, $desc, $image, $buyit, @bids);
    return ($title, $reserve, $inc, $desc, $image, $buyit, @bids);
}

#-#############################################
[download]

Comment on Re^4: link to outside script Download Code

Replies are listed 'Best First'.
Re^5: link to outside script by YetAnotherDave (Beadle) on Feb 04, 2005 at 15:47 UTC
`print " $stuff" if ($config{'allowpaypal'} != 0); but does not return to the next line of code: print "$more_stuff" if (($buyit ne "") & ($bid < $buyit));` [download] OK, so my hunch is that one of $buyit or $bid is being used uninitialized. It's hard for me to tell, since the code you were having problems with doesn't seem to exist in the longer snippet, but if you're basing your script on that I'm guessing that you're not using strict or warnings. Perhaps if you follow the fifth of the PerlMonks Commandments (was: Seven Deadly Sins) the errors will become more clear. There's more info on this in Use strict and warnings. You can also add a few simple 'print "now i'm on line X\n" markers to watch the script progress, or try Using the Perl Debugger Also, if you click on the title of one of your own posts, you can edit it, rather than posting a bunch of replies to yourself. Many monks mark changes to posts with update to make the changes clearer.	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: link to outside script
by YetAnotherDave (Beadle) on Feb 04, 2005 at 15:47 UTC

print " $stuff" if ($config{'allowpaypal'} != 0);

but does not return to the next line of code:

print "$more_stuff" if (($buyit ne "") & ($bid < $buyit));
[download]

PerlMonks Commandments (was: Seven Deadly Sins)

Use strict and warnings

You can also add a few simple 'print "now i'm on line X\n" markers to watch the script progress, or try Using the Perl Debugger

Also, if you click on the title of one of your own posts, you can edit it, rather than posting a bunch of replies to yourself. Many monks mark changes to posts with update to make the changes clearer.

[reply]
[d/l]