PERL help

exiztone

Hey,
it's not a major deal or anything because the script is just for my personal homepage but I'v been using a guestbook script in perl for about a year now.
There's nothing wrong with the script afaik, but the server where I host it for somereason executes the script once or twice every day and the script posts blanks into the guestbook.
I'm just wondering how can I edit the script so it will just generate an error if the input fields are blank?

I'v attatched the script with this post.


Thanks a million.

seamus

Have a look for some javascript to do with validating form input. It's a far cry from ensuring that no-one would ever enter blanks, but for a guestbook, it's plenty.

exiztone

Nah that wouldn't work for me because the problem isn't in the form itself. The server executes the script without the form at random times and the script just assumes it's coming from the form with nothing in it and in turn posts blanks.

seamus

Em....well my code may be a complete bastardisation/hybrid of PHP, Perl, and Java but if put something like:

$validEntry = 1;
foreach ($data as $value) {
          if ($value == '') 
              $validEntry = 0;
}

Then put an if statement around the section where it writes to the file:

if ($validEntry) {
//Write to file
}



Ifyou get my drift....

exiztone

Hey,
nah man, it just gave an internal server error with that.
I think I put it in correctly anyway.

Is it right?

seamus

Heh, yeah that's the right idea, but my little bit of code there isn't Perl, it's just my attempt to get the idea across

Maybe someone who knows Perl properly could rewrite my code to do it?

Kev

try something like

( defined($formdata) && ($formdata ne '') ) or die;

after this

$formdata=<STDIN>;
$formdata=~s/\s+$//;

exiztone

Hmmm no, that doesn't seem to work either

Enygma

Warning: It's been almost 2 years since I've written any Perl.

You should at least get the drift here:

exiztone

Man, it works like a charm!
Thanks very much!

Enygma

Still got it baby! Woohoo!