diff options
Diffstat (limited to 'csci5271/hw1/hw1p2a.pl')
-rwxr-xr-x | csci5271/hw1/hw1p2a.pl | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/csci5271/hw1/hw1p2a.pl b/csci5271/hw1/hw1p2a.pl deleted file mode 100755 index a8bfe2e..0000000 --- a/csci5271/hw1/hw1p2a.pl +++ /dev/null @@ -1,12 +0,0 @@ -#!/usr/bin/perl -print "Content-Type: text/html\r\n\r\n"; -print "<HTML><BODY>\n"; -($field_name, $username_to_look_for) = split(/=/, <>); -chomp $username_to_look_for; -$result = `last -1000 | grep $username_to_look_for`; -if ($result) { -print "$username_to_look_for has logged in recently.\n"; -} else { -print "$username_to_look_for has NOT logged in recently.\n"; -} -print "</BODY></HTML>\n";
\ No newline at end of file |