Index: /websites/perl-users.jp/news/cl.conf
===================================================================
--- /websites/perl-users.jp/news/cl.conf (revision 12055)
+++ /websites/perl-users.jp/news/cl.conf (revision 12055)
@@ -0,0 +1,530 @@
+# -*- perl -*-
+### ユーザ設定項目 ###
+
+# --------------------------------------------------------------------
+# 日記の名前
+$changelog_name = "Perl News - らくだニュース";
+
+# --------------------------------------------------------------------
+# ChangeLog を公開する URL (絶対 URL を強く推奨) - RSS に必要
+# 例: $clog_url = "http://chalow.net/";
+$clog_url = "http://perl-users.jp/news/"; # 必ず URL を設定して下さい
+
+# --------------------------------------------------------------------
+# インデックスページ (index.html) で最近何日分を表示するか
+# (コマンドラインオプション "-n" でも指定できます)
+$opt_topn = 7;
+
+# --------------------------------------------------------------------
+# 日ごとにページを作るか (0:NO, 1:YES) --- obsolete
+#$day_page_mode = 1;
+
+# --------------------------------------------------------------------
+# 作成するページの単位 (0:月, 1:日, 2:アイテム)
+$page_mode = 2;
+
+# --------------------------------------------------------------------
+# 自動文字列置換
+$auto_replace = '
+s!()!$1!g;
+s!(
)!$1!g;
+';
+
+# --------------------------------------------------------------------
+# ファイルの最初に出てくる「」を置き換える文字列
+$replace_once = << "__REPLACE_ONCE"
+
+
+
+
+
+__REPLACE_ONCE
+ ;
+
+# --------------------------------------------------------------------
+# CSS ファイル
+$css_file = "/css/news.css";
+#$css_file = "clover/clover.css";
+
+# --------------------------------------------------------------------
+# RSSファイル名
+$rss_filename = "cl.rdf";
+
+# --------------------------------------------------------------------
+# RSSに最近何日分表示するか(0の場合は $opt_topn と同じ)
+$rss_topn = 0;
+
+# --------------------------------------------------------------------
+# 日付の後に曜日(Mon, Tue, ...)を表示するか (1:yes or 0:no)
+$show_day_of_week = 1;
+
+# --------------------------------------------------------------------
+# 月ページで、日付を降順 (新しい日付が上) で表示するか (1:yes or 0:no)
+$reverse_order_days = 1;
+
+# --------------------------------------------------------------------
+# アイテムヘッダーのフォーマットをどうするか
+# (0:"* HOGE:", 1:"* HOGE", 2:"HOGE:",3:"HOGE")
+$item_header_style = 1;
+
+# --------------------------------------------------------------------
+# 表示するとき引用記号 ('>' or '|') を消すか (1:YES, 0:NO)
+$remove_quote_mark = 1;
+
+# --------------------------------------------------------------------
+# item header で h3 タグを使うか (1:YES, 0:NO) - tDiary との互換性のため
+$use_h3_for_item_header = 1;
+
+# --------------------------------------------------------------------
+# item header の先頭の記号にアンカーをつけるか (1:YES, 0:NO)
+$use_item_anchor = 1;
+
+# --------------------------------------------------------------------
+# item header の先頭の記号の指定
+# 『日記のセクションの先頭(サブタイトルの行頭)に挿入される、リンク用の
+# アンカー文字列を指定します。なお「_」を
+# 指定すると、テーマによっては自動的に画像アンカーがつくようになりま
+# す。』(tDiary の skel/conf.rhtml より)
+$item_header_mark = qq(■);
+
+# --------------------------------------------------------------------
+# RSS を出力するか (1:YES, 0:NO)
+$output_rss = 1;
+
+# --------------------------------------------------------------------
+# 日記の説明 for RSS : 例: "日々のあれこれ。"
+$changelog_description = "Perl界隈の人たちがPerlのニュースをPOSTしていきます";
+
+# --------------------------------------------------------------------
+# 他の年の同じ日付 (月日) へのリンクを張るか (1:YES, 0:NO)
+$same_date_jump = 1;
+
+# --------------------------------------------------------------------
+# 日付一覧をカレンダー表示にするか (1:YES, 0:NO)
+$calendar_style = 0;
+
+# --------------------------------------------------------------------
+# 検索用ファイル (cl.itemlist) を作るか (1:YES, 0:NO)
+$output_itemlist = 1;
+
+# --------------------------------------------------------------------
+# 見出し一覧 (JavaScript ファイル) で出力する日数
+$latest_titles_num = 10;
+
+# --------------------------------------------------------------------
+# カテゴリページを作るか (0:NO, 1:YES)
+$output_cat_pages = 0;
+
+# --------------------------------------------------------------------
+# カテゴリページ中のエントリ数の上限
+# ($output_cat_pages = 1 のときのみ有効)
+$cat_page_entry_max = 20;
+
+# --------------------------------------------------------------------
+# カテゴリ別item表示のためのCGIを指定する（カテゴリ名は %%CAT%% で置き換え）
+# ($output_cat_pages = 0 のときのみ有効)
+$cat_page_cgi = "clsearch.cgi?cat=%%CAT%%";
+#$cat_page_cgi = "";
+
+
+######################################################################
+## テンプレート
+
+# (サイドメニュー、サイドバー)
+my $side_menu = << "___SIDE_MENU"
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+___SIDE_MENU
+ ;
+
+
+# インデックスページのテンプレート
+$index_page_template = << "___INDEX_PAGE_TEMPLATE"
+
+
+
+
+
+
+
+<TMPL_VAR name=cl_name>
+
+
+
+
+
+
+
/
+
+
最近 日分 / 今月の一覧
+
+
+
+
+
+
最終更新時間:
+
$side_menu
+
+
+___INDEX_PAGE_TEMPLATE
+ ;
+
+# 月ページのテンプレート
+$month_page_template = << "___MONTH_PAGE_TEMPLATE"
+
+
+
+
+
+
+
+<TMPL_VAR name=cl_name> / <TMPL_VAR name=ym>
+
+
+
+
+
/
+
+
+
+
+
最終更新時間:
+
+
+
+
+
+
+
+
+
+ Referrer (Inside):
+
+
+
permlink
+
+
+
-
+
+TMPL
+ ;
+
+# item のテンプレート
+$item_template = << "EACHITEM"
+
+
+
+
+
+《続きを読む》
+
+
+
+Referrer (Inside):
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+Referrer (Inside):
+
+
+
+
+
+
/gi;
+ $str =~ s/$/
/gm;
+ $str =~ s/
\Z//m;
+ return qq($str);
+}
+
+sub az {amazon(@_)}
+sub azs {amazon_search(@_)}
+sub bf {bulkfeeds(@_)}
+sub cls {clsearch(@_)}
+sub gs {google_search(@_)}
+
+### amazon サーチ結果リンクの作成
+# usage: {{amazon_search('STR' [,'MODE'])}}
+sub amazon_search {
+ my ($str, $mode) = @_;
+ my $k = Jcode->new($str)->utf8;
+ $k =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
+ $k =~ s/\s/+/g;
+ my $aid = "ytoshomepage-22";
+ $mode = "blended" if not defined $mode;
+ return '$str";
+}
+
+### 普通の amazon アソシエイトリンクの作成
+# usage: {{amazon_link('ASIN', 'ID', 'STR')}}
+sub amazon_link {
+ my ($asin, $id, $str) = @_;
+ my $prefix = "http://www.amazon.co.jp/exec/obidos/ASIN";
+ $str =~ s/(\s|^)(\S+\.(jpg|jpeg|png|gif))/$1/gi;
+ $str =~ s/$/
/gm;
+ $str =~ s/
\Z//m;
+ return qq($str);
+}
+
+### 後ろめたい amazon アソシエイトリンクの作成
+# ref. http://chalow.net/2003-11-06-2.html
+# usage: {{qualmish_amazon_link('ASIN', 'ID', 'STR')}}
+sub qualmish_amazon_link {
+ my ($asin, $id, $str) = @_;
+ my $prefix = "http://www.amazon.co.jp/exec/obidos/ASIN";
+ $str =~ s/(\s|^)(\S+\.(jpg|jpeg|png|gif))/$1/gi;
+ $str =~ s/$/
/gm;
+ $str =~ s/
\Z//m;
+ return qq($str);
+}
+
+### URL を短く表示
+# usage: {{shorten_url('http://example.com/abc/def/00101033/
+# 0123456/aaaaaaaaaaaa/aaaaaaaaaaaa/index.html')}}
+sub shorten_url {
+ my ($url, $max) = @_;
+ $max = 60 if not defined $max;
+ $url =~ s/\s+//gsm;
+ my $urlstr = $url;
+ $urlstr =~ s/^(.{$max}).+$/$1 .../;
+ return qq($urlstr);
+}
+
+### カテゴリページへのリンク
+# usage: {{cat('プログラミング')}}
+sub cat {
+ my ($cn) = @_;
+ my $url = get_category_filename($cn);
+ return qq($cn);
+}
Index: /websites/perl-users.jp/news/ChangeLog
===================================================================
--- /websites/perl-users.jp/news/ChangeLog (revision 12055)
+++ /websites/perl-users.jp/news/ChangeLog (revision 12055)
@@ -0,0 +1,13 @@
+2008-05-20 perlnews
+
+ * CodePressてすと:
+ CodePressできる記法をchalowに無理やりぶち込んだ
+ >|perl|
+ use dan the => test;
+ Dan the chalow
+ ||<
+ できてる！ついてる！
+
+ * らくだニュースはじめました:
+ perl hacker達がお届けする Perl News はじめるよ
+