I have been working on this script just to see if i can write one that has a purpose. I can't figure out why its not working, so please help. Thats all thanks in advance
<code>
#!/usr/bin/perl
use CGI qw(param :standard);
my $in = param("name");
if ($in =~ /^
Yy/ ) {
yes();
} else{
not();
}
sub not{
my $whynot;
print "Why not?\n";
$whynot = <STDIN>;
chomp($whynot);
open (DATABASE, ">>whynot.txt") || nice ("Cant open the textfiles, $!");
print DATABASE $whynot;
close(DATABASE) || nice ("Can't close the text files, $!");
}
sub yes{
print "thanks\n";
}
sub nice{
my $error = "@_";
print "Content-type:text/html\n\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<title>Damian -> Error!</title>\n";
print "</head>\n";
print "<body>\n";
print "
\n";
print "\n";
print "\n";
print "Links\n";
print "
<left%
Originally posted as a Categorized Question.
| |