MadMongers

$ L just got into work
$ L the server went down again
$ L dont forget to go to the store tonight

#!/bin/sh

if [ -n "$*" ]
then
  echo "`date '+%Y%m%d%H%M%S'` $*" >> ~/tlt/private/log/LOG-$HOSTNAME

else
  (for i in ~/tlt/private/log/LOG-* ; do tail -20 $i ; done) | sort | tail -20 | perl -pe 's/^(....)(..)(..)(..)(..)(..)/$1.$2.$3 $4:$5/'
fi

#!/usr/bin/perl

use strict;
use Net::Google::Calendar;
use Net::Google::Calendar::Entry;

my $host = `hostname`;
chop $host;

if(@ARGV) {
  my $text = "@ARGV";

  # First we add it to the local LOG file

  my $ts = `date '+%Y%m%d%H%M%S'`;
  chop $ts;
  `echo "$ts $text" >> ~/tlt/private/log/LOG-$host`;

  # Now lets add it to the google calendar
  my $username = 'awwaiid@gmail.com';

  my $password = 'awwaiidxxx';

  my $cal = Net::Google::Calendar->new;
  unless($cal->login($username, $password)) {
    print "Error: $@\n";
    die;
  }

  # Gotta select the 'Notes' calendar

  for ($cal->get_calendars) {
    $cal->set_calendar($_) if ($_->title eq 'Notes');
  }

  # Set up the entry
  my $entry = Net::Google::Calendar::Entry->new();
  $entry->title($text);

  $entry->location($host);
  $entry->transparency('transparent');
  $entry->when(DateTime->now,
    DateTime->now() + DateTime::Duration->new( minutes => 1 ) );

  # And finally, add it

  $cal->add_entry($entry);

} else {

  print `(for i in ~/tlt/private/log/LOG-* ; do tail -20 \$i ; done) | sort | tail -20 | perl -pe 's/^(....)(..)(..)(..)(..)(..)/\$1.\$2.\$3 \$4:\$5/'`;


}