CVS: macs/htdocs welcome.pl,1.1,1.2

[Mario D. S. <sa...@us...>]

Update of /cvsroot/macs/macs/htdocs
In directory usw-pr-cvs1:/tmp/cvs-serv32116

Modified Files:
	welcome.pl 
Log Message:
Minor usability changes


Index: welcome.pl
===================================================================
RCS file: /cvsroot/macs/macs/htdocs/welcome.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** welcome.pl	24 Aug 2001 23:25:37 -0000	1.1
--- welcome.pl	25 Mar 2002 04:11:32 -0000	1.2
***************
*** 33,37 ****
  my($uidhdr) = uc($cfg{AUS}{http_uid_header}); $uidhdr =~ tr/-/_/;
  my($uid) = $ENV{"HTTP_$uidhdr"};
! 
  
  my($query) = new CGI();
--- 33,37 ----
  my($uidhdr) = uc($cfg{AUS}{http_uid_header}); $uidhdr =~ tr/-/_/;
  my($uid) = $ENV{"HTTP_$uidhdr"};
! my($profile) = "";
  
  my($query) = new CGI();
***************
*** 42,46 ****
  # create the drop-down of apps
  my($apps);# = get_apptable($query);
- my($profile) = get_profile();
  my($login) = $ENV{HTTP_MACS_LOGIN};
  my($name) = $ENV{HTTP_MACS_NAME};
--- 42,45 ----
***************
*** 48,51 ****
--- 47,53 ----
  if ( defined($login) && defined($name) ) {
      $welcome = $query->h1("Welcome, $login") . "Hello $name my only friend. Choose an application to try to visit.<br>";
+     $profile = get_profile();
+ } elsif ( defined($uid) ) {
+     $welcome = $query->h1("Welcome, user $uid") . 'You are logged in, now pick an application.';
  } else {
      $welcome = $query->h1('Welcome, stranger') . 'I don\'t know you, but pick an application you might like to log into.';