From 1adfc9c329465a00c0347df26c437421706f9563 Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Tue, 11 Nov 2008 06:37:05 +0000
Subject: [PATCH] fix date and time in ucsc config
git-svn-id: http://biopieces.googlecode.com/svn/trunk@305 74ccb610-7750-0410-82ae-013aeee3265d
---
code_perl/Maasha/UCSC.pm | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/code_perl/Maasha/UCSC.pm b/code_perl/Maasha/UCSC.pm
index d9a9341..adb8c93 100644
--- a/code_perl/Maasha/UCSC.pm
+++ b/code_perl/Maasha/UCSC.pm
@@ -923,7 +923,7 @@ sub ucsc_config_get_entry
$record{ 'date' } = $1;
} elsif ( $line =~ /^# time: (.+)/ ) {
$record{ 'time' } = $1;
- } elsif ( $line =~ /^# database: (.+)/ ) {
+ } elsif ( $line =~ /^# (?:database:|Database) (.+)/ ) {
$record{ 'database' } = $1;
} elsif ( $line =~ /^#/ ) {
# skip
@@ -957,6 +957,11 @@ sub ucsc_config_put_entry
$fh_out ||= \*STDOUT;
+ ( $date, $time ) = split " ", Maasha::Common::time_stamp();
+
+ $record->{ "date" } ||= $date;
+ $record->{ "time" } ||= $time;
+
print $fh_out "\n# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n\n";
map { print $fh_out "# $record->{ $_ }\n" if exists $record->{ $_ } } qw( date time database );
--
2.39.5