From: Alan J. Pippin Date: Fri, 18 Nov 2011 05:37:10 +0000 (-0700) Subject: Fixed timezone issue in the timestamps being returned via mtime X-Git-Url: http://git.pippins.net/embedvideo/images/%7Blink_activity%7D?a=commitdiff_plain;h=4c6323fdb10bcf8e8417676c9d867a853dd47be1;p=videoscripts%2F.git Fixed timezone issue in the timestamps being returned via mtime --- diff --git a/make_mkv b/make_mkv index de283e3..bfbaa11 100755 --- a/make_mkv +++ b/make_mkv @@ -24,6 +24,7 @@ my $tmpfile = `tempfile`; chomp($tmpfile); my $chapter_file = $tmpfile; my $input_file_options = "-S"; my $output_file_options = "--chapters $chapter_file"; +my $timezone = `cat /etc/timezone`; chomp($timezone); #################################################################################################### @@ -52,6 +53,7 @@ sub usage { sub epoch_to_date { my ($epoch) = @_; my $mtime = DateTime->from_epoch(epoch => $epoch); + $mtime->set_time_zone($timezone); return sprintf("%4d",$mtime->year)."-".sprintf("%02d",$mtime->month)."-".sprintf("%02d",$mtime->day)." ".$mtime->hms; } @@ -73,7 +75,7 @@ foreach $video (split(/,/, $opt_i)) { print "-> Creating $opt_o with title '$opt_t' from the following video files in last modified date order:\n"; open(CHAPTERS,">$chapter_file") || die "-E- Unable to create chapter file: $chapter_file\n"; my $chapter_num = 0; -my $chapter_timecode = DateTime::Duration->new(years => 1900, hours => 0, minutes => 0, seconds => 0); +my $chapter_timecode = DateTime::Duration->new(years => 2000, hours => 0, minutes => 0, seconds => 0); my $timecode_format = DateTime::Format::Duration->new(pattern => '%H:%M:%S.%3N', normalize => 1); foreach my $video (sort{$videos{$a} <=> $videos{$b}} keys %videos) { $chapter_num++; @@ -92,7 +94,7 @@ foreach my $video (sort{$videos{$a} <=> $videos{$b}} keys %videos) { print "$mdate $hour:$min:$sec -> $video \n"; print CHAPTERS "CHAPTER".sprintf("%02d",$chapter_num)."=".$timecode."\n"; print CHAPTERS "CHAPTER".sprintf("%02d",$chapter_num)."NAME=".$mdate."\n"; - my $dt = DateTime::Duration->new(years => 1900, hours => $hour, minutes => $min, seconds => $sec); + my $dt = DateTime::Duration->new(years => 2000, hours => $hour, minutes => $min, seconds => $sec); $chapter_timecode = $chapter_timecode + $dt; } close(CHAPTERS);