/[gnatsweb]/gnatsweb/gnatsweb.pl
ViewVC logotype

Diff of /gnatsweb/gnatsweb.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.85 by yngves, Sat Dec 1 23:39:35 2001 UTC revision 1.86 by yngves, Tue Dec 4 22:59:12 2001 UTC
# Line 1005  sub sendpr Line 1005  sub sendpr
1005          $q->hidden(-name=>'return_url'),          $q->hidden(-name=>'return_url'),
1006          "<hr>\n",          "<hr>\n",
1007          "<table>";          "<table>";
1008    my $def_email = $global_prefs{'email_addr'} || '';    my $def_email = $global_prefs{'email'} || '';
1009    print "<tr>\n<td width=\"20%\"><b>Reporter's email:</b></td>\n<td>",    print "<tr>\n<td width=\"20%\"><b>Reporter's email:</b></td>\n<td>",
1010          $q->textfield(-name=>'email',          $q->textfield(-name=>'email',
1011                        -default=>$def_email,                        -default=>$def_email,
# Line 1104  sub validate_email_field Line 1104  sub validate_email_field
1104    }    }
1105    # From rkimball@vgi.com, allows @ only if it's followed by what looks    # From rkimball@vgi.com, allows @ only if it's followed by what looks
1106    # more or less like a domain name.    # more or less like a domain name.
1107    my $email_addr = '[^@\s]+(@\S+\.\S+)?';    my $email = '[^@\s]+(@\S+\.\S+)?';
1108    if (!$blank && $fieldval !~ /^\s*($email_addr\s*)+$/)    if (!$blank && $fieldval !~ /^\s*($email\s*)+$/)
1109    {    {
1110      return "'$fieldval' doesn't look like a valid email address (xxx\@xxx.xxx)";      return "'$fieldval' doesn't look like a valid email address (xxx\@xxx.xxx)";
1111    }    }
# Line 3988  sub init_prefs Line 3988  sub init_prefs
3988    }    }
3989    %global_prefs = ();    %global_prefs = ();
3990    set_pref('database', \%global_prefs, \%cvals);    set_pref('database', \%global_prefs, \%cvals);
3991    set_pref('email_addr', \%global_prefs, \%cvals);    set_pref('email', \%global_prefs, \%cvals);
3992    set_pref($ORIGINATOR_FIELD, \%global_prefs, \%cvals);    set_pref($ORIGINATOR_FIELD, \%global_prefs, \%cvals);
3993    set_pref($SUBMITTER_ID_FIELD, \%global_prefs, \%cvals);    set_pref($SUBMITTER_ID_FIELD, \%global_prefs, \%cvals);
3994    
# Line 4002  sub init_prefs Line 4002  sub init_prefs
4002      $global_prefs{'columns'} = $cvals{'columns'};      $global_prefs{'columns'} = $cvals{'columns'};
4003    }    }
4004    
4005    if (!$cvals{'email_addr'}) {    if (!$cvals{'email'}) {
4006        $global_prefs{'email_addr'} = $q->param('email') || '';        $global_prefs{'email'} = $q->param('email') || '';
4007    }    }
4008    
4009    # DB prefs.    # DB prefs.

Legend:
Removed from v.1.85  
changed lines
  Added in v.1.86

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26