Namazu-users-ja($B5l(B)
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: mhonarc $B$G:n$C$?%Z!<%8$N4A;z%3!<%I(B
- From: OGAWA Kunihiko <kuni@xxxxxxxxxx>
- Date: Sat, 23 Feb 2002 18:19:10 +0900 (JST)
- X-ml-name: namazu-users-ja
- X-mail-count: 02472
$B>.@n$G$9!#(B
(B
(B>$B85(B : From: $B#K#u#n#i(B
(B>mhonarc: <!--X-From-R13: $B#K#u#n#i(B --> ($BA43QJ8;z$OJQ2=$7$J$$(B)
(B>namazu : <!--X-From-R13: Kuni --> (nkf -Z)
(B>unrot13: From: Yhav (oops...)
(B
(B(mhonarc $B$N(B) rot13 $B$7$F!"(Bnkf -Z $B$7$?$i!"$I$&$d$C$F$bLa$;$J$$!"(B
$B$D$^$j!"$3$NJ}K!$O%"%&%H$G$O$J$$$+$H!D(B
(B
$B$H$j$"$($:!"(Bmhonarc $B$N(B rc $B$K(B
(B<HEADBODYSEP>
(B<!--X-Namazu-Author: $FROM$-->
(B</HEADBODYSEP>
$B$H=q$$$F!"L@<(E*$K(B author $B$r;X<($9$k$h$&$K$7$F$_$^$7$?(B
(B($B$b$7(B X-Namazu-Author: $B$,$J$1$l$PF#86$5$s$N:n$C$?DL$j$KF0$/(B)
(B
(B--- mhonarc.pl.org2 Sat Feb 23 09:44:49 2002
(B+++ mhonarc.pl Sat Feb 23 18:06:13 2002
(B@@ -104,14 +104,16 @@
(B
(B # Separate headers and a body message.
(B $$contref =~ s/<!--X-Head-Body-Sep-Begin-->/\n/;
(B- $$contref =~ s/<!--X-Head-of-Message-->.*<!--X-Head-of-Message-End-->//s;
(B
(B $$contref =~ s/<!-- MHonArc v[0-9.]+ -->(.*)<!--X-Head-End-->//s;
(B $header = $1;
(B $$contref =~ s/<HTML>.*<BODY [^>]*>//s;
(B+
(B+ $$contref =~ s/(<!--X-Namazu-Author: .*?-->)//s;
(B+ $header .= $1 if defined $1;
(B $header = XHeadertoheader($header);
(B if ( $header ) {
(B- $$contref = $header . "\n" . $$contref ;
(B+ $$contref =~ s/(<!--X-Head-of-Message-->).*(<!--X-Head-of-Message-End-->)/$1$header$2/s;
(B }
(B else {
(B # Handle a field consists of two or more lines.
(B@@ -139,6 +141,8 @@
(B $str =~ s/<!--X-From-R13: (.*) -->\n<!--X-Date: .*([MTWFS][ouehrau][neduitn],.*)-->\n<!--X-Me/<!--X-Me/;
(B my ($from) = unrot13($1);
(B my ($date) = $2;
(B+ $str =~ s/<!--X-Namazu-Author: (.*?)\s*-->//s;
(B+ $from = $1 if defined $1;
(B $str =~ s/<!--X-//g;
(B $str =~ s/-->//g;
(B $str .= "From: ".$from."\n";
(B
(B--
$B>.@xxxx'(B <kuni@xxxxxxxxxx>