-------------------------------------------------------------------
-->> FREE Perl CGI scripts add WEB ACCESS to your POP email accounts!
-->> Download today!! http://www.adjeweb.com
-------------------------------------------------------------------

I have the following perl script which I'm currently using
successfully.  What I want to do is add a background image to the
html page when it comes up, but it's not showing.  Can Someone tell
me what the problem is?  I put the reference to the background image
in the
# START HTML DOCUMENT section.

Admin

--------------------------------------------------------------------

#!/usr/bin/perl -w


use 5.004;
use strict;
use CGI qw(:standard);
use Fcntl qw(:flock);

# ERROR SUBROUTINE
sub bail {
    my $error = "@_";
    print h1("Unexpected Error"), p($error), end_html;
    die $error;

}

# LOCAL/PRIVATE STRINGS AND ARRAYS
my(
    $WALL,
    $CHATNAME,
    $MAXSAVE,
    $TITLE,
    $HOME,
    $cur,
    @entries,
    $entry,
);

$TITLE = "Hosting Ohio Chat Server,  version 1.1";
$HOME = "<a href=http://www.hostingohio.com>[main page]</a>";
$CHATNAME = "/home/admin/hostingohio-www/chat/chatfile2";
$WALL = "/home/admin/hostingohio-www/balloons.jpg";
$MAXSAVE = 100;

# START HTML DOCUMENT
print header, start_html(-title=>"$TITLE", -background=>"$WALL"),
h2($TITLE), ($HOME);

$cur = CGI->new();
if ($cur->param("message")) {
 $cur->param("date", scalar localtime);
 @entries = ($cur);
}

# CHATFILE LOCK PROCEDURE
open(CHANDLE, " < $CHATNAME") || bail("cannot open $CHATNAME: $!");

flock(CHANDLE, LOCK_EX) || bail("cannot flock $CHATNAME: $!");

while (!eof(CHANDLE) && @entries < $MAXSAVE) {
    $entry = CGI->new(\*CHANDLE);
    push @entries, $entry;
}
seek(CHANDLE, 0, 0) || bail("cannot rewind $CHATNAME: $!");
foreach $entry (@entries) {
    $entry->save(\*CHANDLE);
}
truncate(CHANDLE, tell(CHANDLE)) || bail("cannot truncate $CHATNAME:
$!");
close(CHANDLE) || bail("cannot close $CHATNAME: $!");

# FORM DATA
print hr, start_form;
print p("Nick:", $cur->textfield(-NAME => "name"));
print p("Say:", $cur->textarea(-NAME => "message", -OVERRIDE => 1,
-ROWS => 5, -COLUMNS => 50));
print p(submit("Send/Refresh"), reset("Start Over"));
print end_form, hr;

# PRINTED CHAT HISTORY
print h3("Last Said:");
foreach $entry (@entries) {
    printf("%s [%s]", $entry->param("date"), $entry->param("name"));
    print p();
    printf("%s", $entry->param("message"));
    print p();
    print hr;
}
print end_html;








[EMAIL PROTECTED]
www.hostingohio.com

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to