#!/usr/local/bin/perl ##################################### ## Example of using perlwrap-auth. ## This checks for the authenticated netid ## in $ENV{REMOTE_USER}, and constructs ## a new url if it isn't there. ## print <Example

Example Script

EOF if ( $ENV{REMOTE_USER} ) { print "

Hi, $ENV{REMOTE_USER}!\n"; } else { my $url = "https://$ENV{SERVER_NAME}$ENV{SCRIPT_NAME}"; $url =~ s/perlwrap/perlwrap-auth/; print "

Hey, you didn't use bluestem!\n"; print "Try this.\n"; } print "\n";