サイトトップへ
OSASK.NET
SourceForge.JP
サイトトップへ       新掲示板(凍結済)   Wiki(凍結済)   旧掲示板(廃止済)   ニュース(廃止済)  

OSASK-ML のURLとナンバーへのリンクCGI

MLへのリンクができないとつまんないので、つくってみた。Rubyですにょ。

Page Top

スクリプト

#!/usr/local/bin/ruby

require 'net/http'
require 'cgi'

cgi = CGI.new
par = []
todaystr = Time.now.strftime("%Y%m%d")
a = true

Dir.glob("\.\/????????.txt").each do |f|
	if "./#{todaystr}.txt" == f then
		a = false
	else
		File.delete(f)
	end
end

sv = 'www2.hideyosi.com'
tp = '/~hideyosi_m/osask_ml/'
# sv = 'www.afis.to'
# tp = '/~mone/osask/osask_ml/'

if a then

	Net::HTTP.start( sv , 80 ) {|http|
		response , = http.get(tp)
		response.body.split("\n").each{|pul|
			if /HREF=\"(\d{6})\/\"\>/ =~ pul then
				par << $1
			end
		}
	}

	open("./#{todaystr}.txt", "w") do |f|
		par.each { |pname|
			Net::HTTP.start( sv, 80 ) {|http|
				response , = http.get("#{tp}#{pname}/index.html")
				response.body.split("\n").each{|pul|
					if /HREF=\"msg(\d{5})\.html\"\>\[(?:OSASK|osask) (\d+)\] (.+)\<\/A\>/ =~ pul then
						surl = "#{pname}/msg#{$1}.html"
						smid = "[OSASK #{$2}]"
						smti = "#{$3}"
						f << $2 + "\t" + surl + "\n"
					end
				}
			}
		}
	end
end

returl = ""
inn = cgi['n'].to_s

if inn then
	open("./#{todaystr}.txt") do |f|
		while f.gets
			if /(\d+)\t(.+)$/ =~ $_ then
				returl = $2 if $1 == inn
			end
		end
	end
end

if returl != "" then
	print cgi.header({"Location" => "http://#{sv}#{tp}#{returl}" })
	print "転送 >> #{returl}"
else
	cgi.out{"みつからない~ぐへぇ・・・"}
end
Page Top

何に使うんだ?

WikiからML発言ナンバーでリンクしたくて・・・それだけです。・・・最近Rubyネタばっかりだな 笑

  • こんなおもしろそうなのがあったとは!見落としていたニョ! ・・・これ、つかっちゃっていいんだよねぇ? だれが作ったページだろ? nisiさん? -- hideyosi 2006-03-25 (土) 22:46:00

一般用コメント一覧

一般用コメント欄は使用できません
Front page   Unfreeze Diff Backup Copy Rename ReloadPrint View   New Page Page list Search Recent changes   Help
ログイン
ユーザー名:
パスワード:
 
パスワード紛失

新規受付は停止しています

新着

目次
メンバー一覧


recent(20)
2016-10-01 2016-09-08
  • @MenuBar.
2016-09-07 2016-09-04 2016-08-15 2015-09-23 2014-07-30 2014-07-04 2014-02-04 2013-10-26 2013-06-21 2013-06-17 2013-06-15 2013-04-02 2013-02-09 2013-02-04 2012-12-25 2012-12-01 2012-05-28 2012-03-31

トピック一覧
一般用コメント最新
新掲示板lina
2016/9/5 20:58
SandBoxゲスト
2016/9/4 12:01
RecentDeletedlina
2015/6/2 19:29
Old-OSASK-MLlina
2014/6/29 9:14
hideyosi/メールhideyosi
2014/1/6 20:17
hideyosi/募集中lina
2013/11/8 19:56

このサイトは川合秀実から委託を受けて、OSASKコミュニティによって管理・運営されています。
このサイトに関するお問い合わせは掲示板にお願いいたします。