ページへ戻る

− Links

 印刷 

OsaskMlList のバックアップ差分(No.2) :: OSASK計画

osaskwiki:OsaskMlList のバックアップ差分(No.2)
« Prev[4]  Next »[5]
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ネタばっかりだな　笑
« Prev[4]  Next »[5]
ページ別名: 未設定
ページ作成: ゲスト
サイト管理: lina

Links list

(This host) = http://osask.net

  1. (This host)/modules/osaskwiki/index.php?cmd=backup&pgid=156&age=2&action=nowdiff
  2. (This host)/modules/osaskwiki/index.php?cmd=backup&pgid=156&age=2&action=source
  3. (This host)/modules/osaskwiki/156.html
  4. (This host)/modules/osaskwiki/index.php?cmd=backup&pgid=156&action=diff&age=1
  5. (This host)/modules/osaskwiki/index.php?cmd=backup&pgid=156&action=diff&age=3
  6. (This host)/modules/osaskwiki/?cmd=backup&pgid=156&action=source&age=1
  7. (This host)/modules/osaskwiki/?cmd=backup&pgid=156&action=source&age=2
  8. (This host)/modules/osaskwiki/index.php?cmd=backup&pgid=156
  9. (This host)/modules/osaskwiki/index.php?cmd=backup&action=diff&pgid=156&age=1
  10. (This host)/modules/osaskwiki/index.php?cmd=backup&action=diff&pgid=156&age=3
  11. (This host)/modules/osaskwiki/index.php?cmd=backup&action=diff&pgid=156&age=4
  12. (This host)/modules/osaskwiki/index.php?cmd=backup&action=diff&pgid=156&age=Cur