version 1.2, 2003/07/28 15:03:29
|
version 1.3, 2003/08/29 14:50:13
|
Line 25 my %domaindescription=();
|
Line 25 my %domaindescription=();
|
my %libserv=(); |
my %libserv=(); |
my %hostip=(); |
my %hostip=(); |
|
|
|
my $firsturl=&unescape($ENV{'QUERY_STRING'}); |
|
unless ($firsturl=~/^\//) { $firsturl='/'.$firsturl; } |
|
|
my %formfields=('afirst' => 'First Name', |
my %formfields=('afirst' => 'First Name', |
'blast' => 'Last Name', |
'blast' => 'Last Name', |
'ctitle' => 'Title', |
'ctitle' => 'Title', |
Line 276 sub checkform {
|
Line 279 sub checkform {
|
|
|
sub sendemail { |
sub sendemail { |
my $upass=shift; |
my $upass=shift; |
open(MAILOUT,"|mail '$form{'gemail'}' -c '$admemail' -s 'Your LON-CAPA Demo Access Info'"); |
open(MAILOUT,"|mail '$form{'gemail'}' -c '$admemail' -s 'Your LON-CAPA Guest Access Info'"); |
print MAILOUT "Welcome to LON-CAPA!\n\n"; |
print MAILOUT "Welcome to LON-CAPA!\n\n"; |
print MAILOUT "Somebody at $ENV{'REMOTE_ADDR'}, probably you, signed up\n"; |
print MAILOUT "Somebody at $ENV{'REMOTE_ADDR'}, probably you, signed up\n"; |
print MAILOUT "for an NSDL guest login to\n\n http://$demoserver/\n\n"; |
print MAILOUT "for an NSDL guest login to\n\n http://$demoserver$firsturl?username=$form{'huser'}\n\n"; |
print MAILOUT " Username: $form{'huser'}\n Password: $upass\n\n"; |
print MAILOUT " Username: $form{'huser'}\n Password: $upass\n\n"; |
|
print MAILOUT "\n\nThe guest access will remain valid for 100 days, and can be used for future access to NSDL resources within LON-CAPA\n\n"; |
print MAILOUT "Additional information provided was:\n\n"; |
print MAILOUT "Additional information provided was:\n\n"; |
foreach (sort keys %formfields) { |
foreach (sort keys %formfields) { |
print MAILOUT ' '.$formfields{$_}.': '.$form{$_}."\n"; |
print MAILOUT ' '.$formfields{$_}.': '.$form{$_}."\n"; |