1: 2003-12-04 (木) 23:09:00 [6] | 2: 2006-02-04 (土) 19:59:05 [7] | ||
---|---|---|---|
Line 4: | Line 4: | ||
*スクリプト | *スクリプト | ||
- | #!/usr/local/bin/ruby | + | #!/usr/local/bin/ruby |
require 'net/http' | require 'net/http' | ||
Line 21: | Line 21: | ||
end | end | ||
end | end | ||
+ | |||
+ | sv = 'www2.hideyosi.com' | ||
+ | tp = '/~hideyosi_m/osask_ml/' | ||
+ | # sv = 'www.afis.to' | ||
+ | # tp = '/~mone/osask/osask_ml/' | ||
if a then | if a then | ||
- | Net::HTTP.start( 'www.afis.to', 80 ) {|http| | + | Net::HTTP.start( sv , 80 ) {|http| |
- | response , = http.get('/~mone/osask/osask_ml/index.html') | + | response , = http.get(tp) |
response.body.split("\n").each{|pul| | response.body.split("\n").each{|pul| | ||
if /HREF=\"(\d{6})\/\"\>/ =~ pul then | if /HREF=\"(\d{6})\/\"\>/ =~ pul then | ||
Line 35: | Line 40: | ||
open("./#{todaystr}.txt", "w") do |f| | open("./#{todaystr}.txt", "w") do |f| | ||
par.each { |pname| | par.each { |pname| | ||
- | Net::HTTP.start( 'www.afis.to', 80 ) {|http| | + | Net::HTTP.start( sv, 80 ) {|http| |
- | response , = http.get("/~mone/osask/osask_ml/#{pname}/index.html") | + | response , = http.get("#{tp}#{pname}/index.html") |
response.body.split("\n").each{|pul| | response.body.split("\n").each{|pul| | ||
if /HREF=\"msg(\d{5})\.html\"\>\[(?:OSASK|osask) (\d+)\] (.+)\<\/A\>/ =~ pul then | if /HREF=\"msg(\d{5})\.html\"\>\[(?:OSASK|osask) (\d+)\] (.+)\<\/A\>/ =~ pul then | ||
- | surl = "http://www.afis.to/~mone/osask/osask_ml/#{pname}/msg#{$1}.html" | + | surl = "#{pname}/msg#{$1}.html" |
smid = "[OSASK #{$2}]" | smid = "[OSASK #{$2}]" | ||
smti = "#{$3}" | smti = "#{$3}" | ||
Line 64: | Line 69: | ||
if returl != "" then | if returl != "" then | ||
- | print cgi.header({"Location" => returl }) | + | print cgi.header({"Location" => "http://#{sv}#{tp}#{returl}" }) |
print "転送 >> #{returl}" | print "転送 >> #{returl}" | ||
else | else | ||
cgi.out{"みつからない~ぐへぇ・・・"} | cgi.out{"みつからない~ぐへぇ・・・"} | ||
end | end | ||
+ | |||
*何に使うんだ? | *何に使うんだ? | ||
WikiからML発言ナンバーでリンクしたくて・・・それだけです。・・・最近Rubyネタばっかりだな 笑 | WikiからML発言ナンバーでリンクしたくて・・・それだけです。・・・最近Rubyネタばっかりだな 笑 |
(This host) = http://osask.net