diff options
author | Matt Strapp <matt@mattstrapp.net> | 2022-01-11 10:18:56 -0600 |
---|---|---|
committer | Matt Strapp <matt@mattstrapp.net> | 2022-01-11 10:18:56 -0600 |
commit | 6c9b79537f03115c5e2d4883fd407a6ac870bffd (patch) | |
tree | a26cecd37bb254795e8a847ca7235d5e7236ff54 /OLD/csci5271/hw1/hw1p2a.pl | |
parent | finish 3606 (diff) | |
download | homework-6c9b79537f03115c5e2d4883fd407a6ac870bffd.tar homework-6c9b79537f03115c5e2d4883fd407a6ac870bffd.tar.gz homework-6c9b79537f03115c5e2d4883fd407a6ac870bffd.tar.bz2 homework-6c9b79537f03115c5e2d4883fd407a6ac870bffd.tar.lz homework-6c9b79537f03115c5e2d4883fd407a6ac870bffd.tar.xz homework-6c9b79537f03115c5e2d4883fd407a6ac870bffd.tar.zst homework-6c9b79537f03115c5e2d4883fd407a6ac870bffd.zip |
Resume and rearrange
Signed-off-by: Matt Strapp <matt@mattstrapp.net>
Diffstat (limited to 'OLD/csci5271/hw1/hw1p2a.pl')
-rwxr-xr-x | OLD/csci5271/hw1/hw1p2a.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/OLD/csci5271/hw1/hw1p2a.pl b/OLD/csci5271/hw1/hw1p2a.pl new file mode 100755 index 0000000..a8bfe2e --- /dev/null +++ b/OLD/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 |