Most likely because no data is being passed to the script.
Brad
> -----Original Message-----
> From: Francesco Scaglioni [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, August 29, 2001 9:23 AM
> To: [EMAIL PROTECTED]
> Cc: [EMAIL PROTECTED]
> Subject: RE: uninitialised value strings
>
>
> 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]
