メーラスレッド

■掲示板に戻る■ 全部 1- 101- 最新50

メーラスレッド

34 ：名無しさん＠お腹いっぱい。 ：2001/06/12(火) 23:59: ruby なんだけどイイかな…

#!/usr/local/bin/ruby

require 'kconv'

class String
def escapeHTML
gsub!(/&/, %q(&))
gsub!(/</, %q(<))
gsub!(/>/, %q(>))
end
end

File.open(%(#{ENV['HOME']}/.netscape/viewurl.html), %q(w)) do |f|
f.print %q(<HTML><HEAD><TITLE>viewurl</TITLE></HEAD><BODY><PRE>)

while header = gets
break if header =~ /^$/
end

body = $stdin.read.toeuc
body.escapeHTML
body.gsub!(%r[(f|ht)tp://[^)>\s)]+], %q[<a href='\&'>\&</a>])

f.print body, %q(</PRE></BODY></HTML>)
end

# netscape must be exec'ed in advance
exec(%q(netscape),
%q(-remote),
%Q(openURL(#{ENV['HOME']}/.netscape/viewurl.html, new-window)))

新着レスの表示

掲示板に戻る全部前100 次100 最新50

read.cgi ver5.26+ (01/10/21-)