root/lang/perl/plagger/assets/plugins/Filter-FindEnclosures/vim_org_scripts.pl @ 1018

Revision 1018, 0.6 kB (checked in by mattn, 6 years ago)

lang/perl/plagger/assets/plugins/Filter-FindEnclosures?/vim_org_scripts.pl: added find eclosure plugin for www.vim.org.

Line 
1sub handle {
2    my ($self, $url) = @_;
3    $url =~ qr!http://www\.vim\.org/scripts/script\.php\?script_id=\d+!;
4}
5
6sub find {
7    my($self, $args) = @_;
8   
9    my $uri = $args->{url};
10    my $response = LWP::UserAgent->new->post(
11        $uri,
12        ['download' => 1]);
13    if($response->content =~ m!<a href="(download_script.php\?[^\"]+)">([^>]+)</a>!) {
14        my $enclosure = Plagger::Enclosure->new;
15                $uri = "http://www.vim.org/scripts/$1";
16        $enclosure->url($uri);
17        $enclosure->auto_set_type;
18        return $enclosure;
19    }
20
21    return;
22}
Note: See TracBrowser for help on using the browser.