# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1440347982 -10800
# Node ID 1d17dbb864ffdc923a96bc3ce4b26010bc38b229
# Parent  2654466d26557235eacd9e79055b1448553b97be
Fix parsing of new format of UNTIS html output.

diff -r 2654466d2655 -r 1d17dbb864ff parsedata.pl
--- a/parsedata.pl	Sun Aug 23 19:16:17 2015 +0300
+++ b/parsedata.pl	Sun Aug 23 19:39:42 2015 +0300
@@ -430,7 +430,7 @@
 # Filter out some more, for easier tree access during table parsing
 $data =~ s/<\/?b>//ig;
 my $tree = parse_html($data);
-my $node = fnode(fnode($tree, "body"), "table");
+my $node = fnodea(fnode($tree, "body"), "table", "border=\"3\" rules=\"all\" cellpadding=\"1\" cellspacing=\"1\"");
 die("No table element found in document. Perhaps the format has changed? :(\n") unless defined($node);
 
 
@@ -448,7 +448,7 @@
       my $l = $$n{"nodes"}[0]{"nodes"};
       if (defined($l))
       {
-        if ($$n{"args"} =~ /colspan=6\s+rowspan=(\d+)/)
+        if ($$n{"args"} =~ /colspan=12\s+rowspan=(\d+)/)
         {
           parse_hour_data($l, $1);
         }