Politics29 Feb 2008 09:33 am

Senate passes bill to prohibit gun confiscations

Thanks in no small part to your calls to legislators, the state Senate today passed Assembly Bill AB581. Authored by Representative Scott Gunderson (R-Waterford), this is the bill that prohibits the governor and other public officials from confiscating guns during declared states of emergency.

Under the bill, public officials will not be able to exercise emergency powers to restrict the possession, transfer, sale, transport, storage, display or use of firearms or ammunition.

AB581 passed in the Assembly in December by a vote of 84 to 13, with two members not present. The vote in the Senate today was 26 in favor, 5 opposed, with two members not present.

Voting against the bill were Senators Spencer Coggs (D-Milwaukee), Lena Taylor (D-Milwaukee), Judy Robson (D-Beloit), Mark Miller (D-Monona) and Fred Risser (D-Madison). By their votes, these senators are on record as being in favor of allowing the governor or other public officials to confiscate firearms. Not just Evil Black rifles, or handguns, but ALL guns.

Governor Doyle’s office has said that he has not yet decided if he will sign the bill. He’s known about this bill for months, knows what it’s all about, and certainly should have decided what his position would be on the bill by now.

Please help Governor Doyle decide what his position should be by contacting his office at 608-266-1212.

Also call your state senator to thank him or her for a vote in favor of gun rights. If you don’t know who your state senator is, go to http://waml.legis.state.wi.us/ and enter your street address to get your senator’s name and contact information. Please also thank Senate Majority Leader Russ Decker (D-Wausau) for scheduling a vote on this very important bill.

No Comments Yet
Funnies20 Feb 2008 07:44 pm

Towel Heads

Okay, this passed along via email… just too good not to post for folks to get a good chuckle from;

In these troubled times, it has become very difficult to distinguish the good towel-heads from the bad towel heads. Just where are the moderate Muslims, anyway? Do they actually exist?

The following is provided, to help you distinguish between a BAD “towel-head” and a GOOD “towel-head.” You must study the pictures carefully so that you will not confuse the two in a moment of indecision… it could save your life!

Bad TowelHead
bad towelhead

and…

GOOD towel-head…

Good Towelhead

Now you got it straight? :)

Comments (2)
Linux / Unix& PERL code snippets20 Feb 2008 06:23 am

Check web page contents

Another simple script I've written and use often (actually runs via cron every 5 minutes) to verify the contents of a particular page to determine of it has changed for any reason like a webserver cracked/hacked or if the dynamic content is not what is expected.

In this case it is specifically monitoring a page from a PeopleSoft application that I do not entirely trust, if the content doesn't match my checksum that generally means the Tuxedo application server is hosed and needs to be restarted.

Easily adapted to fit your particular needs, is use it on all of my public websites that are on shared hosting accounts etc...

Comments for bigger sections are thrown in to give you an idea of what to tweak for your needs, remember to update $file2 with a new copy of the markup if you modify the landing page you are monitoring!

PLAIN TEXT
CODE:
  1. #!/pshome/usr/local/bin/perl
  2.  
  3. # This just checks what the current working directory is,
  4. # if dev or test then set the debug flags to on...etc.
  5. unshift(@INC, "/pshome/psmgr/bin");
  6. unshift(@INC, "/pshome/psmgr/bin.test") if ("/pshome/psmgr/bin.test" eq "$ENV{'PWD'}");
  7. unshift(@INC, "/pshome/psmgr/stat/bin") if ("/pshome/psmgr/stat/bin" eq "$ENV{'PWD'}");
  8. require sr;
  9.  
  10. $debug = 1;
  11. $debug = 1 if ("/home/bin.test" eq "$ENV{'PWD'}");
  12. $debug = 1 if ("/home/stat/bin" eq "$ENV{'PWD'}");
  13. $execute = 1;
  14.  
  15. $file1 = "/home/files/sitename.tmp";
  16. $file2 = "/home/files/sitename_known_good.txt";
  17. $url = "https://yoursite.com/psc/hrmsext/EMPLOYEE/HRMS/c/ROLE_APPLICANT.ER_APPLICANT_HOME.GBL?&";
  18. $url = "https://yoursite.com/psc/test/EMPLOYEE/HRMS/c/ROLE_APPLICANT.ER_APPLICANT_HOME.GBL" if ("/pshome/psmgr/bin.test" eq "$ENV{'PWD'}");
  19. $url = "https://yourseite.com/psc/test/EMPLOYEE/HRMS/c/ROLE_APPLICANT.ER_APPLICANT_HOME.GBL" if ("/pshome/psmgr/stat/bin" eq "$ENV{'PWD'}");
  20. $restarting = "/pshome/psmgr/files/careers.restarting";
  21. $restartingold = "/pshome/psmgr/files/careers.restarting.old";
  22. $check = "0";
  23.  
  24. # check to see if the restart is already in progress so we don't interrupt it
  25. # likely a cleaner way to do this, but it works for now!
  26. if (-e $restarting) { # check if restart file exists
  27.   print "Restart file exists, servers may be restarting, check again in 5 mins\n";
  28.   print "Renaming file and Exiting\n";
  29.   $cmd = "mv $restarting $restartingold";
  30.   print "$cmd\n" if ($debug);
  31.   system ($cmd) if ($execute);
  32.   exit;
  33. } #end if restart file exists
  35. if (-e $restartingold) { # check if restarting.old file still exists
  36.   print "Restarting file existed for at least 5 mins, servers should be back up, rechecking";
  37.   print "Remove restart file\n";
  38.   $check = "1";
  39.   $cmd = "rm $restartingold";
  40.   print "$cmd\n" if ($debug);
  41.   system ($cmd) if ($execute);
  42. } #end if restarting.1 file exists
  44. $cmd = "wget -b --no-check-certificate --output-document=$file1 $url";
  45. print "$cmd\n" if ($debug);
  46. system ($cmd) if ($execute);
  48. $cmd = "sleep 15";
  49. print "$cmd - sleeping 15 secs to allow complete xfer of file\n" if ($debug);
  50. system ($cmd) if ($execute);
  52. $diff1=`cksum $file1`;
  53. $diff2=`cksum $file2`;
  54. $diff1value = substr($diff1, 0, 9);
  55. $diff2value = substr($diff2, 0, 9);
  57. print "diff1value = $diff1value\n" if ($debug);
  58. print "diff2value = $diff2value\n" if ($debug);
  60. if ($diff1value != $diff2value) {
  61.   &notifydown;
  62.   &repair;
  63.   &cleanup;
  64.   exit;
  65.   } else {
  66.   print "Files match, this site is up!\n";
  67.   &cleanup;
  68.   print "check = $check\n" if ($debug);
  69.   if ($check == "1") { #check if recovering from restart
  70.     &notifyup;
  71.   } # end check if recovered from restart 
  72.   exit;
  73. }
  75. sub notifydown
  76. {
  77. print "This site appears to be down, sending page and email\n" if ($debug);
  78. &sr::send_email($debug,"Site Down!","Site is down, restarting app servers now!","David Cochran");
  79. &sr::send_page($debug,"Careers site is down, restarting app servers now!","David Cochran");
  80. } # end sub notifydown
  82. sub repair
  83. { # restart HRMSEXT App servers
  84. $cmd = "mv $file1 $restarting";
  85. print "$cmd\n" if ($debug);
  86. system ($cmd) if ($execute);
  87. $cmd = "/commands to restart the application server go here";
  88. print "$cmd\n" if ($debug);
  89. system ($cmd) if ($execute);
  90. } #end sub repair
  92. sub cleanup
  93. { # cleanup temp files
  94. $cmd = "rm -f wget-log*";
  95. print "$cmd\n" if ($debug);
  96. system ($cmd) if ($execute);
  97. $cmd = "rm -f $file1";
  98. print "$cmd\n" if ($debug);
  99. system ($cmd) if ($execute);
  100. } #end sub cleanup
  102. sub notifyup
  103. {
  104. print "site is back up, sending page and email.\n" if ($debug);
  105. &sr::send_email($debug,"site is OK!","Careers site is OK.","David Cochran");
  106. &sr::send_page($debug,"Careers site is back up","David Cochran");
  107. } # end sub notifyup

No Comments Yet
PERL code snippets07 Feb 2008 11:39 am

Checking SSL Certificate expiration dates

Managing a lot of SSL certificates? Hate being surprised when they expire on you and break your web site? How about a simple process to notify you in advance?

All of the above sound about right? It does to me, I literally manage close to 100 web sites that require SSL encryption for sensitive data transfers, it seems almost impossible to get and keep them all lined up for expiration dates. Even when they were something new would come along and mess up the rotation, in short order it looks like a shotgun blast to a calendar was the deciding factor.

Here is an easy perl script I wrote to check the dates of existing SSL certs, it gets the URL list to check from certs.urls, compares the certificate expiration date to the current date and send emails at the specified intervals. Pretty simple, but like most, it's very effective when run daily via cron.

I've edited some of the partially confidential stuff out, but not enough to render the script unusable by any means, just set the email.sr to your local email faciltiy.

PLAIN TEXT
CODE:
  1. #! /usr/local/bin/perl
  2. #
  3. # check_ssl_expire.pl, v 0.01
  4. #
  5. # Inital version - Dave Cochran 9/13/07
  6. ###########################################################
  7. use Switch;
  8. use Time::Local;
  9.  
  10. unshift(@INC, "/pshome/psmgr/bin");
  11. unshift(@INC, "/pshome/psmgr/bin.test") if ("/pshome/psmgr/bin.test" eq "$ENV{'PWD'}");
  12. unshift(@INC, "/pshome/psmgr/stat/bin") if ("/pshome/psmgr/stat/bin" eq "$ENV{'PWD'}");
  13. require sr;
  14.  
  15. $debug = 0;
  16. $debug = 1 if ("/pshome/psmgr/bin.test" eq "$ENV{'PWD'}");
  17. $debug = 1 if ("/pshome/psmgr/stat/bin" eq "$ENV{'PWD'}");
  18. $execute = 1;
  19.  
  20. $path = "/pshome/tmp";
  21. @urls = `cat /pshome/psmgr/files/cert.urls`;
  22.  
  23. foreach $url (@urls) { # start for each url
  24.   chomp $url;
  25.   print "\nChecking $url\n";
  26.   $cmd = "echo \"\" | openssl s_client -connect $url:443> $path/certificate";
  27.   print "\n\n    $cmd\n\n" if ($debug);
  28.   system ($cmd) if ($execute);
  29.  
  30.   $cmd = "openssl x509 -in $path/certificate -noout -enddate> $path/outdate";
  31.   print "    $cmd\n\n" if ($debug);
  32.   system ($cmd)> $result if ($execute);
  33.  
  34.   open (OUTDATE, "/pshome/tmp/outdate")  || die "couldn't open the file!";
  35.   $enddate = <outdate>;
  36.   chomp $enddate;
  37.   close(OUTDATE);
  38.   print "SSL enddate is: <$enddate>\n" if ($debug);
  39.   $expire = substr($enddate, 9, 20);
  40.   print "Expire date : <$expire>\n" if ($debug);
  41.   $month = substr($expire, 0, 3);
  42.   $day = substr($expire, 4, 2);
  43.   $year = substr($expire, 16, 4);
  44.  
  45.   switch ("$month")
  46.   {
  47.     case "Jan"  { $month = 0 }
  48.     case "Feb"  { $month = 1 }
  49.     case "Mar"  { $month = 2 }
  50.     case "Apr"  { $month = 3 }
  51.     case "May"  { $month = 4 }
  52.     case "Jun"  { $month = 5 }
  53.     case "Jul"  { $month = 6 }
  54.     case "Aug"  { $month = 7 }
  55.     case "Sep"  { $month = 8 }
  56.     case "Oct"  { $month = 9 }
  57.     case "Nov"  { $month = 10 }
  58.     case "Dec"  { $month = 11 }
  59.     else        { print "$month is not a valid month. You have problems!\n" }
  60.   } # end switch on month
  61.   $day =~ s/ /0/;
  62.   $expire_date = timegm(1,0,0,$day,$month,$year - 1900);
  63.   $today = `date +%Y%m%d`;
  64.   chomp $today;
  65.   $today = timegm(1,0,0,`date +%d`,`date +%m` -1,`date +%Y` - 1900);
  66.   $thirty_days = $today + (86400 * 30);
  67.   $fifteen_days = $today + (86400 * 15);
  68.   $seven_days = $today + (86400 * 7);
  69.   $one_day = ($today + 86400);
  70.  
  71.   print "Today is <$today> and the cert expires on <$expire_date>\n" if ($debug);
  72.   print "1 day is <$one_day>\n" if ($debug);
  73.   print "7 days is <$seven_days>\n" if ($debug);
  74.   print "15 days is <$fifteen_days>\n" if ($debug);
  75.   print "30 days is <$thirty_days>\n" if ($debug);
  76.  
  77.   $subject = "$url certificate expiration";
  78.   if ($today> $expire_date) { # start if the certificate is expired
  79.     &sr::send_page($debug,"$url cert expired",'Paul Hofmann','David Cochran');
  80.     $message = "The $url certificate is expired";
  81.     print "\t$message\n";
  82.     &sr::send_email($debug,$subject,$message,'David Cochran');
  83.   } # end if the certificate is expired
  84.   elsif ($one_day == $expire_date) { # start else if the certificate will expire in 1 day
  85.     &sr::send_page($debug,"$url cert expires in 1 day",'David Cochran');
  86.     $message = "The $url certificate will expire in 1 day";
  87.     print "\t$message\n";
  88.     &sr::send_email($debug,$subject,$message,'David Cochran');
  89.   } # end if the certificate will expire in 1 day
  90.   elsif ($seven_days == $expire_date) { # start else if the certificate will expire in 7 days
  91.     $message = "The $url certificate will expire in 7 days";
  92.     print "\t$message\n";
  93.     &sr::send_email($debug,$subject,$message,'David Cochran');
  94.   } # end if the certificate will expire in 7 days
  95.   elsif ($fifteen_days == $expire_date) { # start else if the certificate will expire in 15 days
  96.     $message = "The $url certificate will expire in 15 days";
  97.     print "\t$message\n";
  98.     &sr::send_email($debug,$subject,$message,'David Cochran');
  99.   } # end if the certificate will expire in 15 days
  100.   elsif ($thirty_days == $expire_date) { # start else if the certificate will expire in 30 days
  101.     $message = "The $url certificate will expire in 30 days";
  102.     print "\t$message\n";
  103.     &sr::send_email($debug,$subject,$message,'David Cochran');
  104.   } # end if the certificate will expire in 30 days
  105. } # end for each url

URLs are stored in cert.urls with no http:// prefix

PLAIN TEXT
CODE:
  1. blog.captivereefing.com
  2. www.captivereefing.com

You get the idea...

Happy hacking!

Comments (2)
Linux / Unix07 Feb 2008 10:50 am

Finding large files on Linux/Unix

Depending on how you build your filesystem, locating large files such as logs or other output from scripts, programs, or daemons can be frustrating at best. Since I'm not a GUI kind of guy this little snippet for the shell can save tons of time. (tested with KSH and Bash shells, likely should work with most if not all)

PLAIN TEXT
CODE:
  1. find / -type f -size +20000k -exec ls -lh {} \; | awk '{ print $9 ": " $5 }'

This will search beginning at the root / directory for all files over 20M. To adapt it for your use simply change the / to represent any beginning path you wish and the 20000k to the minimum filesize you would like to find.

Hard to get any easier than this. A detailed description of the all powerful awk can be found by reading the associated man pages should you be so inclined.

Happy hacking!

Comments (3)

« Previous Page — Next Page »

Online Dating - Secured Loans - Modded Xbox - Mobile Phone - Online Loans
X10 Home Security|Dakar's Photos
Listed on BlogShares