Changeset 202

Timestamp:

Jan 29, 2017, 4:27:43 PM (7 years ago)

Author:

g7moreau

Message:

• Same date format y-m-d !

Location:

trunk

Files:

• klask (modified) (1 diff)
• push-web (modified) (1 diff)

trunk/klask

@@ -2397 +2397 @@
    print "internet [label = \"internet\", color = black, fillcolor = cyan, shape = house, style = filled];\n";
 
-   require DateTime;
-   my $date_now = DateTime->now;
-   print '"'.$date_now->ymd('/').' - '.$date_now->hms()."\" [ color = white, fillcolor = black, shape = polygon, sides=14, style = filled, fontcolor = white ]\n";
+   my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time;
+   $year += 1900;
+   $mon++;
+   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";
 
    my $b=0;

trunk/push-web

@@ -42 +42 @@
 
 
-LOCALTIME=$($DATE "+%Y/%m/%d %H:%M")
+LOCALTIME=$($DATE "+%Y-%m-%d %H:%M")