From b8bd724add704529a9fa2187e330f4ab304e7d7e Mon Sep 17 00:00:00 2001
From: mitty <mitty@7d2118f6-f56c-43e7-95a2-4bb3031d96e7>
Date: Tue, 26 Jan 2010 06:48:23 +0000
Subject: [PATCH]  * add Sn Uploader from
 http://sugachan.dip.jp/obsolete/snup/

git-svn-id: https://lab.mitty.jp/svn/lab/vendor@29 7d2118f6-f56c-43e7-95a2-4bb3031d96e7
---
 SnUploader/snup_051010e.zip                       |  Bin 0 -> 35600 bytes
 SnUploader/snup_051010e/readme.txt                |  204 ++++
 SnUploader/snup_051010e/snfaq.txt                 |  180 ++++
 SnUploader/snup_051010e/uploader+cgipm/upload.cgi | 1008 +++++++++++++++++++
 SnUploader/snup_051010e/uploader/upload.cgi       | 1078 +++++++++++++++++++++
 5 files changed, 2470 insertions(+)
 create mode 100644 SnUploader/snup_051010e.zip
 create mode 100644 SnUploader/snup_051010e/readme.txt
 create mode 100644 SnUploader/snup_051010e/snfaq.txt
 create mode 100644 SnUploader/snup_051010e/uploader+cgipm/upload.cgi
 create mode 100644 SnUploader/snup_051010e/uploader/upload.cgi

diff --git a/SnUploader/snup_051010e.zip b/SnUploader/snup_051010e.zip
new file mode 100644
index 0000000000000000000000000000000000000000..89610de64b1872073d349d4dbd665765b6cdf42d
GIT binary patch
literal 35600
zcmZU(Q;;w`pl#W<ZQHhO+qP}nwr$(CZQK0X-S<EDPR&fsyrfd8l}a8`d02ZZNCShQ
z0000$0E|~iG57DEK$s!{0N{}U06_h>>SStYVrxq0;^C62^<}TDp7+PA^c&u7L5h^M
z0Y}?VyP~_4kd^{KNoXqtlqMOIT#4*$8-B_d^U&FC``vb|&b_6?7K~v8hJgKe(Q?Qt
z8L??yb*r)~XW5F`)x*SKtWw*ueHi}ZGv6r>-iB38`LFlfXa4Qy$EW|T&dzhPQB3RB
zp{B8&<3Zn7*J0*Z3m@k-eoJh(@U!c)>rSz9{Qk8QY!~n|6JCDDKuXx8tdEXe`(>KY
zvv-GV{6x*Oy+>Ux<jaIS+Zg@oI>~#J(GA@nTE?(+h$Y)deG{f{es#UESw?b4if1HM
z^B?V3SgtX%h|XPV`-I}cBMO`uidtoTb9|-wHtA3E==wjc@LB$(Z022my8-4K{KM*)
zZkfcliTVjgh1Us1wK%x*&kYvsp~_^ASD@U?-4xmergPIU+NSXw{hL&GLArPxW2w*W
z$gjxZ(0a#nuIh&38@_*jGkC_cc%9(YO`Gsf`HjaL{Fz!(J>jhR2QmAN*PHx;P0AbW
zlV^qSeq~a<_*qw@T%hZHgSpf?=;a%v5A2dYqJJ738Mg+|o685aMUy7%A@R7zrZ`^`
z#^I?~*Z<vc@-H*hglRzx$5mqPr~?UxsghAipWQDGH@RInpxyDDg2HF`4t;kNyC$V`
zSPp7THL$LE`UVfC8-m#{m|3!fk_{e}z5y8*ceg{8@nZnNFaIQZuF2D;$qFFGsZ#30
zzzduD_%7JP{u|Q#2=J2plsZm0nB7^`Eo?S{z`zG<i;K($`qO%pvOf5gQEjd-7yeSs
z*WevNxnOj9GJkrTLp=4a@Q}CgY@NI7HjzBCz^&C*`@A|QyxOcD0v}z^s*LT?@5u0*
zqM8JcjNklJ!}^S+rg}=*r~hJHmGoy@2fHE{pmg&@1#w9<?}Xnv>W1pG@c~d>Jd!#b
zKjd$IK@AGPuO3ElP~uMIlSg;j2gf%!m6`p~x2-P@Uk6iP%3l;5b*{;ZuV~8%(JCAL
z2I0%?x3WI?I_~sOM?+tK-6;72oY62c((1_YQ+-Pe1b#Ca+D=d8F1;rSVk~~Fet-+p
zjma_OhkT^)oz7U_!`Gpvx4oCvi&o66f84Ilxkch+FH`=qy~S>q%V8pY+K=Mb+#!|y
z^zDSETFC=Z``ZIKld~_<s7|JeK%7Oh7{-2^=srL>S?j!%6)t>*5z7f&OjoaR8+YRx
zPU1E&fS#aHX{y{>4}@Ms*EU(?s)5k4q3Rn8-9!B!FdMor?pbBSb3#Ipgdl?G2}8!7
zsTo_3o|16O43$5wOE_Ge3v3)rJl9X1fx{`G%@57u^jY@~AiZ*zR=d54lncol70@@#
z4ZkH^#AnyJZBh>|`Fn?s7)q|N+m?DY(;J_5@WQh6H9;#q%L!ahi`{IN7_&Ehz!Ao~
zUAlLHWOBu6r2MkJb}BjfNv#%9yLK-zXDY8O(V9mj>8?K{s%WBqTSL?(4haaxeTv(Q
zg2l-80@3|=Tzi5PsshFkV{hzESJ@2s)nQJiey%#yBW7Ye)N&?v2Qb`wu9b~+T9D(K
z3&zvXoJ=A#g~}W-@QS)*C4>xj^>U~)sa>O!hYXxD6S-{xPvXGo$*4|3bS&#(?+#|F
zkN*?L8)YiGoJx|G4Xa?WM(voaa;&_pk5wwV<N<|FGtm`-KI?p$2XEn)g_dNYr9}f5
z4;O?yf#P9{so`XvZLY)9^bK6n#P<kX-Vi>4BK^?}X{}YLGY_%=iM6W<YH&#&Iz{J0
z6lig>(?5Yc+K6F_U!IAB5*Vf#V7z7&`qUNoMmgFI)^HPL5yF4G$};8!IU2pYRp^Ju
zlf(>S{-5fj`|Inh?A3Q9uY~<KDK})}WzuoEDCvi<{HZhe_4C8%2g~hf)+J^OgyUq0
z`E7$Iq8krFw_sXN%8mD&I}l)CDsDB?1`K(BW9d%p6$!}*YKUvK+GImnto(FCTdn?u
z5Yy~Dsvt(=T{6_f7424D0kn9fznUp1PoB4*X!y!enrdVHt2fAZ)<nty$l=3_MqiQp
z#H@d{D@!Dc@|BXkb^eFYP52U*J0a<*NBD$&6;ePTEHEEDc3Ow{uL;vEcDp1+nHBwa
zTh~{35HMfDH7YkTfAHD`1u1Ga8ib7>@1$-t{(K+K2L!3JL*)nuK45W>pUp*3$==Qb
zYNw;1ceO#0qaHMi^|-BDVnNfnhkP7AWkjbzo>a)2<fBn~y(Jf~N8yw6-CEt<s;mTL
z%)14p7f>{axf88A{e&Qe09{gbdyA!}Vro-j$ag1*%c!KzZ=RjNHeG{d<%OrCt8Hnm
z{>IK5dMO!1nEcp+j&cil`dJ&&--%jKoB=KFh*rFZeeXJr&BnmgnfJ|3Is*$)bk?EM
zT;`#@NiRLN3$Zwe9}*D?6RePvfK6Uq-Pkg`!7IFHZ(l%!k{XbgdFt3DNVxEbXPx<%
z6DqgI(u;2w7R(}5_1hi3&g4&u_MftF$s8o79}?ogA&ob>+THE;PWSX~Xl0dA)dO!0
zVT*=rK+_2GQj#PNbPZj@C!^?s3LI^Qn_;J;eTWAO)pnVyEXvBO5+DA7P7U0T3~cjN
zt(uSH77Lo9c1nXTCw7NmomnXPaBpY!83Zdh>Oz!XgeeTO!fEY>Nh0Da8<t?G$e=@2
z<f2;#|B{?M(#FjSNo<YB!HC4j7GJ?BR;kM=Hl<7GLgqM|hgM1qIX(4mPK;6leeTWs
zO7g^!OtqddxB+xPTpSanl5#nYS|g>{s_vXFboJNIo_m>Z!Zg+)YL^FDBk=9&>nh23
zaZ0LjgHn2cB}5`0+^FUq-)xqO4LL9DqnpdCovp9Kz=(NSrBG(Wt_nCU#`aF3!zRY7
z8s{c3g@Fqi3VV?ctqToQ{bt!BpUT!6FL5lu2|I0*gCQ)Q5qWoSw;e!6)195a{;i2s
z>}BCuZ78)Cp4gkt0nhygxB%7!k$9k%eUSP=!d7MwhRIR%CbCl$z4fE}a%)eVKar}*
zww9J#6N^X_a@-cN;#n_S;p>={KVZ%suskgRUx^V0WSM(nb<*-+YF~K3i9lQi_9|Z}
zmKA-8K3j?%QMmGPpmol$TJdf6J^(C&+H@!Mr+!Z5Kq{91BZ)t+L;RiMmn#8mzI$XG
z=#^2o(ka29wym8O^RIRF0V01E%M>n&<;fWX*=jwwVQL*;6XN-`AEj`AR61Gz$cY=S
zM#iRGtfZ68^~Qv4T?Bq4(-txd2|LYrcv%r@G|7uqP>;T~LQE4`!hVYF$TbGMpAv@k
z#csE=+pomU?31Q!Py}N669-zqaYt}yLi5DBCCzCi+O%<t+)WD;BK(tf>-NsK9=Uhj
z_5qClF*g>(`be<Iv^XOxg{Atr+#YjJIg^Z~L*bSc;?u6}1pWXn%M4_CtgDja-EtjO
zd$KQuLpE6U65@)rIN_J?1^sL<%$5wagVd>T4r$`kt&m02vB7#F2zT1g8h<smnc4`T
z5gTJxq<(GwSSjF3@j!4Kr>iE|5nwt+{rD|2@=xB`N4e7`+#!%!CUHdy8k^J5nF1qt
z#zCrxn{Anrh^11MflIAIUME&(4o6_Jnx`#IQ&P008>G5u7Ogt%d<o>*U);8`h{R&X
zzkn+)rx4{k6eRHq5buGnw)hD2iE#o6HQ1uQYUqS#w@JR7qo~>1TNXpEzW|k!L0qQE
z62e3zll*LulXQL9#Aqcko%IC_&lR>?KbR6uVgS~!3LhCrpbiMFq3Rq5%kn=;Z|RHb
zRv<V%RuC!Fp}ZF=EmTn}bcFEmGN~ZQIiAWhdgGY3TI7-ofndtow#7m=cqZaj^vHey
zqu#b*bGjH3v;xn+U1%Mqv}P!uFZKjJ589XTK3T7s5e{&VFN^DCd4#r8UkxC-aGfAA
z!)R|F9PzHa_Yh+pECX}!&HM@Em4i!Yme&b!O{6SR#rvr8<-|cWAN|+te@@z2rBp<l
z9MU|Vek89TFAEs!vmJ$MF4*vtf~dp#C;SrG025Ct%TE?FWxm?ZOr9J%Vo0qqL&rqg
ztI;uXrc^%E`>jpsjKuwsfYkC^z!gI3nJ6F<KmG~{ECMl(RW`Y-hyFyAo65`Fx3Vbu
z&wT2uHnUmfBN6piFrei7jwOiqQ<NsT+jNL0?1w7u+wNK<DYfM2{!oBj8|Nb_qh8V)
zw^|G5;mC)-%ht%M(Sh4}A8MI$o9s*pHwUl<?cYh_1v<`~>?vR7hB57Wk?lCA3CEqW
z%ho&4i|Sl~y--9N&8?TJG-3@><xo+PN6zuFO|+Ys&Q}gy{d(v4^%DeaC27HwHXG|$
z#H5Rz4`CN7qzF7bUwoM$U{F~`$gt{Qrvy0<Xs|c$-2$;GVmhO1N>~U**(LzlTT98r
zR{_=4A-&>0DsPnpxjO}QIJ?umbj+XH0aprTp;zUoiq|=lJIE#4_?bEu3}x^z_|60^
zy|8P;+!Z=jc7zt0VD!31dXmt{Q+g@umDOaxl2>wZ9BA?1^pr>-5A&-pm>S8~LHnYn
z8tqyp+AjGbhQ1VDAz_{fNM5n-fdlQ&uvBGrCx7L|ACSGs^Iy`O={!k%Mr0u)ZS&|&
zW)V8oF#%BRtK+d{7)hyIqw{F)=&i#u{G>fL$UX>EA=!)jL^4Z^5c*<8Bt(oujaw6a
z*5P;UN%*4*m-x2hzalq$#|EE@wG!B;1dR6px=+(@TI)s>+4fJFAY(<=P)z6~bqGwN
z)JoKJ5Nj4#5XuZ{ts^FKDn*P)M6L9>%}!$hBRNGzeHv4<l}Mdg1}*3mM*hyxW?>Qi
z(>-)8Pl$oFw_m#BNpN0}gF|I*^=h(ybMq&{6LVGt5L^UDAe%siN`_hZ#YeEp@<UT`
z;%X6I<bH|YAF1uT!^Kn^IsOOD5EVOXh}M7v46^~QoB~z{>&c7|HVBPok8dTPNO2GU
z7x0WDF#iITRdUQOr`N+%xK8C?@*CIbdVrpSblKN)NIw<MxqQ)36>OWqnY_bA!E*tF
zetr|iaV9{(CaYq*F%TB%<9^8=Xao}sORFROO@9P)SZ)Pklz+7JiLKKi{%y9qJ)OSO
zZc-eT5KhDBGMbH6pwxqD<gB}<cP1!U>5t}S%>pgMNa7;#6u+Y?;i@n<K>(c4=5+N&
zs8{6zmq=^C!!l1@ZehD8TTWBAC+|9B7b#?BHjK={7<B{`7E)&))&0xYCqb>#h*%-x
z9Y9~Xz<r4Q)Ca$ev`T*3Ws;8q^3jW)uxe+&)K~|r;;Ml8hKfR+Z!<dYje*c0?tUzL
zbM8A|p!#LjMG`;$c{QSCi}_W_FmMDNpK1J%yrm!AC9U77WGxf!fN-K*8O0;n+^G;+
z`N&RAVpv4lzwSfSR><_%JI55u7B13_a@Gk}1}gci8pYBfWrQ(pGK-CmzQ915!3w?y
zBdYWV!X7u4%Uut8Ck5;SZktZ)OzTKw7%x|Bn+ubj2eT<c%DtvpsDowMI!&9wfq-8b
z{-}Ix-;yM+P1SRJ>d%2|XSi`^=<awrw;U#2qq;3Hn>{+HXMm)$u$Pe#^wpo*@JEyp
zU}cFfiyrij*4J~HJwouND=+1h(i3WC&7JDX`m1@#KE$l{GnFKh^6?1OM~Ug51=eHV
z4tlS9gN=!aKXO)%72St;RJC~e629fC@eb7X#tuZMhK7+Z_D#6o+d6LW+?h{?rJ!n|
z`iITZT;7GZt#D-yU{a6KVs57m$qJO=e_VrBu!6D^RNRQUKyV!8iR&`{1Go>I;5~Ng
z0vms;x4J0@j#TtkII`w&#MASbWb0l?xU`x?q_5-O#wu>bW$7`7p^6`>JN2)Kq|VIN
zlj`4#LQlmL$K^dQLxf1N?JeHlH&v(t6+2Zes}wxup(G;tL%=T*N21{JUU<mEJTH=?
zta=)8u4H{|M|#TCvg$bz0Ok9rSV&o=n9IyM9Wuvgzb#!^FAP}ua#OnBs;Q=^sq-xF
z(0o_iL{?fWcps$DS;FXar18kVEC4U>v5}0e#7vxCS1oJAm2tJU1)jwpnx$8dB&!Dw
z0Xw;7%OXQ^$W+|<cpu|#-r?XL0u}a<k0Jz+2^0^OY4Is6p0f8AG+7@@E=vY1ma$d)
z*Mbw`1w>tx-{!T)l!Nu|9xu4&6Q~azstSg9X9bAs*(j?RQ5xBtxqOv{$1mB9vIc#)
zT@zEnPTikvL3=6EbGv%$7u*z=R<cUIgWm%Mh6RawA6|W#dtXUi-g?%lTD^Ld3^$li
zprrxa687>iTUXb=@CyI8jMAx*V%FOviS0)K0I(nh0D$~YMmgJ=89M%ti>lSSc1BrG
z{kx<3gV)W_mF{MkkvK|x6<UNa5fPY>*w_#<AcPf))=L9vn`T7aox_^7$jicn?M7u-
zR3c$!Gt&iW2sXtt3<-PLP>rLmt1%=N7Ko?m9u6;|Lgl-;&++aq*Cy&V7?x)Cz2|-7
z@jqWwdH*eJlB$02N~eGJd_2D_&-0^t{28gpSi$OQz3t8ArM3O#s}=JPRMUI#WRdlu
zI1?dcpmRFvnSikyIfmk?dwX-$ioarC<5r_?#OmgB0*K#3W*-?p^3yy5zCKPm)vJH(
zLBy~@(zMB-9S@|!skpB6>swpiPMwK_{90yp)YOS-iB3LZW(?bZ!)>QYZ=ZosevX1n
zT=e;-m(y{5>;n3V0VHPGF!@$M5rn}Ouv+s#me)f{9zx+Hwjhb&Qe?S$u!QH!MLjm+
z`bXp!hlw5Is<CTsgV1?E7Qsk2Cg4`;>N~gr{e&HBSd3d@ckssf2usHSyJS3Mf~STE
ze}B+-OGI4u_O*`!>X?I>Njp3qKVrf;cP40Ft7r=oZS$`8GEVv$8M#n?gjd4=t+h|A
zRU=@G(9<`hWO599q+(@$Qo<2z>l0CP{>t&1rR_kY-``rexDh?yt@JYpFJMCCNA9b8
zLR>2)%Rb^s1i}xYCymbv(sqaZF#^m89oAgDj?7P>x{UTNawE;yc5#m;iQI6&_YSoC
z==+ylnLm<L!+>P1mN|*@`FbIL05SeJVyT0#6XX)$T*UFoWYPtty<-q&fUQMT+ARBQ
zM3p4zli-m+*YKh){WL6|RU*&MuG;R>{>hykYRQYZd130YCfbIUTuSVazO@C`pcF7~
zhQszUc;vM^Ha7P8D!t~~)^fM+QeZ7V|C#4@ldJS=+YBF!-EA=ChOw+;61qwxyR(G0
z`r32%Xc7DS8yI)z77q?jZZq9zUY1l@Lm_s2)O+B`K=CsR-aX9eo{%mIPu`ERDZ+3Q
zj|1(8$t$xX6v{lM-E{DY?%}4kgGgQz5lZbK(`1evyPyM)vOp$h_#A_xA1ufe2>$3b
z!I=FyeW8_Ih5Pmp>_F!iUMKf;NC6shfny=l4CQ?DFYfjMatrOt@*;_)sf%MAT-Fi&
zTeeBrL_9k)k`YRr{oJ9@;A^5^RBu~JUlpxCnG5}6-ANIr6Rl%rDC350(?s^9W%`4<
z3eRh9;qV7MmVuk;1O<8V%@Wd%Ws*<c&Mj!be)IUJ>A{Im=gK3iC+n_tXnSzT4wDzl
z4^};V4+I2<0Z0I646?KaiH64HSJ*&L4RF-+41nsddZMOU)B_Q4S1{P;jfY<g?y~%F
zw0uP5q#(u{)?Akxmv2m6)e8^$%$4aRUzG1Rk|9u%B)k!I2`Dwyyy;E+d??&;71XfF
z7=@TVgxe5Dt2eU0e59P=Ib%ih1dbr4g!TG$ES8A-C6;6G-2N5+q5sg{)MXyoHQ<Gd
z7{qWZwtyj4&*A~W<)g@PLn7j4DwVns6>l=U*)as?tIQS$f_3gjtE|J+SIQTc|C~rK
z0u1QQu!8Ft)mZ!lqXFdrg&W;FpZA*Qqq;<MSp)yi@V)=thyp#o4AM@?A8~UbUVQxY
zl!=?q&S}L_tPYtY)V)a%6Dy}grfcd_X|eD{F^SKM>X$EWhvcGhQ{&Dv#iiO<`=MWa
zUuq@ldyOk`Q%jlH$tP~d6>15+rPj6DSGu8Lt2$EWN$9F;1!f=U-S=ry3w(9-=QprD
z@Al?muiv|%w0@WW;buFFLHs~#>y9^<cK3_bZ5Y#yWqZ=3$bW^WzMck>9x8=_Sbyaj
z7Ixv~{1CUmQ|rVa#@lBoj`<Q+seQ5SWpD($NCB-2={m(^s<=HA6YVGk?Hx3`hJhtr
zO6pipkenm}%pcB;&lM@vbR4;g>qV6bUp%^yf|yg$QL-=<)(+1GYe&h>1(&O&=vnFA
z+A+GF$cb}PE+~20q>k8&>n6_BzI6V&7AFe^pQut;U1`1A+v}hE`(Q$5j{s#5;r`Tv
zl8{tXybAQ?hUG58K2+l-DzUAlm{k1uai1O%DbcWXGB@EPs)Xlip;n5Td{NVq;5cR=
z@qLOCK*2JOC%IDuU=fA~IwA|81`lJ;#{?Z|)>H0>yJdCi?&G>Bj}ycw*ue`4M+VSN
zKr#{sMM-zWmt9nkFc-QQ0Gm5S2+1D@AUr28KRW{M7t81@8`mT%sNhRRXt0F78HgUf
z7yFhmjPZOm$XKxhBqnv5PYR=sBr+P&J+-kafCfOH{Xn4elj8@Fb;jji%0{6HPO`%E
z9`rj*4;nXmuk1VBlgtxMy^_HxrmkPKye8Nt%!}Jvl5;Freq~S$M2}J#$lZWC8kXpZ
z(0$k+g>{?*olCYbhrG&n?hmf_G@ARHMYVeHN!3$(%cwWE_LiaezVp@*oxi`obT|G!
z+AMjO1h!8q#Q<}S6s!_lU8os9il~<7S){_ckvp=cz$tT9RgVUgmiEO*k-_x>72Q01
zU9#fw^Y^}ONS)gVm*Eul5wUwAy*h?s^dO!f;P2yil0eYdzMU24#?r#p`XcuLh38Tg
zb<0FINZ5l^Hr4WUmllM2UL2_+F52KV&ZJEtsbgD6=%GZluDxx6d0=<(x@J!&l7Wf`
zT8lUr-qaa4BjTh8-Kg@yo-QNz%k%?xAawo8nzF&b>;4#QcH&wa7Zj4yaEy#^A%6vl
zm#QS^=ue8vDyR5hnB9#wi!oQ6A{Q1e(#J`qLx0PU1n&K}dzXsILW2pKUS$;y+@5Se
zOUR;Lx1Njy@TbA?_XDP#Ls|G)j0#0iM!*{dU}gBE0_J<dFy|5eBU%8di<aQz3)VZK
z39dLzj3TJKO59Cgzgr|GMW~TGmn$B>>3o2dJSFhMZB6yORHBM1oo*%*MhISS9*&_<
z^2O#3Rm(t-Ta}s8zsCK}*j2$0thyyRZ~e77vZV*l7tI&lONC`0ymeeN-Fc)Hz~PZA
zjJtP<lkBYu%Ci?GF>ljvhP2C5v`i>=;8HZN!A@JTKZE~%;9lOIOzNGSuNN<Wa!L|v
z_U49WvG&I%U8^E{|DHD8aY(BplOn`X*zM{~43iYdZt0VggFCuNSxwBgJL}8q^D2kd
zGya9Hmwd1M<rKkk7Vuk};jyi(vC?cSY!%cA-r%QA=&JJB?bGnpB1)IEuYk-I#v7z|
z1l-6o4=g+ls}`AYTV)!_tLK9cP}fTP(DTAzC|qb2z)ktcKuS_BEK{F;2mqE~-AODZ
zSRFGlrNGjs%HIvPfkit|;Nv6rBlAI+U*2n&s}WNwwaqqBNbsH6UZGOK7Bteq7SP|-
z*KOk4%e@!LMA5o$?9%3*RP;PQD+k&p)R!<Jo282I1@3@neZ|BIfbL7uKfK~ZGs*y<
zuF~}f?CUJny98Gr$S20l$xJO|U?6d(e<-_F#`<EJ<IVE=7eeo4Wh;S1&K7njTpdiB
zh@#TGgVe+KfzZ`Cnrc<i6j2!`2U@qKad)_{ufDwRYGb!8=BeY_arV;d7GCz!*L?l+
z%9oWItu;f(um1&<V3K_Ds-u3htg=-jeWz+Ww$JUi)|eWHl?{`15ASG6x|WTK%ja+P
z)*AY!nys?8Z(iy5bu{_?`i+LV%L~h!OY4jMQr;=n2eQefNNq6ud_np0t}1m}jUrFf
zWGMJW3;qVfaj>gM@Ish3Uoxgpkm*Wq$TlTGtDLvk7#Ft1A_VnuKNO$KNK7>^JV!8c
z<7-K^X`HcaUetWTzn6IK5j9YAdZ8-z!|`qq$eBFoL}}zHbS?evEQ?q`r*t{jL9Db1
z%l+is-^+rDWaKDGJk?aS^KsvhKSv}&gJ20GC_QhdBNX>3tmH4;P6D|Z=y2HB?KW(B
z;-A~IzG8$dID3{oVFX*@Nyqt$>xyo(hkRH5B<@Y0?bpO*4bY>JoJ**jvjc$K<o@_K
z(ko!(;#Z=3XKq?)5_M#&Z@lyE`PNsZ%WyNT6a;pZqu}hKUBu%Hx6jPoAxB>P*n5cH
ziiE9}w|@jbju&lZWw0&L@?~yt_H7;|n2@RNkNW^Ocu|j~V0jWzMkUw;Tyr=mw!bEJ
zSj}F9n^VrpS?*w&sO9q(O>KyoF3lO3b!s1yR^;T$gy)6U8^f8>mu6Cz%=LH4Dl$*l
zkDFe-j=>aNB<WdG#1saS4x*&-!&cTUqr1QB**&vr^2#Hhmes@!YYPemm+#}O(cE48
zUTvkdwfCFttLcGpbo{=Lw>Nq(Iac}u2vXBE&9R3*QQ>AOS3)8j%H%+{w7`CIE4944
z;O@)qOhuY%dUs^%G5zAY&0<7WRqe*w+`Yr3&mxq}iuW&nyJ6K742K7p)B&j|P8+8f
zhMHGoLp!pWJF<^6p-L3)Jt)3xaVj3X`<^EC!4jL!!P)*Teh$){X?M}s#pX-ms^Qtr
z#)4J|m<uqsu{kn&lHbr(Kl{=39G%Yc5Zo^lRmhL>z5~3dtWe-UZ^rOxg!|<{f%PJU
zGza%5qs>&+)tQ0bSE+nScd<T**D<7{v{@x#MU5v+-g0u9f2N$j5bkC3iPGDjIOd_e
zE4-)CQR4pcg~si7#?(l<a6^UH3g7gN(sL^}3M7u=^D!7tt)om0!ob@>E99{!G;Sq6
z!p?!l72a((m$&;h>x#6BVV^P?OvwvxrmMNQzjuM96$A>I9*V*%b{dLu6X)K3xWU}-
zs-qCuJ9El62qH!f!Of^i@)H=9aTB7B(Lofykf??_QzzkmsQl$(i{{e9w*#psauQyY
zyVOv1h_jBVMl%C+HK@emlISOCiS$I77+Ccup^3fF)isE?^KrpbF%#qW1dQ>N)>;2L
z8U<<zW3s#EOm(@p0I?2tkeCy@jm8+=GxPPSsd)BZYm?xx3J;09NrjvXW2WeLbL>nI
z#{(;lpI(8-$!00$NPfo`{j?#tL_td~{bY+iY%t@4Q4qnprCV0k6N^*irfN=~G@K&Q
z;Fqh2v|G5P>Ll=}%=Ervk{tv0S!Ao<NInuD7V0B4RlDaoki)HEHfm^fqlW4tH3VB0
zamT8~U}KkZr7t5oB24rN0<7GmaCvcfkE}GHzV`|&dIt<I<otz$TTl0BuLtm@5xxP7
zEVqOvm6YuV$AL-}0h}MuSc{4uqj5g)42xR4U-(7x>M7@}kH)2aGfO=RWY)?R$rh<_
z&UeWrKbkxn_rdsR`lr`@vYshSlO`C)(tDx>#k1)oL;d(($jz$``$ilGToOe;h{%x2
zFLjgTbqK>20sU$Cj=9ptN=I&J&|#G;ROGv=Hp8FY0cXsO&5PawyjpdJOgbzkB7o2@
z>J;m;SY(Ajm({AvqEP6_O^VMPB8oz>0>LZiZ{Jcl$1-}ft%mUM&MG`v;m>7|+Gt!U
zefxJN`91Qba>}+RN0oX7N|&m+PSiqqTniF&-Q&bQ<%pLL8d#1<;XYpVJ&dmixSu!#
zJwLN}A6(@Ysi=7OpL|<<Zx;21uRCPxE0pY;4vDT4(A^iS0in3yM48{S7o^otQo*pm
zz1+X{588D+Vb!_7+sis6Iau>WuX|i>7cjR8`4iitiL_2`(ekY*80Cb!moz(**Q0PA
zN&ib?&o`g)mi`q=ekehQO4B*;Yx-<R-}V!wvF-Ps62x^$OonJbe7I=6wYs!_(Q1*l
zIa)c`s@tzFvCcKe|M&y`qW_QO_@8nO06;TUGW-9Y{9nWWSPoYQ8+$_&Qz!cW2OItW
zVDSGhjM~`T(!utB!~dtoGxQ&9RB?3f&j<j(+YJDK`TvLi&k=P0?Ofruw#Qa?%Qq$X
zJM<dK5cVD+B-M<hjfx;zY{b%B(Q?sC8^%o{wz@fl;l;T^)D+|uaYx=vy4jFJi!Kwz
zzaWOxqKVoqu#G~yB$Ev)0gWo6Wz#iS6n8^r3GHvo_nPya*}+uuyD<t>Ya7Y*p67hq
zah|`<^XBx?xOd~}HRJT!ez_5cbLA$>^t7@|;;qHh3)j(8$G^?s^IUOa>ghf9R@)6v
zM{%(!wQbkbZM0$Tl`WItsvh=k+iO`$78V}v-PP+nf6Kd=eW~mH%^R@5#8wR`f-vR`
z>3;s$%U*x8-$^6nT9b}3`?cU>=ZZ7v#^3pl*XHg%!#=~#uaM`@gdC(T?=r%UF^Uts
z>kn37_xt<Q2X%kTvTq4?52i1FViIE!pc}!Iz|CN^;bt6~-Su8N=QzYD?sPz7cSoe=
zgo<j|`qzQcZA->a*Nx5J^}4pV4b)=GB1_oMV@kHa-Q(5wX7livd)m7%EGIOgP{LYl
ztfu~xMhn)UTbx)5ixj%<kK(h{Z;*DJy_aPu-rWB>Uhl)&9<j9b5uSUOtHmNW?7~)E
zZ8vUytZ)S3evAL6m#4iVpPo)70?pU)Z#32)u8-tQOs#g+r#a76Mjv}Nf8y-W-AIV}
zYBTy)fkO-!eTGp>hvy|XY40POeQ)Q>yULuoSKGPSF{W+tk|E~%VxuEw;f{BGI~=o~
z&*>sjc=#kWUhk**xVs-}xxf2s7@Obk)|_HwcRn~icpj~sy1ahwMa@h8U)>v;*X*9$
z1LmUS!{D#ZgX@FoL+^ob$v~K>ry6!z`raBzV=<=<xVxlUc%a+V;J8u9PrX}zEuq^3
z{h&Tb{_LDS6MH9@Z$1b<s6WED;luCcROZK?PyKrJYu@Eg*3{^ZZ7W;xD-LO$_!v_n
z718NIb3|hVd{Jo6r>zv=$VojJH<zAn3%I)=X<gxj$_-cLwR*qjYc>aw@5F%B+`ayo
zV(1GoBSXFbsl46K$((J@Ozyn>uRvP)zz`uRiAO3zs2W}fjckIEGiZ5UL_k14c+?M0
z!OhE>*X;T}@u5tR{M(xT*JkzozFu61JcL*lFx$Pa@t<&1e3hfVP!a+1vQV-=fL5XD
zW&v&@WYXqGxv*{FoOto4^Z6yVwsJ90<#t^b_72()tbVh;)~a69R+hPkR<oT&tsAo6
zIE(S@64y1gR_*E<osjmj*5Z~Nvgvv@*sS*TZBZ)-K8QWI{@wTbwKn(cx}W(yQ|Hf~
z+}G;A*zK?TosYpicjD=^F>rngPPjL2dL`_4mUqbCJZ+d?lK16<@<DY2DSeQBXf$-^
zk^!I9SD}7xoN}z5RB*{3F?+bQ*Uh}uZZw~%cd4X8JxUZ2@7CJEdyMbE)0LjAHO*D4
zuzJ>j3zA5jGy?a1%Qbb_a!WDdfUQ^*#XZ|>-=Kaoc=T;D9^De7adHiSv-ArA_g}kn
zU8iOqrJi5=Hw@+#`gT*b?mXJgt>^M-b18Izb$73JFKG5Y0(N)1U)rp@>-Irg#~+~j
zr)6GnpSg7Q-_+MJ7<C$rJfxhw{C<R;UH4#jQpd4gdAT^%_5J>5NG(o}rN5p>I67d@
z+vJ~mQFfZo_{yrFry}f_)_5y`KlwrU^0A_Z3zjNZ`{rA5n%<}N?tQP<dHoD+m^-~c
zSrZvO%Ly|W`(`b7ZQEdR<*B_n|KNQDW8V$u!{w{no!>WH`ndhDg;a>w=!F!9R*V(~
z>CZ5FB&8Oc!EkrK>oHpvYphoe8@*%rV#5Y&4O|ATdFNh>sb2fQ*W7L|zW0tdm3!6q
z9%`aq6RHTM)>&3%Ek3ZgN5&3s+h1;aIFZ9n5DxM!gi?D#Cx5vCg;E@-<ZMHvLW3r<
zBpjjVlK7x|`BRWz>9TXR>o&`YW|ZsaHP;C5iqe4RZH%c4kOSYh>mPk|<%mh>wQf@`
zA<2OdZ*y<;L6EFq5>ZC1FnclK{m*>v-@t-J8p?FkgU1ixKy5W?AU<aIG8Iq1Mi&AO
zj&_E6z?j2{bWx^w;_xnWuT?v4nO<jPWaJdyNnP==RqNreX_nA;w|lfpms!|mzSQiA
zSnIleD=*~;I%Tv#j<*ftc*Uk^fdfuC9l0<#q8|-9dI@02OqL66{`I6JQb|2uA|rP8
z0NrgTI#u6c>nx|GNi4hH#n^VsD0U%#kg2T6<(NgCyN<m1LI1AT$u{jv$;rxK92xE@
zZu3UuE?RTy+i2G@a8_nX3+oD1*LBTet}>~Gj?kidvEo4tiBz<_O{sj^TuODR)yvJz
z=1W^ZWU@sDSf4suqO>ixtMrwZ84s=N7Tam{*VCFh#7HZ$;>1OmPA5`19A<k0@L9`M
zM_lG$=SDS^O#El2#IQM=L=Iv?qRq4*gs>RZWeWm{!h)13bCd!d4j%11!C7()n2DoK
z^7C`E2&SUz`MBAOPaD%T*BEnWPo+nga^sJ*YmBzKbhH#A1c9NEunw+L9Ttn}%cU0@
zzaU9jWSvyXQD^JAeMN;GzKy?>qYebd8Q57zb)9Xu^;D3d&8Otksicqwg*@#HTHbQn
z6#3Ni^XYjp2n<^BnQ2{XTd7RL1L9w^?UV%Hh<7d~E=dJ#0Rm;|>a{5SpVZFM!4Ndw
z;!P$anD~|0&nnM>jt$nJV(+@20gckww$sce4JVWaCiP5u)cM7gjTa~`Z~qg78cid?
zYnx+|+Vemn%_nwS=Mp9X27wT`?*HCMpNN8sllURSR`F>|ci$O%+XU1>TtPK2<YLLK
z{L&k0vFT<uxw%?x*P=_SxlFwwM;P0!W>~GOfVCJ`8F*(E(ng>-P<uNFU-6o@LPZ=F
zxw<ZcYm=yz0juo%Emv$}mv#5v<e`!!m>&hkIUq-H%HRf8RVQAA`H1^Ah=-+pLY%cW
zER&=Mcty^A8`#_CSrmWAcym^DWSzy7%h-=hUJ-xFWFjI;shlY$t>${;teiM5qhu2n
z@S69C6HPu5`Cy3^z))+9G}*F|)rNM$Oa04S)9qtItB}f}WS?VQi%Mk>RSw-elYb#i
zkiOzXBJs}lObR+xX{Z#cEI#XnX;FJuo4p|08T~bN-8vRvy~Tx^8MKA;2<VZI<zeNN
zr2s8bYdw}r3K`Z3#?J)6^~C_ir_$vOb7}MHf9_+ddD(n)!P!}wOQ5zsNJ2$pJFH73
zGgo^-E1N|1x~|3|{#-r=DA%@0Hf|wBZ1$Y2We~@dOpwdOV!MU=42^F$+uP*Pf-gPz
z5%Ux|-n=3p5JU!7!=uH|5@`kRy{f)yCtLo?=Vdu{%E+}$$Iq)SgwHp+g>4muBudL_
zwt@K|mUAd2t`VHeVF=f^v-n!pqC$UbNDRvuz%U8^L*z#(M2lj`03bt8t0E5=un7RP
zS;=<U^0S)CC2wALA_0gK4(7m%Ffz{YOF%>x`_hK(M@ftL($dEZFyHCj1t`DiU0fd6
z9oOMLRx&Q{=;GzM=k%TGUsZ|~nRB2C{8b@{g}{}Y$9owzFlUfysX;ZPkc*VftOQQ>
zY#iMrLbBWy6ASklSAEdaVi69tt7i#Blue7uVix4!x7vTgPJZwUNCcNvOk4;s9%HCE
zXf&t!h-^SSsz7gNT@3?lwR@0dI4OOE+ICuoDIjh8A{)jQ7(fst8IK)u1Pc_C^Dr$y
z#Cc?4^fLfZv$y~>1-y|qi&)F42`8JMoP^C_^5gjoqp*U5Vv-glU_q;&MM6bUT*NlP
z&*Am}xdq%|6pNUu#so9+m&k<4N=w=rDGnyNu)-oiV|Rdrw#i0z{d1}jCC3{(XbR4*
z&>D$VB%P-zr#J}Pw18`t@-&9wYKVg9+dPkJiV#bR!vErR(QpJ+Jet0eEHi{m`c|MX
z(IzZJ20CA~oB1L@96#I+5WeYhjjL}Quq7w#N7F%FGi?Db*!{5JLL&Y`JVwnMDTnfv
zTPeN>zjMd+M^G2^CxW-3xB}l2?ndL^i(u{CfSSL7bzJ*@_DByi*rS3c5iap(lVWw0
z_`Ty!vmtj9<{zI+>!_O$1>+t0C-i#;^~fwA;JB7z=>~UJ_LLEMi~|STh%f@OCR|bw
zDhM~E<y0QxgCLFNh{XoS;G``R4>v!?T#M|+gQCV~MhWcXio-osp6pHk(^xi52VNXB
zeM=59IR@O&3wp6ZQF!HZrIUNvn64h#4D(YbpHLz2P%%&miuN}x&<CMSkt%896VzPT
ze_c)IEW2$N6^X*nr&(%sjtdPt8W-6G_$%cMZ3-jlT{mtrf@nL|(+;gEHm(HxCV80M
zOp!1k76#}-?RyKUr9zaefdV$mY(0TDVz7X3M#y|f#FAPDV;Zdj#hi_{hxMWj=zNV*
zmE$t7C8+c)!6?8_bUzk$s+LeQ!W@YC(GfQNb>y`eJ~<b<H&?T^3!npSl6gQ8vf)Pt
zp2PEx6$ZbDnFv!kV2M|FPk1H8xYvbC;(}1f6Z$OvF=Y};UlUuUDT->Xrm`6z(pZ~@
zBwU)s4LjKU!Js2?&8RYycq+`qZ$7|S9Gtv6NLq285hX-)wAS6*nkpLuS{yXOrl`5c
z&QdtItcVFRhLZrJC0rE@*_YEA`?jq*@Mqb}7{nCdWP#pQHDo-Y<3qM5LdbxL;Fz;G
zXp1U1VZ|f_DJ{A;X0pm|PF8mPr6WzY1<*1JlL5UQ(~L7xu*_wr2f23d7v7!QSYhVA
z1;h&DQdYk-!3vZxsl(CJ*yGOA*vG9WF*_K)apjBy5nve{767hEj#nP2jAT9`6oNE$
zCYR$GybmSD`3W<mJLeM|ZruSRz(UtRO4Ik1N}O+s(PB{C?dVGzAmDRk#-vOb)1QOi
zFTJ@hL*6$9@ag|DRTIqmV?1s$8Z5L`N6IR2weBLS__HzWC@_W{q)ONgi!2~ePq19{
z`Y>DLP=MVj3G&Q-l37iVVFp(O!v{mQjz(Kr3@pV;qsC+KcbbFTcuA)ljVifhg)zQK
zyo-(uq69)l)`Aol_{nUdN?Iz;zUxxOvMKN-)H5f#!fZs6RuRwq$}IDu=)3rzETV_c
zvC?6wVyARb)oP!*BFfPfwDH}tQw^`h5Mf4MAco&AD6yJ<_?80?;L9Eg&m8jenDhz2
zH6&E91dDVrO-Ra-Uz6v2)65z&L#LwLXm~8AywWJ*qjjO}FZbFW8m>C}CNRLs<0pZn
z%I;{g2<p<$#M8+-Qi^7jZ0K*4ZL;l+M82V`J0h*%@SO{+A*c9R0g=kcOho3EhAAPC
z%3sE*SIG^Keah0|f-EJGngD)g$^j01^Hd^BF&55uLTn-tvnS_lKl*C6)KM}iv`F&`
z9Mw*$(s|WFthm-!H%1eZq}0gMR3;`R6WxzoQ2&_K2fKuJOKb=vJ3$1;5j4G_s4aZT
zgt&``uqZApV3w>#$cF}nsFZkV981EypMvF9F(f+X9cEn7)Mi{Y9Iv=>+Z9rnynctq
zC{UiK<B-JS#eze*AS1D8{LO}+(-%A;f?U{P>30OcVW+N0zeCHjbl4U$9IzLHmf|!@
zlBbSKILcY_V5jfeGFAyeo~qL`R2C$p3YbR-8T+Tr?GASt|8Y@hj#$vj1dIA0M5hUP
zT2RtK(1w!lX<g(y@I<h1n9_ziuUcRPR$5Y;rM~==U{XDZB$OY8b1tAIN~lyF1s!dg
zSm{*`XV6CAt}^))@C96Ue=ywPSh;DOaSHEd%=0q<cS<zZbd+#WC^(ZTU-+>PoUzam
z1M;eY_Ckr=0#y7nFoNNXGJu~`;b2NGoXC%R1d&QGgeEF6F;q+L8IE2BxhxRtqQnNv
zeYe%{LQF#$Dxn>YM{|Ji5<-RZJDocGohAa9-OcO7tAe#)DoLhEO&bA38LcBBnOb+D
zpz++%mLj??fMnG#nNjnwLcSdki5qn@FyaQ`8RV}gEjRSh4)yu<H(+QZ$!Y&Zg<zcd
zW4@90o*`UNRqGQe8>LjQVT0eQN)lY(ZZHW8y${qi_UW{6Omtg<Dt7wQQIJ-#!iNYI
zwULdIdQ7sr2+90ImiFkdFAFwL{xg+fk)Z)YGw?jcc!D76Y8UY^+BVB63~dA<f}+5N
z0z5-3!|=e)yE}@6uvih~w<%>BWeWIOq3PUHfWUw_M&>ELE|eJxo+xmTp3xk(i9d`<
zSd7W*7|9=8w!u340C8j&-q{+ZksoM2`UX<jyIF~Ct8630oscP;EYRW4LD-vQ<o$pX
z-w)08*14+iR@=t+s6H-gG;^_F@7)>1JKe^G1n`<QF1=oP^n=$k%W~Y6POBV3Y31^T
z;hoMpM3fE=L25$vL*l;m93!KW;a)2k_y^q!woS>h<Apv;F?}IR#PnjK8B{1kbp#Vx
zfwqhaVOo-Bip}7`?FQqn+d*EP-%e+8>DSy-BzA+VT!yld4@d_@L=Tg6-p@z_!kad4
zGV%Z_Qzr?FgVjad_Y)yeOh)Me)X$-xm!~RFesLsx#^P|=n1@sqMX`_+h+;1N9E8J<
z$C*Hc^d!@N%{lVcMaDesuy|nzZ38+`eZUlYl*f8Ya|?aRb$0>~a0A8S64H9j)jvIy
zQnKOySWysNt;gElC}}0zSg&8m4<*POypHpuIPtwRwEV!8m_3opRhnRqbiW+wzCLJs
znu2s`H1R;WZf$w#z-kcA4gg^$YADbLAdtGlZq)|aU8pwwz%~d+vkx|`*^c#lm69}n
zil-U{x*xnB#**EoSU+qN1*$-}Zi%J|3+!A(X{rMmjcII*jQrX~w7Xq23X^~@zWf9B
z`}hF=6bRFLI3LuVH=7i-`AA!yIa@TbeRPH3ikOh`*rfRx(+Ie&wL@Vny+4bc)gn61
zMms&|Mtj=bXBhs-@@Pxr5|5JvXUGX02GJim8a7cjC|!m;uKqZJG`Zy1n3YC``pJ>-
zCbBdMZ{J}Iax$G>k0O^kpGSBjwv5t0qoP&7j$WSfaHizq2-#v;#-y&7p_H`Gt@sWr
ztU_2CQM%*sudraXIPwLvKEkB~1)8<q!<1>v5UXf`$mWQG8>1IOGs_#00~@?nKZ6fg
zzDBPMW!X^%0j3%lAroW^w)~-kKw!8MXwf~mQ}~8Ts!^0LEd7$-3F4*S9^{4Tx^DfT
z_(Yhmk(d)|?mbbM`IOmQ3L5pF6F~d%I4Eu&BPHa9YV{%mE}U?EdH{Y#9zVD}w}0o`
zE(yo`ZQ3a`gqh|*Jjh|@d#^YggE5EeG8#-dd{uLynH16yD65DU17c$UelpSvS|{g3
z2{hN0EhDb&X)%(A9EvF3nafonT)E$4bEP+qY~qQXiXnoOhZxl?E0b4ab__|=(NJC9
zT}7xqO%C7mj&+|$oiUq)RkX1!J$Hwcl#Su=J>4Sk^ZR<Dg=x^@d=zivdmU;=gYo6V
zLrU2`qu1NeDK)Mu^?)W%2Mu+NyXHu`DV9OnFoZG<OAV{hhT3xG&~?RVM!YaOxzC1E
zKC<?io{eT8K{yGw?Qo!u)iPW8(xU4svMs+Z&4PC`&GYe@xZ|Tj+yZH~Q94l+w4EAQ
znVamo;kSQxch`PL-SO`X_%FP=I!zk&ExDv(nwklTc3Xi+laivFuCry@QXL<aABA+2
zoD7pi9iGv28j5CA%)dbhm6iZhQh|dmIlLvG0a@AsEBvi?HHUp8Y|4Uvo$$QO&SyEC
z=Xu`l=|v`_VS>B8Z$2}b&%Dpsm{Wn~5t9<JzL_&K$n=yw`7tI^yxEm=W;;MjvQ8Tm
zs>Eb(heUP1iaVJmi&+LNw#9T`2+h()%9b1eMJt^bHs!urt7WlOY3lPcftVRv;dCm$
z-$JdeFI0HURZ%ESq6(Jg@^kaFdE$L^6^#s>tr(lSxq7$NbCy`kUtL(xsvL-iz&Pm+
zBTY2+k1tC!csvdhU%_UtKqM0ISQz?V8w|h(tV8&BJ`S+96I=r-kvJ-v9*pHTi()5c
z<+~ij^flp{n3rwYiH`??$ZW<@CQTEQ6Hs7Wnyy+V!W{RF$KmjkR?3zI_ZB6OxiZ=}
zvqd*TN>;WX4#<g@L|hdYfaqVB$C6B+!GXxN>^c9mz4@vW1G!ms(-fVw%FPSY3em0P
z7X6Zih)YU_;VJR%$l%>ThXAw|lKKFZs;Sk2FAjF3ybU$Zh!@K&!QCLUn8ipwNmMu-
z07tTX4C%2J37^b^NMI^boTIJeszGEaVj=`L(<j200NJB;S%%WaC>?&)8}tp*luS3q
z8CT1#Z`z?;HG}gHld!RYvzlx2;T;uYo>TVLoBz~|<)z<47EF6k%*%;K(^T~pT2npt
zH{tGg9Y=EsP^I(o;lLzB>z{nB@|`JH0-V$*FlA;QoOrhcU|1?SB!+1i0sxsAUF^y*
zEVE%zXfQ`1AP)Z`Tszf5O2V{leQ`_lkx3@0)?Ycs7NLQt+~uY}?yF5_OQh=wH-WKG
z749a6I?KjW^BOvp?U0@Cq%&ONP1Y1QKk>QWJebbr_|o)>0OK#Yl6Z-P!QQJ?p*9n<
zta>l0ZJ83&(Wwd@=fs`e85cZ_Tf|(-`agtF_`5#t<lk>F=UFaYuwa9_OLf8L73UR<
zUoFJc?t$5vSb3`-WAB8Q3QivDGJ4}CRH8;#NEvJ^lG#FDb_iP5Uo?RMz@(wIeq$_x
zc`4|qi$*Z<Um-`9%vV`bwu=A*rGAoFZGBHz5C#|niQ*u5#<RurAdS8aFsne&f56>o
zTVI<i(cAQ45mvoKE;$Fbl}sMI65IZkKAn)Z762`cho$~xad+FId)O?@mSfwzqYWkH
zV`FxnlsTMqo@i<6+_8KG^VBc}6~BnS78$3g?cz4PY~3v*=<d!=pk8I5b{n<l$*M8a
zR|hl{yP;p}%%=l>@Bo^v5HTbty{mL)<hmf9S4Oa#v?k35e`7-F9l+gaJ<Jqmi=PkN
zx7uMHSeGs&Ih46C5unIYb8J*!ZY#KUY;I|Q@?0aTajLehk(1gs%<!d$Gy<X&J|cjX
z1`y{$Id4wzt5>DvBzw$HE-s7uWS~TXLm!da+LJz`aTa=pXKVE^u_|F=)r`130pe&B
zhvebJ!n!d7|6zTM@7^D0wHvzLtxmdNX*4R7Un*x1Zw~`9_2hdi;VitTRw%?0^|ERb
zh;fY<j8$UHt$Fr`9@iNWx<V8*bb4ci3)7JK<yxceP6E}xuFb{-sN3wD-v)0)$ZE%6
z)nJ;xB-m=`ssQIh#R4i;iM3p!lLk&<U!anpzk()WBeZ$8u}0f0-Fol<U%)0qQ9c0b
zU2PrY9u<J?!GxIcxw^*-)KFlDnwI}%h@nWsC@u1ST|L*~D4*ScvRuJ4;I(y|&rV9A
zqQqLhW6NQ||AY}QVEX<T&N&I10|U-r#_9;!rt;)O*{Sn^*b=}BY#V`W2@5XZoXGzX
zu<YK?#E}Caof1c}5&7a59GYx>dyC()q0hgbEKL<t_ON7%nzEQHIwBZkj-%{FnN$*!
z_Udj1Bi3^R14)mq(ZID#cBcc*N#=irh0}-?hpfXmcO`qX;W)iyHfR5<yTsoUCP$%*
zR(m--P3=TYOGYcdZpCyh6Tg(_#Hzo=aHqo+dkh0P8l`_K&`C6eqf(g&tD-)G=+REe
z|2am7>*qkkx6i+8NuM7}bSq*+T*s!z;b&Sb?jU1J0OR{^oCe&x6b9>7`aJXQOdOGI
zRiFA_Ox*)xAV7OI>e#kz+xEt`ZQHi7v2EM7ZDV5_CvV%+et%+S9$fbX{~&NsT+tf|
zS+D57z>@8pBY-%|Dq|~TcHK&6soSI$%zM7+e<*ttv1vw$iM?EJ6n@9S;qn^bzK&_K
zl20hj;_!byA)Cl!LqA*Ng*IFF(adRq?Go#XM-K{}I`5^`<m;6gfIxfBR$JwzWqXd?
zU{$iaZ}G{4Id<m(6qpHH;?9YN*P}Gr5(`v}G;G>=8+ErI2+k1&^<{*+Sr)1EQy0o_
zVcuj~4{--H$DAB+;nR^MQX}aXi5Z_qXP)sQOvN=q*$JS>zEVc3#7P2FP*y2My(>Ne
zad)U$!W9<G2mwl!MhU3NMr5FN=E3d3@Wosz7h|B=_!|W~Vm{?!@q&3TN_p$^6}F&!
zUlF(pm$}L{_rGrTYhP6%4+s-0@Puf&)z>%EN07@+=PCtVT6Zq)h+*jrSSyT|?S%Lx
z@KjG6w+or6jUKM;jB#LD(OE9Dk}}_qKeNwPO9TWxWdSI~u(65EU7&7ip<lT*G#a{r
zd6v=?^Cp8t?H@PKUm5P6Hsi6&CBFV;p-40Cx>wxtx$)@Y5WXm$oB<f#M?3o)W>xH2
zu3Lq&L{Vta>q$tq{c{+EB(`T$#+^|&7f%bI(j-pQQH*el{P@BYrX>YI)(Y?qqlIOi
z8bK5hQ<|*~%ze=Q=21gMj0{QR>_}-nF&)@yM2}o;Zp#L4ij-8j5#{H4$LY*rc1H?B
z?4fL}uI+iyX8%w9e!uX*UrtkUBSAdpS>$u!MHl3yT*aB$bMK%Leb#-+lOnVFA6MzB
zxrH|qR}8q#z2Lpm<KPzn&c(t>>GR@*>74L+RXiBNTQ~vuF))AMarqk{o#Zrp(7%45
zxCnf(hC_XOkhKvvw!Ty%+A3I!Z8ItF)+Kp7Sw)65L0;|0x4b#~Y$%SMRNmtrjmJqB
zhTXrFe5TO!pRfNCs=jB1#=mI3ug`l)lZ5?2jJ#gmg-XJnykG%=;nJE7w@t)6GxVi8
zW>7dA8p-`}9}JBL{hi`e2Ey21Kj%+>+v4H4E`fm$$_d4}_F0i#;|K}HNX@8uT?9`-
z%W`d8;RRi=_FfFFgxC)odh(%PA)(W<nPUWE_sOT3Ip!Vv*qEmjti}4OsMyy<$8W{z
zC^<UkgT(1tO7hnS>AGfWq`@~jB~12nL$ZSmq-RJ_Y-z($SF-sebLGQTIA@{KTpM&n
zawjpmt1Jq(6H?xU3@jeE6ZB{>8ERDAiS)@l(C`}JjChpFjy-%|)hW+R^mpDDSH-rs
zdU_P7wmq}y?4DyV-_P070ZTY<;Tone!VR7ZBLb2RL#?X`pAvpXwr$wyRz1i>d*`@t
z`pIMjHq%Cs5<X5H#7X(KA$QX+hlYij9`YS1*tL{nth<V1r`qpcc0-evwEy~RVz$lY
z9L869O<*E8P?W-)v?vr*udDjFv;z^@JFSGNBx38I(fj?P9T((iKgKSJDXxM>ri2)9
zIxRq??A;P#P%MZpWAmrLFdQKpEgJu2aD7XYX|VZaRP?2dMXU@@`iHo3Nuz(mk|W|8
zduP7yQtvU25{yVQsYf%d7C6h(W3>tm5!o2c>4M5G&Oj&j{jETh)CW!}J0Pq{h#?%Z
zVH17F@I~$fug|`&)U61T;ImaJkf>$C92;$#j=3hLo_e+J>JF7?NbpU=DP0J?L7vTk
z4dH?Xn$YGFGntsfx7+bPT(x}g0H;x|)(A4{O;*8x7eCSHA0eSsM=`uvmpivg(V+OS
z1G~;|?*SUd@H>@Q8Jop;MUg){094smLp`oUP%(c!9@L``9rfM7JsMP|6GjZVcz}Un
z*Gp*;59UnZZLC&W%X?Wn$f$-Aia`wr__!ZouKmd@$iweou+;!#9e@oHR-E7sA=vLr
zAO;1)2UX&(&f~DmC3!*h(bf9wQ}Jnu5;j;r^TCWkLCnQ-WH890;0heLMyi>0Dt$nB
z3RpY4?`4WwqPklcW>(wj{64Jg^?Z<Qvt6B`>|Vv=e!qksjeG5^8c*KPXEtV4tS=B{
z)hbk*-|@v9xA=OzO4XMQ@JCeej4tF~c@M%p3KlhzhPOEtzgLag?ZvHju2=-0pr2JP
zJ)NkXR%U+u?746=Q`?W~;i^au)tqVWp~(y3=+9GiF4*P-^(l(525gW!{9vMS51KiZ
z`D!q)klh;?MP$>s?6!8&q)6O_t33-hr~m_K>Br{v(g}X=D;%ZkgXExRebj8ld7<Yb
z!-y`pPCKWbqpwi1JmzKQp8sRbr8Jkr(T&U8?mv$*rg;O=H!kw_E+Z4Gct|c6xA=7n
zqn-#F%uRI5v4MHDE*K7vV;yhoxhkz(65fW`jgd*n4R*vx4rl~^Z&{&NhN*ps?@)Ax
z^l$X@(TM2_qu9+7<H;#{0;jMXOYHNJnCVL*FSH}Kkj`mIiFN7oku|-?)Dl3o7s~!)
zVClSos})Blu$NqQ^ZX{aN$b|zRpra4#!2=oJ7Y0`$r&APbZU@_xpcw?56{yjBWKji
zG?LVIL$}1emT-7D`=XMrR&4{Pk6@N|$2SmoWsRQ$(ix6{sQ;A8yUA}!=5=ln)NIHU
zm0YrMY+Ul|F~9UsvF^;dTsMCoN&KC1zPM2;O2sIS?<(!N^b85Kt(qsJq&!VUkqkA`
zzZMc`Bfyy;gF?cO@3m$BZ5^mOOt5&r1OUhb2AFX(JotuIne}hzSm5^4=Fgb@b=}=r
z|2j6sD!_C80qMZdVa8wZMbyOr12;5dtwzOqZGBs)zmuX^m`Y=}CGhq&b!^+pcP%hR
z!80J>A*3UKS(G!JJ)HGu^MOFQ<09E#I70zVcO7O%2iSN7Fj(mT!$dLm3{xR^T3TQ%
zSpHYJK<f-8D83QOzQ*`Pf<aIym@I1sFR{0OXxCu#vk^v>|IL6V<!HZ?aXMIx0Ff>l
z<Fm-z(o}xyYvvQQnikFx^&T!+8SWPSgb;{&i>)-u;bbh2oyia$R@hc~g8BAqxAd-c
zSJx&q7$Nt0(6*sfTJTC;2wDC8ZTFg57?}4vj4px}ZA<DCCb%~2HPNjWf~c6@W0D<t
zCJ{(-#u<d+Xt8BJkqE*vxnQcgJP-xIFszfviN+9CPB0*N(eg4uGD%uam&Adn0N;mq
zpjORf2gK>A+>}0gIXf<Bv+VH*aj;jLI5lE!IzBgub7(q5-MTDjbBio3`AnB!RZL^_
zg)UQZ$(AF9@Xi8RTf!>^gvQ{3cIdhABW~ih)7*4)9eoBcE-X&?fueOqtniFDWaM?^
z6;vM<CqR7n*V!jgJNi{6owCq6+Rs>wELLz<)dvH>>p15O0Hb50&ktN=529$DnU}@^
zbWrgb)$8P338G|O0xuOALZ6M3%M3^Qde_%V<|-^9mFg3LH~$ol?U_@nD2dTTWj;8d
zhBSSO;RUcHP`ryWC%*0Tc^J$JQ?8O;M?!Nhd`r2OPIq??sm2GhnbSx+#>{!Llffs~
zfXnE>VX#T>OYsW|maW<dyUD(5`jt8u4WxZPelC<hq(N8VvtNd#%$y%k+7HI<TE1h0
zjpehyE*K2>I%?<Ay-{X&il2ZGLKE7irHNkiibMB?Q`2w@A|i3{sr@OiK}O^e5*lnT
zKb)QGHul*b(<1tGv_A(yrRuQ{aSjRWC61j1QppI{E0Wy16_tk-r60(ZXZyl2wnIi4
zLMuzSvl^cSObl$E_d+_|cLoe0pYK<_5dr2!25m7Qp`MgT?YFg8YCNH%2dg3>Ps4HL
z0*k;TcCgtc`I@bV?|8dltUnq&B<i+In;su9NR*@dx%P5P>{RphG~#?Cc#{(l-7umn
zi~|e)tlg5toilWb%1`6AFrt-WDPL@cjou~tOw$BfQ;>Z2Oo>cb>^w#8ZBSNV8W4~)
z=5KD=;9P#*2j*o^0RfO=UMYZJ;-E&dj%;oSypDk}pn10<k`sj&HyJIYdAnY=8i%Lv
z&D`?40Jr;MYR~>8c;oT7Sr~{pRmR09<(K?s^x$tlUKN#kr5QLdccJJjqA8L_%4SI9
zF++rnAXBcP3etT$a6=RyQxg{mH5e-~`7Y6K%UQH)^gT-<BN;Fa#<w%AV~Qf4VgPvw
zV4gcakSsYSwqyWXXCEBUKJ~T;hXW+Y>{GXi-}OAt-yKOn$rOTgf~*T$kbQ%yM2A9?
zJUPNkXs6v$H6`=WBR(MTzBE|s-!ehrr;17q7uE=%sv)qguX1FZg&_oN5qQ7(td{>y
zPxS+)C)Q^h^n2rI#kC5Q*Nb;IGKYoOnA3&84bGnCiBX=l2NIWTUvPM|21D*b<0^qP
zH@Lj&+Aow!_OOrmG?GH$D-hB05inq_;LO!;U20~sC2^6&Yzfzrv<P8N9!!|#umor!
z{41WX5e;ER)1RG0RMiL$k5BKwb-HGx1L|fUYpBRaoR%9z#(;b#405Y3E6;@AIxk{a
z6Hgo0eVZJ*MKzqA|1~hJ=)7de#gse<nZhv*L2xW}6ktORK}sEB?xXXqN?!$>>Wfjr
zM_9|&Pt}=?VM|-4qq)6`YZI`;ugd*EL&<ipv*EjPYlL!dNOcKDR!Xl+G&KvO139gk
zoYD?HdHXLjmn=8)e(2xhI1@68X*uJ1acCfvxfY^m-8Gm5k<QD&6#5NN2oSx`>41Ki
z<p7xag<7p6gJrnOzuQ%2qj-k}pe7DgI3_+#f@&iW!okuIN?(|krZIPB@HNQ+I6utE
zgdS<JL!&a96~2r$U<9ge%i=pm%sz*{vNYqRH;FEr$oPl*Zb)`|J*eA!ihQM~U7C`e
zs-hixa}T%s!Nj^c?-Ju}K6Q3Eubcs9P|}bO)k_LamjYhh0(3e7g5aaWqagWv&+6-9
zGj;Ol6#G~QWlXG5WhQ0}G98|LTR*?|=iS~r3u{f9tZ}8b!Eh}oB1*mzW}M4_U`n!|
z<WG4W0N=l#ah{GffMmH6(<U(JRO(8_^3vC$BP)B~o4K%Vu)}~JcwKjz_ipEW_EIWe
z`PB>aBh37+F9UJxeBGX>kO!m7+?<~h8ptSiI~{K|6*H$puDPgkE(XIEqKnkKdOeSa
zR!a3YPEDXOEyLuk<$(a*eC=NM<6oK|TDy9_Us0_;2Z(b}ePf&QY`S(T2il5+(LQA5
zAXnX=+ef`gxweeObr|{;v*n3LIauOw5><+46Q>Cq=4^NJgUvT2_+)M^8P365l{{w4
z%Rj|O-AAp`9ni;qUxybzDO=s22^N<0-Hd;?^HzJ??&%h*L}7DnJ$lC^?@dSr@7<0c
z!wj)gy|3`;cH@R?RB&^Ai#4*>HE=2{?b6YrAY<uTJ3gd$HqX;+NuNR}+M$aKj5=Yv
zv!*Ao=&c=Y<nt3W91D+h+x)dR#2-pxnjocr7wb-se7`x6ku<VjeesD+S?u~ci=6TA
z15wb1pF}6x-1Hp?7YJmMSwNuHvK0Uh#(|mHRfaHdGX^dJww@oPP#K*2Vz2q02*qCn
zNyU;hC!J}>ftBQ1r|{}370a%6cvU^Fwm_F*^|ZfjL5jCk%z&TRB=NL=dfl#{7<xw(
zKag@Kbo4QV&Tfm8U>u=KA7)z;)qI^;AE>xpFa7_SgXil=cF2s?cR@l1m;d?x98RV0
zc|2*x{;3zG-G7XKKM!iHA$wU8yga3-7%8Nrjp1S7L-Ybd@x!M0vm@7YOa7OGifDM;
z#)a>T<_$w^;Hg*gTF2vMp_d$fM^`1q+xe}~%FpA?O<y|oa|Geb<38z#or3qLDoil3
z(NiFzJGb#Yo2tY4rRdm<+S~{{>`aGK$@_gTp-`&&8D=WIbw|n<78z;OHr_L7!`6&z
z(d=u=eP(;GiXNoKrqdBFK2)fUl5Ycy_p=Fxh1N_HOLHFK{Dijc&e>*F@f3zk{7Oi-
zH{NH_hH8Z$92{ag9h@%Tl*^hn|E-Zgz<x$>9+PFh{yAhAV*E_<kuh9uF2%4j(S^Sj
z1Y(x+xjmS_w+V^2wW(w6T(b4gI`Vq!!$_^%wfl_W;$Ytu7YsP<R!5sD)TqSYkY7(+
zNT>TT$VWSeB;E`s|H9=O7Tcj@3heN2(2%w&(9Kz)yL`uIO=v<X6q+xkheke4PW@MF
zKxXU}vF~Got+O`2^LX8VQgu8?rzmoAy5Vh`BOgyG&J<!V^=r-8Q@M@Hy}q`QW(Sz5
zkmivo8p4j5J&DJ01`2W;T8hJEgUSkywkd+wngzHdSkd<4B*~58goo{9pi^}cs>CM@
z5e>n9<zdxjvQC>%CmD=%iBU|@!%XJnvZ7&EdyJURB1>TBdP@zXiAFMnB3-hy&ri=A
z=>g*KjOqlf6w{}ij@C+q)#j;jNw?N`rN(j_tU}Sek3*gaNDB2NVdQ~A>VP-XYj$M|
zJk0UU3$V?Dgm@vR<>O;N7m8I7uOBqCK@N>XtgaNKXqod{D#_0YWw;H{i1VM@CH7h}
zjy%KOlpg!ch2rkX%{9yPebFgx88S6erc!giR@e1Vrp6d~i-O37NpOswu3BF*8SWIq
zR({trQUt;W7bu1=p-l)Q0}V3DiTnjkne##Nf@$Kl{162@-!|7mIPMh-v6<35sO$i8
zE}S985;C8^Xn3!!RXoy-k|NmrxG<<i@-(2HvJ4WWwq`nLgV4&4qWVYlh(dPrFSOBE
zYZ4Z7KV%}L!<soIvZ-*tspSLkNJ7pu+oixze+hcsSm`lM@6olIlc&Mi5)Nnk3N};f
zxPHSNoxRi<t{wEIU&+(1DWB{`YQYkGc`~wUW<iK%sgM1e{VnzPtVY{<PV!Qac-ghm
zO3EeamGF%kBWYu?6-(HvBwJS_mAWXS2-kLdIbaFaxm@1}ov4~8)zra)7uFNlrX5>M
zeu=7O&$#Qc9>^lLt5H!WKT}5uKkB&}RIW;Tmc-JsF&gV}q~%>Qx2YbQx7Ys1KKtjE
zL^Yba9>n?Cv;obYf>Qdut%${FFw`3NO5rK~&_HDk&@}$9$-e1?(`SDPEu_uk*e<m@
z9G&r66e2|N6DWFZE5Y>A!0eu8>ypC?mzn4U)C!(`vm_rKJYIrHc`1xvnFM7!he{F)
zIU$&ZzFAqSufuWeVb&1S#z)s8k`ZLFOkR^<a&vHl$YKIL4)HhTw)9r>A;S{oVhXi7
zA+AP-mB(8}-_cI$Pk&Rw$`A1W<z3YOsts-s*Wi6-0Dz`J0089wM{Usmzh2|Z4qM!n
zpIYEM>`sy~btO?sG8QQ_QC~FCh_#`p@yI*t`1bEnq^8xl4t;6^s-|GK$PLnZ!_k@~
zoakb~Y61SAxdZtvP#dK@33>}85?Xl_8;5^@VZKLnf=aKe&!s)=dfb!nTJ6G-f9s~U
z(_ePFJRW*ZrtNRT*R4TJ$ICN&aNFSdm#o)}7oo6@?oq!ILU9wtvphTcHn0u$l7-zd
z17lSuo+^e}N1K&4jRT7s$hyoXRmfE^FfgodTF^HQK9s#Wd=8i0K*XjyG(jjL88U?1
zg5>PFeVy!nYM|!rb@f>uM(^7b4k21TcCP$-8yl^9O?#gczL$_KAg`CAtZIfSPB4yk
zv>=*)KG=VlI@~JXGw{1{efSd87!Lp)kxI#3^hX@GV-am{c2fC96O5vdj%aLeh*W>0
zP6rC`?HSp8{zEms@OM29S2BT?S}R)O^>Ub!?Cf-U=X}ZDZ}p#6ZV1Vd6e639SuYPf
z)t!a`YRps`ngsK2&*KW?I?<=f!(8hu+V3uJKJTRTrfBn<T)%xwJ>(-t%h#T&4?0#M
z);W?n2DV?rwCHDO)6LLQ)xr_G-3}YS{37|tpO>q2sX|;iwOWOZNc@O0!+Pr(2dT{H
z-xN7iLD8#hm)qRWxJkPoR%^R`FK)_mWLj^grb!sRE9dnw-V){ysRDO>Te`uSb^TuR
z!|<_4=zVVQb9p;HDjB}KI{7z##;N(m39o&zd@y_(SehMA-krUwzeGMvz4CQzZbWhs
zl0<H<rbYF{a>aM!cEq8q)sxNY4?xOogb}$j23>#0WilA%W{mIh(RDAw*KROFvEQ8U
zQD;f%Z?Ilbm5cBakAjcj^Y~&nIU1bYyE%5Po5jzIS9*)>X_?I%s$Dt6L(pU9T&ki)
zI6g?sXb*xg<5p)%Py{9R-HnBa$)aA)@X7~Zk<z0zNhKa%TC2Sw#0z08RVSZ2CO9e*
z{Aj=rkjnQ*Gjj0P2gY!G-Cx2gIY7{1%JF+Df+(8n@EYj^!zWO(yoi8+e)uRK8UpJU
zb}f~)J;F!Q1#xyd9>=Hjy<TptCq2Rp6F7BmE9}oZrLSdJ@FYbL4Mv*g_hEUYw3DD$
z;WF`4Q~adOAzb)D=d=AvAJq|v0ZWfj&nmW2`^$6odg|=D_TI#GK!utu(HVLny$XXH
z&e0<&tcA)CF;a7?E-Ns-x}xjNr2-FZo1Nyg^Ir3r^QYWDZ<bc2?-Ms$9n#l5jfcIL
zH@n+j7kgo?zPv5gCf>I}k%zZEA3V(gafP`DyKlv3as~V`zGyyxCBI0#Q{Mqn9BK-^
zTi|`WpJe$ghDYL@ebcF~YPKo+Ip)l0M2#HtJf(=>(`DDcSK$@@?;?bxn9(+cM!o`I
z0VonTjo@{_B2BH<Qw44ufMsgBh{p%r2bkY99^D%ok50k=N)2$o&Ih*k?zHr-x7rs>
zrSnv^#;EB&7454K<|s2W`oNl-rkf`8XMW;VH`^cBjO$9b|B)JvS}wPoxi>%17cv+%
z>UBJ%9IX6)j2*3~qIT2=(w@0lSe3RtUbl$<B{kOkpi=|7?&o(>3$W3?$dy$DJ?3G_
zHpF54e@4&5kqaHvtJETo^(Wzt{_4J0Zrk;Kp6+I8MP6@z(i%(aSd1A|=~t>hTlNeW
zQkvME_V(F@*YDVQ-Ci}hU4L)N#t*#^I=ckFlbWA1G=u!N)PPd#vY!6{@9p+O|4pUk
zh0A1r9SnzYMJ)vs!v@hskZb?4sq1-Ir5C|($+hl<*?kcyQj-Q%h^*<hpq?D<W8@Qi
zv7PdJdCQ^TNd-6+!9IADA#ytffl(RHXK2SHVT2;HA{r-Tk$We2?-!BX>(vL>t-sv(
z%OzFMXSWsH7N!Zsu{$U)Mh<Y(sdxPqnkFQqTerj7NtX;F-R4u{gDai4A*F~?Xc*%9
zOR;|VAU*;|8jG}R0ODq!Kx;TzL0>Po*4I-`|C)XT200~p!0N+{^w9kEK+-tR!9~gJ
z`Gp!rMn=iJ!#blQzxDi=Xoiq?sZSV7#<NN%PXhKNE_;{#HXIp(PB9IT!*%^AUZJsC
zKwo24TL#P%@&7=LlwYX9z8ab6lGx=-Wy-!9q_bLXhayZ}wqf}nsPQxZoyjshITt6e
z-sF+Nm^jI6dE#_CD~pO^2M1KQ&9R@=FMH;CUad@lhJpX+95AO^E^AWT^Cv}0EzjXb
zM6X&hB!-8j^VXT##rFB~V8YtL()2{zQmb$567zNRbOFuqUysVpoYLZ`lGvbIwmiF9
zV~HS2#lI#&v4x|JW)cVK_5d7~(#H<9)<tW&nT#4oV?DBoy?<zb8i*9eTaf%1G^;jM
zK?O%fo7aaMvF7mjnHo7_B;^?3;)@^Tre<Z3X^k>wqh&KsrY2x6IC7?s$0hZbv1QNP
zT_#zl*FkNNAP5W&ge0=(=ro#+r!JRZe1lkJ5VcbwX>TQU*XHE+2-CiURbL3y*VJM<
zT2I<*+(a(~I9gwa4kj7`>*{{}4D&}-eVx0fgRk#hItC!H$w<$ZGaGr61y~MbtGAXQ
z9N}8#n0Y{6kG}xf-_`8qx>sta$!<tmP}OErQjD48>idpuGwsWXy|aK*JS?l{iW`s?
zs=qj(+UZ*9x!F8&jfUJ9?CT$c@ckJsH0J47>B&!*)QQLTlg-T3ydc0LXLXa*v(vLk
zDA^l~z92I5<sZ{?5Y)5{U~QO>4djIJuLc1<wHmCW+gzO8*U8ltW;{0FsFk*uN&!ag
zV!%ygi*>*fO3h<2Ku8`}CidvX&w*ktOI+>O0VzpnlmXkyz_l8+#uGUgpyc3YW~KYW
z{T%Rpn8whmR(VID1Ub@YZy@e>wTYppT&Ri!UBJq8kCxpZ+FrDm+sGWtPq8)bzf5CW
zI;RAG!k8?mfTf(~kko2Lr*nRene89VkpB~&%ekyX0(XD15Wv846>O#jV_yrwrk+)<
z(Z@l+1{x+%zOv+WGwV@u*qc#YkSq*`l?b}+3HGU3s#;_osTrDC8uk3&zJKONXA0Mm
zCFtm?rs%4XXQ=Y+x+JF6|3cx8%=atWPe7Yt+N39)7ijaU5zxaQ8lmNCvH+L<6u2#i
z$13!UF?>l5R?W34JRYw*$<5|a)6wVXdYGPPVR+iwu7i|OUl7pZnw8PlPEFBba2RA&
zC8V(-Y>{mqQB1o(dfQH&O>1@lAmOaFY=?gB{gD?uapKeun&-W9&!Fq?V@vuZK8^ue
z17%RuU2PwvPxC%wrlyt}{x>{adSW_%)hb~lg&#<=fU(iE#ZrYVp2on)BM2_rX;8!V
zo6`h)9D~NTzyJaP%6C+LFBZ+k2N?vYZ|RZmjyE)Bh#@WMcIC;cy_)|ZbZwXsog^Lr
zn8lE2u5Jq<@|c`5VX8!51e2ICP-=Ie1eYtjr-b&ytkkCi{OMQRHy_5q_0_YtB#i6j
zBFUQFBhm2XNdbsep8<=v@vlS>)<J_54?7wm8%c{XamcjsaNbtnd~r4JqHU!VeKwnx
z0gy$i%ndY<-h3LPLmj<JIjI}ULhu<J8?`vKM{x<M18F4)vRp)P*c4jAjlBUg7}C}z
zP+~l1Y@a;4L^T8-(rT5OBX%eZS8cj-Z7Q@(1U$_oX7TU1vy}j@t9u{>EY-k!khu(R
z(m0+}Em-9fVUyGd4;_&4ea*4}f6Fut)OOm60`0++nQ-Tc7ohbwOHn^oSXjEk7k$1X
zK4T(x4q65C-kYnA9#5~Kc@jKX0s;j=aq*IZU76|7J?b?S38`pI_t#KNT{MA;c?qvE
zP#2e5dNjsaW%v!ox?ByLb2}H@1UPDB?M#cjP_im+0mTz(_M<q5Ue-;Qdkis59Y$qW
z78&`{W|%3`1Wyi(iZdpsLAv#BE{LAZtG!>|L1mMXfc|wj5+BJ!=#c1cG?sMBaPWIo
zjDXC~0`loA<T{=z2v93AnPX{@w3N_uI^3xI-Vn$iSE6Uf2KHx4kNLLhvvBaFM&a`u
zg8o%hK_#^W1gx-ZkQWqa;WbE@EePNcftfvs^aPegff+4&eK@Sy3HUxeq&g+ja8RNY
zJZ~fG#t2U4I5M(vXPJCrSOExszx}1Q<TlwqyhX0!_(q3GC7)e&$C#!2Ue=|cWVD0w
z2F-$Q;+0sHq*a!4L_qLOikquNPmPEs#)h`~1Uarboq!?PMHojNi!%)utSI7Yy5OUw
zZmI0i!tQ#Kd7{QN#x%Dukq~;6ij-LhBpiXwO<C#s$+8;MLj!T76Unx$jT!m#P(f}{
zG40b2G*q;Wc_Jnyh|cRRAB&$Ak0^0c|0uVoDo1G-1e1JkiFJY|pNM!pu8TEDRB4D<
z&DAaAjUz_mNc=YISHj1rS)ik^kkHEdYDUWK&cf!SIGp^lO3s*69s@1Cg(S2N*r~w3
z@yJu}5MjXgU>Soo!;TmlD1Y%)=xfcuZ77CNa-xc<NK)eE$Z;=+Msj!Cg{cn{sPR=Z
z##KKMP1$`SYW?qOZ~_^tzpfz&EGl(rjamb@ZZ<Oc0@L<6*K*jF=8Y(>8@>+s`{)sy
zJl&^}n4EQs(IBE1axRHaO9s_dJ^1`JpPK(a9Ln0w;}{}6CEoTE$Q`*NXxzXA&G6G6
z3904j!7)!7`sWPCMyT(E^cGwUXKuqRL-8|pu&0HPqtKQgHVPR{k#W56ymj)QJw+il
z2`PX{Yfv!G7i|ZR<E^cMq&yR8n6}ABT5|ItujRtMaZD;BWtVpdN#{_&DFt|8@~8@H
z`_jZUCTy4pagY5PT@nL*xXhtTYumKAGxVyd4doMOI;Vqz`!qI-an;Nfn1)yjDZXsB
zE6c2aMF^+@Dar!b2#F(h?2C>L2(Z(XQPp<mKA49M3E9hkqMuROluAgOSC0-2<#|GY
z#D6fX!wC&r2LVv{?IpxDE^hss;lL%X3Xvr&q6t;@2`@=!%P%O2mz9E^hCu4iwtf0R
z-0uGvxb)SlvM4^wx>-f0<NblTM;#j;ZYxa9?DA#r6GE%t%`r3*<y%o5Wa+5co-3~)
z>r+-qJ(G-);Z5|9pAnG3vRS_O+bZ@f;i+~1^Ud&VbVrT}8Do6Qki2G0!lTCDlR(3+
zW2||}*mf+N_&IiX=4xz6c<=fShspPBrnGMTH(M8mtoo(QW2xc|G-<tfqcFV=N_VZ&
zYK!Om`7(_qPSwk`3e2>2#dCJ0&g{Q+mBN4NssK2h)>oYHO{@;$Ic4r9rM8tz#FR`+
zlGS@%4!R(>c~q2^@x3XY5bne=6vHP@2ccvM&7i9bcMq$Z;#J+!3K43uw%ltPE4|K<
z1aYTAWi9!CdHB!-PS8nf18gW=aKoQG9I{iLxVb(?fbw@QO*4=zb$>PDhkItM>;^*L
z)^|Cm+6lx$|B!oY5>b>|MME}AvP{5)14UL6-^RG%Jst%%2(2ezD3UT0MaekVPT9NH
zt6IBBHwuf+*^8W7s+o0&noPF3e?_1ixt|r?eGJSI_|`8_(icAxEb|`uNDz|tZ0I%j
zz?e4-d`_aJC24^a_e^ahXEaoZW}_<_FTbEzvYIlgtWxhgt=ft)H(fHytN_Rf5`%}8
zeh5|CHVGjUyyBy!kfJ*43&TYrXiOiy62(3}4uy{)qijhdwMP^&8nW)N^{L98a7qIm
zXVj82D<;ehQCc<d%c_ez#!Xy`o3d>F;jCm2!H8Ol%gV{jW$ieNM52B^APly#V;IXy
z2y)BlUvTpvan4E&JA)V&0pw|?*6n^bw|zRlTR30dqWHuu&D?SKulEJkm(BT2tiN+y
z5RU*Gx{ud0s+h)m6JksqHC=GR&%hcT6cd_7C2#6qEUnL~mBGViulHd}x$5hC8;UN1
zR$K{ln|gVe&|4;jXSr3^5l?(XoeK*K;T<ek;f;(WZDQ5&B5~^~z!auAJQP6vO+d*b
zn9aL8Sa#I$ZHxG5la(>ZDYd#Fb>gc3heYOy@ss@f9Sk#ZQ=*>fGV?3m=*0mj6AzDa
zi3hAvE-IoIH+cnwv4C{-YERE$;+uSwWGsH<e7xcjaJu!R-lhOKu>=+_dr(>hXw$)5
z^CAmNzzQo3t_o)I2lZ2Y(Xd0SMSZHS!l`^%E!uObgZf3AfE|S{iBB{MABRYR42B79
zJ|aBAEHGMWYjW^ll#)Ik!!ij+Y(5d}3GH?S1AMs)J<7V!tfJ_tjCjc<O(H=}!hsvE
zoFn0|3rs>a-yV<e#OMdj>RLTdYY|}=E_#J{Dj~P4VQbCp9+B*raqzEWx-fdtmK~tG
z%}b7ip9hhd0=VVo27y4ozkF3sN3@yInUV}1lJ+$i{ON$}IcyVICmO#DZmhubsB~H`
zD>#h7aV`8T`l}LQ!kRcPeQ(<}8v8Y+P)ApunG8#kz7}K@Bry_p>z+NUY;NX#4hO}R
z=<iH59%0Y$hm<y{VTRhHZT!NGIxb-BN_e|xATZJgR5i<Urh}cYoaE*+B!-bM{d5$F
z#Z{S#W{y%~N&k%*JEvD-mk?s%3bV@|_==Tc)BgcI$JB8>TF$it)?CnHlxE@2v4dik
z5*8A;iXC@4D<Q!BuC;+=K8~mZPNIFM_X!*Vu0d@#l4$g@gAU>$Z}>2VkOzjaHUb!}
z6!rrDzB_`M{lo~uObTw<z*02fFJ#*AFe}JI89qac0BjByC{ay8L75~ByUyhp(<XE{
z7W#vy4jFgO{mNjA^H^8dzl|ZsR~MA+R=1Gv=)Qsq$+0MW_N_(0jFpn$pMDmICzHQI
ze)2*-5}$%~ke{AN%#0a%X^~bc7YL(;py4!_Rq`<Er{1o5?MTUApCm~B#?18&%~kdK
zAh`IsgGjx%IkC4|gZr<?1a5BYYF({p!=G$2iCh#%K*9PCiGo7fmD}SIA!&m1oO1@f
zVh3rh^Kd79f<gUu>KgR^cBBo`(h`X@<=1}<Q$0yUMN0<|(%?7$U{Av!4uDQK5(ff%
zyoCcOox<VBAmze^8>2f<P|8w{PT?<Onoe~!%uRdxauh5qd~~BgL92%)r6RQoUVwa1
z<kTA=)?vQl&HP+tR7h7J>uCGE!$GCTh{MlpBW{Zxtg_r8(F`F)P~_QAfTn~?FkYE8
zU8CuMG;{1;dK3X2!%YC-DMTH+^ASGH@p9&$<jM90jpf@2PpS-BM(vr5No-s{-&1v`
z3k`DQ5ZIZAsC6dpL3pU44)X3@3$5Q;u7$bc>53$3we@5n>>dv(wY`D6E;@dEYJyXN
zN8!D8AbX8%G+{SnYC{{vpKRU10lG<gR;p6(OaZ?!3^yLwaJ0fGu}t16cqdCx5k~$0
zBbm||(x}p*fUKZVN90({>%N3)`(2?>Yqvz0Czw1zMM86Eq!^k4$>2!CuNia#<i#d5
z986#W!LK{)<y3q2w5JxXP7X5g8riF4_Wm&C1OgM>4-j~KXZ8ur?R#_4hT@MNWhD3I
z+uTye$4X+c{u#VzmwJd&Vs`(Dr{go0<yFJ0q*PQ9arpaK#KFu>KX#{7*@KcGuOBv@
zCp+Mu!(~eyB{tiqPYs|8n))ZwYs9s&Np7LqD+CW<oz>hN!irtS7deM=-1ub{ZA9iy
zI3ZDOov65CZKZZTPE3AwFJ;Gk+QQh^cAwH6cQWQ!Hg{!g5%)$3_eK}DH3eC-Dk^b*
zQCFT>(ec+ZtpfkAW#Va)tby&!*PMoG>4VFf`^vqpx#p~)YUhul`hs6Yw-GanGkr8M
zU|ygZVH@iFCip7@ft5d&QD03EGbAzKU!?r}ZqTpq1zS~q6tF>*qP$P4l|mG}9X3s-
zWgJv#e;?mPN_XEPU{jIBb4pm+DVMu=y5)2;wZ_CDl|Db!eOf4&dvmSlRvF=BP+#xs
zONEDt_pPd(scl#JgI&N1{QwPJ!P@+XHCR>i)RJVtpLt%H2M=3gWNmF|Xh4XjickJ;
z{%dKY$_n=Fd?<V#FodQG{-_#V^5lH^$;P|kg?2j(jh@LM@BqqeZ&8S8h|vRmxfQK;
z^8O#Fthg|?$`}n@>;8v@zW0gu&%|{(-ahbrX|0mTVbwgSpw~RA3D9QAM15hDe>gPx
z>Q(5*79nRSzOW0|xLnOSV)W5e576}1GJ%p@L?A=SBmVe&v95AT^?=@5U9DI$;BvT}
z4&GGHuq#G3xgf$6H30;xO*;&p_N{K-zCa>(8Bs}Q8_m@f!Ulp@LUQF&IElcWYA7=J
z9;ym#HDX_Pz@tm-NU6ikftgB-p+^7-G(aaYbO!k7{+kw6uDhw`oWW|W^{o=!H8j0H
zgsk66tbJ5Y2F2TR&CwWK`yqPJO>IB<LFBQx+}@ukUt@W$-t?)3a?<sw&!2{c^Va`Z
z!Uq*E`T`0|musbdC(~xWj?K38^fgXU85)sz2?g6ApXIXl_C3vW+J=G98jfrj>4CzU
zd0^=sMu;}AaH&h1898tbXX8-Oo0|Q)$JGGdX(2@2<|Uqr(%YT7RN}O#Z>{rbibG=j
zR2!D$yt`zy;xjd6TD&`D9y(c{+euAbu}iYGtl0B?B{R)Bc7pW7vZGj~;1Dy8Ul@7D
zffMu(*=gA<Wu(?}{S>lyuUE;bscJ7xKDg8qThqmOi<?|G^e$Wa=cZxhGHhsi(I=^B
zv&|)aY1JoH4s}C!SgLZghEHjCIhIL5M60T&TIV!R_liyx`Z3$jwKeFLN#-u%<ovu}
z4D@A3M3)Ve1Gr1EwaF%iS*vUChsnUR2+jWsn|NwPnTm6!mCbl<0sfJ3S|?W^HviEc
zTE-vF#)?`2DYU?LSr0?=BVkKH8zqp;j+<%CG*hwJz#iNfY4^Cr&wtKezQ?at#iB;P
zO;b=Pibrge<aRT)=y~F~chQIm*>I+A=;Y$fsG73+Z`XwS>zdFx==Q@+G;}X6Cvg79
zH5s8I6@kM>)AL%V0oGyd!@Kddp}iYxSyza_RnT;$DLtEWJ2o!bW+kAn3|2)uZ%&W7
zpY>5@GKw;#-<uhOPJUN$(N+*<y$p>L%T4^BYwCPY6J8G~TH*rimk}w6I?F2n*S;)`
zvpS*$0h4V~aoMoL4N#AXW|bBm{|DiNZi#6mAow8z6%n5Zw_E7mmc+A$3L*8_8SoZ#
zrti?*&O`B#V7}M{+zIlPC-Uo=n925l!dc%2bXf|7k7iN+V8~ORqN(I6K%UEEAO<zi
zC%_j2+oE-v2kW2|OMCUkd;v8kQw{RP;zF0|R?4TczGBj~cTBI~Rb~G-XWCeW<K|&0
zt1l(>7CK{6h-_R;Fr2KQFWYeB@#vZMa?^Gtmsn3cEe!%xT&eVqn>f{mY95ZGK7t{O
zWx4zl$A$pBi~??v1`5VNKn8|p7M0NQD%PK<5bclftyMMIOhn>;YG)JhXcbAKA#9x;
zR)`Lwe4X|8VOMQ3<4>xta056CRo+%Yh?7hlHLrnF>6Xq^yPf{RcB+QB$pydb^_}rl
zwhv9W$WZ-%d#3l->i_dh{OSMYnQSkOvxfyvW9Bm>n7^j63tqpc-TVg3X5CBvlrHKc
ztj@tMOMgZ0&lO^7@J2i@d#WBHZ->QhJH)$Da+ldt4I7>#S+Ta!7M(gT?HG^4W%Vzs
zrvpE@_3ZRhZh~gd<`Za~_P=cSuCA3>IHO%|$Z~;XO0Yr!zx;4iz^q_<MVgb0s1zjB
z%f=KnXIy?Or1i)niZbv5{weAb3UNx1@$a9Dg^x?lN_1B~F$XHhsT(Wk2eOO1qAlf1
z0M2mZ@DZB;E<6sXZ^$t$3U{5p#mAxLabq5EXKe}Z+#Qv<9ys3`O#jDXggMB@82bnS
zKDKAHm1GFLCte_QA<<Xixybq6Ot!@?RsyS1AI}AH#p?1>SCXqP{i$h<@@s(N*3H!y
z;o{b!XRt!+wnJRi4d!UF<_Bl=UFI3weJY+K6j@Eh_$eT_<n&q@vdYL2WOEtF>#HqT
zflcYkw#*a>L45<lI@sJxILcH$eDc%fwzo-_h$luo*8cI=5Jn*#%R9TNbr()Bny9+v
zDfIf^-PUzxE>ED!n-l@E8JD8IVNd&Wzk3Qd9}Q@}1C^m+wFg5}dSuvd*LcTE>0uo-
z3}U2u0kyaNb>tn?cJ5{7#sioOiPKn%eT)#!_~K<iNWd%GJ|+^w)7JE02}vbuEQ>y-
zp@JJBc}N@3N}zFRDr%+nVmNRqmCIAXpuO=Y9~zIF@%1mBBk%18tOTdi&|{p*m&JEt
zNp4RH&AaY2gUD8BqtRRhUtKv})j(6q!o<u`IW_7sfD=U?>?FrgawOiuXMh7Cf~P~m
ze9oKuTgAe4fYsN%GPl3W?Q`_6{MGouy0hJtFShC5y)us?uh0FNa;n<ETA9q->uAeQ
z*J{}1^%3mu%OH6~rfm&;Lac^9ZPQ>4WxY;NJ<%Fzg%QFWr%Jh)%sn!Pi)Eok<cL@(
z94mULSlDQ2;e5UL%eC510eM_@109%2bq2EVBDfr$$N3UMSqX^OHQsr>Day$&0um;`
z6OVopm~G!<ZLPrnML<%XtJReS6mkDSK-8I^9ocnH#~lX1OMNZL)&+4)Mp1^_8hz8*
z$HMeobt-x<`g93`9@4{JEE$D+DGC(V5#(0O?(lUjnszpKcR~fCM1byPVgqha9c*A$
zBUJ;Hb0LMkP)3}2NdB*z9N_Zcxys#ru`?+dhh=4r@_h^csOA!s3QULT%78h7cEw)G
z6k(!T`ZL_jAzWy%@`1b;qyB?{#K68=6!>YD#Gz&CNL}o4y~HG<s+zZR<a-;<Ck)pP
zHwG38u#8VLuTJO|un_5jCB;yYK1J`FI>Jw(vUPED%i_dFP%XQQmyMFA#so6xX=|kV
za#%CN%Eh#>3!I-Kud1V-dDk85R2p`ur7YM1`VHMZs$DxaUfk<Pr;~~#Nnv?NI1{_j
z+;+TrbZL^Fh%L?h5A1;-)q)0#6BZ=uwdD(=L%&8WrQe5Z;cHNEEwXj~MXOUOn?MU}
zA18$K5eG+NXQNCVt{?>-&;-pMhk`vCTUHnyMi8w`9J>2jL{v_Ui4Z|&Ye!}}Htv0`
zO^Q%wWKJuXj2?;q9N_DE1L+)S;<8m%+@ND?Qp4k*(`8HW_2}W;{*fBzz8_mOK+1XR
zU)<a54&<AI*XHrQ%M!0H9p6o_aq^7$&A=;Mbe|*pT~Hk*Aav`y;J5L$<fq+*6%x!w
zT_6C(ciAI=+yiejVdw9Q>3B1+2Ug#Myc_HT!r|?eKl?bD@}^uk*oZf^s~KvQf<@mW
z0S%H{7!=Kghf-N(+ku4Lr$m@8;Aa6MD{x#MwcZcG*V|5A{$WVonmo9v`Q~Qg1VNx|
z35x?a_FT)uL6|=C*Pw3EHZ3ZJY$-aFP9Wy?0$O9F7h{9rcu^+>iuRX7^og~s3|Lbo
zr{Iu7)%b=SEg#E-K^!Mj&;vY&RuoW&4XF&FnAikp1$V-3V66QDHCfX$=lR$4=K~k5
z_}+UFS%%%4`w*wN1ZAqia5=k)rxzt^pi!#3jo!%$Yr-b`!qqiJ7-N8y3K(4Gk_AR7
zkS$-I*oJr88eI|yP;F`=fX?3-C0^*=Sog|R2Kl%|XblBOI0?Mg+X&Fiqu4PyQ)pZ`
zVNwW2pj&>%<KuPmVwzR=;B947W*b4fRGv!vC!X2PEdetSkTV^qoRfyQams(T(Nh7;
zT>2LQLB@Yd^!_&jB0~5@K;Sq!j4}cnhJ8r!o~O>@WWw7}hZp!G!<OX8!OoOyX~ywZ
zJ*<JV?T;VV;i=1-3qd;Ao%s}piM2ix7)TBjd-$g<_90bU8VWycAjGz=tD(vu{6-2i
zM95fAMY)>K3G3qW8{jeNK@vW$ix7YJu8B4&7eu55gwtbu&yY+PO&3{x?)Co{0YQ>Z
z{34(@PHFV(1<SLCWzYAgoz#BnU$~HFT!&#&Bl<7Aki|A6T=d|kIjM>71@Mo)R0;%X
zU4W$W9fI>b7{?J?CXr889VAWoE8~j-`?6q~U@MhEky?5*lljI;C|)wEX%`zElrYIU
zL$GwLlEv~%hlvcbP&U~7HC=WdlZkf2YHjbcRP$RGu&O;8*VUSYG3v-*f`@7y;35>-
zza^h%=66jKw27U}059_zb|%J=UCs>FduA{`QSL5x0hL!=(KoPQ9vtuIF{R<#HM!2r
z&eRE$tRZ`!9K^+KwPKqbeOcpK>x(0fGuZYvi^@QbGEkyEKJSmc%AX2~vk*F%iVVRR
z1{XI8$@D&GBsd&iP5oB|hUP^msQY&fN3HqO-xo~9x=|;GY$+^l*1QB_>^&YhGFW{P
zF~ud_{yR@9?u$HrcnsYSbfZKy(yTU*+woVcuj3QGZZA^JW^=K`P4jORz~^&c);pOY
zT@K48tV)bZt*P9|?1_5ClU$#*g1%;iG(*Y2K$Mv0KsKW3SJ#Z>du#@VcT#%<i@aN?
zb(sz<JUgRmdJ?9aUTu8#=HoX!Q!{|><DyIn%aUdF6%T-Z01~7*@8{?R_%4CG4q%-N
zfw}|=YM8m~lp0lX9vrj`2_lQuNxzwe7I}o-N6lrJR}tWE^B^{xvz^Cxi&cki4>Tiu
zC9n5C04Vtv08Kdk2LSb<zu`r8$4{U%X-M0RO4E&I#$Tk?$u9lJ|BTx&2V`T|X?qs&
zf$ajyG(^XXgW!vM6?}C<J_HQHCQe;u$Al6<;fkpBgC8~q{}rQiLh@HmIu-d6nBF(|
zMih@^O7Pv1<ELAUQ}QegW#k`Cn_~Q1VX!2}Pqi2aW{Gj<6g`GRT#gm`^*G4%RaXwE
z?gOYTk5a;}d4A+*4az5H!?JvO!;XFX^%?r^UC>>|S9-eoXSagefx#3{HH{P1_F=Ct
z1oNGbkz0$#VG++H5}&n*BS-7CVUqeU+YIZO6OQq1727c3!zH*Za5k`Z@!ktmR}=m@
z-RIFEsM*wiF`%>Y`>}O${IE^ay#L<;dHu%$3IE3d@m^yf{Eq|r`@at81_~(S*8ycw
zNYoO(Hl2Gs0CtD<7w@+K5P3Z6@~OoHhv6%;{RJD7U2%E$*{!>-d-`=ixD2cQzYYj>
zVE8`{X!+Lx1-PM^b6X!9w(o7Bu%t$@D3Y-x^?Lc&)LC>^9@t=xETurgMM_0yQYvLR
z`8x>-7NUask_)T1l*9sC9MaCt46*YGP_QroMv7wXo2NnZw>-m`a{zz?ME3TzDZY{_
zzB$mxgTYeE8_(&B)62ce(5|WE=OTcs{9^%1%F*zM&=y@X3P>t%EREuNtyRWPQ!N{-
zcED;HyWx0BTT^@3MJNlG8~1#UFlxlY+%7lPK8{hD>!VMbd`9P<e{@k~8j3j=Y{U3v
zK;jodMzLA*EGOm$=6wO9i(o}DtM%~`nU37mlg(PC6ViNx!P=QF1<4N>u4DD64Qi#o
zRW3{=*Lnppur%Aal7bNhmMKPbcRF4=2o~wE>Go(~1)zuWHZ<GGZ2#m<+3DgtXNO{0
zD-2JZ{EUkgzeeq7OP2Wh4N7&JsJj+3Iy~a0PlK+Sa5En8R-K~Y3k+&O-Gzp~%#|V4
zT-|)3z)R&dxnU=9`ms)GYSu23n5XBP-C!X5vidu&{tn7ADC!jseT?*NYiNjDJJHJs
zmxt`45cp}9=_hB#Al4+r?VRW-C69f503vPI4ySZ|NUZBSL|)|qGur0KI-bb<ILRIv
zs+NF~E;B0i`(3|rh;CsWsVtx<oCQ5~g5bhm>XK-6H1-=}YA6fHSRNn?B8Ate5)!E(
z-ur=^Fvmb}<^T(N$hachDX)lXit!P;E5ETu_iH{3vpi>BbFnQi{>;+b=G;AkrJI&=
zFUy{jT?;&qB&!~d-X_d!9Zd~)Jf{HIqZXg~ogH&p|4ut^_NrY23^>m~cw9CfF}Q|B
z(woKhPGdQQmc0kyHiLtLHg;TE0OFduPmp1WJ$((*2v-@=TT~>h8JS!j3HGFFT4JY&
z+v)s&O3G#KgQ({O9p_2fwVCQW<nWOclocRwi9pNp(I}sgCX2JaEtaKcegd#)J$A-F
z=JjPkKtz=4*u1qHb&GkABwTE)1mWg+HzENx7~_*n3nq2gTL#u0(9wW2<CJ7!*|EP{
zixNCM8ijtBM%_tz2r8O8Z4$NErd|#4X-AEdy>I>C<I~jqK3=qM6mReXVjDqp#PRRJ
zF!p5$Tm{1?c)|(13t(D*%@xb7xG{P~UzwUA>V!itQK?ZQ3%%f>eND;>ipU?5*L*!q
z3cKeX2|;uiRDv-jnOBG){{w=yP_0Zrv#~J;G#*z(aw75mPQ;39+)r1oCgSV)vbTSY
z#O=I(9Esf*9!(y7Nln`E=byilyj33EB*G`Xe0G>a<_eqRRKtO$C4-JKARZ4gaZt@_
zh=>$mrc}=4iT6P04pHB!AjKOXG+4CvQex1ZJ+4*ZdlugfueGIHB>%Sx5}qOeK@3ou
z6SLx7d`E1?_`1wD@aXySjsQx6^LGX!783NmKn(W94r8^3Bb6rWBa`I*p|Y+*qsf{Y
z=cRJe8mpd?=HidU!qqSfrn{yqd}Y+=62YB-Qg#4!h%;%9dYfTD(uXek+0lal&GUFY
zy=4G0Wd=!ucZN5TK~R7|vV*ra^jE&Rni5=JpJJAHq9M0GO1`iWUp2Mw&&&_X@JAon
znZf4k5J?A59pi5i*(a84S_DT?EzWp=be#-W9g8WEr3^xIk)o`24|U{Nz!XR9a~-;;
zU<q?5jpl80QVe!^o=Zp~l|9Ars*+k@n^BOSFavpL+y(Imj0p$8pM;bYJ7TjGoI-7Q
zsz(Q!jn~S5MQhS)(};|<loro(;K)ZR{r}p!^Ju8wJr3YAl{LeVVzS(R%I;?<-4Q~_
z63RBlR$`<WGZ-XPLc_HUSz|CNBiaVxTEb5eBaJ27ow1dXbqt2GyE8xc{OaD@^F8N#
z&U4Q5`JCtZ=X<{Yyq-4%Sadr^uZ(%1+^ZIhMpMRSqe3Qn55DVDW%OSz>%b_+x_<D@
zc7)wDb1(d!lKf5VLqhWX>}sO*Z3ym-ydXV_*4b)#e=~<<`N%o3;$*0YjDFBIn_+2R
zpq;PpR2=<Q>$C#BFO`i&Lm%@Gi~uZ(5^Wx?e{n9f87Hw?#QkiOBd{po99%dSRIV<g
zf7YHClA>&wh@3e#p~2Iu6AM0RW&iLCxw+s7#Q!V6^}^6+DDr&|!9`0GKkLaXjo$`5
zqM>TEG}ZUFu0rI~g|emNpN5F4I_tv%(<Y69hT`&-sype9vy|{zfi{zyiUw)|A5c>l
z23BKivzlkTcJ=ifZG3C6t@vVlMH)+9r$JDEF#S?`iV@{E>1skjPrioR+cOF_{x|d-
zD4kb{!Alu+fSqPSB%3x>?o+wwYW<*J4x`piS}UTKl<A7Se7J>NMuzaMIWLdR5`qqC
zteg0%Bg<^w=XT&cv8pE(`2IPz<yrP*FtR;pstS?T<ba6&?$G}?x{6Gu9(&>eW^IW!
zg)q2vZ!K^&M*411l3>E%SpCkcXRi(^ehV3IaX#N0WZ+i6l8*XRj>cB*M{`gRtRz~!
zeS~;vA(Q~!4Pf?@M{h6bcMC4IOL0h0z@H?@=_ZE+EjDazGn&$f3mT-dBUhh6IV33S
zsHw2S3%BX^>->@h7J7XF%m_*wg-_R7XCDh*z@A;+wOYQrj8YikS!vpsaox=sezO(t
z;|puh<ox;|n(DYD2nQmvZgEKvi9>?EfBg>$@`sM$TN~k!ys%eSaz^Z>OKy;Jjyw<$
zhK6!Ukko7;hQuX70vr;g%OODx9l09w0e_O9z$XkxE(vN|=8zyED@^0+B?@yZP{FH0
zXNf6m+UYcUFVtd2kHMp?mNXZiA;5a`WgqEWfszlu_@cQf@E<B7ox={I6T#ksulIM;
z+YlXB7w*Z7gv}b`sWBIl6sodjT+(!l3ohoI4M5atY_%Vsm_!^wz+tyT);C2nZraO$
z`aUVuvIlk>gPtd@pDv(fuemKmzXO}b@#TA_x@zY~R;RyNCOpqUj5b8Ttju)znRdNC
zM))af^J7-l%M%jBhPBSQ!BNfy;JyM+<N6S+H-V>XNmLI5Gmp~+Rz5zAsHL2tLxpQn
zh8D{n%b5n{Ef%867cnIhGZK`i8e*dxpBMv~q0ntt?9@jPoT8X*Q2R}hV-6KUC}g1?
zcZJCOEy2kt_h3zPtfPoh`DTzK+5UX?LP6!09}jwY9NYlAp3o(&6YfXq$-|vtzu%-l
zJ&e8#f$aS4=uE5Y8;`RgUA6TOS8;#5MEg^Ly*B(3t()}12x3-L@uZcdv1+dI<wy~A
zJsEmcuYMfGwkdTG>NOc0ld#&=3^WS*8f96MBdlwAV@Hi2oEKyh%xfL|xR#cXnuIqY
zI-zHa!o=yBFW6!7hPSBYUGiIN9pNi29j4EF9$?ZdR4e=$$?nAA_`KHQ#3*{8WSX4h
z<=Mx&4U_P$Q#_cDgkqPZVnhJw51DO<3tfo@M39ky>1i2bzXR&q4t}xldHkzV-Tpce
zOY^XI0iQ{|?mU8X0*POy?gQj!R_ZA?3|mYP<SD9NQ<S={Jt?EB(;$Uf5s&rOp6UVl
zPRMv`WY#kjw>E0zFW=?Lpc8g-pds(oM{OWrzKmw&@$1xm#6q@fDRK}wT-RJRa2fBc
z=q20&$EXQp4&PI0H+K<jiEX?H%KLcKT`Q}7#nS=_o|NLf0{sXfB)u1VQkKmhn>=<K
z)xz5vqfrc=KUzzp<RCA39Mzk0+a5r3WRO{@IbUg^na(izRRkHY-kgZLazQpP6;yP9
zAr%L-OEsx--z2ow^J$5o!62nW$yPP6D98q?zp>9L_=Kz8fNA8A_R^5cOYA|WC3-=?
z#guI&IXX?=$Y(%#CEWRhKZ%X_#~fT#ou=s=ix^beQHJyifigqc_8#u1w7iDLRON2z
zn7rlDH}DS1vSmv%9adAAcSSvqiANX}Rolqqf+Yt+R4UYz;xLIr$ik1d1l5x^EO>pi
z_KvlRUj$Xmz2|V@>tNX)a6+7{Na=343NFr|OAYyn9M^z{Lo@8WtD3vT{|*UsJMgso
zd|*w)SscZz?z7szy0FHkVUMtn)atEBa!e=fm(05W&0g4Rs!lmnqZ;Q|p&UL8-SBt`
z(W|S_5TVY?f}~8iG)RPXu~ZtnJ%WR+EZi`*X2Oc9grB7xc4lTyI+cWt?GPD6&iDHJ
zxH@q-!KiK<Lw}~e&Y?lc?Z<1xMw1`cxN`1GRLS~w$remlSZMW0ts8n>m6_rE#Imx^
zfrV?lr{kLXRGD@7oWIuCS?4=v%tqbn$v3;hl)#ib^cYPi&h?R6)z4Z|c_zKXOL}N7
z_$SRZ!>EE&<G;U<%ti_f%~O?rAJ?*zWCmLJypOf+r_oTe>39ja$4vG)mn;xLxoc@X
zxB76U?eva&vwy&E@2(^nGG36$x59XwNk`DUgE~T|iNG$3;6@&#W~bZMIcp>9Gh19)
z9#-s|_Vq-Iq0szdpNR)c&UYn^LxSdtlJhDl=~W?nBnTBw#3;1Zix}se9I1-V@3Bn~
zWxd#t#5K%KHW{E}S0imKf%_y5?j^ajm0UR0G{)e+CI$e=DgXd`nK2v~#2M95+&A``
zhZp)9Hxl>fx?g4Ia#wRlbyPB^+h0k#du4l#U;j_a3^$BsZ-4>2=Yo#^S2PWGmwRQu
z3a9x|mitrLUr{wbj`*vv8g4NVaE!Cnw*N2wL7{#=@vrpMk2ZJUKW+Wz20XmnMZBB`
M1q1+6;<>Yb1MK5`3;+NC

literal 0
HcmV?d00001

diff --git a/SnUploader/snup_051010e/readme.txt b/SnUploader/snup_051010e/readme.txt
new file mode 100644
index 0000000..403cdea
--- /dev/null
+++ b/SnUploader/snup_051010e/readme.txt
@@ -0,0 +1,204 @@
+21:05 2005/10/10
+suga@snpn.net
+
+Sn Uploader
+
+•’Ê‚Ì(‰½
+”Ä—pƒtƒ@ƒCƒ‹ƒAƒbƒvƒ[ƒ_‚Å‚·
+Žv‚¤‚悤‚È‚Ì‚ª–³‚©‚Á‚½‚Ì‚Å
+‚±‚̍ۍì‚Á‚Ä‚Ý‚Ü‚µ‚½
+
+ƒXƒNƒŠƒvƒg–{‘Ì‚Í
+/uploader/          NoCGI.pmӁ
+/uploader+cgipm/    CGI.pmӁ
+‚̃fƒBƒŒƒNƒgƒŠ‚ÉŠi”[‚³‚ê‚Ä‚¢‚Ü‚·
+
+“K“–‚ɍì‚Á‚½‚à‚ñ‚È‚Ì‚Å
+ƒ^ƒCƒgƒ‹‚̐ݒ荀–Ú‚È‚Ç‚Í‚ ‚è‚Ü‚¹‚ñ
+ƒfƒUƒCƒ““™•Ï‚¦‚½‚¢ê‡‚Í‚»‚ê‚قǓ‚­‚È‚¢‚ÆŽv‚¢‚Ü‚·‚Ì‚Å
+ƒ\[ƒX‚»‚Ì‚Ü‚Ü‚¢‚À‚Á‚Ä‚­‚¾‚³‚¢
+
+Šî–{“I‚È“®ì‚ÍCGI.pm”Å/NoCGI.pm”Å‹¤‚É•Ï‚í‚è‚Ü‚¹‚ñ‚ª
+NoCGI.pm”Å‚Ì•û‚ªƒpƒtƒH[ƒ}ƒ“ƒX‚ª‚æ‚¢Žv‚¢‚Ü‚·
+ˆµ‚¤ƒTƒCƒY‚ª‚ ‚ñ‚Ü‚è—e—Ê‚ª‘å‚«‚­‚È‚¢ê‡‚Í‚Ç‚¿‚ç‚Å‚à‚©‚Ü‚í‚È‚¢‚©‚Æ
+‚È‚¨IIS‚ł̓Aƒbƒvƒ[ƒh‚Å‚«‚È‚¢‚±‚Æ‚à‚È‚¢‚ÆŽv‚¢‚Ü‚·‚ª
+“®ì‚ª•sR‚É‚È‚éŒXŒü‚ª‚ ‚é‚̂ŏo—ˆ‚ê‚Î”ð‚¯‚½•û‚ª‚悳‚»‚¤‚Å‚·
+
+ƒA[ƒJƒCƒu‚É“Y•t‚³‚ê‚Ä‚¢‚éƒXƒNƒŠƒvƒg‚Ì
+Š¿ŽšƒR[ƒh‚ÍShift-JIS/‰üsƒR[ƒh‚ÍCRLF‚É‚È‚Á‚Ä‚¢‚Ü‚·
+
+¦
+‚±‚̃XƒNƒŠƒvƒg‚Ì’˜ìŒ ‚͍ìŽÒ‚É‹A‘®‚µ‚Ü‚·‚ª
+—˜—pŽÒ‚̐ӔC‚É‚¨‚¢‚ÄŽ©—R‚ɉü•Ï,‰^—p‚·‚邱‚Æ‚ª‚Å‚«‚Ü‚·
+‚Ü‚½—˜—p‚µ‚½‚±‚Æ‚É‚æ‚Á‚Ä”­¶‚µ‚½‘¹ŠQ‚ɑ΂µ‚Ä
+ìŽÒ‚͈êØ‚̐Ӗ±‚𕉂í‚È‚¢‚à‚Ì‚Æ‚µ‚Ü‚·
+
+//////
+Ý’u•û–@
+1. Ý’u‚·‚éƒfƒBƒŒƒNƒgƒŠ‚ðì¬‚µ‚Ü‚·
+   ‚È‚¨‚±‚̃fƒBƒŒƒNƒgƒŠ‚ÍCGIŽÀsŒ ŒÀ‚ŏ‘‚«ž‚ß‚é‚悤‚É
+ @suEXECŠÂ‹«‚È‚ç‚Î701 ‚»‚Ì‘¼‚È‚ç 777‚̂悤‚Ƀp[ƒ~ƒbƒVƒ‡ƒ“‚ðÝ’è‚·‚é
+   suEXECŠÂ‹«‚Å 777‚È‚Ç‚É‚µ‚½ê‡ƒXƒNƒŠƒvƒg‚ɃAƒNƒZƒX‚·‚é‚Æ 500 Internal Server Error ‚ªo‚邱‚Æ‚ª‚ ‚è‚Ü‚·
+2. upload.cgi‚ðƒGƒfƒBƒ^“™‚ÅŠJ‚«‚Í‚¶‚ß‚Ì•û‚̃pƒ‰ƒ[ƒ^‚ðÝ’è‚·‚é
+@ Šî–{“I‚É‚Í$set{'admin_pass'}‚̕ύX‚ÆPerl‚ÌPATH‚ÌŠm”F‚¾‚¯‚Å‚¢‚¢‚ÆŽv‚¢‚Ü‚·
+3. ƒT[ƒo‚ɃAƒbƒvƒ[ƒh‚µ“K“x‚Ƀp[ƒ~ƒbƒVƒ‡ƒ“ex.(suEXEC:700 other:755)‚ðÝ’è‚·‚é
+4. ƒuƒ‰ƒEƒU‚Å upload.cgi‚É’¼ÚƒAƒNƒZƒX‚·‚é‚ƃƒOƒtƒ@ƒCƒ‹/ƒfƒBƒŒƒNƒgƒŠ‚ðŽ©“®“I‚ɍ쐬‚µ‚Ü‚·
+   ƒAƒbƒvƒ[ƒ_‚ւ̃Šƒ“ƒN‚Íupload.cgi‚Å‚Í‚È‚­ upload.html(1ƒy[ƒW–ڂ̃AƒhƒŒƒX)‚É‚µ‚Ä‚­‚¾‚³‚¢
+   ”upload.cgi‚ɃAƒNƒZƒX‚³‚ꂽê‡‚Í–³‘ʂɃvƒƒZƒX‚ð‹N“®‚µ‚Äupload.html‚É“]‘—‚·‚邾‚¯‚Å‚·
+
+   * ‰‚߂ăAƒNƒZƒX‚µ‚½Û‚ɁuƒƒCƒ“ƒƒO‚̍쐬‚ÉŽ¸”s‚µ‚Ü‚µ‚½v‚È‚Ç‚Ì•\Ž¦‚ªo‚½ê‡‚Í
+     1.‚̃fƒBƒŒƒNƒgƒŠ‚̃p[ƒ~ƒbƒVƒ‡ƒ“Ý’è‚ðŒ©’¼‚µ‚Ä‚­‚¾‚³‚¢
+
+‚ ‚Æ‚Í“K“–‚ɐݒè‚Æ‚©•Ï‚¦‚Ä‚Ý‚Ä‚­‚¾‚³‚¢
+‚È‚¨1ƒy[ƒW–Ú‚ðindex.html“™‚É‚·‚é‚ÆURL‚ª‚¿‚å‚Á‚Æ’Z‚­‚È‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñ
+”Ý’u‚µ‚½ƒfƒBƒŒƒNƒgƒŠ‚É‚Íindex.html‚ðì¬‚µ‚È‚¢‚Ì‚Å
+  ƒCƒ“ƒfƒbƒNƒXƒŠƒXƒg‚ª•\Ž¦‚³‚ê‚éŠÂ‹«‚Ì•û‚͏ã‹L‚̂悤‚ɐݒ肷‚é‚©
+  ‹ó‚Ìindex.html‚Å‚àƒAƒbƒvƒ[ƒh‚µ‚Ä‚­‚¾‚³‚¢
+
+suEXECŽž‚̍\¬—á
+-- upload [701] / upload.cgi [700]
+@@|             log.cgi    [600] --- Ž©“®ì¬
+@@|             upload.html[604] --- Ž©“®ì¬
+    |
+@@+-- src [701] --- Ž©“®ì¬
+
+‚»‚Ì‘¼ˆê”Ê“I‚ȍ\¬
+-- upload [777] / upload.cgi [755]
+@@|             log.cgi    [666] --- Ž©“®ì¬
+@@|             upload.html[666] --- Ž©“®ì¬
+    |
+@@+-- src [777] --- Ž©“®ì¬
+//////
+
+ƒtƒ@ƒCƒ‹‚̍폜•û–@
+  1.ƒtƒ@ƒCƒ‹No‚Ì—“‚ÉNo‚ð“ü‚ê‚Ü‚·
+    up0001.jpg -> 1, 0001 , up0001 , up0001.jpg “™ ”’l‚ªŒŸo‚Å‚«‚ê‚Î(hoge001.png‚Å‚à)OK‚Å‚·
+    JavaScript‚ª—LŒø‚ȏꍇ "D" ‚ÆŒ¾‚¤•¶Žš‚ªƒtƒ@ƒCƒ‹–¼‚̍¶‘¤‚ɏo‚Ä‚«‚Ü‚·‚Ì‚Å‚»‚ê‚ðƒNƒŠƒbƒN‚³‚ê‚Ä‚àŒ‹\‚Å‚·
+  2.íœƒL[‚ª•K—v‚È‚Æ‚«‚Í“ü—Í‚·‚é
+    ŠÇ—ŽÒPASS‚ð“ü‚ê‚é‚Æ‘S‚Ẵtƒ@ƒCƒ‹‚ªíœ‰Â”\‚Å‚·
+    ‚Ü‚½íœŽž‚ÌIPƒAƒhƒŒƒX‚ª“ŠeŽžIPƒAƒhƒŒƒX‚Ì‘æ3ƒIƒNƒeƒbƒg(192.168.0.9 ‚Ì 192.168.0.)‚Ü‚Å
+    ˆê’v‚·‚éê‡–”‚̓†[ƒU[ŒÅ—LID‚ªˆê’v‚·‚éê‡‚ÉŒÀ‚Á‚Ă͍폜ƒL[‚Í•K—v‚Å‚Í‚ ‚è‚Ü‚¹‚ñ
+  3.del‚ð‰Ÿ‚·
+  –”,ŠÇ—ŽÒ‚ÍSUSS(Sn Uploader Support Script)‚ɃƒOƒCƒ“‚·‚邱‚Æ‚É‚æ‚è‘I‘ð/ˆêŠ‡íœ‚ª‚Å‚«‚Ü‚·
+
+HTML‚ðXV‚µ‚½‚¢ê‡
+  ƒXƒNƒŠƒvƒg‰ü•Ï/POSTKey—L–³“™‚ŃtƒH[ƒ€ƒfƒUƒCƒ“‚ª•Ï‚í‚Á‚čXV‚µ‚½‚¢ê‡‚Í
+  íœƒtƒH[ƒ€‚ÉNo‚ð“ü‚ꂸKey‚Ì—“‚ÉŠÇ—ŽÒPASS($set{'admin_pass'})‚Ì’l‚ð“ü‚ê‚Ädel‚ð‰Ÿ‚µ‚Ä‚­‚¾‚³‚¢
+  –”‚ÍSUSS(Sn Uploader Support Script)‚ɃƒOƒCƒ“‚µ‚čì‹Æ‚ð‚µ‚Ä‚­‚¾‚³‚¢
+
+SUSS(Sn Uploader Support Script)
+  —v‚·‚é‚ÉŠÇ—‰æ–Ê‚Å‚· Œ³X•ÊƒXƒNƒŠƒvƒg‚Å‚µ‚½‚ª“‡‚³‚ê‚Ü‚µ‚½
+  SUSS‚ɃƒOƒCƒ“‚·‚邽‚ß‚É‚Í íœƒtƒH[ƒ€‚Ì Del—“‚ɐݒ肵‚½ŠÇ—ŽÒƒƒOƒCƒ“ID
+  Key—“‚ÉŠÇ—ŽÒƒpƒXƒ[ƒh ‚ð“ü—Í‚µ‚Ädel‚ð‰Ÿ‚µ‚Ü‚·
+  ƒƒOƒCƒ“‚·‚é‚ÆŠÇ—ŽÒ‰æ–ʂɐ؂è‘Ö‚í‚è ƒƒO‚̈ꊇíœ/ƒGƒ‰[ƒƒO•\Ž¦/Ý’è•\Ž¦‚È‚Ç‚ðŒ©‚é‚±‚Æ‚ª‚Å‚«‚Ü‚·
+
+Cookie‚ɂ‚¢‚Ä
+  ‚±‚̃XƒNƒŠƒvƒg‚Å‚ÍCookie‚ðŽg—p‚µ‚Ä‚¢‚Ü‚· Žå‚ɍ폜•â•‚Æ‚µ‚ÄŽg‚¢‚Ü‚·
+  SN_UPLOAD(JavaScript) “ŠeƒtƒH[ƒ€‚ÌDelKey/PostKey‚ð‹L‰¯‚µ‚Ü‚·
+  SN_DEL   (JavaScript) íœƒtƒH[ƒ€‚ÌKey‚ð‹L‰¯‚µ‚Ü‚· ’l‚ª‚È‚¢ê‡SN_UPLOAD‚ÌDelKey‚ðƒRƒs[‚µ‚Ü‚·
+  SN_USER  (HTML_META)  ƒ†[ƒU[ŒÅ—LID‚ð‹L‰¯‚µ‚Ü‚·
+  Cookie‚Ì•Û‘¶‚ÌŠúŒÀ‚Æ‚©‚Í“Á‚ɐ§ŒÀ‚µ‚Ä‚¢‚È‚¢‚Ì‚Å‹C‚ɐH‚í‚È‚©‚Á‚½‚çŠY“–•”•ª‚ðC³‚µ‚Ä‚­‚¾‚³‚¢
+  ŠÇ—ŽÒ‚Í‚Ü‚¸íœƒtƒH[ƒ€‚ÉŠÇ—ŽÒPASS‚ð“ü‚ê[del]‚ð‰Ÿ‚µ‹L‰¯‚³‚¹‚é‚Æ
+  ƒtƒ@ƒCƒ‹íœ‚âSUSS‚É“ü‚Á‚½‚è‚·‚éÛ‚É‚¢‚­‚ç‚©Šy‚É‚È‚é‚ÆŽv‚¢‚Ü‚·
+
+ƒoƒO‚ðŒ©‚Â‚¯‚½‚çc
+  ’¼‚·•ÛØ‚Í‚ ‚è‚Ü‚¹‚ñ‚ªŒfŽ¦”“™‚É•ñ‚à‚炦‚½‚ç‘Pˆ‚µ‚½‚¢‚ÆŽv‚¢‚Ü‚·
+
+‚ ‚ñ‚Ü‚è‘債‚½‚±‚Æ‚Å‚Í‚È‚¢‚±‚Æ
+  ‹H‚ɐݒu‚³‚ꂽƒAƒbƒvƒ[ƒ_‚É‚ ‚éƒtƒ@ƒCƒ‹‚̍폜ˆË—Š‚È‚Ç‚ª‰º•”‚̃Šƒ“ƒN‚ð’H‚Á‚Ä
+  ‚±‚¿‚ç‚É—ˆ‚邱‚Æ‚ª‚ ‚é‚Ì‚Å ƒfƒtƒHƒ‹ƒg‚ł͏ȗª‚³‚ê‚Ä‚¢‚Ü‚·‚ª
+  ‚Å‚«‚ê‚Î $set{'home_url'}([HOME]‚̃Šƒ“ƒNæ‚Ì’l) ‚Í–„‚ß‚Ä‚Ù‚µ‚¢‚©‚à‚µ‚ê‚Ü‚¹‚ñ
+  ‚È‚¨‚±‚Ì’l‚Í ../ ‚â http://example.org/~user/ ‚È‚Ç‘Š‘΃pƒX‚Å‚àâ‘΃pƒX‚Å‚à\‚¢‚Ü‚¹‚ñ
+
+‚³‚ç‚ɑ債‚½‚±‚Æ‚Å‚Í‚È‚¢‚±‚Æ
+  ”z•zƒA[ƒJƒCƒu‚Ì’†‚É‚ ‚éƒXƒNƒŠƒvƒgƒtƒ@ƒCƒ‹‚Í•W€“I‚ȃGƒfƒBƒ^‚Å‚à
+  •ÒW‚µ‚â‚·‚¢‚悤‚É•¶ŽšƒR[ƒh‚ÉShift-JIS‚ðŽg—p‚µ‚Ä‚¢‚Ü‚·
+  ‚»‚Ì‚½‚߃oƒO‚Æ‚¢‚¤‚©Shift-JIS‚̈ꕔ‚Ì•¶ŽšƒR[ƒh‚ª\‚Əd‚È‚Á‚Ä‚¢‚é‰e‹¿‚Å
+  ƒtƒ@ƒCƒ‹–¼‚É"•\,—\,ƒ\,["‚È‚Ç‚ªŠÜ‚Ü‚ê‚Ä‚¢‚é‚ƃtƒ@ƒCƒ‹–¼‚ª“r’†‚Ő؂ê‚Ü‚·
+  ƒfƒUƒCƒ“•ÏX“™‚Å•¶Žš‚ð’ljÁ‘}“ü‚µ‚½ê‡ êŠ‚É‚æ‚Á‚Ä‚Í500ƒGƒ‰[‚ª‚ł邱‚Æ‚à‚ ‚è‚Ü‚·
+  •Ê‚ɃoƒCƒiƒŠ‚ª‰»‚¯‚½‚è‚·‚é‚킯‚Å‚Í‚È‚¢‚Ì‚Å‚·‚ª‹C‚É‚È‚él‚Í
+  ƒGƒfƒBƒ^“™‚ŃXƒNƒŠƒvƒg‘S‘Ì‚ðEUC‚É•ÏŠ·‚·‚é‚Ì‚ª‚æ‚¢‚©‚ÆŽv‚¢‚Ü‚·
+  Ý’荀–ڂ̏I‚í‚è‚Ì•û‚É $set{'html_head'} ‚Æ‚¢‚¤€–Ú‚ª‚ ‚é‚Ì‚Åcharset‚ð euc-jp ‚É‚·‚é‚Æ
+  ”roHTML‚ÌMETAƒ^ƒO•”•ª‚͏‘‚«Š·‚í‚è‚Ü‚·
+  ”“r’†‚©‚çEUC‚ɐ؂è‘Ö‚¦‚é‚Æ‚«‚̓ƒOƒtƒ@ƒCƒ‹‚Ì•ÏŠ·‚à‚¨–Y‚ꂸ‚É...
+
+–{“–‚ɑ債‚½‚±‚Æ‚Å‚Í‚È‚¢‚±‚Æ
+  ‚±‚̃XƒNƒŠƒvƒg‚̃fƒtƒHƒ‹ƒg‚ł͐¶¬‚·‚éHTML‚̉E‰º‚É”z•zƒy[ƒW‚ւ̃Šƒ“ƒN‚ª’£‚Á‚Ä‚ ‚è‚Ü‚·‚ª
+  ƒfƒUƒCƒ“‚̕ύX‚â“s‡ãíœ‚µ‚½‚¢ê‡‚Í(‚à‚¿‚ë‚ñŽc‚µ‚Ä’¸‚¯‚ê‚ÎŠð‚µ‚¢‚Ì‚Å‚·‚ª)
+  ƒŠƒ“ƒN‹y‚Ñ•\Ž¦‚ðíœ‚µ‚Ä’¸‚¢‚Ä‚àˆêŒü‚ɍ\‚¢‚Ü‚¹‚ñ
+  ’A‚µ‚±‚ê‚̓XƒNƒŠƒvƒg‚Ì’˜ìŒ ‚ð•úŠü‚·‚é‚Æ‚¢‚¤‚±‚Æ‚Å‚Í‚ ‚è‚Ü‚¹‚ñ
+
+
+•â‘«Ž–€
+  ƒXƒNƒŠƒvƒg“à‚Ìà–¾‚ŏ­Xà–¾‚ª‘«‚è‚È‚¢‚Æ‚±‚낪‚ ‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚Ì‚Å•â‘«‚µ‚Ä‚¨‚«‚Ü‚·
+
+$set{'interval'}
+  “¯ˆêIP‚©‚ç‚̘A‘±“Še‚ðŽw’肵‚½•b”‚ÌŠÔ‹‘”Û‚µ‚Ü‚·
+  ƒfƒtƒHƒ‹ƒg‚Í0•b‚É‚È‚Á‚Ä‚¢‚Ü‚·‚ª —Ⴆ‚Î10•ª‚È‚ç‚Î 60*10 ‚Æ•\‹L‚µ‚Ä‚à–â‘è‚ ‚è‚Ü‚¹‚ñ
+  ‚È‚¨ÅI“Še‚ÌIP/ŽžŠÔ‚Å‚µ‚©”»’f‚µ‚Ä‚¢‚È‚¢‚̂ŏã‹L‚Ì—á‚Å‚·‚Æ
+  10•ªˆÈ“à‚É‘¼‚̐l‚ªƒAƒbƒvƒ[ƒh‚ð‚µ‚½ê‡‚Í‰ðœ‚³‚ê‚Ä‚µ‚Ü‚¢‚Ü‚·
+
+$set{'max_all_flag'}
+  ‚±‚Ì’l‚ð—LŒø‚É‚·‚é‚Æ“Še”ˆÈŠO‚Ƀtƒ@ƒCƒ‹‚Ì—e—Ê‚Å‚àƒƒO—Ž‚¿‚ð”»’è‚·‚é‚悤‚É‚È‚è‚Ü‚·
+  ƒŒƒ“ƒ^ƒ‹ƒT[ƒo‚È‚Ç—e—Ê‚ªŒÀ‚ç‚ê‚Ä‚¢‚éê‡–ð‚É—§‚‚̂ł͂Ȃ¢‚Å‚µ‚傤‚©H
+  ’ˆÓ‚Æ‚µ‚Ä‚Í —Ⴆ‚Î 1ƒtƒ@ƒCƒ‹‚̍őå—e—Ê‚ª10MB($set{'max_size'} = 10*1024),
+  ‘—e—Ê50MB($set{'max_all_size'}= 50*1024) ‚ɐݒ肵‚½ê‡
+  ƒT[ƒo‚ÉŠù‚É50MB‚ ‚éó‘Ô‚Å  10MB‚̃tƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚³‚ê‚é‚Æ
+  ˆêŽž“I‚É 50MB+10MB = 60MB ‚ªÁ”‚ê‚Ü‚· ‚Ü‚½•¡”“¯ŽžƒAƒbƒvƒ[ƒhŽž‚É‚à“¯—l‚Ì‚±‚Æ‚ªŒ¾‚¦‚Ü‚·‚Ì‚Å
+  ­‚µ—]—T‚ðŽ‚Á‚Ä(ƒT[ƒo§ŒÀ—Ê‚æ‚è‚͏­‚È‚ß‚É)Ý’肵‚½‚Ù‚¤‚ª‚悳‚»‚¤‚Å‚·
+  ‚Ü‚½•ÛŽŒ”§ŒÀŽž‚à‚»‚¤‚Å‚·‚ª ƒp[ƒ~ƒbƒVƒ‡ƒ“Ý’è,ƒAƒNƒZƒXŒ ‚È‚Ç‚ÌŠÖŒW‚Å
+  ƒtƒ@ƒCƒ‹‚ªíœ‚Å‚«‚È‚©‚Á‚½ê‡‚Í(ƒtƒ@ƒCƒ‹‚ªŽÀÛ‚ÉŽc‚Á‚Ä‚¢‚é‚Ì‚Å)ƒƒCƒ“ƒƒO‚©‚ç‚͍폜‚µ‚Ä‚¢‚Ü‚¹‚ñ
+  ‚æ‚Á‚Đݒ胍ƒO”/—e—Ê‚æ‚èŽÀÛ‚̃ƒO”/—e—Ê‚ª‘½‚­‚Ȃ邱‚Æ‚ª‚ ‚è‚Ü‚·
+
+$set{'up_all'}
+  ‚±‚Ì’l‚ð—LŒø‚É‚·‚é‚Æ$set{'up_ext'}‚É“o˜^‚³‚ê‚Ä‚¢‚é‚à‚̈ȊO‚Å‚àƒAƒbƒvƒ[ƒh‚ðŽó‚¯•t‚¯‚Ü‚·
+  $set{'ext_org'}‚ª–³Œø‚É‚È‚Á‚Ä‚¢‚éê‡(=0)‚ÍŠg’£Žq'.bin'‚Å“o˜^‚³‚ê‚Ü‚·
+  $set{'ext_org'}‚ª—LŒø‚É‚È‚Á‚Ä‚¢‚éê‡(=1)‚Í“ŠeŽž‚ÌŠg’£Žq‚É‚È‚è‚Ü‚·
+  $set{'ext_org'}‚ð—LŒø‚É‚·‚éê‡(=1)‚Í
+  ƒXƒNƒŠƒvƒgŒ¾Œê‚È‚Ç—\Šú‚¹‚Ê“®ì‚ð‚·‚éê‡‚ª‚ ‚è‚Ü‚·‚Ì‚Å
+  ƒZƒLƒ…ƒŠƒeƒB[‚ɂ͏\•ª‹C‚ð‚‚¯‚ĉº‚³‚¢
+
+$set{'find_crypt'}
+  ‚±‚Ì’l‚ª—LŒø‚É‚È‚Á‚Ä‚¢‚é‚ƃAƒbƒvƒ[ƒh‚³‚ꂽƒA[ƒJƒCƒu‚ªˆÃ†‰»‚³‚ê‚Ä‚¢‚é‚©’²‚ׂ܂·(ZIP‚Ì‚Ý)
+  ˆÃ†‰»‚³‚ê‚Ä‚¢‚éê‡‚ÍCOMMENT‚̍ŏ‰‚ɐԂÌ"*"‚ª•t‚«‚Ü‚·
+  ‘å‘ÌŒŸoo—ˆ‚Ä‚éƒi ‚ÆŽv‚í‚ê‚éê‡‚É‚Í”roHTML‚Ì‚Ç‚±‚©‚É*‚ÍPASS•t‚¾ ‚Ə‘‚¢‚Ä‚¨‚¯‚Î
+  ƒ_ƒEƒ“ƒ[ƒh‚·‚鑤‚É‚à‘½­‚̓ƒŠƒbƒg!?‚ª‚ ‚é‚©‚È‚ÆŽv‚¢‚Ü‚·
+
+$set{'binary_compare'}
+  ‚±‚Ì’l‚ª—LŒø‚É‚È‚Á‚Ä‚¢‚é‚ÆŠù‚ɃAƒbƒvƒ[ƒh‚³‚ê‚Ä‚¢‚éƒtƒ@ƒCƒ‹‚ƃoƒCƒiƒŠ”äŠr‚ð‚µ‚Ü‚·
+  ˆê’v‚µ‚½‚çƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚³‚¹‚Ü‚¹‚ñ
+
+$set{'post_key'}
+  $set{'post_flag'}‚ª—LŒø‚É‚È‚Á‚Ä‚¢‚éê‡(=1)‚Í‚±‚Ì’l‚ðƒtƒH[ƒ€‚É“ü—Í‚µ‚È‚¢‚Æ
+  ƒAƒbƒvƒ[ƒh‚Å‚«‚È‚­‚È‚è‚Ü‚· PostKey‚Í,‚Å‹æØ‚邱‚Æ‚Å•¡””­s‚·‚邱‚Æ‚ª‚Å‚«
+  ƒƒCƒ“ƒƒO‚É‚Í”õl‚Æ‚µ‚Ä“Še‚³‚ꂽÛ‚ÌPostKey‚ª‹L˜^‚³‚ê‚Ü‚·
+  “r’†‚©‚çPostKey‚ð—LŒø‚É‚·‚éê‡‚Í“ŠeƒtƒH[ƒ€‚ÉPostKey‚̍€–Ú‚ª‚ ‚è‚Ü‚¹‚ñ‚Ì‚Å
+  ƒXƒNƒŠƒvƒg‚ðÝ’肵‚½‚çã‹L‚́uHTML‚ðXV‚µ‚½‚¢ê‡v‚ðŽQl‚ÉHTML‚ðXV‚µ‚Ä‚­‚¾‚³‚¢
+
+$set{'dlkey'}
+  DLKey‚ÌŽg—p‚Ì—L–³
+  ƒAƒbƒvƒ[ƒh‚³‚ꂽƒtƒ@ƒCƒ‹‚ð ./src/up****.*** ‚©‚ç ./src/up****.***_[a-zA-Z0-9]{20}/up****.***
+  ‚ɃŠƒl[ƒ€‚·‚邱‚Æ‚É‚æ‚Á‚č쐬‚³‚ê‚éƒtƒ@ƒCƒ‹ƒŠƒXƒg‚̃Šƒ“ƒN‚æ‚è’H‚ê‚È‚­‚µ‚Ü‚·
+  ŽÀURL‚Í“ŠeŽžÝ’肵‚½DLKey‚É‚Ä”FØ‚·‚邱‚Æ‚É‚æ‚Á‚ÄŽQÆ‚Å‚«‚Ü‚·
+  perl‚𖳑ʂɋN“®‚µ‚½‚­‚È‚¢ê‡‚Í $set{'dummy_html'} ‚Ì’l‚ð 2ˆÈã‚É‚·‚é‚ƁA
+  ”FØŽž‚ÌHTML‚ðÃ“IHTML‚Å“f‚«o‚·‚悤‚É‚È‚è‚Ü‚·B
+  –³‘Ê‚ÈCGI‚Ì‹N“®‚ªŒ¸‚è‚Ü‚·‚Ì‚Å–â‘肪‚È‚¯‚ê‚ΐÓIHTML‚ð“f‚«o‚·‚悤‚É‚·‚邱‚Æ‚ð‚¨Š©‚ß‚µ‚Ü‚·B
+
+$set{'zero_clear'}
+  FTP‚È‚ÇCGIˆÈŠO‚©‚ç‚Ì‘€ì‚Ńtƒ@ƒCƒ‹‚ðíœ‚µ‚½ê‡
+  ƒƒCƒ“ƒƒO‚ɂ͏î•ñ‚ªŽc‚Á‚Ä‚¢‚邪ƒŠƒ“ƒNæ‚̃tƒ@ƒCƒ‹‚ª‚È‚¢‚Æ‚¢‚¤‚±‚Æ‚ª‚ ‚è‚Ü‚·
+  ‚±‚Ì’l‚ª—LŒø‚ȏꍇŽŸ‰ñƒtƒ@ƒCƒ‹ƒAƒbƒvƒ[ƒhŽž‚ÉŠY“–ƒtƒ@ƒCƒ‹î•ñ‚ðƒƒCƒ“ƒƒO‚©‚çíœ‚µ‚Ü‚·
+  —LŒø‚É‚µ‚È‚©‚Á‚½ê‡‚ÍŽŸ‰ñXVŽž‚©‚ç‚à0ƒoƒCƒg‚̃tƒ@ƒCƒ‹‚Æ‚µ‚ÄHTMLƒtƒ@ƒCƒ‹ƒŠƒXƒg‚É‹LÚ‚³‚ê‚Ü‚·
+
+$set{'http_src_path'}
+  ‹H‚Ƀtƒ@ƒCƒ‹ƒŠƒXƒg‚̃Šƒ“ƒN‚É‘Š‘ÎPATH‚ðŽg‚¦‚È‚¢ƒP[ƒX‚ª‚ ‚è‚Ü‚·‚Ì‚Å
+  ‚»‚̂悤‚ȏꍇ‚Í‚±‚Ì’l‚ðÝ’è‚·‚鎖‚É‚æ‚Á‚Ä–¾Ž¦“I‚Ƀtƒ@ƒCƒ‹‚̈ʒu‚ðŽw’è‚Å‚«‚Ü‚·
+  ®Žw’肵‚½ê‡‚Í ƒtƒ@ƒCƒ‹•Û‘¶ƒfƒBƒŒƒNƒgƒŠ $set{'src_dir'} ‚É‚Í 
+  /home/user/public_html/upload/src/ ‚Ȃǂ̃T[ƒo“àâ‘ÎPATH‚ðŽg—p‚·‚邱‚Æ‚à‚Å‚«‚Ü‚·
+  ‘Š‘ÎPATH(ƒfƒtƒHƒ‹ƒg)‚Å–â‘è‚È‚¢ê‡‚Í“Á‚ɐݒ肵‚È‚­‚č\‚¢‚Ü‚¹‚ñ
+
+$set{'link_target'}
+  ƒtƒ@ƒCƒ‹–¼‚É’£‚ç‚ê‚Ä‚¢‚郊ƒ“ƒN‚Ìtarget‘®«‚Å‚·
+  V‹K‚̃EƒBƒ“ƒhƒE‚ÅŠJ‚«‚½‚¢ê‡‚Í _blank ‚Æ“ü—Í‚µ‚Ü‚·
+
+Sn Uploader (c) 2003-2005 SUGA All rights reserved.
diff --git a/SnUploader/snup_051010e/snfaq.txt b/SnUploader/snup_051010e/snfaq.txt
new file mode 100644
index 0000000..2485d4c
--- /dev/null
+++ b/SnUploader/snup_051010e/snfaq.txt
@@ -0,0 +1,180 @@
+21:34 2005/10/10
+
+“K“–‚È Sn Uploader FAQ
+
+Q1.  ‚±‚ê‚͉½‚Å‚·‚©H
+Q2.  Perl‚Å‚·‚©HPHP‚Å‚·‚©H
+Q3.  Ý’u‚Å‚«‚Ü‚¹‚ñ(“®‚«‚Ü‚¹‚ñ,500ƒGƒ‰[‚ª‚Å‚é)
+Q4.  NoCGI.pm”Å‚ÆCGI.pm”Å‚Ç‚Á‚¿Žg‚¦‚΂¢‚¢‚ñ‚Å‚·‚©H
+Q5.  Ý’è‚Ì 0‚Æ‚© 1‚Æ‚© ‚Á‚ĉ½‚Å‚·‚©H
+Q6.  ƒtƒŒ[ƒ€‚ðŽg‚Á‚Ä‚¢‚éƒy[ƒW‚Ȃ̂ŃŠƒ“ƒN‚ðƒNƒŠƒbƒN‚µ‚½‚çV‚µ‚¢ƒEƒBƒ“ƒhƒE‚ÅŠJ‚«‚½‚¢
+Q7.  Ý’è‚̓fƒtƒHƒ‹ƒg‚Ì‚Ü‚Ü‚¶‚á‚¢‚¯‚È‚¢‚́H
+Q8.  ƒ†[ƒU‚©‚çkey‚Í‚ ‚Á‚Ä‚é(‚Í‚¸‚È)‚̂Ƀtƒ@ƒCƒ‹‚ªíœ‚Å‚«‚Ü‚¹‚ñ‚ÆŒ¾‚í‚ê‚é
+Q9.  ƒGƒ‰[ƒƒbƒZ[ƒW‚ª‘S‚­•\Ž¦‚³‚ê‚Ü‚¹‚ñ
+Q10. NoCGI.pm”łŃGƒ‰[ƒƒbƒZ[ƒW‚ÉPOSTƒf[ƒ^•sŠ®‘S‚Æ‘å—Ê‚ÉŽc‚Á‚Ä‚¢‚Ü‚·
+Q11. ŠÇ—ƒ‚[ƒh‚É“ü‚é‚Ì‚ª–Ê“|‚Å‚·
+Q12. Ô‚¢"*"‚Á‚ĉ½H
+Q13. POSTKey•¡”Ý’è‚Å‚«‚é‚Á‚ĉ½‚̈Ӗ¡‚ª‚ ‚é‚ñ‚Å‚·‚©H
+Q14. íœKey‚ð–Y‚ê‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½íœƒtƒH[ƒ€‚É‚àŽ©“®“ü—Í‚³‚ê‚Ä‚Ü‚¹‚ñ
+Q15. [Upload][Cancel]‚Ì[Upload]‚ªÁ‚¦‚¿‚á‚¢‚Ü‚µ‚½
+Q16. IIS‚Å‚Í“®‚©‚È‚¢‚́H
+Q17. ANHTTPD,BlackJumboDog‚Å‚à“®‚«‚Ü‚·‚©H
+Q18. ƒ^ƒCƒgƒ‹‚Ì"Uploader" ‚â "Now.. Testing.." ‚Æ•\Ž¦‚³‚ê‚Ä‚¢‚é•”•ª‚ð‘‚«Š·‚¦‚½‚¢
+Q19. ƒŠƒXƒg‚̏‡”Ô‚ª“ŠeŽžŠÔ‡‚Å‚Í‚ ‚è‚Ü‚¹‚ñ‚ª‚È‚º‚Å‚µ‚傤‚©H
+Q20. Ý’u‚µ‚½‚çƒT[ƒo‚ªd‚­‚È‚è‚Ü‚µ‚½ ‰½‚©‰ü‘P‚·‚é•û–@‚Í‚ ‚è‚Ü‚·‚©H
+Q21. Å‘å“Še—e—Ê‚Í‚Ç‚ê‚­‚ç‚¢‚Ü‚Å‚¢‚¯‚Ü‚·‚©H
+Q22. —e—ʐ§ŒÀ‚ª‚ ‚éƒT[ƒo‚ł͂ǂ̂悤‚Ȑݒ肪–]‚Ü‚µ‚¢‚Ì‚Å‚µ‚傤‚©H
+Q23. Šg’£ŽqMP4(‘啶Žš)‚ð’ljÁ‚µ‚½‚Ì‚Å‚·‚ª”FŽ¯‚³‚ê‚Ü‚¹‚ñ
+Q24. Šg’£ŽqMP4(‘啶Žš)‚ðƒAƒbƒvƒ[ƒh‚·‚é‚Ə¬•¶Žš‚É‚È‚Á‚Ä‚µ‚Ü‚¤
+
+///////////////////////////////////////////////
+
+Q1. ‚±‚ê‚͉½‚Å‚·‚©H
+A1. ”Ä—pƒtƒ@ƒCƒ‹ƒAƒbƒvƒ[ƒ_‚Å‚·
+    ‹CŒy‚Ƀuƒ‰ƒEƒU‚©‚çƒT[ƒo‚Ƀtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚·‚邱‚Æ‚ª‚Å‚«‚Ü‚·
+
+Q2. Perl‚Å‚·‚©HPHP‚Å‚·‚©H
+A2. PerlƒXƒNƒŠƒvƒg‚Å‚· Perl5‚È‚ç“®‚­‚ÆŽv‚¢‚Ü‚· PHPƒXƒNƒŠƒvƒg‚Å‚Í‚ ‚è‚Ü‚¹‚ñ
+
+Q3. Ý’u‚Å‚«‚Ü‚¹‚ñ(“®‚«‚Ü‚¹‚ñ,500ƒGƒ‰[‚ª‚Å‚é)
+A3. Šù‚É‘¼‚ÌCGIƒvƒƒOƒ‰ƒ€‚ðÝ’u‚µ‚Ä‚¢‚éê‡‚Í‚»‚̐ݒè‚ðŽQl‚É‚µ‚Ä‚Ý‚Ä‚­‚¾‚³‚¢
+    Žå‚ÉPerl‚ÌPATH‚ªˆá‚¤ê‡‚âsuexec‚Ȃ̂ɐݒuƒfƒBƒŒƒNƒgƒŠ‚̃p[ƒ~ƒbƒVƒ‡ƒ“‚ª777‚Ȃǂ̏ꍇ‚ª‘½‚¢‚悤‚Å‚·
+    ‚Ü‚½ƒƒOƒtƒ@ƒCƒ‹‚âƒtƒ@ƒCƒ‹•Û‘¶ƒfƒBƒŒƒNƒgƒŠ‚͏‰‰ñƒAƒNƒZƒXŽž‚ÉŽ©“®¶¬‚µ‚Ü‚·‚Ì‚Å
+    FTP‘€ì‚Ȃǂł͍ì‚ç‚È‚¢•û‚ªŒœ–½‚Å‚·
+
+Q4. NoCGI.pm”Å‚ÆCGI.pm”Å‚Ç‚Á‚¿Žg‚¦‚΂¢‚¢‚ñ‚Å‚·‚©H
+A4. ‚Ç‚Á‚¿‚Å‚à\‚¢‚Ü‚¹‚ñ‚ª NoCGI.pm”Å‚Ì•û‚ªƒAƒbƒvƒ[ƒhˆ—‚ª‘½­‘¬‚¢‚Ý‚½‚¢‚Å‚·
+
+Q5. Ý’è‚Ì 0‚Æ‚© 1‚Æ‚© ‚Á‚ĉ½‚Å‚·‚©H
+A5. Šî–{“I‚ÉON‚©OFF‚Őݒ肷‚é‚à‚Ì‚Í ON=1,OFF=0 ‚Å”»•Ê‚µ‚Ü‚·
+
+Q6. ƒtƒŒ[ƒ€‚ðŽg‚Á‚Ä‚¢‚éƒy[ƒW‚Ȃ̂ŃŠƒ“ƒN‚ðƒNƒŠƒbƒN‚µ‚½‚çV‚µ‚¢ƒEƒBƒ“ƒhƒE‚ÅŠJ‚«‚½‚¢
+A6. $set{'link_target'} ‚Ì’l‚É _blank ‚ðÝ’肵‚Ä‚­‚¾‚³‚¢
+
+Q7. Ý’è‚̓fƒtƒHƒ‹ƒg‚Ì‚Ü‚Ü‚¶‚á‚¢‚¯‚È‚¢‚́H
+A7. Šî–{“I‚É‚ÍŠÇ—ŽÒPASS‚̕ύX‚¾‚¯‚ō\‚í‚È‚¢‚ÆŽv‚¢‚Ü‚·
+    Ý’è‚̏d—v“x‚Í(ŒÂl“I‚É‚Í)ã‚̍‚‚­ ‰º‚Ì•û‚͈ꕔ‚Ì•û‚ªŽg‚¤‚悤‚ÈŠ´‚¶‚¾‚ÆŽv‚¢‚Ü‚·
+
+Q8. ƒ†[ƒU‚©‚çkey‚Í‚ ‚Á‚Ä‚é(‚Í‚¸‚È)‚̂Ƀtƒ@ƒCƒ‹‚ªíœ‚Å‚«‚Ü‚¹‚ñ‚ÆŒ¾‚í‚ê‚é
+A8. íœðŒ‚ª‚ ‚Á‚Ä‚È‚¢‚ÆŽv‚¢‚Ü‚· (L[M)ƒm~~
+    ŽÀÛ‚â‚Á‚Ă݂ďÁ‚¦‚È‚©‚Á‚½‚ç˜A—‚­‚¾‚³‚¢
+    031003ˆÈ~‚ɂ͌•ÊCookie‚Å‚Ì”»’肪’ljÁ‚³‚ê‚Ä‚Ü‚·
+
+Q9. ƒGƒ‰[ƒƒbƒZ[ƒW‚ª‘S‚­•\Ž¦‚³‚ê‚Ü‚¹‚ñ
+A9. 031003ˆÈ‘O‚Ì‚à‚Ì‚ÍŽd—l‚Å‚·...031003ˆÈ~‚ɂ̓Gƒ‰[•\Ž¦‹@”\‚ª‚‚¢‚Ä‚¢‚Ü‚·
+
+Q10.NoCGI.pm”łŃGƒ‰[ƒƒbƒZ[ƒW‚ÉPOSTƒf[ƒ^•sŠ®‘S‚Æ‘å—Ê‚ÉŽc‚Á‚Ä‚¢‚Ü‚·
+A10.ƒAƒbƒvƒ[ƒh’†‚Ƀuƒ‰ƒEƒU[‚Ì’†Ž~‚È‚Ç‚ð‰Ÿ‚·‚Æ‚»‚¤‹L˜^‚³‚ê‚Ü‚·
+    POSTƒf[ƒ^•sŠ®‘S = ƒ†[ƒU[ƒAƒbƒvƒ[ƒh’†Ž~ ‚ƍl‚¦‚Ä‚à‚ç‚Á‚č\‚¢‚Ü‚¹‚ñ
+    ‚¿‚È‚Ý‚ÉNoCGI.pm”Å‚ªƒAƒbƒvƒ[ƒhƒ~ƒX‚ª‘½‚¢‚ÆŒ¾‚¤‚킯‚Å‚Í‚ ‚è‚Ü‚¹‚ñ
+    CGI.pm”ł̓fƒR[ƒh•û–@‚ªˆá‚¢‚Ü‚·‚Ì‚Å‚±‚ÌŽè‚ÌŒŸoƒ‹[ƒ`ƒ“‚ª–³‚¢‚¾‚¯‚Å‚·
+    ‘¼‚̃Aƒbƒvƒ[ƒ_‚É‚Í‚È‚¢(‹L˜^‚·‚郌ƒxƒ‹‚Å‚Í‚È‚¢)ƒGƒ‰[ƒƒbƒZ[ƒW‚Ì—Þ‚È‚Ì‚Å
+    ‚¢‚ç‚È‚¢‚ÆŽv‚¦‚Ήq¶ãƒƒO‚É‹L˜^‚µ‚È‚¢‚悤‚É‚µ‚½‚Ù‚¤‚ª‚¢‚¢‚©‚à‚µ‚Ü‚¹‚ñ
+> 1004”Å‚¾‚ƃXƒNƒŠƒvƒgŠJ‚¢‚Ä POSTƒf[ƒ^•sŠ®‘S ‚ÅŒŸõ‚·‚é‚ƍŌã‚Ì•û‚É
+> elsif($no == 108){ $flag = 1; $message = "POSTƒf[ƒ^•sŠ®‘S" `
+> ‚Æ‚ ‚è‚Ü‚·‚̂Ł@‚±‚±‚ð
+> # elsif($no == 108){ $flag = 1; $message = "POSTƒf[ƒ^•sŠ®‘S" `
+> ‚Æ æ“ª‚É # ‚ð’ljÁ‚·‚é‚Æ
+> ƒGƒ‰[ƒƒbƒZ[ƒW‚É‚Í‹L˜^‚µ‚È‚­‚È‚è‚Ü‚·B
+
+Q11.ŠÇ—ƒ‚[ƒh‚É“ü‚é‚Ì‚ª–Ê“|‚Å‚·
+A11.ŠÇ—l‚Í‚Ü‚¸íœƒtƒH[ƒ€‚ÉŠÇ—lPASS‚ðŠo‚¦‚³‚¹‚Ä‚­‚¾‚³‚¢
+    Cookie&JavaScript‚ªŽg‚¦‚éê‡‚Í ŽŸ‚©‚ç‚̓tƒH[ƒ€‚ÉPASS‚ªŽ©“®“ü—Í‚³‚ê‚Ü‚·‚Ì‚Å
+    ”Žš‚ð“ü‚ê‚é‚ƃtƒ@ƒCƒ‹íœ,ŠÇ—ƒ†[ƒUID“ü‚ê‚é‚ÆŠÇ—‰æ–Ê‚É“ü‚ê‚Ü‚·
+
+Q12.Ô‚¢"*"‚Á‚ĉ½H
+A12.“K“–‚È“ÆŽ©ŽÀ‘•‚É‚æ‚éˆÃ†‰»ZIPŒŸo‚̃}[ƒLƒ“ƒO‚Å‚·
+    ‚à‚µ‚©‚µ‚½‚çŒë”»•Ê‚µ‚Ä‚éê‡‚à‚ ‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñ
+
+Q13.POSTKey•¡”Ý’è‚Å‚«‚é‚Á‚ĉ½‚̈Ӗ¡‚ª‚ ‚é‚ñ‚Å‚·‚©H
+A13.ŒÂl–ˆ‚É”­s‚·‚é‚Æ’N‚ª‚ ‚°‚Ä‚é‚©•ª‚©‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñ
+    FTP‚̃AƒJƒEƒ“ƒgID‚ÆPASS‚ð1l‚É‹³‚¦‚½‚çˆêƒ•ŒŽŒã‚É‚Í
+    ‚È‚º‚©‚»‚̃AƒJƒEƒ“ƒgID‚ÆPASS‚Å•¡”ƒNƒ‰ƒCƒAƒ“ƒg‚ªŒq‚ª‚Á‚Ä‚½‚Æ‚¢‚¤
+    ˜b‚ð’m‚荇‚¢‚©‚ç•·‚¢‚½‚Ì‚Å‚Ç‚ÌPOSTKey‚ŃAƒbƒvƒ[ƒh‚µ‚Ä‚é‚©
+    ‹L˜^‚µ‚Ä‚Ý‚é‚Æ–Ê”’‚¢‚©‚È‚Æ•¡”Ý’è‚Å‚«‚é‚悤‚É‚µ‚Ä‚Ý‚Ü‚µ‚½
+
+Q14.íœKey‚ð–Y‚ê‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½íœƒtƒH[ƒ€‚É‚àŽ©“®“ü—Í‚³‚ê‚Ä‚Ü‚¹‚ñ
+A14.“ŠeƒtƒH[ƒ€‚ÉŽ©“®“ü—Í‚ªŽc‚Á‚Ä‚¢‚éê‡‚ÉŒÀ‚Á‚Ä‚Í
+      1.íœƒtƒH[ƒ€‚ÌNo,key‹¤‚É‚¢‚ꂸ‚É[del]‚ð‰Ÿ‚·(íœCookieƒNƒŠƒA)
+      2.“ŠeƒtƒH[ƒ€‚Ì[Upload]‚ð‰Ÿ‚·(íœCookieƒRƒs[)
+    ã‹L‘€ì‚Å“ŠeƒtƒH[ƒ€‚ÌDelKey‚ªƒRƒs[‚³‚ê‚éƒnƒY‚Å‚·
+
+Q15.[Upload][Cancel]‚Ì[Upload]‚ªÁ‚¦‚¿‚á‚¢‚Ü‚µ‚½
+A15.•¶ŽšƒR[ƒh‚ðEUC‚É‚µ‚悤‚Æ‚µ‚½‚Ì‚Å‚Í‚È‚¢‚Å‚µ‚傤‚©H
+    $set{'charset'} = euc-jp; ‚É‚µ‚Ä‚à •¶ŽšƒR[ƒh‚ªSHIFT-JIS‚̂܂܂̏ꍇ
+    ‚»‚̂悤‚É•\Ž¦‚³‚ê‚邱‚Æ‚ª‚ ‚è‚Ü‚·
+    ƒGƒfƒBƒ^‚âFTP“]‘—‚ŃXƒNƒŠƒvƒg‚Ì•¶ŽšƒR[ƒh‚àEUC‚É•ÏŠ·‚µ‚Ä‚­‚¾‚³‚¢
+
+Q16.IIS‚Å‚Í“®‚©‚È‚¢‚́H
+A16.‘S‚­“®‚©‚È‚¢‚±‚Æ‚à‚È‚¢‚Å‚·‚ª‚±‚¿‚ç‚ÌŠm”F‚µ‚½ŒÀ‚è‚Å‚Í“®ì‚É•sR‚È“_‚ª‚ ‚邽‚ß‚¨Š©‚ß‚µ‚Ü‚¹‚ñ
+    “Á’è‚Ì‘€ì‚ð‚·‚é‚ƃvƒƒZƒX‚ªI‚í‚ç‚È‚­‚È‚èCPUŽg—p—¦‚ª100%‚Ì‚Ü‚Ü‚É‚È‚è‚Ü‚·
+@@‚»‚Ì—l‚ȃP[ƒX‚ɊׂÁ‚½ê‡‚Í [WebƒTƒCƒg‚̃vƒƒpƒeƒB] ‚©‚çƒAƒvƒŠƒP[ƒVƒ‡ƒ“‚Ì [ƒAƒ“ƒ[ƒh] ‚ð‚µ‚Ä‚­‚¾‚³‚¢
+    2003/10/11Œ»Ý ‚±‚¿‚ç‚ł̈ê’Ê‚è‚Ì“®ì‚ðŠm”F‚µ‚½ŠÂ‹«‚Í CGI.pm”Å/NoCGI.pm”Å‹¤‚É
+   @ WinXPPro   (Perl5.8.0)   -> Apache1.3.28/2.0.47 ANHTTPD1.42k BlackJumboDog3.3.5
+      Redhat6.2  (Perl5.6.1)   -> Apache1.3.27
+   @ FreeBSD4.8R(Perl5.005_3) -> Apache1.3.27/2.0.47
+      Solaris8   (Perl5.6.1)   -> Apache1.3.27
+   ‚Æ‚È‚Á‚Ä‚¢‚Ü‚·(‚¢‚¸‚ê‚ài386,Redhat‚ÆFreeBSD‚ÍsuEXEC)
+   Œ©‚ê‚Εª‚©‚é‚悤‚É‚±‚¿‚ç‚Æ‚µ‚Ä‚ÍŠî–{“I‚Éhttpd‚É‚ÍApache„§‚Å‚·
+
+Q17.ANHTTPD,BlackJumboDog‚Å‚à“®‚«‚Ü‚·‚©H
+A17.NoCGI.pm”Å/CGI.pm”Å‹¤‚É–â‘è‚È‚­“®‚­‚ÆŽv‚¢‚Ü‚·‚ª
+    ƒpƒtƒH[ƒ}ƒ“ƒX‚Ì–Ê‚ÅŒ©‚é‚Æ Apache + NoCGI.pm”Å ‚ª‚悳‚»‚¤‚Å‚·
+
+Q18.ƒ^ƒCƒgƒ‹‚Ì"Uploader" ‚â "Now.. Testing.." ‚Æ•\Ž¦‚³‚ê‚Ä‚¢‚é•”•ª‚ð‘‚«Š·‚¦‚½‚¢
+A18.Šù‚É‚ ‚镶Žš‚ð‘‚«Š·‚¦‚é’ö“x‚È‚çƒXƒNƒŠƒvƒg“à‚ðŠY“–•¶Žš‚ÅŒŸõ‚µ‚Ä’u‚«Š·‚¦‚Ä‚­‚¾‚³‚¢
+    HTMLƒwƒbƒ_‚È‚Ç‚ÍŒ‹\ƒqƒAƒhƒLƒ…ƒƒ“ƒg‚ŏ‘‚¢‚Ä‚é•”•ª‚ª‘½‚¢‚Ì‚Å
+    HTMLƒ^ƒO‚Ì’mŽ¯‚ª‚ ‚ê‚ΔäŠr“IŠÈ’P‚ɏ‘‚«Š·‚¦‚ç‚ê‚é‚ÆŽv‚¢‚Ü‚·
+
+Q19.ƒŠƒXƒg‚̏‡”Ô‚ª“ŠeŽžŠÔ‡‚Å‚Í‚ ‚è‚Ü‚¹‚ñ‚ª‚È‚º‚Å‚µ‚傤‚©H
+A19.ƒŠƒXƒg‚É•\Ž¦‚³‚ê‚é“ŠeŽžŠÔ‚Í POSTŠJŽnŽž ‚ÌŽžŠÔ‚Å‚·
+    ƒƒO‚ªXV‚³‚ê‚é‚Ì‚Í POSTŠ®—¹Œã ‚Ȃ̂эƒO‚ÌŽžŠÔ•\‹L‚̏‡”Ô‚ª‘½­“ü‚ê‘Ö‚í‚邱‚Æ‚ª‚ ‚è‚Ü‚·
+    ŒÂl“I‚É‚ÍPOST‚ðŽn‚ß‚½ŽžŠÔ‚𓊍eŽžŠÔ‚Æ‚µ‚½‚¢‚Ì‚Å‚±‚̂悤‚ÈŽd—l‚É‚È‚Á‚Ä‚¢‚Ü‚·
+      # ‚Æ‚¢‚¤‚©—]‚è‹C‚É‚µ‚Ä‚Ü‚¹‚ñ‚Å‚µ‚½
+    ‚Ç‚¤‚µ‚Ä‚àƒŠƒXƒg‚àŽžŠÔ‡‚É‚µ‚½‚¢‚Æ‚¢‚¤‚Ì‚È‚ç‚ÎDATE‚ð POSTŠ®—¹Œã ‚ÌŽžŠÔ‚É‚·‚ê‚΂悢‚©‚ÆŽv‚¢‚Ü‚·
+> $new[0] ‚ÅŒŸõ‚ð‚©‚¯‚é‚Æ
+> $new[0] = "$no<>$in{'addr'}<>$in{'time'}<>1\n";
+> ‚Æ‚¢‚¤s‚ª‚ ‚è‚Ü‚·‚Ì‚Å ‚»‚̍s‚̏ã‚É‚Å‚à
+> $in{'date'} = conv_date(time());
+> ‚Æ‚¢‚¤s‚ð‘«‚·‚Æ DATE ‚É‹L˜^‚³‚ê‚鎞ŠÔ‚Í POSTŠ®—¹Œã ‚ÌŽžŠÔ‚Æ‚È‚è‚Ü‚·
+> # $in{'date'} = conv_date(time()); ‚ÆŠù‚ɏ‘‚©‚ê‚Ä‚¢‚és‚ª‚ ‚é‚à‚Ì‚ðŽg‚Á‚Ä‚¢‚é‚Ì‚È‚ç‚Î
+> æ“ª‚Ì # ‚ðíœ‚·‚邾‚¯‚ÅŒ‹\‚Å‚·
+
+Q20.Ý’u‚µ‚½‚çƒT[ƒo‚ªd‚­‚È‚è‚Ü‚µ‚½ ‰½‚©‰ü‘P‚·‚é•û–@‚Í‚ ‚è‚Ü‚·‚©H
+A20.(;L„DM)‚ ‚ñ‚Ü–³—‚µ‚È‚¢‚Å‚­‚¾‚³‚¢
+    •’Ê‚ÌŒfŽ¦”“™‚É”ä‚ׂé‚ƃf[ƒ^‚̏o“ü—Í‚ª‘½‚­s‚í‚ê‚é‚Ì‚Å
+    ‰ñü/CPU•‰‰×‚͍‚‚ß‚É‚È‚éƒP[ƒX‚ª‘½‚¢‚ÆŽv‚¢‚Ü‚·
+    —˜—pŽÒl”‚â•Û‘¶Œ”/ƒtƒ@ƒCƒ‹ƒTƒCƒY‚È‚Ç‚ðl—¶‚µ‚ÄŽg‚Á‚Ä‚¢‚½‚¾‚¯‚ê‚΂悢‚©‚ÆŽv‚¢‚Ü‚·
+
+Q21.Å‘å“Še—e—Ê‚Í‚Ç‚ê‚­‚ç‚¢‚Ü‚Å‚¢‚¯‚Ü‚·‚©H
+A21.A1‚ɏ‘‚¢‚½‚悤‚Ȉʒu‚¯‚¾‚ÆŽv‚Á‚Ä‚¢‚Ü‚·‚Ì‚Å–³’ƒ‚Ȑݒè/Žg‚¢•û‚Í‚µ‚È‚¢•û‚ª‚æ‚¢‚©‚Æ
+    ˆê‰ž100MbpsLANŠÂ‹«(A16‚ÌApacheŠÂ‹«/Client-Win2000ProIE6)‚Å‚Í1GB’ö“x‚Ü‚ÅŠm”F‚µ‚Ü‚µ‚½‚ª
+    ƒT[ƒoŠÂ‹«EƒNƒ‰ƒCƒAƒ“ƒgŠÂ‹«E‰ñü•iŽ¿‚â‚»‚Ì‘¼Žg—pŠÂ‹«‚Ɉˑ¶‚µ‚Ü‚·‚µ
+    ‚Ü‚½‰Â”\‚ÆŽÀ—p‚͈Ⴂ‚Ü‚·‚Ì‚Å‚ ‚é’ö“x‚̉^—p‚ðŽ‚Á‚ĐݒuŽÒŽ©g‚ª”»’f‚µ‚Ä‚­‚¾‚³‚¢
+    ’A‚µ‚ ‚Ü‚è‚É‘å‚«‚¢ƒTƒCƒY‚̃tƒ@ƒCƒ‹‚ÍFTP‚ȂǕʃvƒƒgƒRƒ‹‚Å‚â‚èŽæ‚肵‚½‚Ù‚¤‚ª‚悳‚»‚¤‚Å‚·
+
+Q22.—e—ʐ§ŒÀ‚ª‚ ‚éƒT[ƒo‚ł͂ǂ̂悤‚Ȑݒ肪–]‚Ü‚µ‚¢‚Ì‚Å‚µ‚傤‚©H
+A22.Œ‹˜_“I‚É‚Í‚©‚È‚è‚Ì—]—T‚ðŽ‚½‚¹‚½Ý’è‚ð‚·‚é‚Ì‚ª–³“ï‚Å‚·
+    ‚Æ‚¢‚¤‚Ì‚à ‚±‚̃XƒNƒŠƒvƒg‚Å‚Í 1ƒtƒ@ƒCƒ‹‚ ‚½‚è‚Ì—e—Ê, •ÛŽƒƒO(ƒtƒ@ƒCƒ‹)”, ‘—e—Ê
+    ‚ðÝ’è‚Å‚«‚Ü‚·‚ª—e—ʐ§ŒÀ‚ª‚ ‚éƒT[ƒo‚É‚¨‚¢‚Ä‚Í‚±‚ê‚ç‚̐ݒè‚É’ˆÓ‚·‚é“_‚ª‚ ‚è‚Ü‚·
+      [ƒAƒbƒvƒ[ƒh] ---> [ƒƒO”/—e—ʃ`ƒFƒbƒN] ---> [ƒƒO—Ž‚¿•ª‚͍폜]
+    ‚Æ‚¢‚¤‡˜‚ŃXƒNƒŠƒvƒg‚͏ˆ—‚ð‚µ‚Ä‚¢‚é‚Ì‚Å —Ⴆ‚Î50MB‚̐§ŒÀ‚ªŠ|‚¯‚ç‚ê‚Ä‚¢‚éƒAƒJƒEƒ“ƒg‚Å
+    1ƒtƒ@ƒCƒ‹‚ ‚½‚è‚̍őå—e—Ê‚ð 50MB ‚ɐݒ肷‚é‚Æ 1ƒtƒ@ƒCƒ‹–Ú‚É50MB‚ðƒAƒbƒvƒ[ƒh‚µ‚½ê‡
+    •ÛŽƒƒO”‚ª1 ‚Å‚à 2ƒtƒ@ƒCƒ‹–Ú‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚È‚­‚È‚Á‚Ä‚µ‚Ü‚¤‚±‚Æ‚ª‚ ‚è‚Ü‚·
+    ‚±‚ê‚Í ƒAƒbƒvƒ[ƒhŠ®—¹Žž‚Ü‚Å‚É 1ƒtƒ@ƒCƒ‹–Ú‚ªŽc‚Á‚Ä‚¢‚邱‚Æ‚ªŒ´ˆö‚Æ‚È‚è‚Ü‚·
+    2ƒtƒ@ƒCƒ‹–ڂ̃Aƒbƒvƒ[ƒhŠJŽn‚Æ“¯Žž‚É1‚–ڂðÁ‚¹‚Ζâ‘肪–³‚­‚È‚é—l‚É‚àŒ©‚¦‚Ü‚·‚ª
+    ƒAƒbƒvƒ[ƒhŠ®—¹Žž‚Ü‚Å‚»‚ꂪ³í‚ɏI‚í‚é‚©‚Ç‚¤‚©‚Í•ª‚©‚è‚Ü‚¹‚ñ
+    ‚µ‚©‚µ‚È‚ª‚ç‚»‚Ì—l‚ÈŽd—l‚É‚µ‚½‚¢ê‡‚̓XƒNƒŠƒvƒg‚ð‚ ‚é’ö“x‰ü•Ï‚·‚邱‚Ƃʼn”\‚É‚È‚è‚Ü‚·
+    ‚Ü‚½•¡”ƒ†[ƒU[‚©‚ç‚Ì“¯Žž(•À—ñ)ƒAƒbƒvƒ[ƒhŽž‚à“¯—l‚È‚Ì‚Å•p“x‚ª‘½‚¢‚悤‚È‚ç
+    ’N‚©‚ªƒAƒbƒvƒ[ƒhŽž‚ɂ̓Aƒbƒvƒ[ƒh‚³‚¹‚È‚¢‚悤‚É‚·‚é‚Ȃǂ̍H•v‚ð‚µ‚½•û‚ª—Ç‚¢‚©‚à‚µ‚ê‚Ü‚¹‚ñ
+
+Q23.Šg’£ŽqMP4(‘啶Žš)‚ð’ljÁ‚µ‚½‚Ì‚Å‚·‚ª”FŽ¯‚³‚ê‚Ü‚¹‚ñ
+Q24.Šg’£ŽqMP4‚ðƒAƒbƒvƒ[ƒh‚·‚é‚Ə¬•¶Žš‚É‚È‚Á‚Ä‚µ‚Ü‚¤
+A23.A24 Šg’£ŽqƒtƒBƒ‹ƒ^[‚̏ˆ—‡˜‚ÌŠÖŒW‚Å
+        $set{'up_ext'} ‚É MP4 ‚ð’ljÁ‚·‚é‚Ì‚Ý‚Å‚Í”FŽ¯‚³‚ê‚Ü‚¹‚ñ
+        ‚±‚ê‚ÍŒ³ƒtƒ@ƒCƒ‹–¼Šg’£Žq‚ðˆê’U¬•¶Žš‚É•ÏŠ·‚µ‚½Œã‚É
+        Šg’£Žq•ÏŠ·‚ðŠ|‚¯‚Ä‚¢‚邱‚ƂɈö‚è‚Ü‚·.
+        ˆÈ‰º‚Ì•û–@‚ʼnñ”ð‚·‚é‚±‚Æ‚ª‚Å‚«‚Ü‚·
+        $set{'up_ext'}      ƒAƒbƒvƒ[ƒh‚Å‚«‚éŠî–{Šg’£Žq ‚É MP4 ‚ð’ljÁ
+        $set{'change_ext'}  Šg’£Žq•ÏŠ· ‚Ɂ@mp4->MP4 ‚ð’ljÁ
+///////////////////////////////////////////////
diff --git a/SnUploader/snup_051010e/uploader+cgipm/upload.cgi b/SnUploader/snup_051010e/uploader+cgipm/upload.cgi
new file mode 100644
index 0000000..15bec93
--- /dev/null
+++ b/SnUploader/snup_051010e/uploader+cgipm/upload.cgi
@@ -0,0 +1,1008 @@
+#!/usr/bin/perl
+use CGI;
+use vars qw(%set %in);
+use strict;
+$set{'log_file'} = './log.cgi';		#ƒƒOƒtƒ@ƒCƒ‹–¼
+$set{'max_log'} = 30;		#•ÛŽŒ”
+$set{'max_size'} = 1*1024;		#Å‘å“Še—e—Ê(KB)
+$set{'min_flag'} = 0;		#Å¬—e—ʐ§ŒÀ‚ðŽg—p‚·‚é=1
+$set{'min_size'} = 100;		#Å¬“Še—e—Ê(KB)
+$set{'max_all_flag'} = 0;		#‘—e—ʐ§ŒÀ‚ðŽg—p‚·‚é=1
+$set{'max_all_size'} = 20*1024;		#‘§ŒÀ—e—Ê(KB)
+$set{'file_pre'} = 'up';		#ƒtƒ@ƒCƒ‹Ú“ªŽ«
+$set{'pagelog'} = 10;		#1ƒy[ƒW‚É•\Ž¦‚·‚éƒtƒ@ƒCƒ‹”
+$set{'base_html'} = 'upload.html';		#1ƒy[ƒW–ڂ̃tƒ@ƒCƒ‹–¼
+$set{'interval'} = 0;		#“¯ˆêIP“ŠeŠÔŠu•b”
+$set{'deny_host'} = '';		#“Še‹ÖŽ~IP/HOST ,‚Å‹æØ‚é ex.(bbtec.net,219.119.66,ac.jp)
+$set{'admin_name'} = 'admin';		#ŠÇ—ŽÒƒƒOƒCƒ“ID
+$set{'admin_pass'} = '1234';		#ŠÇ—ŽÒƒpƒXƒ[ƒh
+
+# ˆÈ‰º5€–Ú‚ðÄÝ’è‚·‚éÛ‚É‚ÍPATHCƒfƒBƒŒƒNƒgƒŠ‚Í / ‚ŏI‚í‚邱‚Æ
+# $set{'html_dir'},$set{'base_cgi'}‚ð ./ ˆÈŠO‚ɐݒ肷‚éê‡,
+# ‚Ü‚½‚ÍDLkey‚ðŽg—p‚µ ‚È‚¨‚©‚ÂHTMLƒLƒƒƒbƒVƒ…($set{'dummy_html'} = 2 or 3)‚ðŽg—p‚·‚éê‡‚Í
+# $set{'base_cgi'} , $set{'http_html_path'} , $set{'http_src_path'} ‚ðƒtƒ‹ƒpƒX(http://`` or /``)‚Å‹Lq‚·‚é
+$set{'html_dir'} = './';		# “à•”HTML•Û‘¶ƒfƒBƒŒƒNƒgƒŠ
+$set{'src_dir'} = './src/';		# “à•”ƒtƒ@ƒCƒ‹•Û‘¶ƒfƒBƒŒƒNƒgƒŠ
+$set{'base_cgi'} = './upload.cgi'; # ‚±‚̃XƒNƒŠƒvƒg–¼ http://`‚ÌŽw’è‰Â”\
+$set{'http_html_path'} = './';		# htmlŽQÆ httpPATH http://`‚ÌŽw’è‰Â”\
+$set{'http_src_path'} = './src/';		# fileŽQÆ httpPATH http://`‚ÌŽw’è‰Â”\
+
+$set{'dlkey'} = 0;		# DLKey‚ðŽg—p‚·‚é=1,DLkey•K{=2
+$set{'up_ext'} = 'txt,lzh,zip,rar,gca,mpg,mp3,avi,swf,bmp,jpg,gif,png'; #ƒAƒbƒvƒ[ƒh‚Å‚«‚éŠî–{Šg’£Žq ”¼Šp‰p”¬•¶Žš ,‚Å‹æØ‚é
+$set{'up_all'} = 0;		#“o˜^ˆÈŠO‚Ì‚à‚Ì‚àUP‚³‚¹‚ç‚ê‚é‚悤‚É‚·‚é=1
+$set{'ext_org'} = 0;	#$set{'up_all'}‚ª1‚ÌŽžƒIƒŠƒWƒiƒ‹‚ÌŠg’£Žq‚É‚·‚é=1
+$set{'deny_ext'} = 'php,php3,phtml,rb,sh,bat,dll'; 	#“Še‹ÖŽ~‚ÌŠg’£Žq ”¼Šp‰p”¬•¶Žš ,‚Å‹æØ‚é
+$set{'change_ext'} = 'cgi->txt,pl->txt,log->txt,jpeg->jpg,mpeg->mpg';		#Šg’£Žq•ÏŠ· ‘O->Œã ”¼Šp‰p”¬•¶Žš ,‚Å‹æØ‚é
+
+$set{'home_url'} = '';		#[HOME]‚̃Šƒ“ƒNæ ‘Š‘΃pƒX–”‚Í http://‚©‚çŽn‚Ü‚éâ‘΃pƒX
+$set{'html_all'} = 1;		#[ALL]‚ðo‚·=1
+$set{'dummy_html'} = 0;		#ƒtƒ@ƒCƒ‹ŒÂ•ÊHTML‚ðì¬‚·‚é ’Êíƒtƒ@ƒCƒ‹‚Ì‚Ý=1,DLKeyÝ’èƒtƒ@ƒCƒ‹‚Ì‚Ý=2,‚·‚ׂÄ=3
+$set{'find_crypt'} = 1;		#ˆÃ†‰»ZIP‚ðŒŸo‚·‚é=1
+$set{'binary_compare'} = 0;		#Šù‘¶ƒtƒ@ƒCƒ‹‚ƃoƒCƒiƒŠ”äŠr‚·‚é=1
+$set{'post_flag'} = 0;		#PostKey‚ðŽg—p‚·‚é=1
+$set{'post_key'} = 'postkey';		#PostKey ,‚Å‹æØ‚é‚Æ•¡”Žw’è ex.(postkey1,postkey2)
+$set{'disp_error'} = 1;		#ƒ†[ƒU[‚ɃGƒ‰[‚ð•\Ž¦‚·‚é=1
+$set{'error_level'} = 1;		#ƒGƒ‰[ƒƒO‚ð‹L˜^‚·‚é=1
+$set{'error_log'} = './error.cgi';		#ƒGƒ‰[ƒƒOƒtƒ@ƒCƒ‹–¼
+$set{'error_size'} = 1024;	# ƒGƒ‰[ƒƒOÅ‘å—e—Ê(KB) §ŒÀ‚È‚µ=0
+$set{'zero_clear'} = 1;		#ƒtƒ@ƒCƒ‹‚ªŒ©‚‚©‚ç‚È‚¢ê‡ƒƒO‚©‚çíœ‚·‚é=1
+
+$set{'disp_comment'} = 1; 	#ƒRƒƒ“ƒg‚ð•\Ž¦‚·‚é=1
+$set{'disp_date'} = 1;		#“ú•t‚ð•\Ž¦‚·‚é=1
+$set{'disp_size'} = 1;		#ƒTƒCƒY‚ð•\Ž¦‚·‚é=1
+$set{'disp_mime'} = 1;		#MIMETYPE‚ð•\Ž¦‚·‚é=1
+$set{'disp_orgname'} = 1;	#ƒIƒŠƒWƒiƒ‹ƒtƒ@ƒCƒ‹–¼‚ð•\Ž¦‚·‚é=1
+
+$set{'per_upfile'} = 0666;		#ƒAƒbƒvƒ[ƒhƒtƒ@ƒCƒ‹‚̃p[ƒ~ƒbƒVƒ‡ƒ“ suexec=0604,other=0666
+$set{'per_dir'} = 0777;		#ƒ\[ƒXƒAƒbƒvƒfƒBƒŒƒNƒgƒŠ‚̃p[ƒ~ƒbƒVƒ‡ƒ“ suexec=0701,other=0777
+$set{'per_logfile'} = 0666;		#ƒƒOƒtƒ@ƒCƒ‹‚̃p[ƒ~ƒbƒVƒ‡ƒ“@suexec=0600,other=0666
+$set{'link_target'} = '';		#target‘®«
+
+#------
+$set{'ver'} = '2005/10/10e CGI.pm';
+$set{'char_delname'} = 'D';
+
+$in{'time'} = time(); $in{'date'} = conv_date($in{'time'});
+$in{'addr'} = $ENV{'REMOTE_ADDR'};
+$in{'host'} = gethostbyaddr(pack('C4',split(/\./, $in{'addr'})), 2) || $ENV{'REMOTE_HOST'} || '(none)';
+if($in{'addr'} eq $in{'host'}){ $in{'host'} = '(none)'; }
+
+$set{'html_head'} =<<"EOM";
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html lang="ja">
+<HEAD>
+<META name="robots" content="noindex,nofollow">
+<META name="ROBOTS" content="NOINDEX,NOFOLLOW">
+<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">
+<META http-equiv="Pragma" content="no-cache">
+<META http-equiv="Cache-Control" content="no-cache">
+<META http-equiv="Expires" content="0">
+<TITLE>Uploader</TITLE>
+EOM
+
+$set{'html_css'} =<<"EOM";
+<META http-equiv="Content-Style-Type" content="text/css">
+<STYLE type="text/css"><!--
+input,td{ font-size: 10pt;font-family:Chicago,Verdana,Arial,sans-serif,"‚l‚r ‚oƒSƒVƒbƒN"; }
+a:hover { background-color:#EECCCC; }
+input,textarea{	border-top : 1px solid ; border-bottom : 1px solid ; border-left : 1px solid ; border-right : 1px solid ;font-size:10pt;background-color:#FFFFFF; }
+-->
+</STYLE>
+EOM
+
+unless(-e $set{'log_file'}){ &init; }
+unless(-e $set{'base_html'}){ &makehtml; }
+
+{ #ƒfƒR[ƒh
+	if ($ENV{'REQUEST_METHOD'} eq "POST" && $ENV{'CONTENT_TYPE'} =~ /multipart\/form-data/i){
+		if ($ENV{'CONTENT_LENGTH'} > ($set{'max_size'} * 1024 + 1024)){ if($ENV{'SERVER_SOFTWARE'} =~ /IIS/){ while(read(STDIN,my $buff,8192)){} } &error(106,$ENV{'CONTENT_LENGTH'});}
+ 	}else{
+ 		if ($ENV{'CONTENT_LENGTH'} > 1024*100){ error(98); }
+ 	}
+	my %ck; foreach(split(/;/,$ENV{'HTTP_COOKIE'})){ my($key,$val) = split(/=/); $key =~ s/\s//g; $ck{$key} = $val;}
+	my @ck = split(/<>/,$ck{'SN_USER'});
+	if(length($ck[0]) < 5){ 
+		my @salt = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/'); srand;
+		my $salt = $salt[int(rand(@salt))] . $salt[int(rand(@salt))];
+		$in{'user'} = crypt($in{'addr'}.$in{'time'}, $salt);
+	}else{ $in{'user'} = $ck[0]; }
+	
+	my $q = new CGI;
+	$in{'upfile'} = $q->param('upfile');
+	$in{'tmpfile'} = $q->tmpFileName($in{'upfile'});
+	$in{'type'} = $q->uploadInfo($in{'upfile'})->{'Content-Type'} if ($in{'upfile'});
+	$in{'pass'} = $q->param('pass');	$in{'mode'} = $q->param('mode');	
+	$in{'delno'} = $q->param('delno');	$in{'comment'} = $q->param('comment');
+	$in{'jcode'} = $q->param('jcode');	$in{'delpass'} = $q->param('delpass');
+	$in{'orgname'} = $in{'upfile'};	$in{'postkey'} = $q->param('postkey');
+	$in{'org_pass'} = $in{'pass'};
+	$in{'checkmode'} = $q->param('checkmode');
+	$in{'file'} = $q->param('file');	$in{'dlkey'} = $q->param('dlkey');
+	$in{'admin_delno'} = join(',',$q->param('admin_delno'));
+	my @denyhost = split(/,/,$set{'deny_host'});
+	foreach my $value (@denyhost){
+		if ($in{'addr'} =~ /$value/ || $in{'host'} =~ /$value/){ &error(101);}
+	}
+
+	my @form = ($in{'comment'},$in{'orgname'},$in{'type'},$in{'dlkey'});
+	foreach my $value (@form) {
+		if (length($value) > 128) { $value = substr($value,0,128).'...'; }
+#		$value =~ s/&/&amp;/g;
+		$value =~ s/"/&quot;/g;
+		$value =~ s/</&lt;/g;
+		$value =~ s/>/&gt;/g;
+		$value =~ s/\r//g;
+		$value =~ s/\n//g;
+		$value =~ s/\t//g;
+		$value =~ s/\0//g;
+	}
+	($in{'comment'},$in{'orgname'},$in{'type'},$in{'dlkey'}) = @form;
+	 $in{'tmpfile2'} = &filewrite() if ($in{'upfile'});
+}
+
+if($in{'delno'} eq $set{'admin_name'} && $in{'delpass'} eq $set{'admin_pass'}){ &admin_mode(); }
+if(!$in{'delno'} && $in{'delpass'} eq $set{'admin_pass'}){ &makehtml(); &quit(); }
+if($in{'mode'} eq 'dl'){ &dlfile;} #DL
+if($in{'mode'} eq 'delete'){ &delete(); &quit(); }
+
+{#ƒƒCƒ“ˆ—
+	if(!$in{'upfile'}){ &error(99); }
+	if($set{'post_flag'} && !check_postkey($in{'postkey'})){ error(109); }
+	if($set{'dlkey'} == 2 && !$in{'dlkey'}){ unlink("$in{'tmpfile2'}"); &error(61); }
+	open(IN,$set{'log_file'})||&error(303);
+	my @log = <IN>;
+	close(IN);
+	my ($no,$lastip,$lasttime) = split(/<>/,$log[0]);
+
+	if($set{'interval'} && $set{'interval'} && $in{'time'} <= ($lasttime + $set{'interval'}) && $in{'addr'} eq $lastip){ &error(203);}
+	$in{'ext'} = extfind($in{'orgname'}); if(!$in{'ext'} && $in{'upfile'}){ &error(202); }
+
+	my $orgname;
+	if(split(/\//,$in{'orgname'}) > split(/\\/,$in{'orgname'})){	my @name = split(/\//,$in{'orgname'}); $orgname = $name[$#name]; }
+	else{ my @name = split(/\\/,$in{'orgname'}); $orgname = $name[$#name];}
+	
+	my @salt = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/');
+	srand;
+	my $salt = $salt[int(rand(@salt))] . $salt[int(rand(@salt))];
+	$in{'pass'} = crypt($in{'pass'}, $salt);
+
+	if($set{'binary_compare'}){
+		my @files = globfile("$set{'src_dir'}",".*");
+		my @dir = globdir("$set{'src_dir'}",".*");
+		foreach my $dir (@dir){	push(@files,globfile($dir."/",".*")); }
+		foreach my $value (@files){
+			next if($value =~ /\.temporary$/);
+			if(binarycmp($in{'tmpfile2'},$value)){ unlink($in{'tmpfile2'}); &error(205,$value);}
+		}
+	}
+
+	if($set{'find_crypt'}){
+		open(FILE,$in{'tmpfile'}); binmode(FILE); seek(FILE,0,0); read(FILE,my $buff,4); my $crypt_flag = 0;
+		if($buff =~ /^\x50\x4b\x03\x04$/){ seek(FILE,6,0); read(FILE,my $buff,1); $crypt_flag = 1 if(($buff & "\x01") eq "\x01"); }
+		close(FILE);
+		$in{'comment'} = '<font color="#FF0000">*</font>'.$in{'comment'} if($crypt_flag);
+	}
+
+	open(IN,$set{'log_file'})||&error(303);
+	@log = <IN>;
+	close(IN);
+	($no,$lastip,$lasttime) = split(/<>/,$log[0]);
+	shift(@log);
+	$no++;
+	my $tmpno = sprintf("%04d",$no);
+
+	my $dlsalt;
+	my $filedir;
+	my $allsize = (-s $in{'tmpfile2'});
+
+	if($set{'dlkey'} && $in{'dlkey'}){
+		my @salt = ('a'..'z', 'A'..'Z', '0'..'9'); srand;
+		for (my $c = 1; $c <= 20; ++$c) { $dlsalt .= $salt[int(rand(@salt))]; }
+	 	$filedir = "$set{'src_dir'}$set{'file_pre'}${tmpno}.$in{'ext'}_$dlsalt/";
+		mkdir($filedir,$set{'per_dir'});
+		rename("$in{'tmpfile2'}","$filedir$set{'file_pre'}$tmpno.$in{'ext'}");
+		open(OUT,">${filedir}index.html");
+		close(OUT);
+		chmod($set{'per_upfile'},"${filedir}index.html");
+		$in{'comment'} = '<font color="#FF0000">[DLKey] </font>'.$in{'comment'};
+	}else{
+		undef $in{'dlkey'};
+		rename("$in{'tmpfile2'}","$set{'src_dir'}$set{'file_pre'}$tmpno.$in{'ext'}");
+	}
+
+	if (length($orgname) > 128) { $orgname = substr($orgname,0,128).'...'; }
+
+	my @note;
+	if($set{'post_flag'} && $set{'post_key'}){
+		push(@note,'PostKey:'.$in{'postkey'});
+	}
+	if($ENV{'SERVER_SOFTWARE'} =~ /Apache|IIS/){
+		my $disptime;
+		my $time = time() - $in{'time'};
+		my @str = ('Upload:','•b');
+		my $disptime = $time.$str[1];
+		push(@note,$str[0].$disptime);
+	}
+	if($in{'dlkey'}){
+		my @salt = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/'); srand;
+		my $salt = $salt[int(rand(@salt))] . $salt[int(rand(@salt))];
+		my $crypt_dlkey  = crypt($in{'dlkey'}, $salt);
+		push(@note,"DLKey<!-- DLKey:".$crypt_dlkey." --><!-- DLpath:".$dlsalt." -->");
+	}
+	my $note = join(',',@note);
+	my $usersalt = substr($in{'user'},0,2);
+	my $userid = crypt($in{'user'},$usersalt);
+	$in{'time'} = time();
+#	$in{'date'} = conv_date(time());
+	my @new;
+	$new[0] = "$no<>$in{'addr'}<>$in{'time'}<>1\n";
+	my $addlog = "$no<>$in{'ext'}<>$in{'date'}<>$in{'comment'}<>$in{'type'}<>$orgname<>$in{'addr'}<>$in{'host'}<>$in{'pass'},$userid<>$set{'file_pre'}<>$note<>1\n";
+	$new[1] = $addlog;
+
+#	open(OUT,">>./alllog.cgi"); print OUT $addlog; close(OUT);
+
+	my $i = 2;
+
+	foreach my $value (@log){
+		my ($no,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$filepre,$note,$dummy) = split(/<>/,$value);
+		if(!$dummy){ $filepre = $set{'file_pre'};}
+		$no = sprintf("%04d",$no);
+
+		my $filename;
+		my $filedir;
+		if($note =~ /DLpath:(.+)\s/){
+			my $dlpath = $1;
+			$filename = "$set{'src_dir'}$filepre$no.${ext}_$dlpath/$filepre$no.$ext";
+			$filedir = "$set{'src_dir'}$filepre$no.${ext}_$dlpath/";
+		}else{
+			$filename = "$set{'src_dir'}$filepre$no.$ext";
+		}
+		$allsize += (-s $filename);
+		
+		if($i <= $set{'max_log'} && !($set{'max_all_flag'} && $set{'max_all_size'}*1024 < $allsize)){ 
+			if((-e $filename)||!$set{'zero_clear'}){ push(@new,$value); $i++; }
+		}else{
+			if(unlink($filename)){
+				unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } } rmdir($filedir);
+			}elsif(unlink($filename)){
+				unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } } rmdir($filedir);
+			}elsif(-e $filename){
+				push(@new,$value);
+			}else{
+				unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } } rmdir($filedir);
+			}
+		}
+	}
+	logwrite(@new);
+	if($in{'dlkey'} && ( $set{'dummy_html'} == 2 || $set{'dummy_html'} == 3)){
+		&makedummyhtml("$set{'file_pre'}$tmpno.$in{'ext'}",$in{'comment'},"$set{'file_pre'}$tmpno.$in{'ext'}",$dlsalt,$in{'date'},$in{'type'},$orgname,$no);
+	}elsif(!$in{'dlkey'} && ($set{'dummy_html'} == 1 || $set{'dummy_html'} == 3)){
+		&makedummyhtml("$set{'file_pre'}$tmpno.$in{'ext'}");
+	}
+	&makehtml(); &quit();
+}
+
+sub makehtml{
+
+	my ($buff,$init,$postval,$dlkey);
+	my $page = 0; my $i = 1;
+	
+	open(IN,$set{'log_file'})||&error(303);
+	my $log = my @log = <IN>;
+	close(IN);
+	
+	if($log == 1){ $log++; $init++;}
+	my $lastpage = int(($log - 2)/$set{'pagelog'}) + 1;
+	$postval = ' obj.postkey.value =  unescape(p[1]);' if($set{'post_flag'});
+	my $header =<<"EOM";
+$set{'html_head'}<META http-equiv="Content-Script-Type" content="text/javascript">
+<script type="text/javascript">
+<!--
+function getCookie(obj,cookiename){
+	var i,str; c = new Array(); p = new Array("",""); str = document.cookie;c = str.split(";");
+	for (i = 0; i < c.length; i++) { if (c[i].indexOf(cookiename+"=") >= 0) { p = (c[i].substr(c[i].indexOf("=")+1)).split("<>"); break; }}
+	if(cookiename == "SN_UPLOAD"){ obj.pass.value =  unescape(p[0]);$postval }
+	else if(cookiename == "SN_DEL"){ obj.delpass.value =  unescape(p[0]);}
+	return true;
+}
+function delnoin(no){
+	document.Del.delno.value = no;
+	document.Del.del.focus();
+}
+//-->
+</script>
+$set{'html_css'}</HEAD>
+<body bgcolor="#ffffff" text="#000000" LINK="#6060FF" VLINK="#6060FF" ALINK="#6060FF" onload="getCookie(document.Form,'SN_UPLOAD');getCookie(document.Del,'SN_DEL');">
+<table summary="title" width="100%"><tr><td bgcolor="#caccff"><strong><font size="4" color="#3366cc">Uploader</font></strong></td></tr></table>
+<p>
+Now.. Testing..
+</p>
+EOM
+	my $maxsize = 'Max '.dispsize($set{'max_size'}*1024);
+	my ($minsize,$total);
+	if($set{'min_flag'}){ $minsize = 'Min '.dispsize($set{'min_size'}*1024).' - '; }
+	if($set{'max_all_flag'}){ $total .= ' Total '.dispsize($set{'max_all_size'}*1024);}
+	$header .= qq|<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="$set{'base_cgi'}" name="Form">FILE $minsize$maxsize (*$set{'max_log'}Files$total)<br>|;
+	$header .='<INPUT TYPE=file  SIZE="40" NAME="upfile">';
+	$header .= ' DLKey: <INPUT TYPE=text SIZE="8" NAME="dlkey" maxlength="8">' if($set{'dlkey'});
+	$header .= '
+DELKey: <INPUT TYPE=password SIZE="10" NAME="pass" maxlength="8"><br>
+COMMENT<br>
+<INPUT TYPE=text SIZE="45" NAME="comment">
+<INPUT TYPE=hidden NAME="jcode" VALUE="Š¿Žš">
+<INPUT TYPE=submit VALUE="Upload"><INPUT TYPE=reset VALUE="Cancel"><br>
+';
+	if($set{'post_flag'}){ $header .= 'PostKey<br><INPUT TYPE=password SIZE="10" NAME="postkey" maxlength="10">'; }
+	$header .= '</FORM>';
+
+	my $allsize = 0;
+	my @files = globfile("$set{'src_dir'}",".*");
+	my @dir = globdir("$set{'src_dir'}",".*");
+	foreach my $dir (@dir){	push(@files,globfile($dir."/",".*")); }
+	foreach my $value (@files){ $allsize += (-s "$value"); }
+
+	$allsize = dispsize($allsize);
+
+	my $footer = "</table><HR size=1>Used ${allsize}\n<br>";
+	if($set{'up_all'} && !$set{'ext_org'}){ $footer .= $set{'up_ext'}.' +'; }
+	elsif(!$set{'up_all'}){ $footer .= $set{'up_ext'}; }
+	$footer .= "\n<table summary=\"footer\" width=\"100%\"><tr><td><div align=left><FORM METHOD=POST ACTION=\"$set{'base_cgi'}\" name=\"Del\"><span style='font-size:9pt'><input type=hidden name=mode value=delete>No.<input type=text size=4 name=delno> key<input type=password size=4 name=delpass> <input type=submit value=\"del\" name=del></span></form></div>\n";
+	$footer .= "</td><td><div align=right><!-- $set{'ver'} --><a href=\"http://sugachan.dip.jp/download/\" target=\"_blank\"><small>Sn Uploader</small></a></div></td></tr></table>\n</body>\n</html>";
+
+	my $info_title = "<table summary=\"upinfo\" width=\"100%\">\n<tr><td></td><td>NAME</td>";
+	if($set{'disp_comment'}){ $info_title .= "<td>COMMENT</td>"; } if($set{'disp_size'}){ $info_title .= "<td>SIZE</td>"; } if($set{'disp_date'}){ $info_title .= "<td>DATE</td>"; }
+	if($set{'disp_mime'}){ $info_title .= "<td>MIME</td>"; } if($set{'disp_orgname'}){ $info_title .= "<td>ORIG</td>"; }
+	$info_title .= "</tr>\n";
+
+	my $home_url_link;
+	if($set{'home_url'}){ $home_url_link = qq|<a href="$set{'home_url'}">[HOME]</a> |;}
+	if($set{'html_all'}){
+		my $buff; my $no = 1; my $time = time; my $subheader;
+		foreach my $value (@log){
+			my ($no,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$dummy) = split(/<>/,$value);
+			if(!$dummy){ next; }
+			$buff .= makeitem($value);
+		}
+		$subheader .= "[ALL] ";
+		while($no <= $lastpage){
+			if($no == $page) { $subheader .= "\[$no\] ";}
+			else{	if($no == 1){ $subheader .= "<a href=\"$set{'http_html_path'}$set{'base_html'}?$time\">\[$no\]</a> "}
+					else{$subheader .= "<a href=\"$set{'http_html_path'}$no.html?$time\">\[$no\]</a> ";}	}
+			$no++;
+		}
+		$subheader .= $info_title;
+		open(OUT,">$set{'html_dir'}all.html")||&error(306,"$set{'html_dir'}all.html");
+		print OUT $header."<hr size=1>".$home_url_link.$subheader."<hr size=1>".$buff.$footer;
+		close(OUT);
+		chmod($set{'per_upfile'},"$set{'html_dir'}all.html");
+	}else{ unlink("$set{'html_dir'}all.html"); }
+	
+	while($log > $i){
+		$buff .= makeitem($log[$i]) unless($init);
+		if(($i % $set{'pagelog'}) == 0||$i == $log -1){
+			$page++; my $subheader; my $no = 1;	my $time = time;
+			if($set{'html_all'}){ $subheader .= "<a href=\"./all.html?$time\">[ALL]</a> "; }
+			while($no <= $lastpage){
+				if($no == $page) { $subheader .= "\[$no\] ";}
+				else{	if($no == 1){ $subheader .= "<a href=\"$set{'http_html_path'}$set{'base_html'}?$time\">\[$no\]</a> "}
+						else{$subheader .= "<a href=\"$set{'http_html_path'}$no.html?$time\">\[$no\]</a> ";}
+				}
+				$no++;
+			}
+			$subheader .= $info_title;
+			my $loghtml;
+			if($page == 1){	$loghtml = "$set{'html_dir'}$set{'base_html'}"; }
+			else{ $loghtml = "$set{'html_dir'}$page.html"; }
+
+			open(OUT,">$loghtml") || &error(306,"$loghtml");
+			print OUT $header."<hr size=1>".$home_url_link.$subheader."<hr size=1>".$buff.$footer;
+			close(OUT);
+			chmod($set{'per_upfile'},$loghtml);
+			undef $buff;
+		}
+		$i++;
+	}
+
+	while($page < 1000){
+		$page ++;
+		if(-e "$set{'html_dir'}$page.html"){ unlink("$set{'html_dir'}$page.html"); }else{ last; }
+	}
+}
+
+sub filewrite{
+	my $random = int(rand(900000)) + 100000;
+	if(-e "$set{'src_dir'}$random.temporary"){ $random++; }
+	if(-e "$set{'src_dir'}$random.temporary"){ &error(204); }
+	open (FILE,">$set{'src_dir'}$random.temporary") || &error(204);
+	binmode(FILE);
+	eval{ while(my $read = read($in{'upfile'}, my $buff, 8192)){ print FILE $buff; }};
+	close(FILE);
+	chmod($set{'per_upfile'},"$set{'src_dir'}$random.temporary");
+	if((-s "$set{'src_dir'}$random.temporary") == 0){ unlink("$set{'src_dir'}$random.temporary"); &error(99); }
+	my $size = (-s "$set{'src_dir'}$random.temporary");
+	if($set{'min_flag'} && ($size < $set{'min_size'} * 1024)){ unlink("$set{'src_dir'}$random.temporary"); &error(107,$size);}
+	if($size > $set{'max_size'} * 1024){ unlink("$set{'src_dir'}$random.temporary"); &error(106,$size);}
+	eval { close($in{'upfile'});};
+	unlink($in{'tmpfile'});
+	return("$set{'src_dir'}$random.temporary");
+}
+
+sub delete{
+	my $mode = $_[0];
+	my @delno = split(/,/,$_[1]);
+	my $delno; my $flag = 0; my $tmpaddr;
+	my $delnote;
+
+	if($in{'delno'} =~ /(\d+)/){ $delno = $1; }
+	if($mode ne 'admin' && !$in{'delno'}){ return; }
+	elsif($mode ne 'admin' && !$delno){ &error(401,$in{'delno'}); }
+
+	open(IN,$set{'log_file'})|| &error(303);
+	my @log = <IN>;
+	close(IN);
+
+	if($in{'addr'} =~ /(\d+).(\d+).(\d+).(\d+)/){ $tmpaddr = "$1.$2.$3."; }
+	my $findflag = 0;
+	foreach my $value (@log){
+		my ($no,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$filepre,$note,$dummy) = split(/<>/,$value);
+		$delnote = $note;
+		my $delflag = 0;
+		if(!$addr){ next; }
+		if($mode eq 'admin'){
+			foreach my $delno (@delno){ if($no == $delno){ $delflag = 1; last; } }
+		}elsif($no == $delno){
+			$findflag = 1;
+			unless ($addr =~ /^$tmpaddr/){
+				my ($pass,$id) = split(/,/,$pass);
+				my $delpass = $in{'delpass'} || $in{'addr'}.time();
+				my $salt = substr($pass, 0, 2);	$delpass = crypt($delpass,$salt);
+				my $usersalt = substr($in{'user'},0,2); my $userid = crypt($in{'user'},$usersalt);
+				if ($in{'delpass'} ne $set{'admin_pass'} && $delpass ne $pass && $userid ne $id){ 
+					if($mode ne 'admin'){ if(!$dummy){ $filepre = $set{'file_pre'};} $no = sprintf("%04d",$no); &error(404,"$filepre$no.$ext");}
+				}
+			}
+			$delflag = 1;
+		}
+		if($delflag){
+#			open(OUT,">>./del.cgi"); print OUT $value; close(OUT);
+			$flag = 1;
+			if(!$dummy){ $filepre = $set{'file_pre'};}
+			$no = sprintf("%04d",$no);
+			my $filename;
+			my ($dlpath,$filedir);
+			if($delnote =~ /DLpath:(.+)\s/){
+				$dlpath = $1;
+				$filename = "$set{'src_dir'}$filepre$no.${ext}_$dlpath/$filepre$no.$ext";
+				$filedir = "$set{'src_dir'}$filepre$no.${ext}_$dlpath/";
+			}else{
+				$filename = "$set{'src_dir'}$filepre$no.$ext";
+			}
+			
+			if(unlink($filename)){
+				unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } rmdir($filedir);} undef $value;
+			}elsif(unlink($filename)){
+				unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } rmdir($filedir);} undef $value;
+			}elsif(!(-e $filename)){
+				unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } rmdir($filedir);} undef $value;
+			}else{
+				if($mode ne 'admin'){ &error(403,"$filepre$no.$ext");}
+			}
+		}
+	}
+	if($mode ne 'admin' && !$findflag){ &error(402,$delno); }
+	if($flag){
+		logwrite(@log);
+		&makehtml();
+	}
+}
+
+sub quit{
+	my ($cookiename,$buff);
+	my $flag = 0;
+	my @tmpfiles = globfile("$set{'src_dir'}","\.temporary");
+	foreach my $value (@tmpfiles){ if((stat($value))[10] < time - 60*60){ unlink("$value"); $flag++; } }
+	&makehtml() if($flag);
+	$buff =<<"EOM";
+$set{'html_head'}<META HTTP-EQUIV="Refresh" CONTENT="1;URL=$set{'http_html_path'}$set{'base_html'}">
+EOM
+	if($in{'jcode'} || $in{'mode'} eq 'delete'){
+		$buff .=<<"EOM";
+<META HTTP-EQUIV="Set-Cookie" content="SN_USER=$in{'user'}&lt;&gt;1; path=/; expires=Tue, 31-Dec-2030 23:59:59 GMT">
+<META HTTP-EQUIV="CONTENT-SCRIPT-TYPE" CONTENT="text/javascript">
+<script type="text/javascript">
+<!--
+setCookie();
+function setCookie() {
+	var key1,key2;
+	var tmp = "path=/; expires=Tue, 31-Dec-2030 23:59:59; ";
+EOM
+		if($in{'jcode'}){
+			my %ck; foreach(split(/;/,$ENV{'HTTP_COOKIE'})){ my($key,$val) = split(/=/); $key =~ s/\s//g; $ck{$key} = $val;}
+			my @ck = split(/<>/,$ck{'SN_DEL'});
+			if(!$ck[0] && $in{'org_pass'}){	$buff .= qq|\tdocument.cookie = "SN_DEL="+escape('$in{'org_pass'}')+"<>;"+ tmp;\n|;}
+			$cookiename = 'SN_UPLOAD'; $buff .= "\tkey1 = escape('$in{'org_pass'}'); key2 = escape('$in{'postkey'}');\n";}
+		else{ $cookiename = 'SN_DEL'; $buff .= "\tkey1 = escape('$in{'delpass'}'); key2 = '';\n"; }
+		$buff .= qq|\tdocument.cookie = "$cookiename="+key1+"<>"+key2+"; "+ tmp;\n}\n//-->\n</script>\n|;
+	}
+	$buff .=<<"EOM";
+<body>
+<br><br><div align=center><font size="+1"><br><br>
+<a href="$set{'http_html_path'}$set{'base_html'}?$in{'time'}">click here!</a></font><br>
+</div>
+</body></html>
+EOM
+	print "Content-type: text/html\n\n";
+	print $buff;
+	exit;
+}
+
+sub admin_mode{
+	&errorclear() if($in{'mode'} eq 'errorclear');
+	&delete('admin',$in{'admin_delno'}) if($in{'mode'} eq 'delete');
+
+	open(IN,$set{'log_file'})||error(303);
+	my @log = <IN>;
+	close(IN);
+
+	my ($header,$buff,$footer,$value);
+	$buff =<<"EOM";
+$set{'html_head'}$set{'html_css'}</HEAD>
+<body bgcolor="#ffffff" text="#000000" LINK="#6060FF" VLINK="#6060FF" ALINK="#6060FF">
+EOM
+
+	$buff .= leaddisp(0,1,1).'<a name="up"></a><table summary="title" width="100%"><tr><td bgcolor="#caccff"><strong><font size="4" color="#3366cc">Upload Info</font></strong></td></tr></table>';
+	$buff .= qq|<table summary="check"><tr><td><form action="$set{'base_cgi'}" method="POST"><input type=hidden name="checkmode" value="allcheck"><input type=hidden name=delno value="$in{'delno'}"><input type=hidden name=delpass value="$in{'delpass'}"><input type=submit value="‚·‚ׂă`ƒFƒbƒN"></form></td><td><form action="$set{'base_cgi'}" method="POST"><input type=hidden name="checkmode" value="nocheck"><input type=hidden name=delno value="$in{'delno'}"><input type=hidden name=delpass value="$in{'delpass'}"><input type=submit value="‚·‚ׂĊO‚·"></form></td><td><form action="$set{'base_cgi'}" method="POST"><input type=hidden name=delpass value="$set{'admin_pass'}"><input type=submit value="HTML‚ðXV‚·‚é/ƒƒOƒAƒEƒg"></form></td></tr></table>\n<form action="$set{'base_cgi'}" method="POST"><input type=hidden name="mode" value="delete"><input type=hidden name=delno value="$in{'delno'}"><input type=hidden name=delpass value="$in{'delpass'}"><input type=submit value="ƒ`ƒFƒbƒN‚µ‚½‚à‚Ì‚ðíœ"><br>\n|."<table summary=\"upinfo\" width=\"100%\">\n<tr><td>DEL</td><td>NAME</td><td>COMMENT</td><td>SIZE</td><td>ADDR</td><td>HOST</td><td>DATE</td><td>NOTE</td><td>MIME</td><td>ORIG</td></tr>\n";
+	shift(@log);
+	foreach (@log){	$buff .= makeitem($_,'admin'); }
+	$buff .= '</table></form><br><br>';
+
+	if($set{'error_level'}){
+		$buff .= leaddisp(-1,0,1).'<a name="error"></a><table summary="errortitle" width="100%"><tr><td bgcolor="#caccff"><strong><font size="4" color="#3366cc">Error Info</font></strong></td></tr></table>';
+		$buff .= qq|<form action="$set{'base_cgi'}" method="POST"><input type=hidden name=mode value="errorclear"><input type=hidden name=delno value="$in{'delno'}"><input type=hidden name=delpass value="$in{'delpass'}"><input type=submit value="ƒGƒ‰[ƒƒOƒNƒŠƒA"></form>|;
+		$buff .= "<table summary=\"errorinfo\" width=\"100%\">\n<tr><td>DATE</td><td>ADDR</td><td>HOST</td><td>NOTE</td></tr>\n";
+		if(open(IN,$set{'error_log'})){	@log = reverse(<IN>); close(IN); foreach (@log){ my ($date,$no,$note,$addr,$host) = split(/<>/); $buff .= "<tr><td>$date</td><td>$addr</td><td>$host</td><td>$note</td></tr>\n"; }}
+		$buff .= "</table><br><br>\n";
+	}
+
+	$buff .= leaddisp(-1,-1,0);
+	$buff .= '<a name="set"></a><table summary="settitle" width="100%"><tr><td bgcolor="#caccff"><strong><font size="4" color="#3366cc">Setting Info</font></strong></td></tr></table>'."\n<table summary=\"setting\">\n";
+	$buff .= tablestr('ƒXƒNƒŠƒvƒgVer',$set{'ver'});
+	$buff .= tablestr('ƒƒCƒ“ƒƒOƒtƒ@ƒCƒ‹',$set{'log_file'});
+	if($set{'error_level'}){
+		$buff .= tablestr('ƒGƒ‰[ƒƒOƒtƒ@ƒCƒ‹',$set{'error_log'});
+		if($set{'error_size'}){ $buff .= tablestr('ƒGƒ‰[ƒƒOÅ‘å—e—Ê',dispsize($set{'error_size'}*1024).' '.($set{'error_size'}*1024).'Bytes'); }
+		else{ $buff .= tablestr('ƒGƒ‰[ƒƒOÅ‘å—e—ʐ§ŒÀ','–³'); }
+	}else{ $buff .= tablestr('ƒGƒ‰[ƒƒO‹L˜^','–³'); }
+	$buff .= tablestr('•ÛŽŒ”',$set{'max_log'});
+	$buff .= tablestr('Å‘å“Še—e—Ê',dispsize($set{'max_size'}*1024).' '.($set{'max_size'}*1024).'Bytes');
+
+	if($set{'min_flag'}){ $buff .= tablestr('Å¬§ŒÀ—e—Ê',dispsize($set{'min_size'}*1024).' '.($set{'min_size'}*1024).'Bytes'); }
+	else{ $buff .= tablestr('Å¬§ŒÀ—e—Ê',"–³"); }
+	if($set{'max_all_flag'}){ $buff .= tablestr('‘—e—ʐ§ŒÀ',dispsize($set{'max_all_size'}*1024).' '.($set{'max_all_size'}*1024).'Bytes'); }
+	else{ $buff .= tablestr('‘—e—ʐ§ŒÀ',"–³"); }
+
+	$buff .= tablestr("ƒtƒ@ƒCƒ‹Ú“ªŽ«",$set{'file_pre'});
+	$buff .= tablestr("HTML•Û‘¶ƒfƒBƒŒƒNƒgƒŠ",$set{'html_dir'});
+	$buff .= tablestr("ƒtƒ@ƒCƒ‹•Û‘¶ƒfƒBƒŒƒNƒgƒŠ",$set{'src_dir'});
+	if($set{'http_html_path'} && $set{'html_dir'} ne $set{'http_html_path'}){ $buff .= "<tr><td>HTTP_HTML_PATH</td><td>$set{'http_html_path'}</td></tr>\n";}
+	if($set{'http_src_path'} && $set{'src_dir'} ne $set{'http_src_path'}){ $buff .= "<tr><td>HTTP_SRC_PATH</td><td>$set{'http_src_path'}</td></tr>\n";}
+	$buff .= tablestr('1ƒy[ƒW‚É•\Ž¦‚·‚éƒtƒ@ƒCƒ‹”',$set{'pagelog'});
+	if($set{'interval'} > 0){ $value = $set{'interval'}.'•b'; }else{ $value = '–³'; }
+	$buff .= tablestr('“¯ˆêIP“ŠeŠÔŠu•b”§ŒÀ',$value);
+	if($set{'up_ext'}){	$set{'up_ext'} =~ s/,/ /g; $buff .= tablestr('“Še‰Â”\Šî–{Šg’£Žq',$set{'up_ext'}); }
+	if($set{'deny_ext'}){ $set{'deny_ext'} =~ s/,/ /g; $buff .= tablestr('“Še‹ÖŽ~Šg’£Žq',$set{'deny_ext'}); }
+	if($set{'change_ext'}){	$set{'change_ext'} =~ s/,/ /g; $set{'change_ext'} =~ s/>/&gt;/g; $buff .= tablestr('Šg’£Žq•ÏŠ·',$set{'change_ext'});	}
+
+	if($set{'up_all'}){	$buff .= tablestr('Žw’èŠOŠg’£ŽqƒAƒbƒvƒ[ƒh‹–‰Â','—L'); if($set{'ext_org'}){ $buff .= tablestr('Žw’èŠOƒtƒ@ƒCƒ‹Šg’£Žq','ƒIƒŠƒWƒiƒ‹'); }else{ $buff .= tablestr('Žw’èŠOƒtƒ@ƒCƒ‹Šg’£Žq','bin'); }}
+	else{$buff .= tablestr('Žw’èŠOŠg’£ŽqƒAƒbƒvƒ[ƒh‹–‰Â','–³');}
+
+	if($set{'find_crypt'}){ $value = '—L'; }else{ $value = '–³';}
+	$buff .= tablestr('ˆÃ†‰»ƒA[ƒJƒCƒuŒŸo(ZIP)',$value);
+	if($set{'binary_compare'}){ $value = '—L'; }else{ $value = '–³';}
+	$buff .= tablestr('ƒoƒCƒiƒŠ”äŠr',$value);
+	if($set{'post_flag'}){ $value = '—L'; }else{ $value = '–³';}
+	$buff .= tablestr('PostKey“Še§ŒÀ',$value);
+	if($set{'dlkey'}){ if($set{'dlkey'} == 2){$value = '•K{'}else{$value = '”CˆÓ';}}else{ $value = '–³';}
+	$buff .= tablestr('DLkey',$value);
+	if($set{'dummy_html'}){ if($set{'dummy_html'} == 3){$value = 'ALL'}elsif($set{'dummy_html'} == 2){$value = 'DLKey‚Ì‚Ý';}else{$value = '’ʏíƒtƒ@ƒCƒ‹‚Ì‚Ý';}}else{ $value = '–³';}
+	$buff .= tablestr('ŒÂ•ÊHTMLƒLƒƒƒbƒVƒ…',$value);
+	if($set{'disp_error'}){ $value = '—L'; }else{ $value = '–³';}
+	$buff .= tablestr('ƒ†[ƒUƒGƒ‰[•\Ž¦',$value);
+	if($set{'zero_clear'}){ $value = '—L'; }else{ $value = '–³';}
+	$buff .= tablestr('íœÏƒtƒ@ƒCƒ‹ƒŠƒXƒgŽ©“®Á‹Ž',$value);
+	if($set{'home_url'}){ $buff .= "<tr><td>HOMEURL</td><td>$set{'home_url'}</td></tr>\n";}
+
+	$buff .= '</table></body></html>';
+
+	print "Content-type: text/html\n\n";
+	print $buff;
+	exit;
+}
+
+sub extfind{
+	my $orgname = @_[0];
+	my @filename = split(/\./,$orgname);
+	my $ext = $filename[$#filename];
+	$ext =~ tr/[A-Z]/[a-z]/;
+	foreach my $value (split(/,/,$set{'change_ext'})){ my ($src,$dst) = split(/->/,$value); if($ext eq $src){ $ext = $dst; last; }}
+	foreach my $value (split(/,/,$set{'deny_ext'})){ if($ext eq $value){ &error(206,$ext); }}
+	foreach my $value (split(/,/,$set{'up_ext'})){ if ($ext eq $value) { return $value; } }
+	if(length($ext) >= 5 || length($ext) == 0){ $ext = 'bin'; }
+	unless ($ext =~ /^[A-Za-z0-9]+$/){ $ext = 'bin'; }
+	if($set{'up_all'} && $set{'ext_org'}){ return $ext;}
+	elsif($set{'up_all'}){ return 'bin'; }
+	return 0;
+}
+
+sub conv_date{
+	my @date = gmtime($_[0] + 9*60*60);
+	$date[5] -= 100; $date[4]++;
+	if ($date[5] < 10) { $date[5] = "0$date[5]" ; }	if ($date[4] < 10) { $date[4] = "0$date[4]" ; }
+	if ($date[3] < 10) { $date[3] = "0$date[3]" ; }	if ($date[2] < 10) { $date[2] = "0$date[2]" ; }
+	if ($date[1] < 10) { $date[1] = "0$date[1]" ; }	if ($date[0] < 10) { $date[0] = "0$date[0]" ; }
+	my @w = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
+	return ("$date[5]/$date[4]/$date[3]($w[$date[6]]),$date[2]:$date[1]:$date[0]");
+}
+
+sub dispsize{
+	my $size = $_[0];
+	if($size >= 1024*1024*1024*100){ $size = int($size/1024/1024/1024).'GB';}
+	elsif($size >= 1024*1024*1024*10){ $size = sprintf("%.1fGB",$size/1024/1024/1024);}
+	elsif($size > 1024*1024*1024){ $size = sprintf("%.2fGB",$size/1024/1024/1024);}
+	elsif($size >= 1024*1024*100){ $size = int($size/1024/1024).'MB'; }
+	elsif($size > 1024*1024){ $size =  sprintf("%.1fMB",$size/1024/1024); }
+	elsif($size > 1024){ $size = int($size/1024).'KB'; }
+	else{ $size = int($size).'B';}
+	return $size;
+}
+
+sub makeitem{
+	my ($src,$mode) = @_; my ($buff,$check,$target);
+	my ($no,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$filepre,$note,$dummy) = split(/<>/,$src);
+	if(!$dummy){ $filepre = $set{'file_pre'}; }
+	my $orgno = $no;
+	$no = sprintf("%04d",$no);
+	my $size = 0;
+	my $dlpath = 0;
+
+	if($note =~ /DLpath:(.+)\s/){
+		$dlpath = $1;
+		$size = dispsize(-s "$set{'src_dir'}$filepre$no.${ext}_$dlpath/$filepre$no.$ext");
+	}else{
+		$size = dispsize(-s "$set{'src_dir'}$filepre$no.$ext");
+	}
+
+	my $path = $set{'http_src_path'} || $set{'src_dir'};
+	if($set{'link_target'}){ $target = qq| target="$set{'link_target'}"|; }
+	if($mode eq 'admin'){
+		if($dlpath){ $path .= "$filepre$no.${ext}_$dlpath/"; }
+		if($addr eq $host){ undef $host; }
+		if($in{'checkmode'} eq 'allcheck'){$check = ' checked';}
+		$buff = "<tr><td><INPUT TYPE=checkbox NAME=\"admin_delno\" VALUE=\"$no\"$check></td><td><a href=\"$path$filepre$no.$ext\"$target>$filepre$no.$ext</a></td><td>$comment</td><td>$size</td><td>$addr</td><td>$host</td><td>$date</td><td>$note</td><td>$mime</td><td>$orgname</td></tr>\n";
+	}else{
+		my($d_com,$d_date,$d_size,$d_mime,$d_org);
+		if($set{'disp_comment'}){ $d_com = "<td>$comment</td>"; } if($set{'disp_size'}){ $d_size = "<td>$size</td>"; } if($set{'disp_date'}){ $d_date= "<td>$date</td>"; }
+		if($set{'disp_mime'}){ $d_mime = "<td>$mime</td>"; } if($set{'disp_orgname'}){ $d_org = "<td>$orgname</td>"; }
+		if(-e "$set{'src_dir'}$filepre$no.$ext.html"){$buff = "<tr><td><SCRIPT type=\"text/javascript\" Language=\"JavaScript\"><!--\ndocument.write(\"<a href=\\\"javascript:delnoin($orgno)\\\">$set{'char_delname'}<\\/a>\");\n// --></SCRIPT></td><td><a href=\"$path$filepre$no.$ext.html\"$target>$filepre$no.$ext</a></td>$d_com$d_size$d_date$d_mime$d_org</tr>\n";}
+		elsif($dlpath){$buff = "<tr><td><SCRIPT type=\"text/javascript\" Language=\"JavaScript\"><!--\ndocument.write(\"<a href=\\\"javascript:delnoin($orgno)\\\">$set{'char_delname'}<\\/a>\");\n// --></SCRIPT></td><td><a href=\"$set{'base_cgi'}?mode=dl&file=$orgno\">$filepre$no.$ext</a></td>$d_com$d_size$d_date$d_mime$d_org</tr>\n";}
+		else{ $buff = "<tr><td><SCRIPT type=\"text/javascript\" Language=\"JavaScript\"><!--\ndocument.write(\"<a href=\\\"javascript:delnoin($orgno)\\\">$set{'char_delname'}<\\/a>\");\n// --></SCRIPT></td><td><a href=\"$path$filepre$no.$ext\"$target>$filepre$no.$ext</a></td>$d_com$d_size$d_date$d_mime$d_org</tr>\n";}
+	}
+	return $buff;
+}
+
+sub makedummyhtml{
+	my ($filename,$com,$file,$orgdlpath,$date,$mime,$orgname,$no) = @_;
+	my $buff;
+
+	if(!$no){
+		$buff = "<html><head><title>$filename</title></head><body>";
+		$buff .= qq|Download <a href="./$filename">$filename</a>|;
+		$buff .= '</body></html>';
+	}else{
+		$buff = cryptfiledl($com,$file,$orgdlpath,$date,$mime,$orgname,$no);
+	}
+
+	open(OUT,">$set{'src_dir'}$filename.html")||&error(307,"$set{'src_dir'}$filename.html");
+	print OUT $buff;
+	close(OUT);
+	chmod($set{'per_upfile'},"$set{'src_dir'}$filename.html");
+	return 1;
+}
+
+sub logwrite{
+	my @log = @_;
+	open(OUT,"+>$set{'log_file'}")||&error(304);
+	eval{ flock(OUT, 2);};
+	eval{ truncate(OUT, 0);};
+	seek(OUT, 0, 0);
+	print OUT @log;
+	eval{ flock(OUT, 8);};
+	close(OUT);
+	chmod($set{'per_upfile'},$set{'log_file'});
+	return 1;
+}
+
+sub binarycmp{
+	my ($src,$dst) = @_;
+	return 0 if (-s $src != -s $dst);
+	open(SRC,$src)||return 0; open(DST,$dst)||return 0;
+	my ($buff,$buff2);
+	binmode(SRC); binmode(DST); seek(SRC,0,0); seek(DST,0,0); 
+	while(read(SRC,$buff,8192)){ read(DST,$buff2,8192); if($buff ne $buff2){ close(SRC); close(DST); return 0; } }
+	close(SRC); close(DST);
+	return 1;
+}
+
+sub init{
+	my $buff;
+	if(open(OUT,">$set{'log_file'}")){
+		print OUT "0<>0<>0<>1\n";
+		close(OUT);
+		chmod($set{'per_logfile'},$set{'log_file'});
+	}else{
+		$buff = "<tr><td>ƒƒCƒ“ƒƒO‚̍쐬‚ÉŽ¸”s‚µ‚Ü‚µ‚½</td></tr>";
+	}
+	
+	unless (-d "$set{'src_dir'}"){
+		if(mkdir("$set{'src_dir'}",$set{'per_dir'})){
+			chmod($set{'per_dir'},"$set{'src_dir'}");
+			open(OUT,">$set{'src_dir'}index.html");
+			close(OUT);
+			chmod($set{'per_upfile'},"$set{'src_dir'}index.html");
+		}else{
+			$buff .= "<tr><td>Source•Û‘¶ƒfƒBƒŒƒNƒgƒŠ‚̍쐬‚ÉŽ¸”s‚µ‚Ü‚µ‚½</td></tr>";
+		}
+	}
+
+	unless (-d "$set{'html_dir'}"){
+		if(mkdir("$set{'html_dir'}",$set{'per_dir'})){
+			chmod($set{'per_dir'},"$set{'html_dir'}");
+		}else{
+			$buff .= "<tr><td>HTML•Û‘¶ƒfƒBƒŒƒNƒgƒŠ‚̍쐬‚ÉŽ¸”s‚µ‚Ü‚µ‚½</td></tr>";
+		}
+	}
+
+	if($buff){
+		$buff .= "<tr><td>ƒfƒBƒŒƒNƒgƒŠ‚ɏ‘‚«ž‚ÝŒ ŒÀ‚ª‚ ‚é‚©Šm”F‚µ‚Ä‚­‚¾‚³‚¢</td></tr>";
+		&error_disp($buff,'init');
+	}
+}
+
+sub check_postkey{
+	my $inputkey = @_[0];
+	my @key = split(/,/,$set{'post_key'});
+	foreach my $key (@key){ if($inputkey eq $key){ return 1; } }
+	return 0;
+}
+
+sub leaddisp{
+	my @src = @_;
+	my ($str,$count);
+	foreach my $value (@src){
+		my ($mark,$name,$link); $count++;
+		if($count == 1){ $name = 'Upload Info'; $link = 'up'; }
+		elsif($count == 2){ $name = 'Error Info'; $link = 'error'; next if(!$set{'error_level'}); }
+		elsif($count == 3){ $name = 'Setting Info'; $link = 'set'; }
+		if($value){ if($value > 0){ $mark = '¥'; }else{ $mark = '£'; } $str .= qq|<a href="#$link">${mark}${name}</a> |; }
+		else{ $str .= qq|[$name] |; }
+	}
+	return $str;
+}
+
+sub errorclear{
+	open(OUT,">$set{'error_log'}")||return 0;
+	eval{ flock(OUT, 2);}; eval{ truncate(OUT, 0);}; seek(OUT, 0, 0); eval{ flock(OUT, 8);}; close(OUT);
+	chmod($set{'per_upfile'},$set{'log_file'});
+	return 1;
+}
+
+sub tablestr{
+	my ($value1,$value2) = @_;
+	return ("<tr><td>$value1</td><td>$value2</td></tr>\n");
+}
+
+sub globfile{
+	my ($src_dir,$filename) = @_;
+	opendir(DIR,$src_dir)||return 0; my @dir = readdir(DIR); closedir(DIR);
+	my @new = (); foreach my $value (@dir){ push(@new,"$src_dir$value") if($value =~ /$filename/ && !(-d "$src_dir$value")); }
+	return @new;
+}
+
+sub globdir{
+	my ($src_dir,$dir) = @_;
+	opendir(DIR,$src_dir)||return 0; my @dir = readdir(DIR); closedir(DIR);
+	my @new = (); foreach my $value (@dir){ if($value eq '.' ||$value eq '..' ){ next; } push(@new,"$src_dir$value") if($value =~ /$dir/ && (-d "$src_dir$value")); }
+	return @new;
+}
+
+sub error_disp{
+	my ($message,$mode) = @_;
+	my $url;
+	if($mode eq 'init'){ $url = qq|<a href="$set{'base_cgi'}">[ƒŠƒ[ƒh]</a>|; }else{ $url = qq|<a href="$set{'http_html_path'}$set{'base_html'}">[–ß‚é]</a>|; }
+	my $buff =<<"EOM";
+$set{'html_head'}$set{'html_css'}</HEAD>
+<body bgcolor="#ffffff" text="#000000" LINK="#6060FF" VLINK="#6060FF" ALINK="#6060FF">
+<div align="center">
+<table summary="error">
+$message
+<tr><td></td></tr>
+<tr><td><div align="center">$url</div></td></tr>
+</table>
+<br><br>
+<table summary="info">
+<tr>
+<td>DATE</td><td>$in{'date'}</td></tr>
+<tr><td>ADDR</td><td>$in{'addr'}</td></tr>
+<tr><td>HOST</td><td>$in{'host'}</td></tr>
+</table>
+</div>
+</body></html>
+EOM
+	print "Content-type: text/html\n\n";
+	print $buff;
+	exit;
+}
+
+sub error{
+	my ($no,$note) = @_;
+	if (length($note) > 64) { $note = substr($note,0,64).'...'; }
+	$note =~ s/&/&amp;/g; $note =~ s/\"/&quot;/g; $note =~ s/</&lt;/g; $note =~ s/>/&gt;/g; $note =~ s/\r//g; $note =~ s/\n//g; $note =~ s/\t//g; $note =~ s/\0//g;
+	my ($message,$dispmsg,$flag);
+	if($no == 98){ $message = ""; }
+	elsif($no == 99){ $message = "UpFile‚È‚µ"; }
+	elsif($no == 101){ $message = "“Še‹ÖŽ~HOST"; }
+	elsif($no == 106){ $flag = 1; $message = "POSTƒTƒCƒY’´‰ß"; $note = dispsize($note); $dispmsg= '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>ƒAƒbƒvƒ[ƒhƒtƒ@ƒCƒ‹('.$note.')‚Í Å‘å—e—ʐݒè('.dispsize($set{'max_size'}*1024).')‚ð‰z‚¦‚Ä‚¢‚Ü‚·</td></tr>';}
+	elsif($no == 107){ $flag = 1; $message = "POSTƒTƒCƒY‰ß¬"; $note = dispsize($note); $dispmsg= '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>ƒAƒbƒvƒ[ƒhƒtƒ@ƒCƒ‹('.$note.')‚Í Å¬—e—ʐݒè('.dispsize($set{'min_size'}*1024).')–¢–ž‚Å‚·</td></tr>';}
+#	elsif($no == 108){ $flag = 1; $message = "POSTƒf[ƒ^•sŠ®‘S"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>POSTƒf[ƒ^‚ª•sŠ®‘S‚Å‚·</td></tr>';}
+	elsif($no == 109){ $flag = 1; $message = "POSTKey•sˆê’v"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>POSTKey‚ªˆê’v‚µ‚Ü‚¹‚ñ</td></tr>';}
+	elsif($no == 202){ $flag = 1; $message = "Šg’£Žq‡‚킸"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>“Še‚Å‚«‚éŠg’£Žq‚Í'.$set{'up_ext'}.'‚Å‚·</td></tr>';}
+	elsif($no == 203){ $flag = 1; $message = "“Še‘‚·‚¬"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>“¯ˆêIPƒAƒhƒŒƒX‚©‚ç'.$set{'interval'}.'•bˆÈ“à‚ɍēŠe‚Å‚«‚Ü‚¹‚ñ</td></tr>';}
+	elsif($no == 204){ $flag = 1; $message = "ˆêŽžƒtƒ@ƒCƒ‹‘‚«ž‚ß‚¸"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>ˆêŽžƒtƒ@ƒCƒ‹‚̍쐬‚ÉŽ¸”s‚µ‚Ü‚µ‚½</td></tr>';}
+	elsif($no == 205){ $flag = 1; $message = "“¯ˆêƒtƒ@ƒCƒ‹‘¶Ý"; $note =~ /([^\/]+)$/; my $filename = $1; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>“¯ˆêƒtƒ@ƒCƒ‹‚ª '.$filename.' ‚É‘¶Ý‚µ‚Ü‚·</td></tr>';}
+	elsif($no == 206){ $flag = 1; $message = "‹ÖŽ~Šg’£Žq"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>Šg’£Žq '.$note.' ‚̓Aƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ</td></tr>';}
+	elsif($no == 303){ $flag = 1; $message = "ƒƒOƒtƒ@ƒCƒ‹‚ɓǂݍž‚ß‚¸"; $dispmsg = '<tr><td>ƒƒCƒ“ƒƒO‚̓ǂݍž‚Ý‚ÉŽ¸”s‚µ‚Ü‚µ‚½</td></tr>';}
+	elsif($no == 304){ $flag = 1; $message = "ƒƒOƒtƒ@ƒCƒ‹‚ɏ‘‚«ž‚ß‚¸"; $dispmsg = '<tr><td>ƒƒCƒ“ƒƒO‚̏‘‚«ž‚Ý‚ÉŽ¸”s‚µ‚Ü‚µ‚½</td></tr>';}
+	elsif($no == 306){ $message = "ƒtƒ@ƒCƒ‹ƒŠƒXƒgHTML‘‚«ž‚ß‚¸";}
+	elsif($no == 307){ $message = "ƒtƒ@ƒCƒ‹HTMLƒtƒ@ƒCƒ‹‘‚«ž‚ß‚¸";}
+	elsif($no == 401){ $flag = 1; $message = "íœNo.ŒŸo‚Å‚«‚¸"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðíœ‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>'.$note.' ‚©‚çíœNo.‚ðŒŸo‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>'.$set{'file_pre'}.'0774.zip‚̏ꍇ No.‚É‚Í 774 ‚ð“ü—Í‚µ‚Ü‚·</td></tr>';}
+	elsif($no == 402){ $flag = 1; $note = sprintf("%04d",int($note)); $message = "íœNo.‘¶Ý‚¹‚¸"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðíœ‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>'.$set{'file_pre'}.$note.'.*** ‚̓ƒCƒ“ƒƒO‚É‘¶Ý‚µ‚Ü‚¹‚ñ</td></tr>';}
+	elsif($no == 403){ $flag = 1; $message = "íœƒAƒNƒZƒX‹‘”Û"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðíœ‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>ƒtƒ@ƒCƒ‹íœðŒ‚Í–ž‚½‚µ‚Ä‚¢‚Ü‚·‚ª '.$note.' ‚̃tƒ@ƒCƒ‹‚̍폜‚ª‹‘”Û‚³‚ê‚Ü‚µ‚½</td></tr><tr><td>ƒAƒNƒZƒX‚ª‰ßè‚ȏꍇ“™‚ÍŽžŠÔ‚ð’u‚¢‚čđ€ì‚·‚é‚ƍ폜‚Å‚«‚邱‚Æ‚ª‚ ‚è‚Ü‚·</td></tr>';}
+	elsif($no == 404){ $flag = 1; $message = "íœKey•sˆê’v"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðíœ‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>'.$note.' íœKey‚ªˆê’v‚µ‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr>';}
+
+	elsif($no == 51){ $flag = 1; $message = "[DLMode] No.Œ©‚‚©‚炸";  $dispmsg = '<tr><td>[DLMode] ƒtƒ@ƒCƒ‹‚ªŒ©‚‚©‚è‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>'.$note.' ‚©‚çƒtƒ@ƒCƒ‹No.‚ðŒŸo‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr>'; }
+	elsif($no == 52){ $flag = 1; $message = "[DLMode] FileŒ©‚‚©‚炸";  $dispmsg = '<tr><td>[DLMode] ƒtƒ@ƒCƒ‹‚ªŒ©‚‚©‚è‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>'.$set{'file_pre'}.$note.'.*** ‚̓ƒCƒ“ƒƒO‚É‘¶Ý‚µ‚Ü‚¹‚ñ</td></tr>'; }
+	elsif($no == 53){ $flag = 1; $message = "[DLMode] DLkey–¢Ý’è";  $dispmsg = '<tr><td>[DLMode] orgDLkeyError</td></tr><tr><td>'.$note.' DLKey‚ª–¢Ý’è‚Å‚·</td></tr>'; }
+	elsif($no == 54){ $flag = 1; $message = "[DLMode] DLkey•sˆê’v";  $dispmsg = '<tr><td>[DLMode] orgDLkeyError</td></tr><tr><td>'.$note.' DLKey‚ªˆê’v‚µ‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr>'; }
+	elsif($no == 55){ $flag = 1; $message = "[DLMode] File Oepn Error";  $dispmsg = '<tr><td>[DLMode] Open Error</td></tr><tr><td>'.$note.' ƒtƒ@ƒCƒ‹‚̓ǂݍž‚Ý‚ÉŽ¸”s‚µ‚Ü‚µ‚½</td></tr>'; }
+	elsif($no == 56){ $flag = 1; $message = "[DLMode] File Not Found";  $dispmsg = '<tr><td>[DLMode] Not Found</td></tr><tr><td>'.$note.' ƒtƒ@ƒCƒ‹‚ª‘¶Ý‚µ‚Ü‚¹‚ñ</td></tr>'; }
+
+	elsif($no == 61){ $flag = 1; $message = "DLkey–¢Ý’è";  $dispmsg = '<tr><td>DLKey‚ª–¢Ý’è‚Å‚·</td></tr>'; }
+
+	if($note){$message .= ' ';}
+	eval { close($in{'upfile'}); };
+	unlink($in{'tmpfile'});
+	if($set{'error_level'} && $no > 100){
+		unless(-e $set{'error_log'}){
+			open(OUT,">$set{'error_log'}");
+			close(OUT);
+			chmod($set{'per_logfile'},$set{'error_log'});
+		}
+		if($set{'error_size'} && ((-s $set{'error_log'}) > $set{'error_size'} * 1024)){
+			my $err_bkup = "$set{'error_log'}.bak.cgi";
+			unlink($err_bkup);
+			rename($set{'error_log'},$err_bkup);
+			open(OUT,">$set{'error_log'}");
+			close(OUT);
+			chmod($set{'per_logfile'},$set{'error_log'});
+		}
+		open(OUT,">>$set{'error_log'}");
+		print OUT "$in{'date'}<>$no<>$message$note<>$in{'addr'}<>$in{'host'}<>1\n";
+		close(OUT);
+	}
+	&error_disp($dispmsg) if($flag && $set{'disp_error'});
+	&quit();
+}
+
+sub dlfile{
+	my $msg;
+	my ($orgdlkey,$orgdlpath);
+	my ($dlext,$dlfilepre);
+	my ($dl_date,$dl_comment,$dl_size,$dl_mime,,$dl_orgname);
+	my $dlno = 0;
+	my $findflag;
+
+	open(IN,$set{'log_file'})||&error(303);
+	my @log = <IN>;
+	close(IN);
+	shift(@log);
+
+	if($in{'file'} =~ /(\d+)/){ $dlno = $1; }
+	if($dlno == 0) { &error(51,$in{'file'}); }
+
+	foreach my $value (@log){
+		my ($no,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$filepre,$note,$dummy) = split(/<>/,$value);
+			my @note = split(/,/,$note);
+			if(int($dlno) == $no){
+				$dl_comment = $comment;
+				$dl_mime = $mime;
+				$dl_date = $date;
+				$dl_orgname = $orgname;
+				$dlext = $ext;
+				$dlfilepre = $filepre;
+				foreach my $tmpnote (@note){
+					if($tmpnote =~ /\!--\sDLKey:(.+)\s--.*\!--\sDLpath:(.+)\s--/){
+						$orgdlkey = $1;
+						$orgdlpath = $2;
+						last;
+					}
+				}
+				$findflag = 1;
+				last;
+			}
+	}
+
+	my $dlfile = $dlfilepre.sprintf("%04d",int($dlno)).'.'.$dlext;
+	if(!(-e "$set{'src_dir'}${dlfile}_$orgdlpath/$dlfile")){ &error(56,"$dlfile----$set{'src_dir'}${dlfile}_$orgdlpath/$dlfile"); }
+
+	if($in{'dlkey'}){
+		my $dlsalt = substr($orgdlkey,0,2);
+		my $dlkey = crypt($in{'dlkey'},$dlsalt);
+
+		if($findflag == 0){ &error(52,$dlfile); }
+		elsif(!$orgdlkey){ &error(53,$dlfile); }
+		elsif($orgdlkey ne $dlkey && $set{'admin_pass'} ne $in{'dlkey'}){ &error(54,$dlfile); }
+		#print "Location: $set{'http_src_path'}${dlfile}_$orgdlpath/$dlfile\n\n";
+		my $buff =<<"EOM";
+$set{'html_head'}$set{'html_css'}
+<META HTTP-EQUIV="Refresh" CONTENT="1;URL=$set{'http_src_path'}${dlfile}_$orgdlpath/$dlfile">
+</HEAD>
+<body bgcolor="#ffffff" text="#000000" LINK="#6060FF" VLINK="#6060FF" ALINK="#6060FF">
+<div align="center">
+<br>
+<table summary="dlfrom">
+<tr><td>”ò‚΂Ȃ¢ê‡‚Í <a href="$set{'http_src_path'}${dlfile}_$orgdlpath/$dlfile">‚±‚¿‚ç</a> ‚©‚ç</td></tr>
+</table>
+</div>
+</body></html>
+EOM
+		print "Content-type: text/html\n\n";
+		print $buff;
+	}else{
+		my $buff = cryptfiledl($dl_comment,$dlfile,$orgdlpath,$dl_date,$dl_mime,$dl_orgname,$dlno);
+		print "Content-type: text/html\n\n";
+		print $buff;
+	}
+	exit;
+}
+
+sub cryptfiledl{
+		my($com,$file,$orgdlpath,$date,$mime,$orgname,$no) = @_;
+		my($d_com,$d_date,$d_size,$d_mime,$d_org);
+
+		if($set{'disp_comment'}){ $d_com = "<tr><td>COMMENT</td><td>$com</td></td>"; } if($set{'disp_size'}){ $d_size = "<tr><td>SIZE</td><td>".dispsize(-s "$set{'src_dir'}${file}_$orgdlpath/$file")." (".(-s "$set{'src_dir'}${file}_$orgdlpath/$file")."bytes)"."</td></tr>"; } if($set{'disp_date'}){ $d_date= "<tr><td>DATE</td><td>$date</td></tr>"; }
+		if($set{'disp_mime'}){ $d_mime = "<tr><td>ORGMIME</td><td>$mime</td></tr>"; } if($set{'disp_orgname'}){ $d_org = "<tr><td>ORGNAME</td><td>$orgname</td></tr>"; }
+
+		my $buff =<<"EOM";
+$set{'html_head'}$set{'html_css'}</HEAD>
+<body bgcolor="#ffffff" text="#000000" LINK="#6060FF" VLINK="#6060FF" ALINK="#6060FF">
+<div align="center">
+<br>
+$file ‚É‚ÍDLKey‚ªÝ’肳‚ê‚Ä‚¢‚Ü‚·
+<table summary="dlform">
+<tr><td></td></tr>
+<FORM METHOD=POST ACTION="$set{'base_cgi'}" name="DL">
+<tr><td>
+<input type=hidden name=file value=$no>
+<input type=hidden name=jcode value="Š¿Žš">
+<input type=hidden name=mode value=dl></td></tr>
+$d_com$d_date$d_size$d_mime$d_org
+<tr><td>DLKey:<input type=text size=8 name="dlkey"></td></tr>
+<tr><td><input type=submit value="DownLoad"></td></tr>
+</FORM>
+</table>
+</div>
+</body></html>
+EOM
+
+	return $buff;
+}
\ No newline at end of file
diff --git a/SnUploader/snup_051010e/uploader/upload.cgi b/SnUploader/snup_051010e/uploader/upload.cgi
new file mode 100644
index 0000000..aa2993e
--- /dev/null
+++ b/SnUploader/snup_051010e/uploader/upload.cgi
@@ -0,0 +1,1078 @@
+#!/usr/bin/perl
+use vars qw(%set %in);
+use strict;
+$set{'log_file'} = './log.cgi';		#ƒƒOƒtƒ@ƒCƒ‹–¼
+$set{'max_log'} = 30;		#•ÛŽŒ”
+$set{'max_size'} = 1*1024;		#Å‘å“Še—e—Ê(KB)
+$set{'min_flag'} = 0;		#Å¬—e—ʐ§ŒÀ‚ðŽg—p‚·‚é=1
+$set{'min_size'} = 100;		#Å¬“Še—e—Ê(KB)
+$set{'max_all_flag'} = 0;		#‘—e—ʐ§ŒÀ‚ðŽg—p‚·‚é=1
+$set{'max_all_size'} = 20*1024;		#‘§ŒÀ—e—Ê(KB)
+$set{'file_pre'} = 'up';		#ƒtƒ@ƒCƒ‹Ú“ªŽ«
+$set{'pagelog'} = 10;		#1ƒy[ƒW‚É•\Ž¦‚·‚éƒtƒ@ƒCƒ‹”
+$set{'base_html'} = 'upload.html';		#1ƒy[ƒW–ڂ̃tƒ@ƒCƒ‹–¼
+$set{'interval'} = 0;		#“¯ˆêIP“ŠeŠÔŠu•b”
+$set{'deny_host'} = '';		#“Še‹ÖŽ~IP/HOST ,‚Å‹æØ‚é ex.(bbtec.net,219.119.66,ac.jp)
+$set{'admin_name'} = 'admin';		#ŠÇ—ŽÒƒƒOƒCƒ“ID
+$set{'admin_pass'} = '1234';		#ŠÇ—ŽÒƒpƒXƒ[ƒh
+
+# ˆÈ‰º5€–Ú‚ðÄÝ’è‚·‚éÛ‚É‚ÍPATHCƒfƒBƒŒƒNƒgƒŠ‚Í / ‚ŏI‚í‚邱‚Æ
+# $set{'html_dir'},$set{'base_cgi'}‚ð ./ ˆÈŠO‚ɐݒ肷‚éê‡,
+# ‚Ü‚½‚ÍDLkey‚ðŽg—p‚µ ‚È‚¨‚©‚ÂHTMLƒLƒƒƒbƒVƒ…($set{'dummy_html'} = 2 or 3)‚ðŽg—p‚·‚éê‡‚Í
+# $set{'base_cgi'} , $set{'http_html_path'} , $set{'http_src_path'} ‚ðƒtƒ‹ƒpƒX(http://`` or /``)‚Å‹Lq‚·‚é
+$set{'html_dir'} = './';		# “à•”HTML•Û‘¶ƒfƒBƒŒƒNƒgƒŠ
+$set{'src_dir'} = './src/';		# “à•”ƒtƒ@ƒCƒ‹•Û‘¶ƒfƒBƒŒƒNƒgƒŠ
+$set{'base_cgi'} = './upload.cgi'; # ‚±‚̃XƒNƒŠƒvƒg–¼ http://`‚ÌŽw’è‰Â”\
+$set{'http_html_path'} = './';		# htmlŽQÆ httpPATH http://`‚ÌŽw’è‰Â”\
+$set{'http_src_path'} = './src/';		# fileŽQÆ httpPATH http://`‚ÌŽw’è‰Â”\
+
+$set{'dlkey'} = 0;		# DLKey‚ðŽg—p‚·‚é=1,DLkey•K{=2
+$set{'up_ext'} = 'txt,lzh,zip,rar,gca,mpg,mp3,avi,swf,bmp,jpg,gif,png'; #ƒAƒbƒvƒ[ƒh‚Å‚«‚éŠî–{Šg’£Žq ”¼Šp‰p”¬•¶Žš ,‚Å‹æØ‚é
+$set{'up_all'} = 0;		#“o˜^ˆÈŠO‚Ì‚à‚Ì‚àUP‚³‚¹‚ç‚ê‚é‚悤‚É‚·‚é=1
+$set{'ext_org'} = 0;	#$set{'up_all'}‚ª1‚ÌŽžƒIƒŠƒWƒiƒ‹‚ÌŠg’£Žq‚É‚·‚é=1
+$set{'deny_ext'} = 'php,php3,phtml,rb,sh,bat,dll'; 	#“Še‹ÖŽ~‚ÌŠg’£Žq ”¼Šp‰p”¬•¶Žš ,‚Å‹æØ‚é
+$set{'change_ext'} = 'cgi->txt,pl->txt,log->txt,jpeg->jpg,mpeg->mpg';		#Šg’£Žq•ÏŠ· ‘O->Œã ”¼Šp‰p”¬•¶Žš ,‚Å‹æØ‚é
+
+$set{'home_url'} = '';		#[HOME]‚̃Šƒ“ƒNæ ‘Š‘΃pƒX–”‚Í http://‚©‚çŽn‚Ü‚éâ‘΃pƒX
+$set{'html_all'} = 1;		#[ALL]‚ðo‚·=1
+$set{'dummy_html'} = 0;		#ƒtƒ@ƒCƒ‹ŒÂ•ÊHTML‚ðì¬‚·‚é ’Êíƒtƒ@ƒCƒ‹‚Ì‚Ý=1,DLKeyÝ’èƒtƒ@ƒCƒ‹‚Ì‚Ý=2,‚·‚ׂÄ=3
+$set{'find_crypt'} = 1;		#ˆÃ†‰»ZIP‚ðŒŸo‚·‚é=1
+$set{'binary_compare'} = 0;		#Šù‘¶ƒtƒ@ƒCƒ‹‚ƃoƒCƒiƒŠ”äŠr‚·‚é=1
+$set{'post_flag'} = 0;		#PostKey‚ðŽg—p‚·‚é=1
+$set{'post_key'} = 'postkey';		#PostKey ,‚Å‹æØ‚é‚Æ•¡”Žw’è ex.(postkey1,postkey2)
+$set{'disp_error'} = 1;		#ƒ†[ƒU[‚ɃGƒ‰[‚ð•\Ž¦‚·‚é=1
+$set{'error_level'} = 1;		#ƒGƒ‰[ƒƒO‚ð‹L˜^‚·‚é=1
+$set{'error_log'} = './error.cgi';		#ƒGƒ‰[ƒƒOƒtƒ@ƒCƒ‹–¼
+$set{'error_size'} = 1024;	# ƒGƒ‰[ƒƒOÅ‘å—e—Ê(KB) §ŒÀ‚È‚µ=0
+$set{'zero_clear'} = 1;		#ƒtƒ@ƒCƒ‹‚ªŒ©‚‚©‚ç‚È‚¢ê‡ƒƒO‚©‚çíœ‚·‚é=1
+
+$set{'disp_comment'} = 1; 	#ƒRƒƒ“ƒg‚ð•\Ž¦‚·‚é=1
+$set{'disp_date'} = 1;		#“ú•t‚ð•\Ž¦‚·‚é=1
+$set{'disp_size'} = 1;		#ƒTƒCƒY‚ð•\Ž¦‚·‚é=1
+$set{'disp_mime'} = 1;		#MIMETYPE‚ð•\Ž¦‚·‚é=1
+$set{'disp_orgname'} = 1;	#ƒIƒŠƒWƒiƒ‹ƒtƒ@ƒCƒ‹–¼‚ð•\Ž¦‚·‚é=1
+
+$set{'per_upfile'} = 0666;		#ƒAƒbƒvƒ[ƒhƒtƒ@ƒCƒ‹‚̃p[ƒ~ƒbƒVƒ‡ƒ“ suexec=0604,other=0666
+$set{'per_dir'} = 0777;		#ƒ\[ƒXƒAƒbƒvƒfƒBƒŒƒNƒgƒŠ‚̃p[ƒ~ƒbƒVƒ‡ƒ“ suexec=0701,other=0777
+$set{'per_logfile'} = 0666;		#ƒƒOƒtƒ@ƒCƒ‹‚̃p[ƒ~ƒbƒVƒ‡ƒ“@suexec=0600,other=0666
+$set{'link_target'} = '';		#target‘®«
+
+#------
+$set{'ver'} = '2005/10/10e';
+$set{'char_delname'} = 'D';
+
+$in{'time'} = time(); $in{'date'} = conv_date($in{'time'});
+$in{'addr'} = $ENV{'REMOTE_ADDR'};
+$in{'host'} = gethostbyaddr(pack('C4',split(/\./, $in{'addr'})), 2) || $ENV{'REMOTE_HOST'} || '(none)';
+
+if($in{'addr'} eq $in{'host'}){ $in{'host'} = '(none)'; }
+
+$set{'html_head'} =<<"EOM";
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html lang="ja">
+<HEAD>
+<META name="robots" content="noindex,nofollow">
+<META name="ROBOTS" content="NOINDEX,NOFOLLOW">
+<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">
+<META http-equiv="Pragma" content="no-cache">
+<META http-equiv="Cache-Control" content="no-cache">
+<META http-equiv="Expires" content="0">
+<TITLE>Uploader</TITLE>
+EOM
+
+$set{'html_css'} =<<"EOM";
+<META http-equiv="Content-Style-Type" content="text/css">
+<STYLE type="text/css"><!--
+input,td{ font-size: 10pt;font-family:Chicago,Verdana,Arial,sans-serif,"‚l‚r ‚oƒSƒVƒbƒN"; }
+a:hover { background-color:#EECCCC; }
+input,textarea{	border-top : 1px solid ; border-bottom : 1px solid ; border-left : 1px solid ; border-right : 1px solid ;font-size:10pt;background-color:#FFFFFF; }
+-->
+</STYLE>
+EOM
+
+unless(-e $set{'log_file'}){ &init; }
+unless(-e $set{'base_html'}){ &makehtml; }
+{ #ƒfƒR[ƒh
+	my $readbuffsize = 1024*8;
+	if ($ENV{'REQUEST_METHOD'} eq "POST" && $ENV{'CONTENT_TYPE'} =~ /multipart\/form-data/i){
+		if ($ENV{'CONTENT_LENGTH'} > ($set{'max_size'} * 1024 + 1024)){ if($ENV{'SERVER_SOFTWARE'} =~ /IIS/){ while(read(STDIN,my $buff,$readbuffsize)){} } &error(106,$ENV{'CONTENT_LENGTH'});}
+	}else{
+		if ($ENV{'CONTENT_LENGTH'} > 1024*100){ error(98); }
+	}
+	my %ck; foreach(split(/;/,$ENV{'HTTP_COOKIE'})){ my($key,$val) = split(/=/); $key =~ s/\s//g; $ck{$key} = $val;}
+	my @ck = split(/<>/,$ck{'SN_USER'});
+	if(length($ck[0]) < 5){ 
+		my @salt = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/'); srand;
+		my $salt = $salt[int(rand(@salt))] . $salt[int(rand(@salt))];
+		$in{'user'} = crypt($in{'addr'}.$in{'time'}, $salt);
+	}else{ $in{'user'} = $ck[0]; }
+
+	if($ENV{'REQUEST_METHOD'} eq "POST" && $ENV{'CONTENT_TYPE'} =~ /multipart\/form-data/i){
+		my %FORM;	my $subbuff; my $filename;	my $valuename;
+		my $upflag;	my $valueflag; my $bound;	my $mime;
+		my $readlength = 0;
+		my $random = int(rand(900000)) + 100000;
+		my $endflag = 0;
+		binmode(STDIN);
+		while(<STDIN>){	$readlength += length($_); if(/(--.*)\r\n$/){ $bound = $1; last; }}
+		if(-e "$set{'src_dir'}$random.temporary"){ $random++; }
+		if(-e "$set{'src_dir'}$random.temporary"){ $random++; }
+		if(-e "$set{'src_dir'}$random.temporary"){ &error(204); }
+
+		open(OUT,">$set{'src_dir'}$random.temporary");
+		binmode(OUT);
+		my $formbuff;
+		while(my $buff = <STDIN>){
+			$readlength += length($buff);
+			if($upflag == 1){ if($buff =~ /Content-Type:\s(.*)\r\n$/i){ $mime = $1; } $upflag++; next;}
+			if($upflag == 2){
+				while(1){
+					my $readblen; my $filebuff;
+					if($ENV{'CONTENT_LENGTH'} - $readlength < $readbuffsize){ $readblen = $ENV{'CONTENT_LENGTH'} - $readlength; }
+					else{ $readblen = $readbuffsize; }
+					if(!read(STDIN,$filebuff,$readblen)){ last };
+					$readlength += length($filebuff);
+					if($ENV{'CONTENT_LENGTH'} - $readlength < $readbuffsize){
+						my $readblen = $ENV{'CONTENT_LENGTH'} - $readlength;
+						read(STDIN,my $subbuff,$readblen);
+						$readlength += length($subbuff);
+						$filebuff .= $subbuff;
+						$endflag = 1;
+					}
+					my $offset = index($filebuff,$bound);
+					if($offset >= 0){
+						$buff = substr($filebuff,0,$offset-2); my $subbuff = substr($filebuff,$offset);
+						print OUT $buff; $upflag = 0; $formbuff .= $subbuff; last;
+					}else{ print OUT $filebuff;	}
+				}
+				if($endflag){ last; }
+				next;
+			}
+			if($buff =~ /^Content-Disposition:\sform-data;\sname=\"upfile\";\sfilename=\"(.*)\"\r\n$/i){
+				$filename = $1;	$upflag = 1; next;
+			}
+			$formbuff .= $buff;
+		}
+		close(OUT);
+		chmod($set{'per_upfile'},"$set{'src_dir'}$random.temporary");
+		{ my $value;
+			foreach my $buff(split(/\r\n/,$formbuff)){
+				$buff .= "\r\n";
+				if($buff =~ /^$bound\-\-/){ $FORM{$value} =~ s/\r\n$//; $valueflag = 0; last;}
+				if($buff =~ /^$bound/){ $FORM{$value} =~ s/\r\n$//; $valueflag = 0; next;}
+				if($valueflag == 1){ $valueflag++; next; }
+				if($valueflag == 2){ $FORM{$value} .= $buff; }
+				if($buff =~ /^Content-Disposition: form-data; name=\"(.+)\"\r\n$/){ $value = $1; $valueflag++; }
+			}
+		}
+		if($upflag || $valueflag){ unlink("$set{'src_dir'}$random.temporary"); &error(108);}
+
+		$in{'org_pass'} = $in{'pass'} = $FORM{'pass'};
+		$in{'dlkey'} = $FORM{'dlkey'};
+		$in{'comment'} = $FORM{'comment'};
+		$in{'jcode'} = $FORM{'jcode'};
+		$in{'postkey'} = $FORM{'postkey'};
+		$in{'upfile'} = $filename;
+		$in{'type'} = $mime;
+		$in{'tmpfile'} = "$set{'src_dir'}$random.temporary";
+		$in{'orgname'} = $in{'upfile'};
+		if(-s "$in{'tmpfile'}" == 0){ unlink("$in{'tmpfile'}"); &error(99) }
+		if($set{'min_flag'} && ((-s "$in{'tmpfile'}") < $set{'min_size'} * 1024)){ &error(107,(-s "$in{'tmpfile'}"));}
+		if((-s "$in{'tmpfile'}") > $set{'max_size'} * 1024){ &error(106,(-s "$in{'tmpfile'}"));}
+		if($set{'post_flag'} && !check_postkey($in{'postkey'})){ &error(109); }
+		if($set{'dlkey'} == 2 && !$in{'dlkey'}){ unlink("$in{'tmpfile'}"); &error(61); }
+	}else{
+		my ($buffer,%FORM,@admin_delno);
+		if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});}
+		else { $buffer = $ENV{'QUERY_STRING'}; }
+		my @pairs = split(/&/,$buffer);
+		foreach my $pair (@pairs) {
+			my ($name, $value) = split(/=/, $pair);
+			$value =~ tr/+/ /;
+			$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+			if($name eq 'admin_delno'){
+				push(@admin_delno,$value);
+			}else{
+				$FORM{$name} = $value;
+			}
+		}
+		$in{'delpass'} = $FORM{'delpass'};
+		$in{'delno'} = $FORM{'delno'};
+		$in{'file'} = $FORM{'file'};
+		$in{'dlkey'} = $FORM{'dlkey'};
+		$in{'mode'} = $FORM{'mode'};
+		$in{'checkmode'} = $FORM{'checkmode'};
+		$in{'admin_delno'} = join(',',@admin_delno);
+		if($in{'delno'} eq $set{'admin_name'} && $in{'delpass'} eq $set{'admin_pass'}){ &admin_mode(); }
+		if(!$in{'delno'} && $in{'delpass'} eq $set{'admin_pass'}){ &makehtml; &quit; }
+	}
+
+	my @denyhost = split(/,/,$set{'deny_host'});
+	foreach my $value (@denyhost){
+		if ($in{'addr'} =~ /$value/ || $in{'host'} =~ /$value/){ &error(101);}
+	}
+
+	my @form = ($in{'comment'},$in{'orgname'},$in{'type'},$in{'dlkey'});
+	foreach my $value (@form) {
+		if (length($value) > 128) { $value = substr($value,0,128).'...'; }
+#		$value =~ s/&/&amp;/g;
+		$value =~ s/"/&quot;/g;
+		$value =~ s/</&lt;/g;
+		$value =~ s/>/&gt;/g;
+		$value =~ s/\r//g;
+		$value =~ s/\n//g;
+		$value =~ s/\t//g;
+		$value =~ s/\0//g;
+	}
+	($in{'comment'},$in{'orgname'},$in{'type'},$in{'dlkey'}) = @form;
+}
+
+
+if($in{'mode'} eq 'delete'){ &delete(); &quit(); }
+if($in{'mode'} eq 'dl'){ &dlfile;} #DL
+if(!$in{'upfile'}){ &error(99); }
+
+{#ƒƒCƒ“ˆ—
+
+	open(IN,$set{'log_file'})||&error(303);
+	my @log = <IN>;
+	close(IN);
+	my ($no,$lastip,$lasttime) = split(/<>/,$log[0]);
+
+	if($set{'interval'} && $in{'time'} <= ($lasttime + $set{'interval'}) && $in{'addr'} eq $lastip){ &error(203);}
+	$in{'ext'} = extfind($in{'orgname'}); if(!$in{'ext'}){ &error(202); }
+
+	my $orgname;
+	if(split(/\//,$in{'orgname'}) > split(/\\/,$in{'orgname'})){	my @name = split(/\//,$in{'orgname'}); $orgname = $name[$#name]; }
+	else{ my @name = split(/\\/,$in{'orgname'}); $orgname = $name[$#name];}
+	
+	my @salt = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/');
+	srand;
+	my $salt = $salt[int(rand(@salt))] . $salt[int(rand(@salt))];
+	$in{'pass'} = crypt($in{'pass'}, $salt);
+
+	if($set{'binary_compare'}){
+		my @files = globfile("$set{'src_dir'}",".*");
+		my @dir = globdir("$set{'src_dir'}",".*");
+		foreach my $dir (@dir){	push(@files,globfile($dir."/",".*")); }
+		foreach my $value (@files){
+			next if($value =~ /\.temporary$/);
+			if(binarycmp($in{'tmpfile'},$value)){ unlink($in{'tmpfile'}); &error(205,$value);}
+		}
+	}
+
+	if($set{'find_crypt'}){
+		open(FILE,$in{'tmpfile'}); binmode(FILE); seek(FILE,0,0); read(FILE,my $buff,4); my $crypt_flag = 0;
+		if($buff =~ /^\x50\x4b\x03\x04$/){ seek(FILE,6,0); read(FILE,my $buff,1); $crypt_flag = 1 if(($buff & "\x01") eq "\x01"); }
+		close(FILE);
+		$in{'comment'} = '<font color="#FF0000">*</font>'.$in{'comment'} if($crypt_flag);
+	}
+
+	open(IN,$set{'log_file'})||&error(303);
+	@log = <IN>;
+	close(IN);
+	($no,$lastip,$lasttime) = split(/<>/,$log[0]);
+	shift(@log);
+	$no++;
+	my $tmpno = sprintf("%04d",$no);
+
+	my $dlsalt;
+	my $filedir;
+	my $allsize = (-s $in{'tmpfile'});
+	
+	if($set{'dlkey'} && $in{'dlkey'}){
+		my @salt = ('a'..'z', 'A'..'Z', '0'..'9'); srand;
+		for (my $c = 1; $c <= 20; ++$c) { $dlsalt .= $salt[int(rand(@salt))]; }
+	 	$filedir = "$set{'src_dir'}$set{'file_pre'}${tmpno}.$in{'ext'}_$dlsalt/";
+		mkdir($filedir,$set{'per_dir'});
+		rename("$in{'tmpfile'}","$filedir$set{'file_pre'}$tmpno.$in{'ext'}");
+		open(OUT,">${filedir}index.html");
+		close(OUT);
+		chmod($set{'per_upfile'},"${filedir}index.html");
+		$in{'comment'} = '<font color="#FF0000">[DLKey] </font>'.$in{'comment'};
+	}else{
+		undef $in{'dlkey'};
+		rename("$in{'tmpfile'}","$set{'src_dir'}$set{'file_pre'}$tmpno.$in{'ext'}");
+	}
+
+	if (length($orgname) > 128) { $orgname = substr($orgname,0,128).'...'; }
+
+	my @note;
+	if($set{'post_flag'} && $set{'post_key'}){
+		push(@note,'PostKey:'.$in{'postkey'});
+	}
+	if($ENV{'SERVER_SOFTWARE'} =~ /Apache|IIS/){
+		my $disptime;
+		my $time = time() - $in{'time'};
+		my @str = ('Upload:','•b');
+		my $disptime = $time.$str[1];
+		push(@note,$str[0].$disptime);
+	}
+	if($in{'dlkey'}){
+		my @salt = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/'); srand;
+		my $salt = $salt[int(rand(@salt))] . $salt[int(rand(@salt))];
+		my $crypt_dlkey  = crypt($in{'dlkey'}, $salt);
+		push(@note,"DLKey<!-- DLKey:".$crypt_dlkey." --><!-- DLpath:".$dlsalt." -->");
+	}
+	my $note = join(',',@note);
+	my $usersalt = substr($in{'user'},0,2);
+	my $userid = crypt($in{'user'},$usersalt);
+	$in{'time'} = time();
+#	$in{'date'} = conv_date(time());
+	my @new;
+	$new[0] = "$no<>$in{'addr'}<>$in{'time'}<>1\n";
+	my $addlog = "$no<>$in{'ext'}<>$in{'date'}<>$in{'comment'}<>$in{'type'}<>$orgname<>$in{'addr'}<>$in{'host'}<>$in{'pass'},$userid<>$set{'file_pre'}<>$note<>1\n";
+	$new[1] = $addlog;
+
+#	open(OUT,">>./alllog.cgi"); print OUT $addlog; close(OUT);
+
+	my $i = 2;
+
+	foreach my $value (@log){
+		my ($no,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$filepre,$note,$dummy) = split(/<>/,$value);
+		if(!$dummy){ $filepre = $set{'file_pre'};}
+		$no = sprintf("%04d",$no);
+
+		my $filename;
+		my $filedir;
+		if($note =~ /DLpath:(.+)\s/){
+			my $dlpath = $1;
+			$filename = "$set{'src_dir'}$filepre$no.${ext}_$dlpath/$filepre$no.$ext";
+			$filedir = "$set{'src_dir'}$filepre$no.${ext}_$dlpath/";
+		}else{
+			$filename = "$set{'src_dir'}$filepre$no.$ext";
+		}
+		$allsize += (-s $filename);
+		
+		if($i <= $set{'max_log'} && !($set{'max_all_flag'} && $set{'max_all_size'}*1024 < $allsize)){ 
+			if((-e $filename)||!$set{'zero_clear'}){ push(@new,$value); $i++; }
+		}else{
+			if(unlink($filename)){
+				unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } } rmdir($filedir);
+			}elsif(unlink($filename)){
+				unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } } rmdir($filedir);
+			}elsif(-e $filename){
+				push(@new,$value);
+			}else{
+				unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } } rmdir($filedir);
+			}
+		}
+	}
+	logwrite(@new);
+	if($in{'dlkey'} && ( $set{'dummy_html'} == 2 || $set{'dummy_html'} == 3)){
+		&makedummyhtml("$set{'file_pre'}$tmpno.$in{'ext'}",$in{'comment'},"$set{'file_pre'}$tmpno.$in{'ext'}",$dlsalt,$in{'date'},$in{'type'},$orgname,$no);
+	}elsif(!$in{'dlkey'} && ($set{'dummy_html'} == 1 || $set{'dummy_html'} == 3)){
+		&makedummyhtml("$set{'file_pre'}$tmpno.$in{'ext'}");
+	}
+	&makehtml(); &quit();
+}
+
+sub makehtml{
+
+	my ($buff,$init,$postval,$dlkey);
+	my $page = 0; my $i = 1;
+	
+	open(IN,$set{'log_file'})||&error(303);
+	my $log = my @log = <IN>;
+	close(IN);
+	
+	if($log == 1){ $log++; $init++;}
+	my $lastpage = int(($log - 2)/$set{'pagelog'}) + 1;
+	$postval = ' obj.postkey.value =  unescape(p[1]);' if($set{'post_flag'});
+	my $header =<<"EOM";
+$set{'html_head'}<META http-equiv="Content-Script-Type" content="text/javascript">
+<script type="text/javascript">
+<!--
+function getCookie(obj,cookiename){
+	var i,str; c = new Array(); p = new Array("",""); str = document.cookie;c = str.split(";");
+	for (i = 0; i < c.length; i++) { if (c[i].indexOf(cookiename+"=") >= 0) { p = (c[i].substr(c[i].indexOf("=")+1)).split("<>"); break; }}
+	if(cookiename == "SN_UPLOAD"){ obj.pass.value =  unescape(p[0]);$postval }
+	else if(cookiename == "SN_DEL"){ obj.delpass.value =  unescape(p[0]);}
+	return true;
+}
+function delnoin(no){
+	document.Del.delno.value = no;
+	document.Del.del.focus();
+}
+//-->
+</script>
+$set{'html_css'}</HEAD>
+<body bgcolor="#ffffff" text="#000000" LINK="#6060FF" VLINK="#6060FF" ALINK="#6060FF" onload="getCookie(document.Form,'SN_UPLOAD');getCookie(document.Del,'SN_DEL');">
+<table summary="title" width="100%"><tr><td bgcolor="#caccff"><strong><font size="4" color="#3366cc">Uploader</font></strong></td></tr></table>
+<p>
+Now.. Testing..
+</p>
+EOM
+	my $maxsize = 'Max '.dispsize($set{'max_size'}*1024);
+	my ($minsize,$total);
+	if($set{'min_flag'}){ $minsize = 'Min '.dispsize($set{'min_size'}*1024).' - '; }
+	if($set{'max_all_flag'}){ $total .= ' Total '.dispsize($set{'max_all_size'}*1024);}
+	$header .= qq|<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="$set{'base_cgi'}" name="Form">FILE $minsize$maxsize (*$set{'max_log'}Files$total)<br>|;
+	$header .='<INPUT TYPE=file  SIZE="40" NAME="upfile">';
+	$header .= ' DLKey: <INPUT TYPE=text SIZE="8" NAME="dlkey" maxlength="8">' if($set{'dlkey'});
+	$header .= '
+DELKey: <INPUT TYPE=password SIZE="10" NAME="pass" maxlength="8"><br>
+COMMENT<br>
+<INPUT TYPE=text SIZE="45" NAME="comment">
+<INPUT TYPE=hidden NAME="jcode" VALUE="Š¿Žš">
+<INPUT TYPE=submit VALUE="Upload"><INPUT TYPE=reset VALUE="Cancel"><br>
+';
+	if($set{'post_flag'}){ $header .= 'PostKey<br><INPUT TYPE=password SIZE="10" NAME="postkey" maxlength="10">'; }
+	$header .= '</FORM>';
+
+	my $allsize = 0;
+	my @files = globfile("$set{'src_dir'}",".*");
+	my @dir = globdir("$set{'src_dir'}",".*");
+	foreach my $dir (@dir){	push(@files,globfile($dir."/",".*")); }
+	foreach my $value (@files){ $allsize += (-s "$value"); }
+
+	$allsize = dispsize($allsize);
+
+	my $footer = "</table><HR size=1>Used ${allsize}\n<br>";
+	if($set{'up_all'} && !$set{'ext_org'}){ $footer .= $set{'up_ext'}.' +'; }
+	elsif(!$set{'up_all'}){ $footer .= $set{'up_ext'}; }
+	$footer .= "\n<table summary=\"footer\" width=\"100%\"><tr><td><div align=left><FORM METHOD=POST ACTION=\"$set{'base_cgi'}\" name=\"Del\"><span style='font-size:9pt'><input type=hidden name=mode value=delete>No.<input type=text size=4 name=delno> key<input type=password size=4 name=delpass> <input type=submit value=\"del\" name=del></span></form></div>\n";
+	$footer .= "</td><td><div align=right><!-- $set{'ver'} --><a href=\"http://sugachan.dip.jp/download/\" target=\"_blank\"><small>Sn Uploader</small></a></div></td></tr></table>\n</body>\n</html>";
+
+	my $info_title = "<table summary=\"upinfo\" width=\"100%\">\n<tr><td></td><td>NAME</td>";
+	if($set{'disp_comment'}){ $info_title .= "<td>COMMENT</td>"; } if($set{'disp_size'}){ $info_title .= "<td>SIZE</td>"; } if($set{'disp_date'}){ $info_title .= "<td>DATE</td>"; }
+	if($set{'disp_mime'}){ $info_title .= "<td>MIME</td>"; } if($set{'disp_orgname'}){ $info_title .= "<td>ORIG</td>"; }
+	$info_title .= "</tr>\n";
+
+	my $home_url_link;
+	if($set{'home_url'}){ $home_url_link = qq|<a href="$set{'home_url'}">[HOME]</a> |;}
+	if($set{'html_all'}){
+		my $buff; my $no = 1; my $time = time; my $subheader;
+		foreach my $value (@log){
+			my ($no,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$dummy) = split(/<>/,$value);
+			if(!$dummy){ next; }
+			$buff .= makeitem($value);
+		}
+		$subheader .= "[ALL] ";
+		while($no <= $lastpage){
+			if($no == $page) { $subheader .= "\[$no\] ";}
+			else{	if($no == 1){ $subheader .= "<a href=\"$set{'http_html_path'}$set{'base_html'}?$time\">\[$no\]</a> "}
+					else{$subheader .= "<a href=\"$set{'http_html_path'}$no.html?$time\">\[$no\]</a> ";}	}
+			$no++;
+		}
+		$subheader .= $info_title;
+		open(OUT,">$set{'html_dir'}all.html")||&error(306,"$set{'html_dir'}all.html");
+		print OUT $header."<hr size=1>".$home_url_link.$subheader."<hr size=1>".$buff.$footer;
+		close(OUT);
+		chmod($set{'per_upfile'},"$set{'html_dir'}all.html");
+	}else{ unlink("$set{'html_dir'}all.html"); }
+	
+	while($log > $i){
+		$buff .= makeitem($log[$i]) unless($init);
+		if(($i % $set{'pagelog'}) == 0||$i == $log -1){
+			$page++; my $subheader; my $no = 1;	my $time = time;
+			if($set{'html_all'}){ $subheader .= "<a href=\"./all.html?$time\">[ALL]</a> "; }
+			while($no <= $lastpage){
+				if($no == $page) { $subheader .= "\[$no\] ";}
+				else{	if($no == 1){ $subheader .= "<a href=\"$set{'http_html_path'}$set{'base_html'}?$time\">\[$no\]</a> "}
+						else{$subheader .= "<a href=\"$set{'http_html_path'}$no.html?$time\">\[$no\]</a> ";}
+				}
+				$no++;
+			}
+			$subheader .= $info_title;
+			my $loghtml;
+			if($page == 1){	$loghtml = "$set{'html_dir'}$set{'base_html'}"; }
+			else{ $loghtml = "$set{'html_dir'}$page.html"; }
+
+			open(OUT,">$loghtml") || &error(306,"$loghtml");
+			print OUT $header."<hr size=1>".$home_url_link.$subheader."<hr size=1>".$buff.$footer;
+			close(OUT);
+			chmod($set{'per_upfile'},$loghtml);
+			undef $buff;
+		}
+		$i++;
+	}
+
+	while($page < 1000){
+		$page ++;
+		if(-e "$set{'html_dir'}$page.html"){ unlink("$set{'html_dir'}$page.html"); }else{ last; }
+	}
+}
+
+sub delete{
+	my $mode = $_[0];
+	my @delno = split(/,/,$_[1]);
+	my $delno; my $flag = 0; my $tmpaddr;
+	my $delnote;
+
+	if($in{'delno'} =~ /(\d+)/){ $delno = $1; }
+	if($mode ne 'admin' && !$in{'delno'}){ return; }
+	elsif($mode ne 'admin' && !$delno){ &error(401,$in{'delno'}); }
+
+	open(IN,$set{'log_file'})|| &error(303);
+	my @log = <IN>;
+	close(IN);
+
+	if($in{'addr'} =~ /(\d+).(\d+).(\d+).(\d+)/){ $tmpaddr = "$1.$2.$3."; }
+	my $findflag = 0;
+	foreach my $value (@log){
+		my ($no,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$filepre,$note,$dummy) = split(/<>/,$value);
+		$delnote = $note;
+		my $delflag = 0;
+		if(!$addr){ next; }
+		if($mode eq 'admin'){
+			foreach my $delno (@delno){ if($no == $delno){ $delflag = 1; last; } }
+		}elsif($no == $delno){
+			$findflag = 1;
+			unless ($addr =~ /^$tmpaddr/){
+				my ($pass,$id) = split(/,/,$pass);
+				my $delpass = $in{'delpass'} || $in{'addr'}.time();
+				my $salt = substr($pass, 0, 2);	$delpass = crypt($delpass,$salt);
+				my $usersalt = substr($in{'user'},0,2); my $userid = crypt($in{'user'},$usersalt);
+				if ($in{'delpass'} ne $set{'admin_pass'} && $delpass ne $pass && $userid ne $id){ 
+					if($mode ne 'admin'){ if(!$dummy){ $filepre = $set{'file_pre'};} $no = sprintf("%04d",$no); &error(404,"$filepre$no.$ext");}
+				}
+			}
+			$delflag = 1;
+		}
+		if($delflag){
+#			open(OUT,">>./del.cgi"); print OUT $value; close(OUT);
+			$flag = 1;
+			if(!$dummy){ $filepre = $set{'file_pre'};}
+			$no = sprintf("%04d",$no);
+			my $filename;
+			my ($dlpath,$filedir);
+			if($delnote =~ /DLpath:(.+)\s/){
+				$dlpath = $1;
+				$filename = "$set{'src_dir'}$filepre$no.${ext}_$dlpath/$filepre$no.$ext";
+				$filedir = "$set{'src_dir'}$filepre$no.${ext}_$dlpath/";
+			}else{
+				$filename = "$set{'src_dir'}$filepre$no.$ext";
+			}
+			
+			if(unlink($filename)){
+				unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } rmdir($filedir);} undef $value;
+			}elsif(unlink($filename)){
+				unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } rmdir($filedir);} undef $value;
+			}elsif(!(-e $filename)){
+				unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } rmdir($filedir);} undef $value;
+			}else{
+				if($mode ne 'admin'){ &error(403,"$filepre$no.$ext");}
+			}
+		}
+	}
+	if($mode ne 'admin' && !$findflag){ &error(402,$delno); }
+	if($flag){
+		logwrite(@log);
+		&makehtml();
+	}
+}
+
+
+sub quit{
+	my ($cookiename,$buff);
+	my $flag = 0;
+	my @tmpfiles = globfile("$set{'src_dir'}","\.temporary");
+	foreach my $value (@tmpfiles){ if((stat($value))[10] < time - 60*60){ unlink("$value"); $flag++; } }
+	&makehtml() if($flag);
+	$buff =<<"EOM";
+$set{'html_head'}<META HTTP-EQUIV="Refresh" CONTENT="1;URL=$set{'http_html_path'}$set{'base_html'}">
+EOM
+	if($in{'jcode'} || $in{'mode'} eq 'delete'){
+		$buff .=<<"EOM";
+<META HTTP-EQUIV="Set-Cookie" content="SN_USER=$in{'user'}&lt;&gt;1; path=/; expires=Tue, 31-Dec-2030 23:59:59 GMT">
+<META HTTP-EQUIV="CONTENT-SCRIPT-TYPE" CONTENT="text/javascript">
+<script type="text/javascript">
+<!--
+setCookie();
+function setCookie() {
+	var key1,key2;
+	var tmp = "path=/; expires=Tue, 31-Dec-2030 23:59:59; ";
+EOM
+		if($in{'jcode'}){
+			my %ck; foreach(split(/;/,$ENV{'HTTP_COOKIE'})){ my($key,$val) = split(/=/); $key =~ s/\s//g; $ck{$key} = $val;}
+			my @ck = split(/<>/,$ck{'SN_DEL'});
+			if(!$ck[0] && $in{'org_pass'}){	$buff .= qq|\tdocument.cookie = "SN_DEL="+escape('$in{'org_pass'}')+"<>;"+ tmp;\n|;}
+			$cookiename = 'SN_UPLOAD'; $buff .= "\tkey1 = escape('$in{'org_pass'}'); key2 = escape('$in{'postkey'}');\n";}
+		else{ $cookiename = 'SN_DEL'; $buff .= "\tkey1 = escape('$in{'delpass'}'); key2 = '';\n"; }
+		$buff .= qq|\tdocument.cookie = "$cookiename="+key1+"<>"+key2+"; "+ tmp;\n}\n//-->\n</script>\n|;
+	}
+	$buff .=<<"EOM";
+<body>
+<br><br><div align=center><font size="+1"><br><br>
+<a href="$set{'http_html_path'}$set{'base_html'}?$in{'time'}">click here!</a></font><br>
+</div>
+</body></html>
+EOM
+	print "Content-type: text/html\n\n";
+	print $buff;
+	exit;
+}
+
+sub admin_mode{
+	&errorclear() if($in{'mode'} eq 'errorclear');
+	&delete('admin',$in{'admin_delno'}) if($in{'mode'} eq 'delete');
+
+	open(IN,$set{'log_file'})||error(303);
+	my @log = <IN>;
+	close(IN);
+
+	my ($header,$buff,$footer,$value);
+	$buff =<<"EOM";
+$set{'html_head'}$set{'html_css'}</HEAD>
+<body bgcolor="#ffffff" text="#000000" LINK="#6060FF" VLINK="#6060FF" ALINK="#6060FF">
+EOM
+
+	$buff .= leaddisp(0,1,1).'<a name="up"></a><table summary="title" width="100%"><tr><td bgcolor="#caccff"><strong><font size="4" color="#3366cc">Upload Info</font></strong></td></tr></table>';
+	$buff .= qq|<table summary="check"><tr><td><form action="$set{'base_cgi'}" method="POST"><input type=hidden name="checkmode" value="allcheck"><input type=hidden name=delno value="$in{'delno'}"><input type=hidden name=delpass value="$in{'delpass'}"><input type=submit value="‚·‚ׂă`ƒFƒbƒN"></form></td><td><form action="$set{'base_cgi'}" method="POST"><input type=hidden name="checkmode" value="nocheck"><input type=hidden name=delno value="$in{'delno'}"><input type=hidden name=delpass value="$in{'delpass'}"><input type=submit value="‚·‚ׂĊO‚·"></form></td><td><form action="$set{'base_cgi'}" method="POST"><input type=hidden name=delpass value="$set{'admin_pass'}"><input type=submit value="HTML‚ðXV‚·‚é/ƒƒOƒAƒEƒg"></form></td></tr></table>\n<form action="$set{'base_cgi'}" method="POST"><input type=hidden name="mode" value="delete"><input type=hidden name=delno value="$in{'delno'}"><input type=hidden name=delpass value="$in{'delpass'}"><input type=submit value="ƒ`ƒFƒbƒN‚µ‚½‚à‚Ì‚ðíœ"><br>\n|."<table summary=\"upinfo\" width=\"100%\">\n<tr><td>DEL</td><td>NAME</td><td>COMMENT</td><td>SIZE</td><td>ADDR</td><td>HOST</td><td>DATE</td><td>NOTE</td><td>MIME</td><td>ORIG</td></tr>\n";
+	shift(@log);
+	foreach (@log){	$buff .= makeitem($_,'admin'); }
+	$buff .= '</table></form><br><br>';
+
+	if($set{'error_level'}){
+		$buff .= leaddisp(-1,0,1).'<a name="error"></a><table summary="errortitle" width="100%"><tr><td bgcolor="#caccff"><strong><font size="4" color="#3366cc">Error Info</font></strong></td></tr></table>';
+		$buff .= qq|<form action="$set{'base_cgi'}" method="POST"><input type=hidden name=mode value="errorclear"><input type=hidden name=delno value="$in{'delno'}"><input type=hidden name=delpass value="$in{'delpass'}"><input type=submit value="ƒGƒ‰[ƒƒOƒNƒŠƒA"></form>|;
+		$buff .= "<table summary=\"errorinfo\" width=\"100%\">\n<tr><td>DATE</td><td>ADDR</td><td>HOST</td><td>NOTE</td></tr>\n";
+		if(open(IN,$set{'error_log'})){	@log = reverse(<IN>); close(IN); foreach (@log){ my ($date,$no,$note,$addr,$host) = split(/<>/); $buff .= "<tr><td>$date</td><td>$addr</td><td>$host</td><td>$note</td></tr>\n"; }}
+		$buff .= "</table><br><br>\n";
+	}
+
+	$buff .= leaddisp(-1,-1,0);
+	$buff .= '<a name="set"></a><table summary="settitle" width="100%"><tr><td bgcolor="#caccff"><strong><font size="4" color="#3366cc">Setting Info</font></strong></td></tr></table>'."\n<table summary=\"setting\">\n";
+	$buff .= tablestr('ƒXƒNƒŠƒvƒgVer',$set{'ver'});
+	$buff .= tablestr('ƒƒCƒ“ƒƒOƒtƒ@ƒCƒ‹',$set{'log_file'});
+	if($set{'error_level'}){
+		$buff .= tablestr('ƒGƒ‰[ƒƒOƒtƒ@ƒCƒ‹',$set{'error_log'});
+		if($set{'error_size'}){ $buff .= tablestr('ƒGƒ‰[ƒƒOÅ‘å—e—Ê',dispsize($set{'error_size'}*1024).' '.($set{'error_size'}*1024).'Bytes'); }
+		else{ $buff .= tablestr('ƒGƒ‰[ƒƒOÅ‘å—e—ʐ§ŒÀ','–³'); }
+	}else{ $buff .= tablestr('ƒGƒ‰[ƒƒO‹L˜^','–³'); }
+	$buff .= tablestr('•ÛŽŒ”',$set{'max_log'});
+	$buff .= tablestr('Å‘å“Še—e—Ê',dispsize($set{'max_size'}*1024).' '.($set{'max_size'}*1024).'Bytes');
+
+	if($set{'min_flag'}){ $buff .= tablestr('Å¬§ŒÀ—e—Ê',dispsize($set{'min_size'}*1024).' '.($set{'min_size'}*1024).'Bytes'); }
+	else{ $buff .= tablestr('Å¬§ŒÀ—e—Ê',"–³"); }
+	if($set{'max_all_flag'}){ $buff .= tablestr('‘—e—ʐ§ŒÀ',dispsize($set{'max_all_size'}*1024).' '.($set{'max_all_size'}*1024).'Bytes'); }
+	else{ $buff .= tablestr('‘—e—ʐ§ŒÀ',"–³"); }
+
+	$buff .= tablestr("ƒtƒ@ƒCƒ‹Ú“ªŽ«",$set{'file_pre'});
+	$buff .= tablestr("HTML•Û‘¶ƒfƒBƒŒƒNƒgƒŠ",$set{'html_dir'});
+	$buff .= tablestr("ƒtƒ@ƒCƒ‹•Û‘¶ƒfƒBƒŒƒNƒgƒŠ",$set{'src_dir'});
+	if($set{'http_html_path'} && $set{'html_dir'} ne $set{'http_html_path'}){ $buff .= "<tr><td>HTTP_HTML_PATH</td><td>$set{'http_html_path'}</td></tr>\n";}
+	if($set{'http_src_path'} && $set{'src_dir'} ne $set{'http_src_path'}){ $buff .= "<tr><td>HTTP_SRC_PATH</td><td>$set{'http_src_path'}</td></tr>\n";}
+	$buff .= tablestr('1ƒy[ƒW‚É•\Ž¦‚·‚éƒtƒ@ƒCƒ‹”',$set{'pagelog'});
+	if($set{'interval'} > 0){ $value = $set{'interval'}.'•b'; }else{ $value = '–³'; }
+	$buff .= tablestr('“¯ˆêIP“ŠeŠÔŠu•b”§ŒÀ',$value);
+	if($set{'up_ext'}){	$set{'up_ext'} =~ s/,/ /g; $buff .= tablestr('“Še‰Â”\Šî–{Šg’£Žq',$set{'up_ext'}); }
+	if($set{'deny_ext'}){ $set{'deny_ext'} =~ s/,/ /g; $buff .= tablestr('“Še‹ÖŽ~Šg’£Žq',$set{'deny_ext'}); }
+	if($set{'change_ext'}){	$set{'change_ext'} =~ s/,/ /g; $set{'change_ext'} =~ s/>/&gt;/g; $buff .= tablestr('Šg’£Žq•ÏŠ·',$set{'change_ext'});	}
+
+	if($set{'up_all'}){	$buff .= tablestr('Žw’èŠOŠg’£ŽqƒAƒbƒvƒ[ƒh‹–‰Â','—L'); if($set{'ext_org'}){ $buff .= tablestr('Žw’èŠOƒtƒ@ƒCƒ‹Šg’£Žq','ƒIƒŠƒWƒiƒ‹'); }else{ $buff .= tablestr('Žw’èŠOƒtƒ@ƒCƒ‹Šg’£Žq','bin'); }}
+	else{$buff .= tablestr('Žw’èŠOŠg’£ŽqƒAƒbƒvƒ[ƒh‹–‰Â','–³');}
+
+	if($set{'find_crypt'}){ $value = '—L'; }else{ $value = '–³';}
+	$buff .= tablestr('ˆÃ†‰»ƒA[ƒJƒCƒuŒŸo(ZIP)',$value);
+	if($set{'binary_compare'}){ $value = '—L'; }else{ $value = '–³';}
+	$buff .= tablestr('ƒoƒCƒiƒŠ”äŠr',$value);
+	if($set{'post_flag'}){ $value = '—L'; }else{ $value = '–³';}
+	$buff .= tablestr('PostKey“Še§ŒÀ',$value);
+	if($set{'dlkey'}){ if($set{'dlkey'} == 2){$value = '•K{'}else{$value = '”CˆÓ';}}else{ $value = '–³';}
+	$buff .= tablestr('DLkey',$value);
+	if($set{'dummy_html'}){ if($set{'dummy_html'} == 3){$value = 'ALL'}elsif($set{'dummy_html'} == 2){$value = 'DLKey‚Ì‚Ý';}else{$value = '’ʏíƒtƒ@ƒCƒ‹‚Ì‚Ý';}}else{ $value = '–³';}
+	$buff .= tablestr('ŒÂ•ÊHTMLƒLƒƒƒbƒVƒ…',$value);
+	if($set{'disp_error'}){ $value = '—L'; }else{ $value = '–³';}
+	$buff .= tablestr('ƒ†[ƒUƒGƒ‰[•\Ž¦',$value);
+	if($set{'zero_clear'}){ $value = '—L'; }else{ $value = '–³';}
+	$buff .= tablestr('íœÏƒtƒ@ƒCƒ‹ƒŠƒXƒgŽ©“®Á‹Ž',$value);
+	if($set{'home_url'}){ $buff .= "<tr><td>HOMEURL</td><td>$set{'home_url'}</td></tr>\n";}
+
+	$buff .= '</table></body></html>';
+
+	print "Content-type: text/html\n\n";
+	print $buff;
+	exit;
+}
+
+sub extfind{
+	my $orgname = @_[0];
+	my @filename = split(/\./,$orgname);
+	my $ext = $filename[$#filename];
+	$ext =~ tr/[A-Z]/[a-z]/;
+	foreach my $value (split(/,/,$set{'change_ext'})){ my ($src,$dst) = split(/->/,$value); if($ext eq $src){ $ext = $dst; last; }}
+	foreach my $value (split(/,/,$set{'deny_ext'})){ if($ext eq $value){ &error(206,$ext); }}
+	foreach my $value (split(/,/,$set{'up_ext'})){ if ($ext eq $value) { return $value; } }
+	if(length($ext) >= 5 || length($ext) == 0){ $ext = 'bin'; }
+	unless ($ext =~ /^[A-Za-z0-9]+$/){ $ext = 'bin'; }
+	if($set{'up_all'} && $set{'ext_org'}){ return $ext;}
+	elsif($set{'up_all'}){ return 'bin'; }
+	return 0;
+}
+
+
+sub conv_date{
+	my @date = gmtime($_[0] + 9*60*60);
+	$date[5] -= 100; $date[4]++;
+	if ($date[5] < 10) { $date[5] = "0$date[5]" ; }	if ($date[4] < 10) { $date[4] = "0$date[4]" ; }
+	if ($date[3] < 10) { $date[3] = "0$date[3]" ; }	if ($date[2] < 10) { $date[2] = "0$date[2]" ; }
+	if ($date[1] < 10) { $date[1] = "0$date[1]" ; }	if ($date[0] < 10) { $date[0] = "0$date[0]" ; }
+	my @w = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
+	return ("$date[5]/$date[4]/$date[3]($w[$date[6]]),$date[2]:$date[1]:$date[0]");
+}
+
+sub dispsize{
+	my $size = $_[0];
+	if($size >= 1024*1024*1024*100){ $size = int($size/1024/1024/1024).'GB';}
+	elsif($size >= 1024*1024*1024*10){ $size = sprintf("%.1fGB",$size/1024/1024/1024);}
+	elsif($size > 1024*1024*1024){ $size = sprintf("%.2fGB",$size/1024/1024/1024);}
+	elsif($size >= 1024*1024*100){ $size = int($size/1024/1024).'MB'; }
+	elsif($size > 1024*1024){ $size =  sprintf("%.1fMB",$size/1024/1024); }
+	elsif($size > 1024){ $size = int($size/1024).'KB'; }
+	else{ $size = int($size).'B';}
+	return $size;
+}
+
+sub makeitem{
+	my ($src,$mode) = @_; my ($buff,$check,$target);
+	my ($no,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$filepre,$note,$dummy) = split(/<>/,$src);
+	if(!$dummy){ $filepre = $set{'file_pre'}; }
+	my $orgno = $no;
+	$no = sprintf("%04d",$no);
+	my $size = 0;
+	my $dlpath = 0;
+
+	if($note =~ /DLpath:(.+)\s/){
+		$dlpath = $1;
+		$size = dispsize(-s "$set{'src_dir'}$filepre$no.${ext}_$dlpath/$filepre$no.$ext");
+	}else{
+		$size = dispsize(-s "$set{'src_dir'}$filepre$no.$ext");
+	}
+
+	my $path = $set{'http_src_path'} || $set{'src_dir'};
+	if($set{'link_target'}){ $target = qq| target="$set{'link_target'}"|; }
+	if($mode eq 'admin'){
+		if($dlpath){ $path .= "$filepre$no.${ext}_$dlpath/"; }
+		if($addr eq $host){ undef $host; }
+		if($in{'checkmode'} eq 'allcheck'){$check = ' checked';}
+		$buff = "<tr><td><INPUT TYPE=checkbox NAME=\"admin_delno\" VALUE=\"$no\"$check></td><td><a href=\"$path$filepre$no.$ext\"$target>$filepre$no.$ext</a></td><td>$comment</td><td>$size</td><td>$addr</td><td>$host</td><td>$date</td><td>$note</td><td>$mime</td><td>$orgname</td></tr>\n";
+	}else{
+		my($d_com,$d_date,$d_size,$d_mime,$d_org);
+		if($set{'disp_comment'}){ $d_com = "<td>$comment</td>"; } if($set{'disp_size'}){ $d_size = "<td>$size</td>"; } if($set{'disp_date'}){ $d_date= "<td>$date</td>"; }
+		if($set{'disp_mime'}){ $d_mime = "<td>$mime</td>"; } if($set{'disp_orgname'}){ $d_org = "<td>$orgname</td>"; }
+		if(-e "$set{'src_dir'}$filepre$no.$ext.html"){$buff = "<tr><td><SCRIPT type=\"text/javascript\" Language=\"JavaScript\"><!--\ndocument.write(\"<a href=\\\"javascript:delnoin($orgno)\\\">$set{'char_delname'}<\\/a>\");\n// --></SCRIPT></td><td><a href=\"$path$filepre$no.$ext.html\"$target>$filepre$no.$ext</a></td>$d_com$d_size$d_date$d_mime$d_org</tr>\n";}
+		elsif($dlpath){$buff = "<tr><td><SCRIPT type=\"text/javascript\" Language=\"JavaScript\"><!--\ndocument.write(\"<a href=\\\"javascript:delnoin($orgno)\\\">$set{'char_delname'}<\\/a>\");\n// --></SCRIPT></td><td><a href=\"$set{'base_cgi'}?mode=dl&file=$orgno\">$filepre$no.$ext</a></td>$d_com$d_size$d_date$d_mime$d_org</tr>\n";}
+		else{ $buff = "<tr><td><SCRIPT type=\"text/javascript\" Language=\"JavaScript\"><!--\ndocument.write(\"<a href=\\\"javascript:delnoin($orgno)\\\">$set{'char_delname'}<\\/a>\");\n// --></SCRIPT></td><td><a href=\"$path$filepre$no.$ext\"$target>$filepre$no.$ext</a></td>$d_com$d_size$d_date$d_mime$d_org</tr>\n";}
+	}
+	return $buff;
+}
+
+sub makedummyhtml{
+	my ($filename,$com,$file,$orgdlpath,$date,$mime,$orgname,$no) = @_;
+	my $buff;
+
+	if(!$no){
+		$buff = "<html><head><title>$filename</title></head><body>";
+		$buff .= qq|Download <a href="./$filename">$filename</a>|;
+		$buff .= '</body></html>';
+	}else{
+		$buff = cryptfiledl($com,$file,$orgdlpath,$date,$mime,$orgname,$no);
+	}
+
+	open(OUT,">$set{'src_dir'}$filename.html")||&error(307,"$set{'src_dir'}$filename.html");
+	print OUT $buff;
+	close(OUT);
+	chmod($set{'per_upfile'},"$set{'src_dir'}$filename.html");
+	return 1;
+}
+
+
+sub logwrite{
+	my @log = @_;
+	open(OUT,"+>$set{'log_file'}")||&error(304);
+	eval{ flock(OUT, 2);};
+	eval{ truncate(OUT, 0);};
+	seek(OUT, 0, 0);
+	print OUT @log;
+	eval{ flock(OUT, 8);};
+	close(OUT);
+	chmod($set{'per_upfile'},$set{'log_file'});
+	return 1;
+}
+
+sub binarycmp{
+	my ($src,$dst) = @_;
+	return 0 if (-s $src != -s $dst);
+	open(SRC,$src)||return 0; open(DST,$dst)||return 0;
+	my ($buff,$buff2);
+	binmode(SRC); binmode(DST); seek(SRC,0,0); seek(DST,0,0); 
+	while(read(SRC,$buff,8192)){ read(DST,$buff2,8192); if($buff ne $buff2){ close(SRC); close(DST); return 0; } }
+	close(SRC); close(DST);
+	return 1;
+}
+
+sub init{
+	my $buff;
+	if(open(OUT,">$set{'log_file'}")){
+		print OUT "0<>0<>0<>1\n";
+		close(OUT);
+		chmod($set{'per_logfile'},$set{'log_file'});
+	}else{
+		$buff = "<tr><td>ƒƒCƒ“ƒƒO‚̍쐬‚ÉŽ¸”s‚µ‚Ü‚µ‚½</td></tr>";
+	}
+	
+	unless (-d "$set{'src_dir'}"){
+		if(mkdir("$set{'src_dir'}",$set{'per_dir'})){
+			chmod($set{'per_dir'},"$set{'src_dir'}");
+			open(OUT,">$set{'src_dir'}index.html");
+			close(OUT);
+			chmod($set{'per_upfile'},"$set{'src_dir'}index.html");
+		}else{
+			$buff .= "<tr><td>Source•Û‘¶ƒfƒBƒŒƒNƒgƒŠ‚̍쐬‚ÉŽ¸”s‚µ‚Ü‚µ‚½</td></tr>";
+		}
+	}
+
+	unless (-d "$set{'html_dir'}"){
+		if(mkdir("$set{'html_dir'}",$set{'per_dir'})){
+			chmod($set{'per_dir'},"$set{'html_dir'}");
+		}else{
+			$buff .= "<tr><td>HTML•Û‘¶ƒfƒBƒŒƒNƒgƒŠ‚̍쐬‚ÉŽ¸”s‚µ‚Ü‚µ‚½</td></tr>";
+		}
+	}
+
+	if($buff){
+		$buff .= "<tr><td>ƒfƒBƒŒƒNƒgƒŠ‚ɏ‘‚«ž‚ÝŒ ŒÀ‚ª‚ ‚é‚©Šm”F‚µ‚Ä‚­‚¾‚³‚¢</td></tr>";
+		&error_disp($buff,'init');
+	}
+}
+
+sub check_postkey{
+	my $inputkey = @_[0];
+	my @key = split(/,/,$set{'post_key'});
+	foreach my $key (@key){ if($inputkey eq $key){ return 1; } }
+	return 0;
+}
+
+sub leaddisp{
+	my @src = @_;
+	my ($str,$count);
+	foreach my $value (@src){
+		my ($mark,$name,$link); $count++;
+		if($count == 1){ $name = 'Upload Info'; $link = 'up'; }
+		elsif($count == 2){ $name = 'Error Info'; $link = 'error'; next if(!$set{'error_level'}); }
+		elsif($count == 3){ $name = 'Setting Info'; $link = 'set'; }
+		if($value){ if($value > 0){ $mark = '¥'; }else{ $mark = '£'; } $str .= qq|<a href="#$link">${mark}${name}</a> |; }
+		else{ $str .= qq|[$name] |; }
+	}
+	return $str;
+}
+
+sub errorclear{
+	open(OUT,">$set{'error_log'}")||return 0;
+	eval{ flock(OUT, 2);}; eval{ truncate(OUT, 0);}; seek(OUT, 0, 0); eval{ flock(OUT, 8);}; close(OUT);
+	chmod($set{'per_upfile'},$set{'log_file'});
+	return 1;
+}
+
+sub tablestr{
+	my ($value1,$value2) = @_;
+	return ("<tr><td>$value1</td><td>$value2</td></tr>\n");
+}
+
+sub globfile{
+	my ($src_dir,$filename) = @_;
+	opendir(DIR,$src_dir)||return 0; my @dir = readdir(DIR); closedir(DIR);
+	my @new = (); foreach my $value (@dir){ push(@new,"$src_dir$value") if($value =~ /$filename/ && !(-d "$src_dir$value")); }
+	return @new;
+}
+
+sub globdir{
+	my ($src_dir,$dir) = @_;
+	opendir(DIR,$src_dir)||return 0; my @dir = readdir(DIR); closedir(DIR);
+	my @new = (); foreach my $value (@dir){ if($value eq '.' ||$value eq '..' ){ next; } push(@new,"$src_dir$value") if($value =~ /$dir/ && (-d "$src_dir$value")); }
+	return @new;
+}
+
+sub error_disp{
+	my ($message,$mode) = @_;
+	my $url;
+	if($mode eq 'init'){ $url = qq|<a href="$set{'base_cgi'}">[ƒŠƒ[ƒh]</a>|; }else{ $url = qq|<a href="$set{'http_html_path'}$set{'base_html'}">[–ß‚é]</a>|; }
+	my $buff =<<"EOM";
+$set{'html_head'}$set{'html_css'}</HEAD>
+<body bgcolor="#ffffff" text="#000000" LINK="#6060FF" VLINK="#6060FF" ALINK="#6060FF">
+<div align="center">
+<table summary="error">
+$message
+<tr><td></td></tr>
+<tr><td><div align="center">$url</div></td></tr>
+</table>
+<br><br>
+<table summary="info">
+<tr>
+<td>DATE</td><td>$in{'date'}</td></tr>
+<tr><td>ADDR</td><td>$in{'addr'}</td></tr>
+<tr><td>HOST</td><td>$in{'host'}</td></tr>
+</table>
+</div>
+</body></html>
+EOM
+	print "Content-type: text/html\n\n";
+	print $buff;
+	exit;
+}
+
+sub error{
+	my ($no,$note) = @_;
+	if (length($note) > 64) { $note = substr($note,0,64).'...'; }
+	$note =~ s/&/&amp;/g; $note =~ s/\"/&quot;/g; $note =~ s/</&lt;/g; $note =~ s/>/&gt;/g; $note =~ s/\r//g; $note =~ s/\n//g; $note =~ s/\t//g; $note =~ s/\0//g;
+	my ($message,$dispmsg,$flag);
+	
+	if($no == 98){ $message = ""; }
+	elsif($no == 99){ $message = "UpFile‚È‚µ"; }
+	elsif($no == 101){ $message = "“Še‹ÖŽ~HOST"; }
+	elsif($no == 106){ $flag = 1; $message = "POSTƒTƒCƒY’´‰ß"; $note = dispsize($note); $dispmsg= '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>ƒAƒbƒvƒ[ƒhƒtƒ@ƒCƒ‹('.$note.')‚Í Å‘å—e—ʐݒè('.dispsize($set{'max_size'}*1024).')‚ð‰z‚¦‚Ä‚¢‚Ü‚·</td></tr>';}
+	elsif($no == 107){ $flag = 1; $message = "POSTƒTƒCƒY‰ß¬"; $note = dispsize($note); $dispmsg= '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>ƒAƒbƒvƒ[ƒhƒtƒ@ƒCƒ‹('.$note.')‚Í Å¬—e—ʐݒè('.dispsize($set{'min_size'}*1024).')–¢–ž‚Å‚·</td></tr>';}
+	elsif($no == 108){ $flag = 1; $message = "POSTƒf[ƒ^•sŠ®‘S"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>POSTƒf[ƒ^‚ª•sŠ®‘S‚Å‚·</td></tr>';}
+	elsif($no == 109){ $flag = 1; $message = "POSTKey•sˆê’v"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>POSTKey‚ªˆê’v‚µ‚Ü‚¹‚ñ</td></tr>';}
+	elsif($no == 202){ $flag = 1; $message = "Šg’£Žq‡‚킸"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>“Še‚Å‚«‚éŠg’£Žq‚Í'.$set{'up_ext'}.'‚Å‚·</td></tr>';}
+	elsif($no == 203){ $flag = 1; $message = "“Še‘‚·‚¬"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>“¯ˆêIPƒAƒhƒŒƒX‚©‚ç'.$set{'interval'}.'•bˆÈ“à‚ɍēŠe‚Å‚«‚Ü‚¹‚ñ</td></tr>';}
+	elsif($no == 204){ $flag = 1; $message = "ˆêŽžƒtƒ@ƒCƒ‹‘‚«ž‚ß‚¸"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>ˆêŽžƒtƒ@ƒCƒ‹‚̍쐬‚ÉŽ¸”s‚µ‚Ü‚µ‚½</td></tr>';}
+	elsif($no == 205){ $flag = 1; $message = "“¯ˆêƒtƒ@ƒCƒ‹‘¶Ý"; $note =~ /([^\/]+)$/; my $filename = $1; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>“¯ˆêƒtƒ@ƒCƒ‹‚ª '.$filename.' ‚É‘¶Ý‚µ‚Ü‚·</td></tr>';}
+	elsif($no == 206){ $flag = 1; $message = "‹ÖŽ~Šg’£Žq"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðƒAƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>Šg’£Žq '.$note.' ‚̓Aƒbƒvƒ[ƒh‚Å‚«‚Ü‚¹‚ñ</td></tr>';}
+	elsif($no == 303){ $flag = 1; $message = "ƒƒOƒtƒ@ƒCƒ‹‚ɓǂݍž‚ß‚¸"; $dispmsg = '<tr><td>ƒƒCƒ“ƒƒO‚̓ǂݍž‚Ý‚ÉŽ¸”s‚µ‚Ü‚µ‚½</td></tr>';}
+	elsif($no == 304){ $flag = 1; $message = "ƒƒOƒtƒ@ƒCƒ‹‚ɏ‘‚«ž‚ß‚¸"; $dispmsg = '<tr><td>ƒƒCƒ“ƒƒO‚̏‘‚«ž‚Ý‚ÉŽ¸”s‚µ‚Ü‚µ‚½</td></tr>';}
+	elsif($no == 306){ $message = "ƒtƒ@ƒCƒ‹ƒŠƒXƒgHTML‘‚«ž‚ß‚¸";}
+	elsif($no == 307){ $message = "ƒtƒ@ƒCƒ‹HTMLƒtƒ@ƒCƒ‹‘‚«ž‚ß‚¸";}
+	elsif($no == 401){ $flag = 1; $message = "íœNo.ŒŸo‚Å‚«‚¸"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðíœ‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>'.$note.' ‚©‚çíœNo.‚ðŒŸo‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>'.$set{'file_pre'}.'0774.zip‚̏ꍇ No.‚É‚Í 774 ‚ð“ü—Í‚µ‚Ü‚·</td></tr>';}
+	elsif($no == 402){ $flag = 1; $note = sprintf("%04d",int($note)); $message = "íœNo.‘¶Ý‚¹‚¸"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðíœ‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>'.$set{'file_pre'}.$note.'.*** ‚̓ƒCƒ“ƒƒO‚É‘¶Ý‚µ‚Ü‚¹‚ñ</td></tr>';}
+	elsif($no == 403){ $flag = 1; $message = "íœƒAƒNƒZƒX‹‘”Û"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðíœ‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>ƒtƒ@ƒCƒ‹íœðŒ‚Í–ž‚½‚µ‚Ä‚¢‚Ü‚·‚ª '.$note.' ‚̃tƒ@ƒCƒ‹‚̍폜‚ª‹‘”Û‚³‚ê‚Ü‚µ‚½</td></tr><tr><td>ƒAƒNƒZƒX‚ª‰ßè‚ȏꍇ“™‚ÍŽžŠÔ‚ð’u‚¢‚čđ€ì‚·‚é‚ƍ폜‚Å‚«‚邱‚Æ‚ª‚ ‚è‚Ü‚·</td></tr>';}
+	elsif($no == 404){ $flag = 1; $message = "íœKey•sˆê’v"; $dispmsg = '<tr><td>ƒtƒ@ƒCƒ‹‚ðíœ‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>'.$note.' íœKey‚ªˆê’v‚µ‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr>';}
+
+	elsif($no == 51){ $flag = 1; $message = "[DLMode] No.Œ©‚‚©‚炸";  $dispmsg = '<tr><td>[DLMode] ƒtƒ@ƒCƒ‹‚ªŒ©‚‚©‚è‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>'.$note.' ‚©‚çƒtƒ@ƒCƒ‹No.‚ðŒŸo‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr>'; }
+	elsif($no == 52){ $flag = 1; $message = "[DLMode] FileŒ©‚‚©‚炸";  $dispmsg = '<tr><td>[DLMode] ƒtƒ@ƒCƒ‹‚ªŒ©‚‚©‚è‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr><tr><td>'.$set{'file_pre'}.$note.'.*** ‚̓ƒCƒ“ƒƒO‚É‘¶Ý‚µ‚Ü‚¹‚ñ</td></tr>'; }
+	elsif($no == 53){ $flag = 1; $message = "[DLMode] DLkey–¢Ý’è";  $dispmsg = '<tr><td>[DLMode] orgDLkeyError</td></tr><tr><td>'.$note.' DLKey‚ª–¢Ý’è‚Å‚·</td></tr>'; }
+	elsif($no == 54){ $flag = 1; $message = "[DLMode] DLkey•sˆê’v";  $dispmsg = '<tr><td>[DLMode] orgDLkeyError</td></tr><tr><td>'.$note.' DLKey‚ªˆê’v‚µ‚Ü‚¹‚ñ‚Å‚µ‚½</td></tr>'; }
+	elsif($no == 55){ $flag = 1; $message = "[DLMode] File Oepn Error";  $dispmsg = '<tr><td>[DLMode] Open Error</td></tr><tr><td>'.$note.' ƒtƒ@ƒCƒ‹‚̓ǂݍž‚Ý‚ÉŽ¸”s‚µ‚Ü‚µ‚½</td></tr>'; }
+	elsif($no == 56){ $flag = 1; $message = "[DLMode] File Not Found";  $dispmsg = '<tr><td>[DLMode] Not Found</td></tr><tr><td>'.$note.' ƒtƒ@ƒCƒ‹‚ª‘¶Ý‚µ‚Ü‚¹‚ñ</td></tr>'; }
+
+	elsif($no == 61){ $flag = 1; $message = "DLkey–¢Ý’è";  $dispmsg = '<tr><td>DLKey‚ª–¢Ý’è‚Å‚·</td></tr>'; }
+
+	unlink($in{'tmpfile'});
+	if($note){$message .= ' ';}
+	if($set{'error_level'} && $no > 100){
+		unless(-e $set{'error_log'}){
+			open(OUT,">$set{'error_log'}");
+			close(OUT);
+			chmod($set{'per_logfile'},$set{'error_log'});
+		}
+		if($set{'error_size'} && ((-s $set{'error_log'}) > $set{'error_size'} * 1024)){
+			my $err_bkup = "$set{'error_log'}.bak.cgi";
+			unlink($err_bkup);
+			rename($set{'error_log'},$err_bkup);
+			open(OUT,">$set{'error_log'}");
+			close(OUT);
+			chmod($set{'per_logfile'},$set{'error_log'});
+		}
+		open(OUT,">>$set{'error_log'}");
+		print OUT "$in{'date'}<>$no<>$message$note<>$in{'addr'}<>$in{'host'}<>1\n";
+		close(OUT);
+	}
+	&error_disp($dispmsg) if($flag && $set{'disp_error'});
+	&quit();
+}
+
+sub dlfile{
+	my $msg;
+	my ($orgdlkey,$orgdlpath);
+	my ($dlext,$dlfilepre);
+	my ($dl_date,$dl_comment,$dl_size,$dl_mime,,$dl_orgname);
+	my $dlno = 0;
+	my $findflag;
+
+	open(IN,$set{'log_file'})||&error(303);
+	my @log = <IN>;
+	close(IN);
+	shift(@log);
+
+	if($in{'file'} =~ /(\d+)/){ $dlno = $1; }
+	if($dlno == 0) { &error(51,$in{'file'}); }
+
+	foreach my $value (@log){
+		my ($no,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$filepre,$note,$dummy) = split(/<>/,$value);
+			my @note = split(/,/,$note);
+			if(int($dlno) == $no){
+				$dl_comment = $comment;
+				$dl_mime = $mime;
+				$dl_date = $date;
+				$dl_orgname = $orgname;
+				$dlext = $ext;
+				$dlfilepre = $filepre;
+				foreach my $tmpnote (@note){
+					if($tmpnote =~ /\!--\sDLKey:(.+)\s--.*\!--\sDLpath:(.+)\s--/){
+						$orgdlkey = $1;
+						$orgdlpath = $2;
+						last;
+					}
+				}
+				$findflag = 1;
+				last;
+			}
+	}
+
+	my $dlfile = $dlfilepre.sprintf("%04d",int($dlno)).'.'.$dlext;
+	if(!(-e "$set{'src_dir'}${dlfile}_$orgdlpath/$dlfile")){ &error(56,"$dlfile----$set{'src_dir'}${dlfile}_$orgdlpath/$dlfile"); }
+
+	if($in{'dlkey'}){
+		my $dlsalt = substr($orgdlkey,0,2);
+		my $dlkey = crypt($in{'dlkey'},$dlsalt);
+
+		if($findflag == 0){ &error(52,$dlfile); }
+		elsif(!$orgdlkey){ &error(53,$dlfile); }
+		elsif($orgdlkey ne $dlkey && $set{'admin_pass'} ne $in{'dlkey'}){ &error(54,$dlfile); }
+		#print "Location: $set{'http_src_path'}${dlfile}_$orgdlpath/$dlfile\n\n";
+		my $buff =<<"EOM";
+$set{'html_head'}$set{'html_css'}
+<META HTTP-EQUIV="Refresh" CONTENT="1;URL=$set{'http_src_path'}${dlfile}_$orgdlpath/$dlfile">
+</HEAD>
+<body bgcolor="#ffffff" text="#000000" LINK="#6060FF" VLINK="#6060FF" ALINK="#6060FF">
+<div align="center">
+<br>
+<table summary="dlfrom">
+<tr><td>”ò‚΂Ȃ¢ê‡‚Í <a href="$set{'http_src_path'}${dlfile}_$orgdlpath/$dlfile">‚±‚¿‚ç</a> ‚©‚ç</td></tr>
+</table>
+</div>
+</body></html>
+EOM
+		print "Content-type: text/html\n\n";
+		print $buff;
+	}else{
+		my $buff = cryptfiledl($dl_comment,$dlfile,$orgdlpath,$dl_date,$dl_mime,$dl_orgname,$dlno);
+		print "Content-type: text/html\n\n";
+		print $buff;
+	}
+	exit;
+}
+
+sub cryptfiledl{
+		my($com,$file,$orgdlpath,$date,$mime,$orgname,$no) = @_;
+		my($d_com,$d_date,$d_size,$d_mime,$d_org);
+
+		if($set{'disp_comment'}){ $d_com = "<tr><td>COMMENT</td><td>$com</td></td>"; } if($set{'disp_size'}){ $d_size = "<tr><td>SIZE</td><td>".dispsize(-s "$set{'src_dir'}${file}_$orgdlpath/$file")." (".(-s "$set{'src_dir'}${file}_$orgdlpath/$file")."bytes)"."</td></tr>"; } if($set{'disp_date'}){ $d_date= "<tr><td>DATE</td><td>$date</td></tr>"; }
+		if($set{'disp_mime'}){ $d_mime = "<tr><td>ORGMIME</td><td>$mime</td></tr>"; } if($set{'disp_orgname'}){ $d_org = "<tr><td>ORGNAME</td><td>$orgname</td></tr>"; }
+
+		my $buff =<<"EOM";
+$set{'html_head'}$set{'html_css'}</HEAD>
+<body bgcolor="#ffffff" text="#000000" LINK="#6060FF" VLINK="#6060FF" ALINK="#6060FF">
+<div align="center">
+<br>
+$file ‚É‚ÍDLKey‚ªÝ’肳‚ê‚Ä‚¢‚Ü‚·
+<table summary="dlform">
+<tr><td></td></tr>
+<FORM METHOD=POST ACTION="$set{'base_cgi'}" name="DL">
+<tr><td>
+<input type=hidden name=file value=$no>
+<input type=hidden name=jcode value="Š¿Žš">
+<input type=hidden name=mode value=dl></td></tr>
+$d_com$d_date$d_size$d_mime$d_org
+<tr><td>DLKey:<input type=text size=8 name="dlkey"></td></tr>
+<tr><td><input type=submit value="DownLoad"></td></tr>
+</FORM>
+</table>
+</div>
+</body></html>
+EOM
+
+	return $buff;
+}
\ No newline at end of file
-- 
1.7.9.5