Select Code to Download

Select or download this

# Read in all the variables set by the form
CGI::ReadParse(*input);
...
$month = $input{'month'};
$date  =  $input{'date'};
$year  =  $input{'year'};

Select or download this

        my $month = $q->param('month');
        my $date  = $q->param('date');
        my $year  = $q->param('year');
        my $title = $q->param('title');
        my $message = $q->param('message');

Select or download this

#!/usr/local/bin/perl
use CGI qw/:all/;

my $q = new CGI;

Select or download this

#!/usr/local/bin/perl -w
use strict;
use CGI;

my $q      = new CGI;

Select or download this
```
CGI::ReadParse(*input);
```
Select or download this
```
print "Content-type: text/html\n\n";
```
Select or download this
```
print $q->header();
```

Select or download this

if($action eq "add_data"){
        print "Your post was sucessful<br>";
...
}
else{
}

Select or download this

if($action eq "add_data") {
        print "Your post was sucessful<br>";
...
} else {
        print STDERR "Unrecognised action: [$action]\n";
}

Select or download this

# in CountCurrentRecords
open(DATABASE, "$database");

Select or download this

# in CountCurrentRecords
$number = 1;
# ...
$number = 0 if $number < 0;

Select or download this

# in preview
print "<html>
<HR>
  <table border='0' width='100%'>
...

Select or download this
```
# in add_data
$addfile = "events.txt";
```

Select or download this

sub add_data {
        my ($q, $numberoflines, $addfile) = @_;
...
        print OUT "$line\n";
        close OUT;
}

Select or download this

if ($action eq "add_data") {
        print "Your post was sucessful<br>";
        add_data($q, $numberoflines, $database);
}