# filename: commandlog.pl
#   This is a command logging script for testing external command envoking.
# usage:
#   #!/usr/bin/perl
#   reguire "commandlog.pl";
#   ...
#   &commandlog("COMNAME"[, "LOGFILENAME"]);
#
# author: Mika Ohtsuki (mika@mikamama.com)
# $Id: commandlog_pl.txt,v 1.3 2002/08/27 17:25:39 misty Exp $
$LOGFILE = "/home/cvsuser/logfile";

#####
# method: commandlog
#   command logging subroutine.
# usage:
#   &commandlog("COMNAME"[, "LOGFILENAME"]);
#####
sub commandlog {
    my $commandname = $_[0];
    my $logfile = $_[1] ? $_[1] : $LOGFILE;
    my $date=`date`; chomp($date);
    my $pwd=`pwd`; chomp($pwd);
    open(LOG,">>$logfile") || die "cannot open logfile: $logfile\n";
    print LOG "$date $commandname($pwd): ";
    foreach $arg (@ARGV) {
	print LOG "$arg, ";
    }
    print LOG "\n";
#    while (<>) {
#	print LOG $_;
#    }
    close($logfile);
}

1;