[BACK]Return to signon.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / nsdl / nsdlloncapaorg

Diff for /nsdl/nsdlloncapaorg/signon.pl between versions 1.2 and 1.3

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";
Removed from v.1.2  
changed lines
  Added in v.1.3

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>