#! /usr/bin/perl
#
# Generuje mapę Warszawy w oparciu o rozkłady jazd ZTM.
#
# Rafał Strzaliński 2007
# Licencja: brak. (public domain)
#
# http://nablaone.net/
# 

chdir(shift);

print "digraph {";
print "node [shape=box];\n";
print "edge [dir=none,sametail=true];\n";

%p={};

print join "\n",
  map { m/([0-9]{4}).+<center>(.+)<\/center>/; "\"$1\" [label = \"$2\"] ; " ;}  
    split "\n", `grep size=5 PRZYST/* | recode cp1250..utf8 `;


foreach $f (glob "*/TP-*.HTM") {
    my ($r,) = split "/", $f;
    
    open FH, $f;
    my @l = map { /a href="([0-9]+?)[0-9]{2}.HTM"/; $1 } grep {m/a href="/}  <FH>;
    close FH;
    
    for($i = 0; $i < $#l; $i++) {
	my $k = $l[$i] . "-" . $l[$i+1];
	if(!defined($p{$k})) {
	    print  '"' . $l[$i] . '" -> "' . $l[$i+1] . "\"  ; \n";
	    $p{$k}=1;
	    $p{$l[$i+1] . "-" . $l[$i]}=1;
	}
    }
}

print "} ";