- Timestamp:
- Sep 25, 2017, 8:55:44 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/klask
r284 r285 7 7 use strict; 8 8 use warnings; 9 use version; our $VERSION = qv('0.6. 6');9 use version; our $VERSION = qv('0.6.7'); 10 10 11 11 use Readonly; … … 2818 2818 2819 2819 print "digraph G {\n"; 2820 print "rankdir =LR;\n";2820 print "rankdir=LR;\n"; 2821 2821 #print "splines=polyline;\n"; 2822 2822 … … 2829 2829 my $date = sprintf '%04i-%02i-%02i %02i:%02i', $year, $mon, $mday, $hour, $min; 2830 2830 print "\"$date\" [color=white, fillcolor=black, shape=polygon, sides=14, style=filled, fontcolor=white];\n"; 2831 print "site -> \"$date\" [color =white];\n";2831 print "site -> \"$date\" [color=white];\n"; 2832 2832 2833 2833 my $b=0;
Note: See TracChangeset
for help on using the changeset viewer.