From 6c9b79537f03115c5e2d4883fd407a6ac870bffd Mon Sep 17 00:00:00 2001 From: Matt Strapp Date: Tue, 11 Jan 2022 10:18:56 -0600 Subject: Resume and rearrange Signed-off-by: Matt Strapp --- csci5271/hw1/hw1p2a.pl | 12 ------------ 1 file changed, 12 deletions(-) delete mode 100755 csci5271/hw1/hw1p2a.pl (limited to 'csci5271/hw1/hw1p2a.pl') diff --git a/csci5271/hw1/hw1p2a.pl b/csci5271/hw1/hw1p2a.pl deleted file mode 100755 index a8bfe2e..0000000 --- a/csci5271/hw1/hw1p2a.pl +++ /dev/null @@ -1,12 +0,0 @@ -#!/usr/bin/perl -print "Content-Type: text/html\r\n\r\n"; -print "\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 "\n"; \ No newline at end of file -- cgit v1.2.3