diff options
| author | Matt Strapp <matt@mattstrapp.net> | 2022-05-24 11:18:46 -0500 |
|---|---|---|
| committer | Matt Strapp <matt@mattstrapp.net> | 2022-05-24 11:19:55 -0500 |
| commit | 7a73162607544204032aa66cce755daf21edebda (patch) | |
| tree | 58578e01f15f34a855d99c32898db9d7a1603e67 /OLD/csci5271/hw1/hw1p2a.pl | |
| parent | do some stuff (diff) | |
| download | homework-7a73162607544204032aa66cce755daf21edebda.tar homework-7a73162607544204032aa66cce755daf21edebda.tar.gz homework-7a73162607544204032aa66cce755daf21edebda.tar.bz2 homework-7a73162607544204032aa66cce755daf21edebda.tar.lz homework-7a73162607544204032aa66cce755daf21edebda.tar.xz homework-7a73162607544204032aa66cce755daf21edebda.tar.zst homework-7a73162607544204032aa66cce755daf21edebda.zip | |
Graduate
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, 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 |