cgi: remove a source of uninitialized variable warnings
authorKyle J. McKay <mackyle@gmail.com>
Mon, 15 Jul 2013 10:51:55 +0000 (15 03:51 -0700)
committerKyle J. McKay <mackyle@gmail.com>
Mon, 15 Jul 2013 10:51:55 +0000 (15 03:51 -0700)
These warnings end up in the Apache error log which is
undesirable.

Be careful not to compare an undefined 'y0' param to
a string without first setting it to ''.

cgi/delproj.cgi
cgi/deluser.cgi
cgi/edituser.cgi
cgi/pwproj.cgi
cgi/regproj.cgi
cgi/reguser.cgi

index d1ba6cf..3ec8bd2 100755 (executable)
@@ -41,10 +41,11 @@ if ($proj->has_forks()) {
        exit;
 }
 
-if ($cgi->param('y0') && $cgi->request_method eq 'POST' && $proj->authenticate($gcgi)) {
+my $y0 = $cgi->param('y0') || '';
+if ($y0 && $cgi->request_method eq 'POST' && $proj->authenticate($gcgi)) {
        # submitted
        if (!$proj->{mirror} && !$isempty && !$cgi->param('auth')) {
-               if ($cgi->param('y0') ne 'Send authorization code') {
+               if ($y0 ne 'Send authorization code') {
                        print "<p>Invalid data. Go away, sorcerer.</p>\n";
                        exit;
                }
@@ -87,7 +88,7 @@ you have used it.</p>
 EOT
                exit;
        }
-       if ($cgi->param('y0') ne "Remove") {
+       if ($y0 ne "Remove") {
                print "<p>Invalid data. Go away, sorcerer.</p>\n";
                exit;
        }
index 99d63e5..2fff089 100755 (executable)
@@ -42,7 +42,8 @@ sub _auth_form {
 EOT
 }
 
-if ($cgi->param('name') && $cgi->param('y0') && $cgi->request_method eq 'POST') {
+my $y0 = $cgi->param('y0') || '';
+if ($cgi->param('name') && $y0 && $cgi->request_method eq 'POST') {
        # submitted, let's see
        # FIXME: racy, do a lock
        my $name = $gcgi->wparam('name');
@@ -59,7 +60,7 @@ if ($cgi->param('name') && $cgi->param('y0') && $cgi->request_method eq 'POST')
        $gcgi->err_check and exit;
 
        if (!$cgi->param('auth')) {
-               if ($cgi->param('y0') ne 'Send authorization code') {
+               if ($y0 ne 'Send authorization code') {
                        print "<p>Invalid data. Go away, sorcerer.</p>\n";
                        exit;
                }
@@ -90,7 +91,7 @@ EOT
                _auth_form($name, "'Login'");
                exit;
        } else {
-               if ($cgi->param('y0') ne "'Login'" && $cgi->param('y0') ne "Remove user account") {
+               if ($y0 ne "'Login'" && $y0 ne "Remove user account") {
                        print "<p>Invalid data. Go away, sorcerer.</p>\n";
                        exit;
                }
@@ -109,7 +110,6 @@ EOT
                        exit;
                }
 
-               my $y0 = $gcgi->wparam('y0') || '';
                my $conf = $gcgi->wparam('confirm') || '';
                if ($y0 ne 'Remove user account' || $conf ne $user->{name}) {
                        my $blurb1 = '.';
index 19c8ecd..5b6d80b 100755 (executable)
@@ -43,8 +43,7 @@ $fields<p><input type="submit" name="y0" value="$submit" /></p>
 EOT
 }
 
-my $y0 = $cgi->param('y0');
-
+my $y0 = $cgi->param('y0') || '';
 if ($cgi->param('name') && $y0 && $cgi->request_method eq 'POST') {
        # submitted, let's see
        # FIXME: racy, do a lock
index 01f190d..f46c9f5 100755 (executable)
@@ -43,7 +43,8 @@ $proj or die "not found project $name, that's really weird!";
 
 my $mail = $proj->{email};
 
-if ($cgi->param('y0') eq 'Reset Password' && $cgi->request_method eq 'POST') {
+my $y0 = $cgi->param('y0') || '';
+if ($y0 eq 'Reset Password' && $cgi->request_method eq 'POST') {
        # submitted
 
        my $newpwd = genpwd();
index b71891a..50d9c7c 100755 (executable)
@@ -23,7 +23,8 @@ if ($fork) {
        $name = "$fork/$name";
 }
 
-if ($cgi->param('mode') && $cgi->request_method eq 'POST') {
+my $y0 = $cgi->param('y0') || '';
+if ($cgi->param('mode') && $y0 eq 'Register' && $cgi->request_method eq 'POST') {
        # submitted, let's see
        # FIXME: racy, do a lock
        Girocco::Project::valid_name($name)
index e9d04d4..488b451 100755 (executable)
@@ -24,7 +24,8 @@ if ($cgi->param('mail')) {
        exit;
 }
 
-if ($cgi->param('name') && $cgi->param('y0') eq 'Register' && $cgi->request_method eq 'POST') {
+my $y0 = $cgi->param('y0') || '';
+if ($cgi->param('name') && $y0 eq 'Register' && $cgi->request_method eq 'POST') {
        # submitted, let's see
        # FIXME: racy, do a lock
        my $name = $gcgi->wparam('name');