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]

In reply to Re^4: link to outside script by efret
in thread link to outside script by efret

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.