projects
/
mirror
/
userdir-ldap-cgi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
eefa20d
)
the tausq-bangs-head-against-wall release... <sigh>
author
tausq
<>
Mon, 13 Dec 1999 03:53:28 +0000
(
03:53
+0000)
committer
tausq
<>
Mon, 13 Dec 1999 03:53:28 +0000
(
03:53
+0000)
update.cgi
patch
|
blob
|
history
diff --git
a/update.cgi
b/update.cgi
index
d2d1929
..
d8e0ad0
100755
(executable)
--- a/
update.cgi
+++ b/
update.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl
#!/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. <tausq@debian.org>
use lib '.';
# (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
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});
$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}});
$data{email} = join(", ", @{$entry->{emailforward}});
@@
-97,6
+94,10
@@
if (!($query->param('doupdate'))) {
# Actually update stuff...
my ($newpassword, $newstaddress);
# 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...
if ($query->param('newpass') && $query->param('newpassvrfy')) {
if ($query->param('newpass') ne $query->param('newpassvrfy')) {
# passwords don't match...