#!/usr/bin/perl
-# (c) 1999 Debian and Randolph Chung. Licensed under the GPL. <tausq@debian.org>
+# $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 '.';
use strict vars;
$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}});