Nevermind I *just* figured it out. It is the exit code. Oops :)
Dave
> -----Original Message-----
> From: Dave Kettmann
> Sent: Sunday, April 03, 2005 2:45 PM
> To: Perl List (E-mail)
> Subject: 1 at end of script
>
>
> Hello all,
>
> This is a CGI question, and I know there is a CGI list for
> beginners, but this should be a simple question.
>
> At the end of my script, a "1" is printed and I dont know
> where it comes from. Here is my code so far:
>
> --code--
>
> #!/usr/bin/perl
>
> use CGI qw(:standard);
>
> print header;
>
> print "<CENTER>\n";
> print img{-src=>"/images/netlogic2.png"};
> print "<H1>Control Panel</H1></CENTER>\n";
>
> ## Static Header above this line ##
>
> $action = param('action');
> if ( $action eq 'login' ) { print checkpw(); }
> else { print login(); }
>
>
> sub login {
> print "<HR>\n";
> print "<CENTER>\n";
> print startform;
> print hidden(-name=>'action',-value=>'login');
> print "<TABLE ALIGN=center>\n";
> print " <TR>\n";
> print " <TD ALIGN=right>Username:</TD>\n";
> print " <TD ALIGN=left>" . textfield . "</TD>\n";
> print " </TR>\n";
> print " <TR>\n";
> print " <TD ALIGN=right>Password:</TD>\n";
> print " <TD ALIGN=left>" . password_field(-name=>'passwd')
> . "</TD>\n";
> print " </TR>\n";
> print " <TR>\n";
> print " <TD ALIGN=center COLSPAN=2>" .
> submit(-name=>'Login!') . "</TD>\n";
> print "</TABLE>\n";
>
> }
>
> sub checkpw {
>
> print "Check password here ...\n";
> }
>
> --end code--
>
> Can anyone see anything out of the ordinary? Everything seems
> to work and look ok so far (this is no where near from being
> done) but that "1" bothers me.
>
> Any help is appreciated.
>
> Thanks,
>
> Dave Kettmann
> NetLogic
> 314-266-4000
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
