From 7d60f07600e093d10db8176efdb916e5c042f72f Mon Sep 17 00:00:00 2001 From: tausq <> Date: Mon, 13 Dec 1999 03:53:28 +0000 Subject: [PATCH] the tausq-bangs-head-against-wall release... --- update.cgi | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/update.cgi b/update.cgi index d2d1929..d8e0ad0 100755 --- a/update.cgi +++ b/update.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Id: update.cgi,v 1.3 1999/10/23 04:01:44 tausq Exp $ +# $Id: update.cgi,v 1.4 1999/12/13 04:53:28 tausq Exp $ # (c) 1999 Randolph Chung. Licensed under the GPL. use lib '.'; @@ -77,9 +77,6 @@ if (!($query->param('doupdate'))) { $data{staddress} = $entry->{postaladdress}->[0]; $data{staddress} =~ s/\$/\n/; $data{countryname} = &Util::LookupCountry($data{c}); - if ($data{labeledurl} !~ /^https?:\/\//i) { - &Util::HTMLError("Malformed URL entered"); - } $data{email} = join(", ", @{$entry->{emailforward}}); @@ -97,6 +94,10 @@ if (!($query->param('doupdate'))) { # Actually update stuff... my ($newpassword, $newstaddress); + if ($query->param('labeledurl') !~ /^https?:\/\//i) { + &Util::HTMLError("Your homepage URL is invalid"); + } + if ($query->param('newpass') && $query->param('newpassvrfy')) { if ($query->param('newpass') ne $query->param('newpassvrfy')) { # passwords don't match... -- 2.20.1