2007年07月02日

無修正動画検索サイトErohoo!

いくつかの優良無修正動画配信サイトからキーワードでエロページを検索できるサービス「Erohoo!」を立ち上げました。

無修正動画検索 Erohoo!

気になるあの女優の無修正動画があるかどうかチェックできますよー

2007年06月21日

erodev.pulpsite.netpulpsite.net/erodev/

実は最近、ERO Plaエロリスト以外にもPlaggerやウェブサービスを使ってエロサイトを作っているのでまたぼちぼち書き始めようかと思います。

開発するのがERO Plaだけじゃなくなってきたので、今までeroplaのサブディレクトリで運用してたこのサイトをerodev.pulpsite.netというサブドメインをきってそちらに移動して、名前を「エロサイト開発日記」にしまーす。

追記

やっぱpulpsite.net/erodev/というサブディレクトリでやることにしました。

2006年11月01日

英語版作るってのはありか

ERO Pla 及び エロリスト メソッドを利用して英語版をつくるのはありかなー
ってか洋物のサイトえぐい。。。
日本の文化を輸出する形がいいな

2006年10月31日

何気に

何気にアフィリエイトの収入がある件について
エロリストのタグページが検索に結構ひっかかってきたからっぽい

2006年09月01日

Store::DBICで吐き出したdbをcatalystで読むことに成功

Plagger::Plugin::Store::DBICで吐き出したsqliteのdbをcatalystで読むことに成功。ただ、entryのpermalinkが取れないので、修正をしたいところ。とりあえず、これで、plagger+catalystの道が開けたぞ。

追記: permalinkの件あっさりと解決

2006年08月30日

タグ付け可能にEntryFullTextを修正

EntryFullTextでフィードやHTMLを作るときに、タグをつけたい。たとえば女優名とかプレイ名とか。というわけでEntryFullTextを修正して対応させました。以下差分。

--- EntryFullText.pm    2006-08-24 17:49:42.000000000 +0900
+++ EntryFullText.pm    2006-08-30 20:26:19.000000000 +0900
@@ -11,6 +11,7 @@

 use Plagger::Util qw( decode_content );
 use Plagger::Plugin::CustomFeed::Simple;
 use Plagger::UserAgent;
+use Plagger::Tag;
 
 sub rule_hook { 'update.entry.fixup' }
 

@@ -151,6 +152,7 @@
                 $args->{entry}->body($data->{body});
                 $args->{entry}->title($data->{title}) if $data->{title};
                 $args->{entry}->icon({ url => $data->{icon} }) if $data->{icon};
+                $args->{entry}->tags(Plagger::Tag->parse($data->{tags})) if $data->{tags};

 
                 # extract date using found one
                 if ($data->{date}) {

2006年08月26日

各サイトのトップページURLをアフィリエイトURLに

各サイトの、つまりカリビアンドットコムなどのトップページへのリンクURLをアフィリエイトのURLにしました。Plagger::Plugin::Filter::EroPlaなんていうプラグイン作っちゃった。

個別エントリーのリンクを修正するにはFilter::TruePermalinkを使えばいいんだけど、親元つまりフィードを吐いているサイトのURLのリンクを修正、フィルタリングしなけりゃならない。

そのためには各エントリーのsource->{link}を修正する。修正するタイミングはpublish.entry.fixupのタイミング。以下参考になるかな、サンプルソース。

#publish.entry.fixupのタイミングでやる
sub update {
  my($self, $context, $args) = @_;
  foreach my $entry ($args->{feed}->entries) {
    my $source = $entry->source;
    #処理
    $entry->source($source);
   }
}

開発日記はじめます

なんか作ってて盛り上がってきてやることも多くなり、また学ぶことも多くなってきたので、もろもろの情報を適当にこの開発日記に記していこうと今のところ思っております。