diff -r wl-news101/lib/Dtmpl.pm wl-news102/lib/Dtmpl.pm
151c151
< our $TMPL_CODE;
---
> $Dtmpl::TMPL_CODE;
153c153
< return &{$TMPL_CODE}($self);
---
> return &{$Dtmpl::TMPL_CODE}($self);
155d154
<
diff -r wl-news101/lib/Wlnews/admin_user.pm wl-news102/lib/Wlnews/admin_user.pm
79a80
> $error_mes.='ユーザ名 admin は使用できません。
' if $user_name eq "admin";
239a241
> $error_mes.='ユーザ名 admin は使用できません。
' if $copied_user_name eq "admin";
diff -r wl-news101/lib/Wlnews/top.pm wl-news102/lib/Wlnews/top.pm
69c69
< global_vars=>['F_id'],#ユーザID
---
> global_vars=>['F_id','C_script_file'],#ユーザID
diff -r wl-news101/lib/Wlnews.pm wl-news102/lib/Wlnews.pm
3c3
< my $VERSION="1.01";
---
> my $VERSION="1.02";
diff -r wl-news101/lib/Ycfg.pm wl-news102/lib/Ycfg.pm
269c269
< $self->{com}->{$state->[0]}->[$state->[2]]=$2 unless exists $self->{com}->{$state->[0]}->[$state->[2]];
---
> $self->{com}->{$state->[0]}->[$state->[2]]=$2 unless defined $self->{com}->{$state->[0]}->[$state->[2]];
diff -r wl-news101/readme.txt wl-news102/readme.txt
122c122,123
< スクリプト向上のために、簡単なアンケートを実施しています。
---
> WL-Newsの使い心地や機能の追加等に関するアンケートを実施しています。
> 感想等もお聞かせいただけると嬉しいです。
132,135d132
<
< 機能追加などのリクエストは、
< http://yomi.pekori.to/bbs/cf.cgi
< のユーザの広場にお願いします。
diff -r wl-news101/wlnews.cgi wl-news102/wlnews.cgi
53c53
< our $HTTP_HEADER_CHARSET="Shift_JIS";
---
> $main::HTTP_HEADER_CHARSET="Shift_JIS";
55c55
< my $HTTP_HEADER_CONTENT_TYPE="Content-type: text/html; charset=$HTTP_HEADER_CHARSET\n\n";
---
> my $HTTP_HEADER_CONTENT_TYPE="Content-type: text/html; charset=$main::HTTP_HEADER_CHARSET\n\n";
diff -r wl-news101/wn_tmpl/top.html wl-news102/wn_tmpl/top.html
81c81
< No.%id% / Group:%group%
---
> No.%id% / Group:%group%
105c105
< ←前
---
> ←前
109c109
< <=
---
> <=
113c113
< %page%
---
> %page%
119c119
< =>
---
> =>
123c123
< 次→
---
> 次→
diff -r wl-news101/wn_tmpl/top_i.html wl-news102/wn_tmpl/top_i.html
44c44
< %page%
---
> %page%