[Treebase-guts] SF.net SVN: treebase:[48] trunk/treebase-core/src/main/perl/lib/CIPRES/ TreeBase/RecDumper.pm

[<rv...@us...>]

Revision: 48
          http://treebase.svn.sourceforge.net/treebase/?rev=48&view=rev
Author:   rvos
Date:     2009-06-12 07:02:15 +0000 (Fri, 12 Jun 2009)

Log Message:
-----------
Added TIMESTMP handler

Modified Paths:
--------------
    trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/RecDumper.pm

Modified: trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/RecDumper.pm
===================================================================
--- trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/RecDumper.pm	2009-06-12 06:14:21 UTC (rev 47)
+++ trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/RecDumper.pm	2009-06-12 07:02:15 UTC (rev 48)
@@ -72,6 +72,13 @@
 		elsif ($t =~ /^(BIG|SMALL|)INT$/ || $t eq 'INTEGER' || $t eq 'DOUBLE') {
 		    # do nothing
 		} 
+		elsif ($t eq 'TIMESTMP'){
+		    if ( m|(\d+)/(\d+)/(\d+)\s+(\d+{2}):(\d+{2}):(\d+{2})| ) {
+		        my ( $day, $month, $year, $hour, $minute, $second ) =
+		           ( $1,   $2,     $3,    $4,    $5,      $6      );
+		        $_ = "${year}-${month}-${day} ${hour}:${minute}:${second}";
+		    }
+		}
 		else {
 		    croak("Unknown field type '$t'; aborting");
 		}


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.