aboutsummaryrefslogtreecommitdiffstats
path: root/OLD/csci5271/hw1/hw1p2a.pl
diff options
context:
space:
mode:
Diffstat (limited to 'OLD/csci5271/hw1/hw1p2a.pl')
-rwxr-xr-xOLD/csci5271/hw1/hw1p2a.pl12
1 files changed, 0 insertions, 12 deletions
diff --git a/OLD/csci5271/hw1/hw1p2a.pl b/OLD/csci5271/hw1/hw1p2a.pl
deleted file mode 100755
index a8bfe2e..0000000
--- a/OLD/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