Divine Design

spam

2015-06-19T10:36:42Z

ｺﾒﾝﾄ多過ぎだよお前ら(;´Д`)bot死ね

Newsヘッドラインの表示

2007-09-26T11:36:41Z

要望があったのでくずはすくりぷとの中にNewsヘッドライン表示の処理をしてみた。
前提要件
# 必要PM
#  LWP::Simple
#  XML::Parser
#  XML::RSS
#  Jcode
#  (http://www.cpan.org/)
#
# 必要ライブラリ
#  expat
#  (http://sourceforge.net/projects/expat/)

RSSを持ってくるソース getnews.txt
これをgetnews.cgiにリネームしてUP(700)
IFRAME対応ブラウザで見れ(ﾟДﾟ)
上記のようにタグを貼ればOK(ﾟ∇ﾟ)

youtubeタグの展開

2007-09-25T00:40:31Z

#####################
# メッセージ１件出力
#####################
sub prtmessage {

my $mode = $_[0]; # 0 : 掲示板 1 : 過去ログ(ボタン表示あり) 2 : 過去ログ(ボタン表示なし) 3 : 検索窓
my $tlog = $_[1];
my ( $tag, $refdate, $prtmessage, $btn, $btnfollow, $btnauthor, $btnthread, $newwin,
$envlist, $envaddr, $envua, $envbr );

の下に

#youtube試験運用

#www用
$msg =~ s/http\:\/\/(?:www\.)?youtube\.com\/watch\?v\=([a-zA-Z0-9\_]{1,})/http\:\/\/www\.youtube\.com\/v\/$1<\/embed><\/A>/g;
#jp用

$msg =~ s/http\:\/\/(?:jp\.)?youtube\.com\/watch\?v\=([a-zA-Z0-9\_]{1,})/http\:\/\/www\.youtube\.com\/v\/$1<\/embed><\/A>/g;
と追加すればOK

なお、場合によってはアンカータグが汚くはみ出して表示されることがあるので

$msg =~ s/" target="link">http\:\/\/www\.youtube\.com\/v\/$1//g;

のようにして消しています(ﾟ∇ﾟ)

強制ハンドル

2007-09-25T00:23:05Z

#######################
# メッセージチェック
#######################
if ( !$FORM{'u'} ) { $FORM{'u'} = '';

の前に
if ( $ENV{'REMOTE_HOST'} =~ /\.docomo\.ne\.jp$/i ) { $FORM{'u'} = '妹'; }

上記のように追加すればOK(ﾟ∇ﾟ)foreach化も検討中

XREAへのMTインストール

2007-09-24T12:11:24Z

configで何度トライしてもincluded://に飛ばされて、

自分にはそのような解決能力が備わっていないのかと

かなり焦り気味であった。

でも、無事install完了ヽ(´ー｀)ノ

http://www.xrea-mt.com/xrea-mt/trouble/1/

これはひどい(;´Д`)

004040風味にcssを編集したいが

今はどうやればいいのかが分からない。

そのうちにどうにかしたい。

shigochuの人のような見栄えのするものを作りたいね｡｡｡