You Belong Here!

[- $optRawInput = 1; -] [$ if $fdat{done} $] [- if ($fdat{login} eq '') {push (@array, "Missing Login Name");} elsif (!( $fdat{login} =~ /^[\da-z]+$/)) {push (@array, "Login may only contain lowercase letters and numbers");} elsif (( length($fdat{login}) <3) or ( length($fdat{login}) >8)) {push (@array, "Login Name must consist of 3-8 characters");} if (($fdat{passwd1} eq '') or ($fdat{passwd2} eq '')) {push (@array, "Missing a Password");} elsif ($fdat{passwd1} ne $fdat{passwd2}) {push (@array, "Passwords must be the same ");} elsif (!( $fdat{passwd1} =~ /^[\d\w]+$/)) {push (@array, "Passwords may only contain letters and numbers");} if ($fdat{title} eq '') {push (@array, "Missing Home Page Title");} if ($fdat{firstname} eq '') {push (@array, "Missing First Name");} if ($fdat{lastname} eq '') {push (@array, "Missing Last Name");} if ($fdat{phone} eq '') {push (@array, "Missing Phone Number");} elsif (! ($fdat{phone} =~ /^[\-\d]+$/)) {push (@array, "Phone Number must be in the following format XXX-XXX-XXXX");} if ($fdat{fax} eq '') {push (@array, "Missing Fax Number");} elsif (!( $fdat{fax} =~ /^[\-\d]+$/)) {push (@array, "Fax Number must be in the following format XXX-XXX-XXXX");} if ($fdat{email} eq '') {push (@array, "Missing email address");} elsif (!( $fdat{email} =~ /^[\d\w@.]+$/)) {push (@array, "Improper email address format");} if ($fdat{address} eq '') {push (@array, "Missing address");} if ($fdat{city} eq '') {push (@array, "Missing City");} if ($fdat{state} eq '') {push (@array, "Missing State");} if ($fdat{zipcode} eq '') {push (@array, "Missing ZipCode");} if ($fdat{country} eq '') {push (@array, "Missing Country");} if ($fdat{dob} eq '') {push (@array, "Missing Date of Birth");} if ($fdat{Pricing} eq '') {push (@array, "Did not choose a rate Plan");} if ($fdat{accept} !~ /yes/io) {push (@array, "You must accept the agreement");} if (@array > 0) {$error=1;} else { $file='/infostreet/ftp/etc/passwd'; $found=0; open(PWD, $file) or die "can't open $file to read\n"; while(($line = ) && !$found ){ $check_user = (split ':',$line)[0]; if ($fdat{login} eq $check_user) {++$found;} } close (PWD); if ($found) { push (@array, "The username you chose is currently in use, please try again"); $error=1; } else { $login = $fdat{login}; my @fields = ( "firstname", "lastname", "email", "phone", "fax", "address", "city", "state", "zip", "country", "dob", "login", "Pricing", "title" ); open( REGINFO, ">/tmp/reg_info_$login" ) or print STDERR "open /tmp/reg_info_$login: $!\n"; for $field (@fields){ printf REGINFO "%-20s %s\n", "$field is:", $fdat{$field}; }; printf REGINFO "%-20s %s\n", "Signed Up on:", scalar localtime; close REGINFO; system( "/www/instant/scripts/run", "/IWS_adduser", $fdat{login}, $fdat{login}, $fdat{email}, $fdat{title}, $fdat{firstname}.' '.$fdat{lastname}, $fdat{Pricing} || 'Q', $fdat{"passwd1"} ) and $error = 1; unlink( "/tmp/reg_info_$login" ); if (!$error){ push @array, 'We failed to add the user: was trying adduser '.$fdat{login}.' '.$fdat{login}.' '.$fdat{email}.' '.$fdat{title}.' '.$fdat{firstname}.' '.$fdat{lastname}.' '.$fdat{payplan}.' '.$fdat{passwd1}; } else { $done = 1; } } } -] [$ endif $] You Belong Here!

To sign up, please email sales@infostreet.com or call us at 866-956-5051 .