# This program is being distibuted as freeware. It can be freely downloaded and used. # It may be modified as long as the copyright information remains intact. # # Any use of this program is entirely at the risk of the user. No liability will be # accepted by the author. # # This code must not be sold, even in modified form, without the written permission # of the author. # sub footer { print "
\n"; print "
\n"; # print "E-mail to $myemail for $title support.
\n"; # Please DO NOT modify the following line. Thankyou. print "Banner Software by BannerPlus\n"; print "
\n"; exit; } sub htmlcode { $temp = uc($title); print "

<!-- BEGIN $temp CODE -->
\n"; print "<center>
"; print "<A HREF="$cgiurl/bpwork.cgi?advert=NonSSI&page=XX">
\n"; print "<IMG SRC="$cgiurl/bpwork.cgi?ID=$_[0]&page=XX" BORDER=0></a>
\n"; print "<br><font size=-1><A HREF="$bpurl">$title</a></font>
\n"; print "</center>
"; print "<!-- END $temp CODE -->\n"; } sub header { print "$title - @_[0]\n"; print "\n"; print "

$title\n"; print "
@_[0]
\n"; if ($memberhead) { open(MHEAD,"$memberhead"); while () { print; } close (MHEAD); } } sub lock { $i = 1; while ($i < 1000) { if (flock(@_[0], 2 | 4)) { return 0; } $i++; } return 1; } sub lockerror { &header("File Lock Error!"); print "

An error was encountered when trying to lock "; print "$_[0] $!
\n"; &footer; } 1;