エロサイト開発日記

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

Mon, 02 Jul 2007 16:21:02 +0900

いくつかの優良無修正動画配信サイトからキーワードでエロページを検索できるサービス「Erohoo!」を立ち上げました。無修正動画検索 Erohoo! 気になるあの女優の無修正動画があるかどうかチェックできますよー

erodev.pulpsite.netpulpsite.net/erodev/

Thu, 21 Jun 2007 01:48:51 +0900

実は最近、ERO Pla＆エロリスト以外にもPlaggerやウェブサービスを使ってエロサイトを作っているのでまたぼちぼち書き始めようかと思います。開発するのがERO Plaだけじゃなくなってきたので、今までeroplaのサブディレクトリで運用してたこのサイトをerodev.pulpsite.netというサブドメインをきってそちらに移動して、名前を「エロサイト開発日記」にしまーす。

追記

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

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

Wed, 01 Nov 2006 18:53:42 +0900

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

何気に

Tue, 31 Oct 2006 23:04:08 +0900

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

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

Fri, 01 Sep 2006 00:46:00 +0900

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

タグ付け可能にEntryFullTextを修正

Wed, 30 Aug 2006 21:01:38 +0900

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}) {

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

Sat, 26 Aug 2006 16:18:46 +0900

各サイトの、つまりカリビアンドットコムなどのトップページへのリンク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);
   }
}

開発日記はじめます

Sat, 26 Aug 2006 16:16:22 +0900

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