Changeset 203 for trunk/klask

Timestamp:

Jan 29, 2017, 6:11:48 PM (7 years ago)

Author:

g7moreau

Message:

• Update date on map
• Small bug when fake-ip * in ip split

File:

• trunk/klask (modified) (4 diffs)

trunk/klask

@@ -1444 +1444 @@
          my $date = sprintf '%04i-%02i-%02i %02i:%02i', $year, $mon, $mday, $hour, $min;
 
-         my $ip_sort = sprintf '%03i%03i%03i%03i', split m/ \. /xms, $ipv4_address;
+         my $ip_sort = sprintf '%03i%03i%03i%03i', split m/ \.\* /xms, $ipv4_address; # \* for fake-ip
 
          my $mac_sort = sprintf '%04i-%s', 9999, $mac_address;
@@ -1494 +1494 @@
          my $date = sprintf '%04i-%02i-%02i %02i:%02i', $year,$mon,$mday,$hour,$min;
 
-         my $ip_sort = sprintf '%03i%03i%03i%03i', split m/ \. /xms, $ipv4_address;
+         my $ip_sort = sprintf '%03i%03i%03i%03i', split m/ \. /xms, $ipv4_address; # \* for fake-ip
 
          my $mac_sort = sprintf '%04i-%s', 9999, $mac_address;
@@ -2393 +2393 @@
    print "digraph G {\n";
    print "rankdir = LR;\n";
+   #print "splines=polyline;\n";
 
    print "site [label = \"site\", color = black, fillcolor = gold, shape = invhouse, style = filled];\n";
@@ -2402 +2403 @@
    my $date = sprintf '%04i-%02i-%02i %02i:%02i', $year, $mon, $mday, $hour, $min;
    print "\"$date\" [ color = white, fillcolor = black, shape = polygon, sides=14, style = filled, fontcolor = white ]\n";
+   print "site -> \"$date\" [color = white];\n";
 
    my $b=0;