
#!/usr/bin/perl5 -w
#
print "Your name.."
$name=<STDIN>
print "Your email.."
$email=<STDIN>
print "Your message\n"
$messa=<STDIN>
$dbfile="http://www.npac.syr.edu/users/gcf/homepage/FFE/membersboard.htm"
open(MESSFILE,"<$dbfile");
@messageb = <MESSFILE> ;
close(MESSFILE);
open(MESSFILE,">$dbfile") ;
#
foreach $line (@messageb)    {

#   Insert Line
    if( $line =~ m%^<!--MESSAGES-->% )  {
print MESSFILE <<EOF;
Message from: <a href="mailto:$email">$name</a><br>
Subject: $subject <br>
Message: <br>
$message <br>
<hr>
EOF
}
    print MESSFILE $line;
}
close(MESSFILE);


