くだらない質問でも偉そうに聞いていいスレ (730レス)
くだらない質問でも偉そうに聞いていいスレ http://medaka.5ch.net/test/read.cgi/php/1271172618/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
レス栞
20: 15 [sage] 2010/04/15(木) 08:35:15 ID:??? >>16 例えばツリー式やスレッド式の掲示板などで、各スレごとにLogファイルが出来るものを流用して、 メッセージの送り主がスレ立てたあとにメッセージを送りたい相手にスレのURLを知らせると。 受取人がそのURLへアクセスし、メッセージを読んだ事を感知したらLogファイルを削除すると。 あと、設定した期間を経過したらスレのLogを削除してくれると助かるな。 そんな感じかな。携帯でも見れるものが望ましいかな。 >>17 もちろん自サイトで。1から作るよりは、マメに手入れされてる掲示板CGI等を改変した方が安心かな?と思っているところ。 http://medaka.5ch.net/test/read.cgi/php/1271172618/20
27: nobodyさん [sage] 2010/04/15(木) 20:51:28 ID:??? >>20 perlですが、こんな感じでいかがでしょう。DBIx::Simpleを入れてくださいね。 #!/usr/local/bin/perl use strict;use warnings;use CGI;use DBIx::Simple;use Digest::SHA1 qw(sha1_hex); my$q=CGI->new;print$q->header(-charset=>'utf-8'),$q->start_html('message'),$q-> start_form(-action=>$q->script_name),$q->textfield(-name=>'value',-size=>64),$q ->submit('leave a secret mess'),$q->end_form,$q->hr;my$db=DBIx::Simple->connect ('dbi:SQLite:dbname=secret_message.db')or die DBIx::Simple->error;$db->query(qq {CREATE TABLE IF NOT EXISTS message (key, value)});if($q->param('key')){my@mes= $db->select('message','value',{key=>[$q->param('key')]})->hashes;for my$m(@mes) {print$m->{'value'},qq{\n<hr>\n};}$db->delete('message',{key=>$q->param('key')} );}if($q->param('value')){my $key=sha1_hex($q->remote_addr.$q->param('value')); $db->insert('message',{key=>$key,value=>$q->param('value')});print qq{send URL to friend<br>},$q->url(),qq{?key=$key<hr>};}print$q->end_html;$db->disconnect; http://medaka.5ch.net/test/read.cgi/php/1271172618/27
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.137s*