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%