root/trunk/plagger/assets/plugins/Filter-FindEnclosures/zshare.pl

sub handle {
    my ($self, $url) = @_;
    ($url =~ qr!http://www\.zshare\.net/(download|audio)/[0-9a-f]+!) || ($url =~ qr!^http://sharebee\.com/[0-9a-f]+!);
}

sub find {
    my($self, $args) = @_;
    my $response;
    my $uri = $args->{url};

    if($uri =~ /sharebee/) {
        $response = LWP::UserAgent->new->get($uri);
        if($response->content =~ m!(http://www\.zshare\.net/download/[0-9a-f]+/)!) {
            $uri = $1;
        }
    }

    $uri =~ s/audio/download/;
    $response = LWP::UserAgent->new->post(
        $uri,
        ['download' => 1]);
    if($response->content =~ m/('h','t','t','p'.+?')\);link/) {
        my $enclosure_url = $1;
        $enclosure_url =~ s/[',]//g;
        my $enclosure = Plagger::Enclosure->new;
        $enclosure->url($enclosure_url);
        $enclosure->auto_set_type;
        return $enclosure;
    }

    return;
}