#!/usr/bin/perl

print '<?xml version="1.0"?>'."\n".
  '<!DOCTYPE history PUBLIC "-//MLA//history" "mla.history.dtd">'."\n".
  '<history version="0.2" package="modlogan">'."\n";

while(<>) {
    chomp;
    if (/^#/) {
	last;
    }
    printf(" <webhist key=\"%s\">\n", $_);
    $l = <>;
    
    if ($l =~ /^([0-9]+),([0-9]+),([0-9]+),([0-9]+),([0-9]+),([0-9]+),([0-9]+),([0-9]+),([0-9]+)$/) {
	$t = "hits"; printf("  <%s>%s</%s>\n", $t, $6, $t);
	$t = "pages"; printf("  <%s>%s</%s>\n", $t, $4, $t);
	$t = "files"; printf("  <%s>%s</%s>\n", $t, $5, $t);
	$t = "week"; printf("  <%s>%s</%s>\n", $t, "0", $t);
	$t = "year"; printf("  <%s>%s</%s>\n", $t, $1, $t);
	$t = "days_passed"; printf("  <%s>%s</%s>\n", $t, $3, $t);
	$t = "month"; printf("  <%s>%s</%s>\n", $t, $2, $t);
	$t = "visits"; printf("  <%s>%s</%s>\n", $t, $7, $t);
	$t = "hosts"; printf("  <%s>%s</%s>\n", $t, $8, $t);
	$t = "xfersize"; printf("  <%s>%s</%s>\n", $t, $9, $t);
    }
    
    print ' </webhist>'."\n";
}
print '</history>'."\n";