#!/usr/bin/perl
#
my @now = localtime;
my $reason = "unknown-reason";
if ($#ARGV >= 0) { $reason = $ARGV[0]; }

if (open RAMOND_LOG, ">>/var/local/ramond/log")
 {
  printf RAMOND_LOG "%02d-%02d-%04d %02d:%02d:%02d %-20.20s",
                    $now[4]+1, $now[3], $now[5]+1900,
                    $now[2], $now[1], $now[0], $reason;
  printf RAMOND_LOG "on %-6.6s ".$ENV{"INTERFACE"};
  print RAMOND_LOG "prefix: ".$ENV{"PREFIX"}."/".$ENV{"PREFIX_LEN"};
  print RAMOND_LOG " source address:".$ENV{"SOURCE_ADDR"};
  print RAMOND_LOG " source MAC:".$ENV{"SOURCE_MAC"},"\n";
  close RAMOND_LOG;
  exit 0;
 }
exit 1;