Big Sky :: TTYShareのttyファイル見つけるFilter::FindEnclosuresスクリプト書いた

2008/01/31

TTYShareのttyファイル見つけるFilter::FindEnclosuresスクリプト書いた

今日はもう寝ます。
ttyは明日ミマス。

typester++


sub handle {

    my ($self, $url) = @_;

    $url =~ qr!http://ttyshare.com/rec/\w+!;

}



sub find {

    my($self, $args) = @_;

    

    my $uri = $args->{url};

    my $response = LWP::UserAgent->new->post(

        $uri,

        ['download' => 1]);

    if($response->content =~ m/<div id="p-(.+?)" class="player">/) {

        my $enclosure = Plagger::Enclosure->new;

        $uri = sprintf('http://ttyshare.com/static/tty/%s/%s/%s/%s',

            substr($1, 0, 1), substr($1, 0, 2), substr($1, 0, 4), $1);

        $enclosure->url($uri);

        $enclosure->type('application/x-ttyrec');

        $enclosure->filename("$1.tty");

        return $enclosure;

    }



    return;

}

Posted at 02:23 | WriteBacks () | Edit

Edit this entry...

wikieditish message: Ready to edit this entry.

New Name:

Title:

Body:

meta-creation_date: 2008-01-31T02:23:31+09:00

今日はもう寝ます。 
ttyは明日ミマス。 
 
typester++ 
 
<code class="code">
sub&nbsp;handle { 
&nbsp;&nbsp;&nbsp;&nbsp;my&nbsp;($self, $url) = @_; 
&nbsp;&nbsp;&nbsp;&nbsp;$url&nbsp;=~ qr!<a href="http://ttyshare.co">http://ttyshare.co</a>m/rec/\w+!; 
} 
 
sub&nbsp;find { 
&nbsp;&nbsp;&nbsp;&nbsp;my($self, $args) = @_; 
&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;my&nbsp;$uri&nbsp;= $args-&gt;{url}; 
&nbsp;&nbsp;&nbsp;&nbsp;my&nbsp;$response&nbsp;= LWP::UserAgent-&gt;new-&gt;post( 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$uri, 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;['download'&nbsp;=&gt; 1]); 
&nbsp;&nbsp;&nbsp;&nbsp;if($response-&gt;content&nbsp;=~ m/&lt;div id=&quot;p-(.+?)&quot; class=&quot;player&quot;&gt;/) { 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my&nbsp;$enclosure&nbsp;= Plagger::Enclosure-&gt;new; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$uri&nbsp;= sprintf('<a href="http://ttyshare.com/static/tty/%s/%s/%s/%s">http://ttyshare.com/static/tty/%s/%s/%s/%s</a>', 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;substr($1, 0, 1), substr($1, 0, 2), substr($1, 0, 4), $1); 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$enclosure-&gt;url($uri); 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$enclosure-&gt;type('application/x-ttyrec'); 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$enclosure-&gt;filename(&quot;$1.tty&quot;); 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return&nbsp;$enclosure; 
&nbsp;&nbsp;&nbsp;&nbsp;} 
 
&nbsp;&nbsp;&nbsp;&nbsp;return; 
} 
</code>

Excerpt:

Ping URLs:

File:

Password:

A quick preview will be rendered here when you click "Preview" button.