|
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 | |
|---|
| 1 | sub handle { |
|---|
| 2 | my ($self, $url) = @_; |
|---|
| 3 | $url =~ qr!http://www\.vim\.org/scripts/script\.php\?script_id=\d+!; |
|---|
| 4 | } |
|---|
| 5 | |
|---|
| 6 | sub 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 | } |
|---|