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:
9516abc
)
added check for url
author
tausq
<>
Sat, 23 Oct 1999 02:01:44 +0000
(
02:01
+0000)
committer
tausq
<>
Sat, 23 Oct 1999 02:01:44 +0000
(
02:01
+0000)
update.cgi
patch
|
blob
|
history
diff --git
a/update.cgi
b/update.cgi
index
c0d722b
..
d2d1929
100755
(executable)
--- a/
update.cgi
+++ b/
update.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl
#!/usr/bin/perl
-# $Id: update.cgi,v 1.
2 1999/09/26 01:20:39
tausq Exp $
+# $Id: update.cgi,v 1.
3 1999/10/23 04:01:44
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,6
+77,9
@@
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}});