#!/usr/bin/perl print "Content-type: text/html\n\n"; print "\n \n "; print " \n"; open DATA, ") { $data = "$data $line"; } $data =~ /netid=(.*?);/; $netid = $1; $data =~ /personalizedEmailAddress=(.*?);/; $personalizedEmailAddress= $1; $data =~ /retiringEmailAddress=(.*?);/; $retiringEmailAddress= $1; $data =~ /retirementDate=(.*?);/; $retirementDate= $1; $data =~ /assignedEmailService=(.*?);/; $assignedEmailService = $1; $data =~ /secondaryEmailService=(.*?);/; $secondaryEmailService= $1; $data =~ /officialEmailAddress=(.*?);/; $officialEmailAddress = $1; print "Manage email
"; print " Users are encouraged to establish a personalized email address and to list this address in the Rutgers Directory. Please review and complete each of the following sections
"; print "

"; print "netid= $netid
\n"; print "personalizedEmailAddress= $personalizedEmailAddress
\n"; print "retiringEmailAddress= $retiringEmailAddress
\n"; print "retirementDate = $retirementDate
\n"; print "assignedEmailService = $assignedEmailService
\n"; print "secondaryEmailService=$secondaryEmailService
\n"; print "officialEmailAddress= $officialEmailAddress
\n"; print "

"; print " Personalized Email address

"; print "Messages sent to a personalized email address will be placed in the inbox of your rutgers email service.

"; if ($personalizedEmailAddress eq "" && $retiringEmailAddress eq "") { # register a personalized email address print "You have not registered a personalized email address. "; } if ($personalizedEmailAddress ne "" && $retiringEmailAddress eq "") { # update the personalized address print "$personalizedEmailAddress is your personalized email address. "; } if ($personalizedEmailAddress ne "" && $retiringEmailAddress ne "") { print "$personalizedEmailAddress is your personalized email address. Your previous personalized email address, $retiringEmailAddress, will continue to accept messages "; print " until $retirementDate after which it will be retired. No further changes may be made to your personal email address until after $retirementDate"; } print "

"; print "RutgersEmail Service"; print "

"; print "Secondary Email Service"; print "

"; print "Official Email Address"; print ""; print " "