projects
/
videoscripts
/
.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
bb7276f
)
Fixed timezone issue in the timestamps being returned via mtime
author
Alan J. Pippin
<alan@pippins.net>
Fri, 18 Nov 2011 05:37:10 +0000
(22:37 -0700)
committer
Alan J. Pippin
<ajp@pippins.net>
Fri, 18 Nov 2011 05:37:10 +0000
(22:37 -0700)
make_mkv
patch
|
blob
|
history
diff --git
a/make_mkv
b/make_mkv
index de283e37fdca038d7e46d52af9af5f3912ce5d10..bfbaa11600041bd7c1636ffa020ae8f302f23f46 100755
(executable)
--- 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 $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);
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;
}
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;
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 =>
19
00, hours => 0, minutes => 0, seconds => 0);
+my $chapter_timecode = DateTime::Duration->new(years =>
20
00, 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++;
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";
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 =>
19
00, hours => $hour, minutes => $min, seconds => $sec);
+ my $dt = DateTime::Duration->new(years =>
20
00, hours => $hour, minutes => $min, seconds => $sec);
$chapter_timecode = $chapter_timecode + $dt;
}
close(CHAPTERS);
$chapter_timecode = $chapter_timecode + $dt;
}
close(CHAPTERS);