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:
7d60f07
)
left out one
author
tausq
<>
Mon, 13 Dec 1999 03:56:48 +0000
(
03:56
+0000)
committer
tausq
<>
Mon, 13 Dec 1999 03:56:48 +0000
(
03:56
+0000)
update.cgi
patch
|
blob
|
history
diff --git
a/update.cgi
b/update.cgi
index
d8e0ad0
..
33fc9de
100755
(executable)
--- a/
update.cgi
+++ b/
update.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl
#!/usr/bin/perl
-# $Id: update.cgi,v 1.
4 1999/12/13 04:53:2
8 tausq Exp $
+# $Id: update.cgi,v 1.
5 1999/12/13 04:56:4
8 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 '.';
@@
-94,7
+94,8
@@
if (!($query->param('doupdate'))) {
# Actually update stuff...
my ($newpassword, $newstaddress);
# Actually update stuff...
my ($newpassword, $newstaddress);
- if ($query->param('labeledurl') !~ /^https?:\/\//i) {
+ if (($query->param('labeledurl')) &&
+ ($query->param('labeledurl') !~ /^https?:\/\//i)) {
&Util::HTMLError("Your homepage URL is invalid");
}
&Util::HTMLError("Your homepage URL is invalid");
}