#!/usr/bin/perl

print "header {\n";
print "    title = \"Syslog picviz analysis\";\n";
print "}\n";

print "axes {\n";
print "    timeline t [label=\"Time\"];\n"; # Time
print "    ipv4   ipsource [label=\"IP\"];\n"; # IP Source
print "    enum  request [label=\"Request\",relative=\"true\"];\n"; # Request type
print "    string   log [label=\"Log\", relative=\"true\"];\n"; # SRC
print "}\n";

print "data {\n";

while ($line = <>) {

        $line =~ s/\\/\\\\/g;
        $line =~ s/\"/\\"/g; # We escape our quotes
        $line =~ s/&//g;
        $line =~ s/<//g;
        $line =~ s/>//g;

        $line =~ m/(\d+.\d+.\d+.\d+) \-.*\- \[\d+\/\w+\/\d+:(\d+:\d+):\d+.*\] \\\"(\w+)(.*)/;

        if ($1=="") {
        } else {
                print "    t=\"$2\",ipsource=\"$1\",request=\"$3\",log=\"$4\";\n";
        }
}

print "}\n";

