Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Wednesday, October 14, 2026
[BACK] [TXT][DIR] Up to [Platon] / scripts / perl / mysql

Diff for scripts/perl/mysql/mysql-table-copy.pl between version 1.11 and 1.12

version 1.11, 2005/05/10 09:57:17 version 1.12, 2005/05/10 10:00:16
Line 10 
Line 10 
 # Licensed under terms of GNU General Public License.  # Licensed under terms of GNU General Public License.
 # All rights reserved.  # All rights reserved.
 #  #
 # $Platon: scripts/perl/mysql/mysql-table-copy.pl,v 1.10 2005/05/10 09:54:25 nepto Exp $  # $Platon: scripts/perl/mysql/mysql-table-copy.pl,v 1.11 2005/05/10 09:57:17 rajo Exp $
   
 # TODO: - reconnect on closed connection  # TODO: - reconnect on closed connection
 #       - managment for tables with multiple KEY columns  #       - managment for tables with multiple KEY columns
Line 177  while (1) {
Line 177  while (1) {
 sub cur_date()  sub cur_date()
 { # {{{  { # {{{
         my ($sec, $msec) = Time::HiRes::gettimeofday;          my ($sec, $msec) = Time::HiRes::gettimeofday;
         my $time_string = strftime "%Y-%m-%d %X.$msec", gmtime;          my $time_string = strftime "%Y-%m-%d %X.$msec", localtime;
   
         return $time_string;          return $time_string;
 } # }}}  } # }}}
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top