#!/usr/local/bin/perl
# CPAN Modules Used
use CGI qw(:standard );
use CGI::Cookie;
umask 000 ;
# initialize variables
$ad_style = param('ad_style') ;
$tag_string = param('tag_string') ;
$sig_string = param('sig_string') ;
$ad_left = param('ad_left') ;
$ad_left_carry = param('ad_left_carry') ;
$stock_view = param('stock_view') ;
####
# Author Information
$author_name = param('author_name') || "" ;
$author_email = param('author_email') || "" ;
$author_url = param('author_url') || "" ;
$image_filename = param('image_filename') ;
$author_safe_email = $author_email ;
$author_safe_email =~ s/\^\&\|\<\>/./g ;
$directory = "./MyOrbit" ;
%cookies = fetch CGI::Cookie;
@jar = (exists($cookies{'user'})) ? $cookies{'user'}->value : ();
if (($jar[1] ne "") && ($author_email eq "")) { $author_email = $jar[1] ; }
if ($jar[3] ne "" ) { $password = $jar[3] ; }
if ($author_email eq "" )
{
&print_screen;
}
if ( -d "$directory/$author_safe_email" )
{
# old user
$old_password = "Please enter your password below." ;
&print_screen;
} else {
# new user
$new_password = "
This password enables you to save your unad so you can share it in our public gallery." ;
$old_password = "
Welcome! We'll need a password so you can access your account." ;
$c = new CGI::Cookie(-name => 'user',
-value => ["$author_name","$author_email", "$author_url", "" ],
-expires => '+3M' # three months
);
mkdir ("$directory/$author_safe_email",0777) ;
open (DIR_FILE, ">./MyOrbit/$author_safe_email/.author_info") ;
print DIR_FILE "author_email:", $author_email, "\n" ;
print DIR_FILE "author_name:", $author_name, "\n" ;
print DIR_FILE "author_url:", $author_url, "\n" ;
print DIR_FILE "password:", "NEW_USER", "\n" ;
chmod 0644, DIR_FILE ;
close DIR_FILE ;
&print_screen ;
}
exit(0);
sub print_screen {
###
###
### Main Screen
###
if ($c ne "")
{
print header(-cookie=>$c, -type=>'text/html',-expires=>'now');
} else
{
print header(-type=>'text/html',-expires=>'now');
}
print <<"_____EoI2_____";
undesign - in orbit
_____EoI2_____
###
###
### End of Main Screen
###
exit(0);
}
