OK, I have been looking at WEBCAL, one of Darryl Burgdoff's other scripts, and he calls the script on a cgi generated page using the following code.
____________________
sub Header {
($title) = @_;
print "<HTML><HEAD><TITLE>$title</TITLE></HEAD>\n";
print "<BODY $bodyspec>\n";
if ($header_file) {
open (HEADER,"$header_file");
@header = <HEADER>;
close (HEADER);
foreach $line (@header) {
if ($line =~ /<!--InsertAdvert\s*(.*)-->/i) {
&insertadvert($1);
}
else {
print "$line";
}
}
}
}
________________________-
Hoping that would help you guys figure out how to stop the banner getting placed right up the top of the page.
He also uses the standard
__________________________
sub insertadvert {
require "/u2/www/users/dburgdor/scripts/ads/ads_display.pl";
$adverts_dir = "/u2/www/users/dburgdor/scripts/ads/ads";
$display_cgi = "http://awsd.com/scripts/ads/ads.pl";
$advertzone = $_[0];
$ADVUseBackup = 1;
$ADVUseLocking = 1;
$NonSSI = 0;
$ADVNoPrint = 1;
&ADVsetup;
}
__________________________
Hope you can work it out from that info Bobsie, cause it just gives me a headache :-)
____________________
sub Header {
($title) = @_;
print "<HTML><HEAD><TITLE>$title</TITLE></HEAD>\n";
print "<BODY $bodyspec>\n";
if ($header_file) {
open (HEADER,"$header_file");
@header = <HEADER>;
close (HEADER);
foreach $line (@header) {
if ($line =~ /<!--InsertAdvert\s*(.*)-->/i) {
&insertadvert($1);
}
else {
print "$line";
}
}
}
}
________________________-
Hoping that would help you guys figure out how to stop the banner getting placed right up the top of the page.
He also uses the standard
__________________________
sub insertadvert {
require "/u2/www/users/dburgdor/scripts/ads/ads_display.pl";
$adverts_dir = "/u2/www/users/dburgdor/scripts/ads/ads";
$display_cgi = "http://awsd.com/scripts/ads/ads.pl";
$advertzone = $_[0];
$ADVUseBackup = 1;
$ADVUseLocking = 1;
$NonSSI = 0;
$ADVNoPrint = 1;
&ADVsetup;
}
__________________________
Hope you can work it out from that info Bobsie, cause it just gives me a headache :-)