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 /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 'csci5271/hw1/hw1p2a.pl')
| -rwxr-xr-x | csci5271/hw1/hw1p2a.pl | 12 |
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 |