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