• 
  • Front
  • Gallery
  • Search
  • Store
  • Info
  • Blog
  • Me

Friendfeed:

From delicious
TunerFree MCE

From FriendFeed
Speeding Oz teen may face 'gorillas in the mist'
"Specifically, Maloney explained that the perp would "shower with the gorillas in the mist down at Long Bay jail". He elaborated: "You'll find big, ugly, hairy strong men who've got faces only a mother could love that will pay a lot of attention to you - and your anatomy."" - by Me!

From FriendFeed
The Great Tennessee Marijuana Cave

From FriendFeed
Forbidden Nonfruit - A Childhood Devoid of Junk Food Breeds Certain Cravings

From Alex Lomas
Me.

From Facebook
Alex has taken down the lights. You should too.

From Google Reader
Home Office denies remote snooping plan

From Google Reader
Converting to Metric

From Alex Lomas
Uptime

From FriendFeed
Police set to step up hacking of home PCs - Times Online
If you don't already use WPA-AES, turn it on. Use MAC address filtering. Enable NAT on your router. Enable its firewall and IDS features. Check their logs regularly. Double check port forwarding rules, secure them with IP ACLs if necessary. Setup usernames and (strong) passwords on your Windows system. Use TLS encryption for your emails and especially for authentication. Get good AV for your email. Apply tinfoil liberally. - by Me!

« June 2008 | Main | November 2008 »

July 13, 2008

   1: #!/usr/bin/perl

   2:  

   3: use strict;

   4: use warnings;

   5:  

   6: use CGI qw/:standard/;

   7: use CGI::Carp 'fatalsToBrowser';

   8:  

   9: my $file = '/path/to/my/file.include';

  10:  

  11: open my $FH, '>', $file or die "Unable to open $file\n";

  12:  

  13: if ( param() ) {

  14:  

  15:        print header;

  16:        my $method = param('method');

  17:        my $title = param('title');

  18:        my $message = param('message');

  19:        

  20:        print $FH "$message";

  21:        

  22: }

  23:  

  24: else {

  25:  

  26:     print header;

  27:     #Do nothing

  28:     

  29: }

  30:  

  31: close $FH;