#usage - perl log.pl originallog editedlog
#ie perl log.pl mylog.txt mycoollog.txt
#strips auctions, traffics, and prompts which begin 
#with "<" and end with ">"

open (INLOG,@ARGV[0]) or die "can't open DICT\n";

if (-e @ARGV[1]) {
    print "@ARGV[1] already exists. Overwrite? (y/n) ";
    chomp($test=<STDIN>);
    if ($test eq "y"){
	open (OUT,">@ARGV[1]");
    }
    
    else {die "chose something other than y";}
}

open (OUT,">@ARGV[1]");

@lineparts;
while ($line = <INLOG>) {


    if ($line!~/openly traffics:|Auction:/) {
	if ($line=~ /^\</ ) {
	    @lineparts=split />/,$line;
	    $line=@lineparts[1];
	}
	print OUT $line;
    }
}

print "done\n";