projects
/
videoscripts
/
.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed bug in the way the suffix was being printed (added zero padding)
[videoscripts/.git]
/
merge_videos_by_day
diff --git
a/merge_videos_by_day
b/merge_videos_by_day
index 52164d4689824615a25c3a206f81528c926e8347..f8a5a9eccd7d19e5a94ddc91f55195150979222c 100755
(executable)
--- a/
merge_videos_by_day
+++ b/
merge_videos_by_day
@@
-121,7
+121,7
@@
foreach $file (sort `$find_cmd`) {
$newfile = $dstfile . "." . $video_suffix;
if(-e "$newfile.$ext") {
foreach $i ($video_suffix+1 .. '999') {
$newfile = $dstfile . "." . $video_suffix;
if(-e "$newfile.$ext") {
foreach $i ($video_suffix+1 .. '999') {
- $newfile = $dstfile . "." .
$i
;
+ $newfile = $dstfile . "." .
sprintf("%03d",$i)
;
if(! -e "$newfile.$ext") { last; }
}
$dstfile = $newfile;
if(! -e "$newfile.$ext") { last; }
}
$dstfile = $newfile;
@@
-141,6
+141,7
@@
foreach $video (sort keys %videos) {
print " merging \"$srcfile\" into \"$video\"\n";
}
}
print " merging \"$srcfile\" into \"$video\"\n";
}
}
+print "\n";
# Now actually do the merging
foreach $video (sort keys %videos) {
# Now actually do the merging
foreach $video (sort keys %videos) {