Make flashget work with Freshplayer Plugin
This commit is contained in:
parent
2ec75b4cb2
commit
0ccdce5241
|
@ -39,7 +39,7 @@ foreach my $pid (sort { $a <=> $b } (grep(/^\d+$/, readdir($proc)))) {
|
||||||
|
|
||||||
# Look for a Flash video link.
|
# Look for a Flash video link.
|
||||||
$link =~ s/\s*\(deleted\)//g; # Remove the " (deleted)" extensions.
|
$link =~ s/\s*\(deleted\)//g; # Remove the " (deleted)" extensions.
|
||||||
if ($link =~ m{^/tmp/(Flash.*?)$} || $link =~ m{Shockwave Flash/\.(.+?)$}) {
|
if ($link =~ m{^/tmp/((?:Flash|FreshTemp).*?)$} || $link =~ m{Shockwave Flash/\.(.+?)$}) {
|
||||||
# Copy it.
|
# Copy it.
|
||||||
my $dest = "$home/$1.flv";
|
my $dest = "$home/$1.flv";
|
||||||
print "Recover from PID $pid: $id -> $dest\n";
|
print "Recover from PID $pid: $id -> $dest\n";
|
||||||
|
|
Loading…
Reference in New Issue
Block a user