diff options
| author | Matt Strapp <matt@mattstrapp.net> | 2021-09-25 16:18:39 -0500 |
|---|---|---|
| committer | Matt Strapp <matt@mattstrapp.net> | 2021-09-25 16:18:39 -0500 |
| commit | 604ae9bc9e9c7fbda3b192f5a925c70a970d6962 (patch) | |
| tree | 89269f8f68a428050a176d064aa742425e0c928d /csci5271/hw1/hw1p2a.pl | |
| parent | run formatter (diff) | |
| parent | Start hw1 (diff) | |
| download | homework-604ae9bc9e9c7fbda3b192f5a925c70a970d6962.tar homework-604ae9bc9e9c7fbda3b192f5a925c70a970d6962.tar.gz homework-604ae9bc9e9c7fbda3b192f5a925c70a970d6962.tar.bz2 homework-604ae9bc9e9c7fbda3b192f5a925c70a970d6962.tar.lz homework-604ae9bc9e9c7fbda3b192f5a925c70a970d6962.tar.xz homework-604ae9bc9e9c7fbda3b192f5a925c70a970d6962.tar.zst homework-604ae9bc9e9c7fbda3b192f5a925c70a970d6962.zip | |
Merge branch 'master' of git.mattstrapp.net:RossTheRoss/Homework
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 |