home *** CD-ROM | disk | FTP | other *** search
- #!/opt/perl/bin/perl
- require '/opt/perl/lib/CGI.pm';
- use CGI;
-
- &CGI::ReadParse;
-
- $mailprog = '/usr/lib/sendmail'; # Mail program location.
- $shell = '/bin/sh';
- $to = "mips\@sci.fi";
-
-
- if( ($in{'Country'} ne "") && ($in{'Version'} ne "") && ($in{'Status'} ne "") ){
-
- $page = $in{'Page'};
- $page = 'http://www.sci.fi/~mips/jerboa/thanks.html' unless $page;
- print "Content-type: text/html\n"; # Tell browser what's coming..
- print "Location: $page\n\n";
-
- open (LIST,"|$shell") || die$!;
- print LIST "echo $in{'Country'} $in{'Status'} $in{'Version'} >> list.txt\n";
- close (LIST);
-
- open (MAIL,"|$mailprog $to") || die$!;
- print MAIL "Subject: Jerboa user notify\n\n";
- print MAIL "Country: $in{'Country'}\n";
- print MAIL "Status: $in{'Status'}\n";
- print MAIL "Version: $in{'Version'}\n";
- print MAIL "Comment: $in{'Comment'}\n";
- close (MAIL);
- }
- else{
- $page = $in{'Page'};
- $page = 'http://www.sci.fi/~mips/jerboa/notall.html' unless $page;
- print "Content-type: text/html\n"; # Tell browser what's coming..
- print "Location: $page\n\n";
- }
-