Mercurial > hgrepos > hgweb.cgi > after5

comparison after5.rb @ 76:53e747495502 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Bug-fix: Regexp matching should be done in euc-jp.
author HIROSE Yuuji <yuuji@gentei.org>
date Tue, 04 Dec 2012 00:55:16 +0900
parents 360d7144ab8d
children ec7d483d381d
comparison
equal deleted inserted replaced
75:360d7144ab8d 76:53e747495502
1 #!/usr/local/bin/ruby19 1 #!/usr/local/bin/ruby19
2 # -*- coding: euc-jp -*- 2 # -*- coding: euc-jp -*-
3 # 3 #
4 # Associative Scheduling Table - after5 4 # Associative Scheduling Table - after5
5 # (C)2003, 2004, 2006, 2008, 2012 by HIROSE Yuuji [yuuji<at>gentei.org] 5 # (C)2003, 2004, 2006, 2008, 2012 by HIROSE Yuuji [yuuji<at>gentei.org]
6 # $Id: after5.rb,v 1.19 2012/04/01 11:52:25 yuuji Exp yuuji $ 6 # $Id: after5.rb,v 1.20 2012/12/03 15:54:20 yuuji Exp $
7 # Last modified Thu Nov 29 12:35:05 2012 on firestorm 7 # Last modified Tue Dec 4 00:53:29 2012 on firestorm
8 # See http://www.gentei.org/~yuuji/software/after5/ 8 # See http://www.gentei.org/~yuuji/software/after5/
9 # このスクリプトはEUCで保存してください。 9 # このスクリプトはEUCで保存してください。
10 $hgid = <<_HGID_.split[1..-2].join(" ") 10 $hgid = <<_HGID_.split[1..-2].join(" ")
11 $HGid$ 11 $HGid$
12 _HGID_ 12 _HGID_
1643 end 1643 end
1644 seq+=1 while test(?s, (newfile=sprintf("%s/%d", spooldir, seq))) 1644 seq+=1 while test(?s, (newfile=sprintf("%s/%d", spooldir, seq)))
1645 open(newfile, "w") do |spoolfile| 1645 open(newfile, "w") do |spoolfile|
1646 countdone = nil 1646 countdone = nil
1647 while line=STDIN.gets 1647 while line=STDIN.gets
1648 if !countdone && /^X-ML-Name: / =~ line 1648 if !countdone && /^X-ML-Name: / =~ line.toeuc
1649 line += sprintf("X-Mail-Count: %d\n", seq) 1649 line += sprintf("X-Mail-Count: %d\n", seq)
1650 coutndone=true 1650 coutndone=true
1651 end 1651 end
1652 spoolfile.print line 1652 spoolfile.print line
1653 outhandle.print line 1653 outhandle.print line

yatex.org