Hi again,
the script now reads ( see below ) but I still get errors as follows:
** (at end of line) = where use of uninitialised value in cancatenation and
*** (at end of line) = where use of uninitialised value in pattern
match
How should I initialise those values?
Cheers
Francessco
#!/usr/bin/perl -w
#/------------------------------------------------
# add taint check later
#
use CGI qw(:standard);
use strict;
use CGI::Carp qw(fatalsToBrowser); # remove later
use Fcntl qw(:flock);
my $q = CGI -> new();
my $filename = param('filename');
my $subject = param('subject');
my $action = param('action');
my @subjects = ( 'running', 'computers', 'med_pol', 'med_clin', 'misc', 'links' );
my $DATA_DIR = ( "../data/$subject" ); # **
my $COMMENT_DIR = ( "../data/$subject/.comments" ); # **
( my $today = localtime ) =~ s/ +\d+:\d+:\d+/,/;
( $filename ) = ( $q->param('filename') =~ /^(\d+)$/ ); # ***
( $subject ) = ( $q->param('subject' ) =~ /^(\w+)$/ ); # ***
( $action ) = ( $q->param('action ' ) =~ /^(\w+)$/ ) || 'start' ;#***
if ( $action eq 'start' ) { start(); }
elsif ( $action eq 'list' ) { list() ; }
elsif ( $action eq 'display' ) { display(); }
elsif ( $action eq 'comment' ) { comment(); }
else { start(); }
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
