projects
/
videoscripts
/
.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Cleaned up duration variable names
[videoscripts/.git]
/
make_mkv
diff --git
a/make_mkv
b/make_mkv
index 4c411529b887953d9e7a33df97ebedb4343cce14..de283e37fdca038d7e46d52af9af5f3912ce5d10 100755
(executable)
--- a/
make_mkv
+++ b/
make_mkv
@@
-73,11
+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 $prev_hour = 0;
-my $prev_min = 0;
-my $prev_sec = 0;
-my $new_duration = DateTime::Duration->new(years => 1900, hours => $prev_hour, minutes => $prev_min, seconds => $prev_sec);
-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;
@@
-91,14
+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);
- my $prev_dt = DateTime::Duration->new(years => 1900, hours => $prev_hour, minutes => $prev_min, seconds => $prev_sec);
- $new_duration = $dt + $prev_dt;
- $prev_hour = $hour; $prev_min = $min; $prev_sec = $sec;
+ $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";