Anyone bored? Help me with another quick HCI survey: https://byu.qualtrics.com/SE?SID=SV_82Oria7UclodIaw&SVID=Prod

I love Spring. And when I say "love," I mean it. I could just sit on the porch all day today. In fact, I think I will do my homework outside today. :-)

It is so gorgeous outside today! Why don't I have a motorcycle or a convertible?

Anyone bored? Help me with this quick HCI survey: https://byu.qualtrics.com/SE?SID=SV_79Q8vfaVZ3Ny2q0&SVID=Prod

Dear BYU, Please stop forgetting how to play once you're ahead and then finally winning the game after double overtime. Love, Brady

Happy St. Patty's day! And what do you think about a '71 Pontiac Firebird? I'm going to look at one today, methinks.

Consider yourself notified: Val is 12 weeks pregnant now.

For the sake of humanity, you have to watch this video: http://www.youtube.com/watch?v=MyGJXLxtVEo

I GOT INTO GRAD SCHOOL AT BYU! YES! Seriously, I'm so freakin' excited right now!

I really want a project car. I've been dreaming about nothing but cars for weeks now and its just getting worse. I'm officially taking donations now.

If you haven't been to Pizza Pie Cafe, you haven't lived.

Perl Administration

I'm not sure if this works, so let me know:

#!/usr/bin/perl -w

# Brady Redfearn, IT-344, Security Scan
# Code courtesy of Googling the Internet

# include mailer program
use Mail::Mailer;

# Variables
@array = (`ls -l`);
# email default string:
sub sendEmail{
# email fields
($to, $from, $subject, $body) = @_;$mailer = new Mail::Mailer->new();$mailer -> open({From => $from,To => $to,Subject => $subject,});print $mailer $body;$mailer -> close() or die "Couldn't send the message $!\n";}

# loop
foreach(@array){
$file = $_;
# Parses through the string and the portions within the parameters are saved
if($file =~ /(.)(...)(...)(...)\s+\S+\s+(\S+)\s+(\S+)\s+\S+\s+\S+\s+\S+\s+(\S+)/){
$group = $3;
$anyone = $4;
$group_per = $5;
$owner_name = $6;
$file = $7;
$user = $ENV{"USER"};

# File has been found
if(($group =~ m/(x|r|w)/)&&$anyone =~ m/(x|r|w)/){
$output = "A security issue has been detected:
File $file owned by $owner_name has $group permissions available to the group $group_per and has $anyone world permissions\n";
sendEmail("$user\@localhost","security\@localhost","Security problems detected",$output);
} # if ends

# another file
elsif($group =~ m/(x|r|w)/){
$output = "A security issue has been detected:
File $file owned by $owner_name has $group permissions available to the group $group_per and has $anyone world permissions\n";
sendEmail("$user\@localhost","security\@localhost","Security problems detected",$output);
} # else-if ends

# another file
elsif($anyone =~ m/(x|r|w)/){
$output = "A security issue has been detected:
File $file owned by $owner_name has $group permissions available to the group $group_per and has $anyone world permissions\n";
sendEmail("$user\@localhost","security\@localhost","Security problems detected",$output);
} # else-if ends

} # if statement
} # foreach loop