ErogeekにはTTは必須か

erogeek

http://erogeek.org/

Erogeekになるには、TTが必須なようだ。

http://b.hatena.ne.jp/entry/http://d.hatena.ne.jp/tomyhero/20071019/1192815228

# 2007年10月20日 kamawada kamawada Erogeek, webscraper ktkr / TT使って欲しいCommentsAdd Star


急いで使ってみた。

use strict;
use warnings;
use Data::Dumper;
use Template;
my $nicknames = Erogeek::Caribbeancomgirl::Onlines->nicknames();

my $tt = Template->new();
print "Content-type: text/html\n\n";
$tt->process(\*DATA , {  nicknames => $nicknames } )
        || die $tt->error(), "\n";


package Erogeek::Caribbeancomgirl::Onlines;

use strict;
use warnings;
use LWP::UserAgent;
use Carp;

sub nicknames {
    my $ua = LWP::UserAgent->new;
    $ua->parse_head(0);
    my $res = $ua->get( 'http://jp.caribbeancomgirl.com/include/js/op_attr.js' );

    my @nicknames = ();
    if( $res->is_success ) {
        my $js = $res->content;
        my @lines = split( "\n" , $js );

        for my $line ( @lines ) {
            next unless $line =~ /^free_performers/ ;
            $line =~ /^free_performers\.add\((\w+)\)/;
            push @nicknames , $1;
        }
    }
    else {
        croak 'ero';
    }

   return \@nicknames;
}
1;
__END__
<html>
<head>
<base href="http://www.caribbeancomgirl.com/">
</head>
<body>
[% FOREACH nickname IN nicknames %]
<OBJECT
    classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
    codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
    width="156" height="117" align="">
<PARAM  name="movie"
    value="/flash/live_12.swf?copyright_arg=copyRight&langId_arg=jp&server_arg=jp.caribbeancomgirl.com&ip_arg=38.118.128.46&performer_arg=[% nickname %]&photo_arg=http://image.caribbeancomgirl.com/WebArchive/22667777/flash/LinkedImage.jpg&busy_arg=">
<PARAM
    name="loop" value="false"><PARAM name="menu" value="false"><PARAM
    name="quality" value="high"><EMBED
    src="/flash/live_12.swf?copyright_arg=copyRight&langId_arg=jp&server_arg=jp.caribbeancomgirl.com&ip_arg=38.118.128.46&performer_arg=[% nickname %]&photo_arg=http://image.caribbeancomgirl.com/WebArchive/22667777/flash/LinkedImage.jpg&busy_arg="
    quality="high" bgcolor="#000000" width="156" height="117"
    name="video_chat" align="" type="application/x-shockwave-flash"
    pluginspace="http://www.macromedia.com/go/getflashplayer"
    id="video_embed"></EMBED></OBJECT>
[% END %]
</body>
</html>

動作確認(Firefixで確認済み & 負荷をかけて怒られないように程々に... )

金銭的余裕のある方は、ぜひ入会してチャットしてみよう！