#!/usr/bin/perl
if ($ARGV[0] eq "") {
    die "usage: irclogfix [filename]";
}

$old = $ARGV[0];
$new = "$old.tmp";

open(IN, $old) || die "can't open $old";
open(OUT, "> $new") || die "can't create $new";

while (<IN>) {
    unless (/irclog-xml.sourceforge.net/) {
	s/(http[^\n\t< ]*)/<a href="$1">$1<\/a>/;
    }
    print OUT;
}

close(IN) || die "can't close $old";
close(OUT) || die "can't close $new";

rename($old, "$new.tmp") || die "rename 1 failed";
rename($new, "$old") || die "rename 2 failed";
unlink("$new.tmp") || die "unlink failed";