/usr/share/perl5/FlashVideo/Site/Zshare.pm is in get-flash-videos 1.25~git2012.06.27-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | # A get-flash-videos module for the zshare.net website
# Copyright (C) 2011 Rudolf Olah <rolah@goaugust.com>
# Licensed under the GNU GPL v3 or later
# Created using the instructions from: http://code.google.com/p/get-flash-videos/wiki/AddingSite
package FlashVideo::Site::Zshare;
use strict;
use FlashVideo::Utils;
sub find_video {
my ($self, $browser, $embed_url, $prefs) = @_;
# $browser is a WWW::Mechanize object
# $embed_url will normally be the same as the page, but in the case
# of embedded content it may differ.
$embed_url = ($browser->content =~ /iframe src="(.*videoplayer.*?)"/i)[0];
$browser->get($embed_url);
my $url = ($browser->content =~ /file:.*"(.*?)"/i)[0];
my $filename = ($browser->content =~ /<title>.*?- (.*)<\/title>/i)[0];
return $url, $filename;
}
1;
|