--- orig\Everything.pm  2004-12-27 13:17:23.025625000 +0100
+++ new\Everything.pm   2004-12-27 13:20:39.213125000 +0100
@@ -349,6 +349,7 @@
           printLog("Undefined type in unpackVars()");
           return "Error undef type";
       } elsif ($type eq 'H') {
+          $vars={};
           for (split /\Q$split\E/, $vars_str) {
             my ($k,$v)= split /!/, $_, 2;
             for ( $k,$v ) {
@@ -364,6 +365,7 @@
             $vars->{$k} = $v;
           }
       } elsif ($type eq 'A') {
+          $vars=[];
           for (split /\Q$split\E/, $vars_str) {
               s/~(\w\w)/ chr(hex($1)) /ge;
               push @$vars, $_ eq 'U'

##</code><code>##

sub printLog
{
    my $entry = $_[0];
    my $time = getTime();

    # prefix the date a time on the log entry.
    $entry = "$time: $entry\n";

    if(open(ELOG, ">> $everythingLog"))
    {
        print ELOG $entry;
        close(ELOG);
    }

    return 1;
}

##</code><code>##

{
  my $logfile;
  my $loghandle;

  use Fcntl qw(:DEFAULT :flock);
  require POSIX;

  sub printLog
  {

    if (!$loghandle or $logfile ne $everythingLog) {
      $logfile=$everythingLog;
      open $loghandle,">>",$logfile or return;
    }

    my $time = POSIX::strftime( "%Y-%m-%d %H:%M:%S >", localtime() );

    flock( $loghandle, LOCK_EX )
      or return;
    seek( $loghandle, 0, 2 )
      or return;

    # prefix the date and time on the log entry.
    print $loghandle map("$time: $_\n",@_)
      or return;
    
    flock( $loghandle, LOCK_UN )
      or return;

    return 1;
  }
}