note
Alex the Serb
here is some very basic forum:<br><br>
<code>
#!/usr/bin/perl -w
use strict;
use CGI qw(param);
my $choice = param("choice");
print "content-type: html/text\n\n";
if(!$choice) { print "<html><body><br>1. New discussion thread<br>2. Relevant information<br></body></html>"; exit }
if($choice == 1) { print "<html><body><br> Welcome to new discussion</body></html>";exit }
if($choice == 2) { print "<html><body><br> Welcome to relevant information</body></html>";exit }
</code>
hope that this helped you!
138897
138897