blob: 6131e880ae4034d47dd53f61df0758e5867f4998 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#!/usr/bin/perl
$titel = $ARGV[0];
chdir ("/x2/temp");
@files=<teil*.mpg>;
$cd = 1;
mkdir "/x2/temp/$cd";
open (FF,">/x2/temp/$cd/$titel\ CD\ $cd");
close (FF);
foreach $file (@files)
{
$size = -s $file;
$total += $size;
if ($total <= 660*1024*1024)
{
print "Moving $file\n";
system ("mv /x2/temp/$file /x2/temp/$cd/$file");
}
else
{
print "Splitting $file\n";
$file =~ s/\.mpg$//;
$total -= $size;
$size = (660*1024*1024) - $total;
$cd = `cut3.pl /x2/temp $cd $file $size \'$titel\' < $file.mpg`;
chomp $cd;
$total = 0;
@files2=</x2/temp/$cd/teil*>;
foreach $file2 (@files2)
{
$total += -s $file2;
}
print "CD: $cd Total $total\n";
unlink "$file.mpg";
}
}
|