#!/usr/bonsaitools/bin/perl # -*- Mode: perl; indent-tabs-mode: nil -*- # # The contents of this file are subject to the Netscape Public License # Version 1.0 (the "License"); you may not use this file except in # compliance with the License. You may obtain a copy of the License at # http://www.mozilla.org/NPL/ # # Software distributed under the License is distributed on an "AS IS" # basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the # License for the specific language governing rights and limitations # under the License. # # The Original Code is the Application Registry. # # The Initial Developer of the Original Code is Netscape Communications # Corporation. Portions created by Netscape are Copyright (C) 1998 # Netscape Communications Corporation. All Rights Reserved. require 'lloydcgi.pl'; $|=1; $rawname= $form{"email"}; $email = $rawname; if ($email !~ '@') { $email =~ s/%/@/; } $username = $email; $username =~ s/@.*$//; $hostname = $email; $hostname =~ s/^.*@//; if ($hostname eq $email) { $hostname = "netscape.com"; } $full_name = $email; $enc_full_name = $email; #this should be url encoded @extra_url = (); @extra_text = (); print "Content-type: text/html\n\n\n"; print "

\n"; print "$email\n"; print "\n"; &load_extra_data; $i = 0; while( $i < @extra_text ){ $t = $extra_text[$i]; if( $u = $extra_url[$i] ){ print("

$t\n"); } else { print("

$t\n"); } $i++; } if( @extra_text ){ print("

\n"); } print "

Send Mail

Check-ins within 7 days

"; sub load_extra_data { local( $i, $u, $t ); $i = 0; while( ($u = $form{"u${i}"}) ne "" || $form{"t${i}"} ne "" ) { $t = $form{"t${i}"}; if( $t eq "" ) {$t = $u }; $extra_url[$i] = $u; $extra_text[$i] = $t; $i++; } }