diff options
| -rwxr-xr-x | tools/gen_frikanalen_video.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tools/gen_frikanalen_video.pl b/tools/gen_frikanalen_video.pl index 9b08431..f6558ea 100755 --- a/tools/gen_frikanalen_video.pl +++ b/tools/gen_frikanalen_video.pl @@ -33,7 +33,7 @@ my %opts; my $intro_length = 10; my $pid = $$; -getopts('di:m:o:b:s', \%opts); +getopts('di:m:o:b:s:', \%opts); my $debug = $opts{d} || 0; my $workdir = "./fk-temp-$pid"; #my $startposter = "$workdir/startposter.png"; @@ -302,9 +302,8 @@ sub savetemp { } sub getsrtfile { - my $base = $opts{'i'}; - $base =~ s/\..+$//; # Could be .dv or .avi or whatnot. This strips it off anyway. - return "$opts{'s'}/$base.srt"; + $opts{'i'} =~ /.+\/(.+)\..+$/; # Could be .dv or .avi or whatnot. This strips it off anyway. + return "$opts{'s'}/$1.srt"; } sub runcmd { |