projects
/
videoscripts
/
.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
676ecc9
)
Cleaned up duration variable names
author
Alan J. Pippin
<alan@pippins.net>
Fri, 18 Nov 2011 05:02:43 +0000
(22:02 -0700)
committer
Alan J. Pippin
<ajp@pippins.net>
Fri, 18 Nov 2011 05:02:43 +0000
(22:02 -0700)
make_mkv
patch
|
blob
|
history
diff --git
a/make_mkv
b/make_mkv
index 12e3c1b89d6cb0bf91ef515c34df422ca19c3fe3..de283e37fdca038d7e46d52af9af5f3912ce5d10 100755
(executable)
--- a/
make_mkv
+++ b/
make_mkv
@@
-73,8
+73,8
@@
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 $
new_duration
= DateTime::Duration->new(years => 1900, hours => 0, minutes => 0, seconds => 0);
-my $
duration
_format = DateTime::Format::Duration->new(pattern => '%H:%M:%S.%3N', normalize => 1);
+my $
chapter_timecode
= DateTime::Duration->new(years => 1900, 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 $hour = 0;
foreach my $video (sort{$videos{$a} <=> $videos{$b}} keys %videos) {
$chapter_num++;
my $hour = 0;
@@
-88,12
+88,12
@@
foreach my $video (sort{$videos{$a} <=> $videos{$b}} keys %videos) {
$min = $2;
$sec = "$3.$4";
}
$min = $2;
$sec = "$3.$4";
}
- my $
start_time = $duration_format->format_duration($new_duration
);
+ my $
timecode = $timecode_format->format_duration($chapter_timecode
);
print "$mdate $hour:$min:$sec -> $video \n";
print "$mdate $hour:$min:$sec -> $video \n";
- print CHAPTERS "CHAPTER".sprintf("%02d",$chapter_num)."=".$
start_tim
e."\n";
+ print CHAPTERS "CHAPTER".sprintf("%02d",$chapter_num)."=".$
timecod
e."\n";
print CHAPTERS "CHAPTER".sprintf("%02d",$chapter_num)."NAME=".$mdate."\n";
my $dt = DateTime::Duration->new(years => 1900, hours => $hour, minutes => $min, seconds => $sec);
print CHAPTERS "CHAPTER".sprintf("%02d",$chapter_num)."NAME=".$mdate."\n";
my $dt = DateTime::Duration->new(years => 1900, hours => $hour, minutes => $min, seconds => $sec);
- $
new_duration = $dt + $new_duration
;
+ $
chapter_timecode = $chapter_timecode + $dt
;
}
close(CHAPTERS);
print "\n-> Creating the following chapter file for this video:\n";
}
close(CHAPTERS);
print "\n-> Creating the following chapter file for this video:\n";