--- nsdl/nsdlloncapaorg/signon.pl	2003/07/28 15:03:29	1.2
+++ nsdl/nsdlloncapaorg/signon.pl	2003/08/29 14:50:13	1.3
@@ -25,6 +25,9 @@ my %domaindescription=();
 my %libserv=();
 my %hostip=();
 
+my $firsturl=&unescape($ENV{'QUERY_STRING'});
+unless ($firsturl=~/^\//) { $firsturl='/'.$firsturl; }
+
     my %formfields=('afirst' => 'First Name',
                     'blast'  => 'Last Name',
                     'ctitle' => 'Title',
@@ -276,11 +279,12 @@ sub checkform {
 
 sub sendemail {
     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 "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 "\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";
    foreach (sort keys %formfields) {
       print MAILOUT '  '.$formfields{$_}.': '.$form{$_}."\n";