si2ra0.69/style/plage/style.css0000644000175000017500000000676610707707647016367 0ustar bernardbernardbody { background-color:#faf2a0; color:#000080; font-family: Verdana, Geneva, Arial, sans-serif; font-size:small; line-height: 160%; text-align:justify; width:98%; margin:1%; } div { margin:0; padding:0; } p { text-indent: 3em; } h1, h2, h3 , th{ text-align:center; color:#0000aa; } h1, h2 { padding: 1em .1em .5em; } h1 { font-size:180%; } h2 { font-size:160%; } h3 { font-size:130%; } h4 { font-size:110%; } code { font-size:110%; color:#000000; } img { border:0; vertical-align:middle; } ul , ol { margin:0; padding:0 1em .1em 3em; } li { margin: .3em 0 .3em 0; } a:link { text-decoration:none; color:#208040; } a:visited { text-decoration: none; color:#802080; } a:hover { text-decoration:underline; color:red; } a:active { text-decoration:underline; color:#a05000; } table { border: solid 1px #d0c0f0; border-collapse:collapse; margin:auto; } th, td { border: solid 1px #d0c0f0; padding:2px; text-align:center; } strong { color:purple; font-weight:bold; } em { font-style:italic; } /* blocs spciaux */ #tete { margin:0; padding:0; } #logo { background-image:url("si2ra3.png"); height:88px; width:90px; float:left; margin:0; padding:0; } #user { float:right; max-width:7em; padding:.5em 0; } #menu1 { position:relative; top:-1em; text-align:center; line-height: 180%; margin:0; padding:0; } #menu1 li { display:inline; margin: 0 .1em; } #menu1 a{ background-color:#fcffcc; background-color:#e0ddf0; background-color:#e0d8ff; color:#0000aa; border-style: outset; border-width: 3px; border-color: #fcfcfc; padding: .1em; } #menu1 a:hover { color:red; } #menu2 { position:relative; color:#0000aa; float:left; width:25%; clear:left; padding:0 1% 0 0; padding:1%; margin:0; } #menu2 ul{ list-style-type: none; padding-left:2em; } #menu2 li { line-height: 130%; margin-bottom:5px; } #contenant{ background-color:#e0d8ff; clear:both; color:#000000; width:98%; margin:auto; padding:0; border: inset 3px #fcffcc; } #connexion { display:none; background-color:#ffffff; float:left; width:68%; max-width:55em; padding:0 2%; margin:0; font-weight:bold; /* border-bottom:solid 1px #e0d8ff; */ } #chemin { background-image:url("contenant2.jpg"); background-repeat:repeat-x; float:left; width:68%; padding:0 2%; font-size:smaller; font-weight:bold; margin:0; } #contenu { background-color:#ffffff; background-image:url("contenant.jpg"); background-repeat:repeat-y; background-position:100%; color:#000080; float:left; width:68%; max-width:55em; padding:0 2% 1%; } #sousTitre { font-size:larger; font-weight:bold; font-style:italic; text-align:justify; text-indent:3em; padding:0.3em; padding-top:0.5em; } #signature { margin-top:.5em; text-align:center; font-size:110%; } #pied { clear:both; font-size:x-small; line-height: 130%; text-align:center; padding:.2em; } #zero { clear:both; height:0; padding:0; margin:0; } /* alternative contenu lorsque l'on ne veut qu'une seule colonne */ #uneColonne { background-color:#ffffff; color:#000080; padding:1% 2%; width:96%; margin:auto; } /* quelques classes */ .fondDif { background-color:#fcfccc; padding:1% 2%; margin:0 -2%; } .cadre { border: 1px solid blue; margin:1em; padding:1em; } si2ra0.69/style/plage/contenant.jpg0000644000175000017500000000056610503474726017171 0ustar bernardbernardJFIFHHExifMM*Created with The GIMPC  !"$"$Cd"1 ?욝Q'*;OI J2si2ra0.69/style/plage/contenant2.jpg0000644000175000017500000000134210504541650017234 0ustar bernardbernardJFIF``JExifII*i,Created with The GIMPC    $.' ",#(7),01444'9=82<.342C  2!!22222222222222222222222222222222222222222222222222" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?4Q抣QVe4QT|(`Shh@]Ɗ(si2ra0.69/style/plage/si2ra3.png0000644000175000017500000001345710615450462016305 0ustar bernardbernardPNG  IHDRXXq04bKGDk1 pHYs  tIMEοIDATxyxE3 $  $A"\UQ[E<DEQAWEE}!@Ifk螙EIvyz;Ys!lH))%" b !ƦRԤtSo!HC; $?*xgIT@hxg\+v}IKR  $DJaz c>|hOķ 9B!N͢Dx_F5@P4H@E_񌶔[E-RA`-)Q"p0xgW:T$+6a l5&ZTT B(_ ,kk3l~DQ *HETEo7ⷩf1ͮsMJ4Jⱳ%[P'قLE _{aZ~}Tz 6PBYzDV )Εss͛jzRSS<ع1]:'Q= z_RRβya AXKH~L\jn.=)SӎTm }mvRԍ vòQMP? Xg1l@5E\;Yj=gΜm۶`AZ6)%vcɒ,_`;j26ndT-m)[cA Vag Οlփ]!7H4l|?ȑөSkws8.7,Z3lQ5k~b*]eOMB|B,52`Ub"M!Oȥ<5+V}۷;lv&f͚5gn1vb8pN&dpW7j薛]\Ȕy ֭ҥ{io\ЬYx/aEQ*E{"_+pb)~9hPLfKNѬCOѶ[$%Fj 8rON lÞ݄l2O@_1kTXi׹P}? oGTP^{k[(-*:tyR!N!XfaTL䷛VہeHdkX ֳiAF/௿p\.DxD83QLijԈ#11[>Lz ?J5dp?ŧs=y_d]' Ygi͞۝iR!##9s0r8.nCTT8JFFg8sAjT~$RBll%OFX5#G~c׮QJ%>`6;v{1|X|ɯ p+4l3<8`J2N]ÑANwѤ&eFIдt~~9~ΝsP-ҼyS*U.+L`Æ$I reK`a:5wOz f& R:M3f>O ߎGttDuU6og9}<4oޔV\,fY' O^Yz8v3zl߾Dڱͺ4GjAiO nJiK\~?=*L_0v&5ȰkUM͒,ziygcvmGz4kfnvM"ٸwϣZ za5keT/S8Ea1:tU/S*liMd]!59fP Gʐvoll]˔If\n#-[WnslWnd儉 VO{WI̎F(Ňe1ZMǎbW8yOlxrJcX(P" lܗ_+=w]nѩÝ$WLAjL}]q45aC:3m1AAA) G/R2)_^~ fW)Q}'kXɠGτjarx`3Rf{͜%' M&=[v5~4{w|BEBJÅ ~qs^z꼿E4n\YHHqƎ}0v/zgG }Sh)laRU4B%of3jdo>t 8 jE?F@K'в)aa!w2X^;:U#g4mGkgK_Unԇ!)=>c3=ZǎE QփؼoǑ'pevuv-inz?'O3i1YayRP߫[&r?,ɯVs:]<,c ti6>]5]bc+]7#H^:=0j`' I򊝴i.KOq[Qf_w?qVcd9]]*g~1 `!g0釠әEIH3FSZZZ:G>mbc+ŋy瞚f v^-=w|YSm|֛2u9#SRY cȢsٽw CQsԹO)_>Ҩ3 \aM l8.\j'ۧ5з |/Hä[ҹ4]r֝_ԷT+BCSўt>B_}F}C™<;o _CQ8.:Xreˆ{=T!DLS;?OI)QTgys~aJ5dzhIxxh5e|(϶,ǠƑ^ {CV~_fJ !P͆f%"(97}9z4=wzt_`nlFd~_+cV~^;8 z*Ɗ U(mT&Ot9zRYr5%%k>.Vx0sg/sR ?S|כ2x6Eг=/Pyw KmCOJ&i+^BCC_ilN-7pǎWH *@_] T +`\&+~EFZAWD_9Zؘ9{5eJs&C U_XP=әHBj\=l^?r4T74=7C!d ;E_̬W(^ Wk<+KL_A3f%2]:52nK P95U@|3k% ;.0_s-^ Sh\K7i%}͇+vrT08!fٻ'JŲJ}b;axy0g 34+Bl,_ITP֮ܦ6t}fn-j `˹p+WI,O=-j}V_ap׌o&n|4:۴D|{--2x}s-f*Q:O&O)7G/Aޫ {NyfpDDa8ې6{x!mxQ2gvR&+wxf_ FmT-K݌׻&f巛7yX.7ͦ6[@X)g~|˶8y'0鶴 8t˶t}zr .]sRy / 0QRX@Us~S>|}4q=.]„X> xl /SǦpdW{o>djEgƭED`!!K/I'<#󙆿mQj{ut ̘:eJ߶u=m@TT(C.,WAj J(F~sN~ի>d߸[4lP[-+WIeC,OqE$}bhwrFTUw[қP;~p{x{% /I ѦU]^0曾ZjYI6\HKQE&jzǎ߹4iχlGwnKz [/*WL͓j԰Y,W@d[ٵ;6o()#8X/ G?~Z)U*CO ?_1'W?%X|¯? 'v{[;1w?|)?+~Af VT+[6֭2E8.|apgӱŜY$5ϟj߸yMؘV3_ Tt4wUe^5n:PWm/UTuaI鑟pR&͛v好x|l=|?Fb~Y*O6dPtv,juW_~>tÏR,Ot*L}I1"G/2Gl̢ r÷s|'?Oծ]zūL9Gͺ0x RR[ڀO1abnk8N;q͘l7Pò^)}4W+百TPUy7ҫ9~"Z5+8)>`?YD3'-_բoj`!|UUU}W}Sʬ雞f?C0W?-J`6 p=_<$[~oϖ(~+)MKX~"-}Gn|Ki 9}􆤯fMz-hhwR}z/d"oͿ>zWS*ןZT QݟIENDB`si2ra0.69/style/si2ra/style.css0000644000175000017500000000603010707707670016273 0ustar bernardbernardbody { background-color:#ffffff; color:#000080; font-family: Verdana, Geneva, Arial, sans-serif; font-size:small; line-height: 160%; text-align:justify; width:100%; margin:0; padding:0; } div { margin:0; padding:0; } p { text-indent: 3em; } h1, h2, h3 { margin:0; text-align:center; color:#0000aa; } h1, h2 { padding: 1em .1em .5em; color:purple; } h1 { font-size:180%; } h2 { font-size:160%; } h3 { font-size:130%; } h4 { font-size:110%; } code { font-size:110%; color:#000000; } img { border:0; vertical-align:middle; } ul { margin:0; padding:0 1em .1em 3em; } li { margin: .3em 0 .3em 0; } a:link { text-decoration:none; color:#006060; } a:visited { text-decoration: none; color:#800040; } a:hover { text-decoration:underline; color:green; } a:active { text-decoration:underline; color:#a05000; } /* blocs spciaux */ #tete { background-image:url("entete.jpg"); margin:0; padding:0; min-height:65px; } #logo { background-image:url("si2ra.png"); background-repeat:no-repeat; height:64px; width:92px; display:block; float:left; margin:2px; padding:0; } #user { background-color:#ffffff; float:right; max-width:7em; margin:1em; } #menu1 { background-color:#efdfff; text-align:center; line-height: 180%; clear:both; margin:0; padding:0; border-bottom: 2px dotted purple; } #menu1 li { display:inline; margin: 0 2px; } #menu1 a{ background-image:url("bouton.gif"); color:purple; padding: 1px; border: outset 2px #efdfff; } #menu1 a:hover { color:red; } #menu2 { position:relative; color:#0000aa; float:left; width:25%; clear:left; padding:0 1% 0 0; padding:1%; margin:0; } #menu2 ul{ list-style-type: none; padding-left:2em; } #menu2 li { line-height: 130%; margin-bottom:5px; } #contenant{ background-color:#dfefff; clear:both; color:#000080; width:100%; margin:0; padding:0; } #connexion { background-color:#ffffff; float:left; width:68%; max-width:55em; padding:0 2%; margin:0; font-weight:bold; /* border-bottom:solid 1px gray; */ } #chemin { font-size:smaller; font-weight:bold; } #contenu { position: relative; background-color:#ffffff; top:0; color:#000080; float:left; width:68%; max-width:55em; padding:1% 2%; } #sousTitre { font-style:italic; color:#000000; } #signature { text-align:center; font-size:110%; } #pied { clear:both; font-size:x-small; line-height: 130%; text-align:center; padding:.2em; border-top:solid 1px gray; } #zero { clear:both; height:0; padding:0; margin:0; } /* alternative contenu lorsque l'on ne veut qu'une seule colonne */ #uneColonne { background-color:#ffffff; color:#000080; padding:1% 2%; width:96%; margin:auto; } /* quelques classes */ .fondDif { background-color:#f0f0ff; padding:1% 2%; margin:0 -2%; } .cadre { border: 1px solid blue; margin:1em; padding:1em; } si2ra0.69/style/si2ra/entete.jpg0000644000175000017500000000406210472042012016367 0ustar bernardbernardJFIFHHExifMM*Created with The GIMPC  !"$"$CF,"4!1"AQq2a#$3BRb!!1"AQq ?." """ Feƚz[$Vf* ^f\,m."|վTsy]Ul4znN^OB cE,<&[ضtಜӎdコC}䒣xd䝈;""" "$1⤟aįru*f`smz[ɾ̬/1-~ci""CB" "@u,T0$wfPA:;I+4J.ʪC{a%> IJn2kQʢrVxKsp+eԷ'2f/]:JF[Fܮ2<-̇W \Y^ nR*Q%sXTY'z6wQI!D@ 2CPȠNr&c cr,vseh]crKGjG&zF$(8݈HA~<3GW$e1Ҫι{T|K4sZ}). +2Nt!Xcf?c(= G'7*O[ᨥMїW;Y^K8b L{:㏥4y|4'5(ld4i}̷}cQܝ^ ;nL3m,?Y~PR}vdK"j|J)PͲmL͞JllO>̬qOmeZ]Kǚ4ݱlnd&tTdbPḧ́Nswnoʕ32Zjor"F_ǝVï3vQut`%c%@)#<0#C-˧Ϋè2t͹gXPU߷I[MhcdH~e53oM6p4Gq7mʗ_3j|rrهIf- },;:hk&${4ԪT 2Y[م-K P֧Xm]cX Lɕa=j|DKU5= ˈ27e5؈" cD&]1HZʙpKleWM˖>]/~%nֽ$y97*T*&NGO }YUvAi5֕"'Q2uDAD:/rYd^L=FfL/ʤ"Y!`u6Sߡecպ3i;EYoHU5ET'UЫG}K%R 9xc_yZ""TEx_y6S%Mt51XU55qr7Cc=[*ƧʧbP[|>ۗĖΜ#UD* 1DDD@DDD@oi2Ȉ""" """ """ """ si2ra0.69/style/si2ra/si2ra.png0000644000175000017500000001170210563600363016140 0ustar bernardbernardPNG  IHDR\@sBIT|dtEXtSoftwarewww.inkscape.org<TIDATx\yTW=Y  !IXT,T[-hSkjkSq鴟K븶3=-sZW7p@\VYBl,xNg~}}{ 1 8j"wADtm JeDtDӵaa-~6B[Vŋ:ujc9`ݗ K|egK,`嬲=HoKȐkq\.yfaD_;v?'3pBV]5./x{{# bXB7›mƖcj.O7df6kg \zZVVvvXBܗ] m҄ {r8%pa2сհq8())aǏ?vTذr"yN* ApM֚ %ş,#ZN;wg7o (**†,tDiBvf᲏x #aMh Z[^Eʱ4_\ժ%9É=55C8\|K/m>!6 =n튱kZQ۷;qÕK?kx\\ܟl6mڴдH#F6pܡ]6`;O6‰H8q)!!!~XB=r̸{ "eGd I?7C1& 9. L2Q.Ø#}X,4iR 1gsT^!7豻3lGFFN=z .&ndj,}tz& Uj£qR]# =n4*T F3n#"j\32Wȷ?a#h4:$+JՊxeW?1mD9$q>)./Yq6*&Ony#""~[H| ɓZO;'Q.A;$<%䆍999ƵKKKaZj& q~qn2t?#2nm_2F8cLwȑ:O9ԩS8u v68bM@pPN'"d]_KF$!11HNNhD^^cXz5N> `gyר$`(̘M}]{"zyyMST|fLJ]VT*{1l6l6`0瞃dÌ'FM ;D>`]fCUsڇ,xEDܰӧϙ3ĉuuuŵk-#Gk~1#""1}\.4Z,VwOD6(Á?(!!\ D3fצMF%''L&Z FBRRFMJWXXG}555&%%E^VV2B01L+6bfJ?T‰BCC̞={ƍB!`ݺuXt):}!!!bW_}Usm6MN`X4hbU .aqT#"">X~ⴴXuu5ju7|m۶{̙3/0ΎX+qv>G;mZ-"WCs|TiZ^؝zEƘDg,^d@}}=|}@ ,LOOrʸW\ڑqWn>Ez uX<ΫT|gLS ҶP(HHHؼtRm:nnnQ*رcvʕQq'E*m |.ձk!KG,6`‰H֭[GkOHHcp]u>3d̜9TDDČ^Oj%=| x 'Ćj|sMzbLxLĻD"v"š5kqFdggf9WP`۶m7xc[bbγ}{a4ᄆ=\y *@sj;7j{T !"όs!ȟ8q?#FT*g?K$LͱZ/Ո(!Fx6wZVL=Ƈ}. ~.5:=1Yf@7Ͱ˖- vT>%%)))0L}6nݺlܺu (... Bh$r\"܂~RFLi½/u;u$ <}ʩߎ+S 2ca1oq.<É3a„K~mK ɓ5k캺RT JxT.Y2|[MEw|*p#L:=S8cV Qx< ν֚rn£Uc=X\RkFuA Hv/躆WZ|پb*X4[f ;]3~ɬ1-gUuwpjl<x뭷YV|w8|04 Ν {WEMM jkk;ALJ|p+ǵt 4r̈!c4YB<郉=^|q]n'pF={.Rسg{UUU+oBܹVg~b˖-ce^s^xhĦG8W +U q)䣴 >%krK:[>BcCŢ'Ko-ᱱ:wu_cc#֯_E!4m0HKKٳgI S.^2)lݬAIwVu&JNlŴ}]XxDJO[Ts;\rD"ɓ9sSR)֯_,474ܼy+^p 9=~2d__GQ͹;"pq 7L|L>˖-֭[b ڵzMMMY@d牲c;OlF?@Pjkpw;F ES{'v]Vw \QhU>1ƹp~bpppl6T*d2k 7/8#nbZ}/lT.<\ =/wш^}N $ҒRZZS]]ȟ=̛7YYY5׮]~(_6/-J%,;W{({  RAĨ=_TlLئbSBn3<@KeK 7nxPT];X!Z{KRÃV t>QQ*#cc.=C)@c:ی2<n߾]{nWRTt>VHxiI^vKdHܢ4 "z݈k|ZND/(em`uf50ƶ3V nnnVo4g06F;;1Hǯ6/yF VL)c3 C"Lz3H!h0\kX_Q?|d#F-MxI~雂[ gxp@s%p"ND `EےS>*R^PlЭcnϤ_7T; Ё%|h9H%6Q"{ mJw t&>cCj Ret.a8Jz.IENDB`si2ra0.69/style/si2ra/bouton.gif0000644000175000017500000000233110304333650016400 0ustar bernardbernardGIF89a ··¸¸¹¹ººú»»ûû¼¼üü½ýýľÿÿĿĿ,  `$8 A4Xpa0*ظG H`A*X$ bM#p"*X` ,\(APk@#?V^y OFB剔]t鲥/u̙4gNCxMao丑MƎ̙#ُ<|d㧳g?>ThhE%BIRװ+]d P:5jQDgJqXJ<9SO>}3mҾLf[T)#H5RĈQES$H@? >~aǀt! uA!akThaiA__ء_\AUe[lIA[QDJ Q78ĎCPU;p88 0 .$/( 'TI #0–8qhT&b nƹ0@ I';si2ra0.69/style/defaut/style.css0000644000175000017500000001006510707707435016525 0ustar bernardbernardbody { background-color:#ffffff; background-color:#f0f0f0; background-image:url("lierre.png"); background-position:0% 0%; background-repeat:repeat-y; margin:0; padding:0 0 0 22px; font-family: Verdana, Geneva, Arial, sans-serif; color:#602010; font-size:small; text-align:justify; line-height: 150%; width:98% } div { margin:0; padding:0; } p:first-letter { font-family:Georgia, "Times New Roman", Times, serif; font-size:150%; } h1, h2, h3 , th{ text-align:center; color:#008000; } h1, h2, h3, h4 { margin:0; padding: 1em .1em .5em; } h1 { font-size:180%; } h2 { font-size:160%; } h3 { font-size:130%; } h4 { font-size:110%; } code { font-size:110%; color:#000000; } img { border:0; vertical-align:middle; } ul { margin:0; padding:0 1em .1em 3em; } li { margin: .3em 0 .3em 0; } a:link { text-decoration:none; color:#006060; } a:visited { text-decoration: none; color:#800040; } a:hover { text-decoration:underline; color:green; } a:active { text-decoration:underline; color:#a05000; } table { border:outset 2px #c0ffc0; border-collapse:collapse; margin:auto; } th, td { border: inset 2px #c0ffc0; padding:2px; text-align:center; } /* blocs spciaux */ #tete { border:0; background-color:#ffffff; background-color:#f0f0f0; background-image:url("fleur.png"); background-position:bottom left; background-repeat:no-repeat; margin:0 0 0 -22px; padding:1px 0 0 24px; } #logo { background-image:url("si2ra.png"); background-repeat:no-repeat; height:64px; width:92px; display:block; float:right; margin:3px 5px 0 5px; padding:0; } #user { float:right; max-width:7em; margin:1em; } #contenant{ background-image:url("lierre.png"); background-position:27% 0%; background-repeat:repeat-y; width:100%; clear:both; padding:0 0 14px; margin:0 0 -10px; } #menu1 { background-image:url("lierre2.png"); background-position:top; background-repeat:repeat-x; text-align:center; line-height: 180%; clear:both; margin:0 0 0 -10px; padding:10px 0 0 0; } #menu1 li { display:inline; margin: 0 2px; } #menu1 a{ background-color:#f0a040; background-image:url("bois.jpg"); color:#000000; padding:1px; border:outset 2px #f0a040; } #menu2 { position:relative; float:left; width:25%; clear:left; padding:1%; margin:0; } #menu2 h4 { text-align:center; } #menu2 ul{ list-style-type:none; padding:0; text-align:center; } #menu2 li { line-height: 130%; margin:4px 0; } #menu2 li img { display:none; } #menu2 li a{ display:block; background-color:#f0a040; background-image:url("bois.jpg"); padding:1px; width:90%; margin:auto; border:outset 2px #f0a040; text-align:center; color:#000000; } #menu1 a:hover, #menu2 a:hover { color:#a00000; } #connexion { float:left; width:66%; padding:0 1%; margin: 2px 0 0 3%; font-weight:bold; } #chemin { background-color:#c0ffc0; color:#000000; float:left; width:66%; padding:0 1%; margin-left:3%; font-size:smaller; font-weight:bold; } #contenu { background-color:#ffffff; float:left; width:66%; padding:0 1%; margin-left:3%; } #sousTitre { font-style:italic; color:#000000; } #signature { text-align:center; font-size:110%; } #pied { background-image:url("lierre2.png"); background-position:top; background-repeat:repeat-x; clear:both; font-size:x-small; line-height: 130%; text-align:center; padding:24px .2em .2em .2em; margin:0 0 0 -10px; } #zero { clear:both; height:0; padding:0; margin:0; } #styleList { text-align:center; width:90%; margin: 4px auto; padding:0; } /* alternative contenu lorsque l'on ne veut qu'une seule colonne */ #uneColonne { background-color:#ffffff; padding:1% 2%; width:92%; margin:auto; } /* quelques classes */ .fondDif { background-color:#c0ffc0; padding:1%; margin:2px 0; } .cadre { border: 1px solid green; margin:1em; padding:1em; } si2ra0.69/style/defaut/bois.jpg0000644000175000017500000000113110623543336016276 0ustar bernardbernardJFIFHHExifMM*C  !"$"$C<"0 !"Qq34ACSarR!aA ?0@7%?$Λ'3@E}-8 r&5$qI_ҵ2VpVUI4ZCcΐ(t`dGND)P%:ul5QevtF$"6"51JGE;X^_U&Y+TY81{1Qj-/݊ C]]2 &Pfߊ U*qcs@~,Sx<ٸS%si2ra0.69/style/defaut/fleur.png0000644000175000017500000000456710624345173016503 0ustar bernardbernardPNG  IHDR6YsBIT|d pHYs N N*ūtEXtSoftwarewww.inkscape.org<IDATX{p}o@6K<@*j( ZeFRShiK)0bբHVEhE%&!<ܼĩ忞sswULqFpFwxpVw8:fǚ9OЯ)5 0?焞8p:[7&K k؜ ,A)QNF9iC}Og~k(Kd"H+@C`dM?`ZK,f<[>`S H|m$շ8+k,19ù{Hf+9KT2) X`_pV4,@wr8b)}I'Dxl.[M~#PLn\֪\`:]) nCux+ϟ2D'eW!->SΏ +d Er;t$q@p`}Ql9k+:W 1\dGŕI8` P'*@}jgq -("`sۮZȋR622"ՒCQM6)r !klP;]y8[Kg4( SZ"X*mBV"Y!Wd"wo96iNjw6tʛnKtDǡ)V.ۆ0f澊@eiq\)upRvZ}Z Tzpd uA,1OD&M\49G`D۔Yxb/ VV<Lo uZes@OoV͎B%m0><404W-H>7),ԗVpFٴr*=\>!V+(<ܥ*E t0:>cOfgbʗf_2D`xZĬێ }I;gWfYj:3GuJxMdՔ/sa]W!c:j{34Qnջ}PT#Ljd U_\vy\W+{Mi;%iyDOe*2WlVcL&h^MmGnі R4GW5gIltu'8׵C*RR6E#dNJҮ$%qn~5׉xLH@I[.Q'tؑ) ?p̀KFe9< pc0f#`9͕)NR8}/#ʲ]"= m@Em$5.+57蜎g$\#_ B^uò&I֞JضҝT+`nE`s\'Dg> 3j.P^@DfyNmt߆fQ^N\~<:tm&-^۩Bhi%IkӇ=<]I6p n aɍcqpl(pO#e_-P<Q7@8| N-c<0m ?cpi0RUON) BY.`vU3\.N8:`p^O9Jۉ>ѽ8c~$DCR"yR"Eρ"zZLiNq~V`Đ+g 6L)7,LoT,`/>)^f7c^)3Zao߲#JF& no۹rk~#J8X1kV#Oy^kK_u ==1̪AOz; ۢc_qm`dĶϢp 2R=SweAs3i81n^*[V%GoquUQoȢZG`(aD@0R)oϭܯb#[g`]I͌3'?ttjv@h=0xj]:{]-|^´w ~Y%oJ 3ќMcm!un,zgk~tO"rv;ki4U@U~6oY'.*Pe}urD'.5z"St%2i:Pea>9?kަ*jnZ_ہ X.ޔ=ז^IENDB`si2ra0.69/style/defaut/lierre.png0000644000175000017500000000405010623530532016625 0ustar bernardbernardPNG  IHDR0 sBIT|d pHYs a aJ%tEXtSoftwarewww.inkscape.org<IDATXklTg޻/kcCFJMRVDQ+$P%HQTmA}J#CV@~hR5EN#TBp ~a ~z_1ݵΙo9bfd3 .uKRuj'hjiϺ!i!m b }0="ugݖ*l2 8,U' [+ ;Iv;ӟ4Nh,4Y R!T=·4䵤ЭsvyR#h*)!/H4c%;zlslcl`G?Ґ:p@/]Jk nN}Lx+>P{D=|X*mP[`LT(t'ݬvx 18HE)8 cDD jX,f-MRt^H}7\`+hg&o۽>(>AplIGkϻLmER[Sktu_u_er%n?n r"jn^']:A_b)*,T Ą} մVxKn $^*/ *\Ѡ5z4CH*_潻Oʼnh S#ܕ@ A/7>S5O5I ]mc:sohDtVbӦpt B촃`Ljb&38UDqAklX2>(h?4~q3PB v.JLܜ9%F~@9e=Lq?dŭa;z'RpK,0~x6+LXcb` R*8x 39pTOKT4.*akaƩāKB&9>ॕwvO1q3%?0.=E&m:x5W_F2+M3sLazD3_bǟˎ=^dLا*~W.7|;1uE97'l3?\rLhbpE϶4 "s]ǿVE*y( A`ws{`Z۟'izwr`nIѽnG?Ia2>ixo"AxpZٺW50@a:Ӏ5f[S6#Phnm4djZLE| lc"1_7IZ jtiH8?pڭ}tRc: A'8rۉm"!(gZzj*\8qe85s=y v`Uцτjz4%"38p* tIxQG&mV{1܈yNk;ȕqٔ'$UD|p|quoL)2'F+ͤbl u( @^')Ŋ/p4&)kkiｯ,`z4uA 1W|:|/{̄T@niｶ`fV^.4"z!M-i7 ?Z2sͩm.0=Տw.;c7]їs 3!"z_u*6M^+ |gI *A{@{5 G80s5ی7Ώ@HB#*T~pِq1Yb=3$'CQ.`?F5TRSOb1]7Z~@kK{o^q OO0N7lgU|(st`(`sK{ub3":GjĖx῞,{k!q`2a dm lŊ`N`IENDB`si2ra0.69/style/defaut/lierre2.png0000644000175000017500000000422110623547272016720 0ustar bernardbernardPNG  IHDR0sBIT|d pHYs N N*ūtEXtSoftwarewww.inkscape.org<IDATXVkpTg~\dn ل,IHR"xѴ1QQF,cGPFg[T:ubia-^(Ԑ@ . &=$@93}9{ !]GF`x,߽Bi=˺7ǓHpNqj^ тp+ bƒO#DsDT+$G <T&x4N9J ܤs8OGY#=wٶTQ>njy̩~qb'niuÀ sVNnAsu 4SH5pkL`[d"xdE;w_T <! @\'fkS LT6X3,Uu3ER֖e(y/VR :y՛NUz/Y9VY@b3Bw'0%A&,?;.` ⡄)1*&/Gd}KDOꊡ{8A"X}YgujFbI-VyJ31 ^O fxg[K]$/EvI$7q'@eA>\=մ[oi/nPUV'? 7δBO'#dUsi30&/0>igcuGM3fL'ɭTeuԮn" mZ 'RݞdFczUɄ.M>0DWlH5MYE..KK/N_V/ZdCW:C5F- Z]I#_ps5VAX/x|ZIgJ-̈́ g@vD"=eiqC aёjqyX_M /Zᇷ4sTwln&SM50%Qb844$Al[u(Ƭ57A;HPKlr%C]4w'iHcoiHZzf<T *#܃.J^yy{3BM=;d7FqM'$~,_fs~x( Y@$+ruт<˽'T3-PS7y 'W*M r@.;]2L 1c7i)xkkd\{i{rdϔ̻vR 'nFFlF/SPpMjpѰ0>`X8Ih}_k_c&~zaE԰.8fgNJq=6T|` 1ZmPU86eDz7/N(6@'&02b͌y?FS0aBԟSOݯ4"!J!sVLKS z#I47k!L)3Հ 3Vܢ'4k'== !H9t:G>e4p?"hk?e)ݑڭo |A!ר,_wYIENDB`si2ra0.69/style/defaut/si2ra.png0000644000175000017500000001170210623541434016370 0ustar bernardbernardPNG  IHDR\@sBIT|dtEXtSoftwarewww.inkscape.org<TIDATx\yTW=Y  !IXT,T[-hSkjkSq鴟K븶3=-sZW7p@\VYBl,xNg~}}{ 1 8j"wADtm JeDtDӵaa-~6B[Vŋ:ujc9`ݗ K|egK,`嬲=HoKȐkq\.yfaD_;v?'3pBV]5./x{{# bXB7›mƖcj.O7df6kg \zZVVvvXBܗ] m҄ {r8%pa2сհq8())aǏ?vTذr"yN* ApM֚ %ş,#ZN;wg7o (**†,tDiBvf᲏x #aMh Z[^Eʱ4_\ժ%9É=55C8\|K/m>!6 =n튱kZQ۷;qÕK?kx\\ܟl6mڴдH#F6pܡ]6`;O6‰H8q)!!!~XB=r̸{ "eGd I?7C1& 9. L2Q.Ø#}X,4iR 1gsT^!7豻3lGFFN=z .&ndj,}tz& Uj£qR]# =n4*T F3n#"j\32Wȷ?a#h4:$+JՊxeW?1mD9$q>)./Yq6*&Ony#""~[H| ɓZO;'Q.A;$<%䆍999ƵKKKaZj& q~qn2t?#2nm_2F8cLwȑ:O9ԩS8u v68bM@pPN'"d]_KF$!11HNNhD^^cXz5N> `gyר$`(̘M}]{"zyyMST|fLJ]VT*{1l6l6`0瞃dÌ'FM ;D>`]fCUsڇ,xEDܰӧϙ3ĉuuuŵk-#Gk~1#""1}\.4Z,VwOD6(Á?(!!\ D3fצMF%''L&Z FBRRFMJWXXG}555&%%E^VV2B01L+6bfJ?T‰BCC̞={ƍB!`ݺuXt):}!!!bW_}Usm6MN`X4hbU .aqT#"">X~ⴴXuu5ju7|m۶{̙3/0ΎX+qv>G;mZ-"WCs|TiZ^؝zEƘDg,^d@}}=|}@ ,LOOrʸW\ڑqWn>Ez uX<ΫT|gLS ҶP(HHHؼtRm:nnnQ*رcvʕQq'E*m |.ձk!KG,6`‰H֭[GkOHHcp]u>3d̜9TDDČ^Oj%=| x 'Ćj|sMzbLxLĻD"v"š5kqFdggf9WP`۶m7xc[bbγ}{a4ᄆ=\y *@sj;7j{T !"όs!ȟ8q?#FT*g?K$LͱZ/Ո(!Fx6wZVL=Ƈ}. ~.5:=1Yf@7Ͱ˖- vT>%%)))0L}6nݺlܺu (... Bh$r\"܂~RFLi½/u;u$ <}ʩߎ+S 2ca1oq.<É3a„K~mK ɓ5k캺RT JxT.Y2|[MEw|*p#L:=S8cV Qx< ν֚rn£Uc=X\RkFuA Hv/躆WZ|پb*X4[f ;]3~ɬ1-gUuwpjl<x뭷YV|w8|04 Ν {WEMM jkk;ALJ|p+ǵt 4r̈!c4YB<郉=^|q]n'pF={.Rسg{UUU+oBܹVg~b˖-ce^s^xhĦG8W +U q)䣴 >%krK:[>BcCŢ'Ko-ᱱ:wu_cc#֯_E!4m0HKKٳgI S.^2)lݬAIwVu&JNlŴ}]XxDJO[Ts;\rD"ɓ9sSR)֯_,474ܼy+^p 9=~2d__GQ͹;"pq 7L|L>˖-֭[b ڵzMMMY@d牲c;OlF?@Pjkpw;F ES{'v]Vw \QhU>1ƹp~bpppl6T*d2k 7/8#nbZ}/lT.<\ =/wш^}N $ҒRZZS]]ȟ=̛7YYY5׮]~(_6/-J%,;W{({  RAĨ=_TlLئbSBn3<@KeK 7nxPT];X!Z{KRÃV t>QQ*#cc.=C)@c:ی2<n߾]{nWRTt>VHxiI^vKdHܢ4 "z݈k|ZND/(em`uf50ƶ3V nnnVo4g06F;;1Hǯ6/yF VL)c3 C"Lz3H!h0\kX_Q?|d#F-MxI~雂[ gxp@s%p"ND `EےS>*R^PlЭcnϤ_7T; Ё%|h9H%6Q"{ mJw t&>cCj Ret.a8Jz.IENDB`si2ra0.69/style/plage/0000755000175000017500000000000010713136166014463 5ustar bernardbernardsi2ra0.69/style/si2ra/0000755000175000017500000000000010713136166014413 5ustar bernardbernardsi2ra0.69/style/defaut/0000755000175000017500000000000010713136166014643 5ustar bernardbernardsi2ra0.69/style/all.css0000644000175000017500000000357710701515615014666 0ustar bernardbernardtable .NoBorder { border:0; } .erreur { color:red; font-size:130%; } /* format du caractre */ .gras { font-weight:bold; } .italic { font-style:italic; } .grand { font-size:larger; } .petit { font-size:smaller; } .ttPetit { font-size:x-small; } /* couleur du texte */ .bleu { color:blue; } .gris, .inactif, .inactif a { color:grey; } .violet { color:purple; } .rouge { color:red; } .vert { color:green; } /* Pour les formulaires */ #texte { width:99%; height:28em; } #textCourt { width:99%; height:15em; } #commentaire { width:99%; height:4em; } #id_Titre, #id_Resume, .larg_max { width:99%; } #S2R_previs { text-align:justify; } /* Alignement du texte */ .centre { text-align:center; } .justifie { text-align:justify; } .droite { text-align:right; } .gauche { text-align:left; } /* tables particuliaires */ .etiquette { text-align:right; font-style:italic; } .reponse { text-align:left; font-weight:bold; } /* blocs */ .form_princ div{ padding-top:0.2em; padding-bottom:0.2em; clear:both; } .form_princ label { text-align:left; margin-left:0.2em; margin-right:0.2em; text-indent:0; } .tabulaire { text-align:left; } .deuxColonne label, .tabulaire label { display:block; float:left; width:45%; } .tabulaire label { text-align:right; margin-right:0.4em; } .blocCentre { width:80%; margin-left:auto; margin-right:auto; } .enLigne { display:inline; } .enBloc { display:block; } .sansImage { list-style-type: none; padding-left:2em; } .largMax { width:100%; } .blocGauche { display:block; float:left; margin: 3px 1em 3px 0; } .blocDroit { display:block; float:right; margin: 3px 0 3px 1em; } .invisible { display:none; } si2ra0.69/style/rubrique.html0000644000175000017500000000312110650215220016101 0ustar bernardbernard

~

 
~

si2ra0.69/style/index.php0000644000175000017500000000005010566026733015212 0ustar bernardbernardsi2ra0.69/style/defaut.html0000644000175000017500000000124310640671453015533 0ustar bernardbernard

~

 
~

si2ra0.69/style/article.html0000644000175000017500000000237410640671425015713 0ustar bernardbernard

~

 
~

si2ra0.69/style/print.css0000644000175000017500000000227710637441121015244 0ustar bernardbernardbody { background-color:#ffffff; color:#000000; font-family: Verdana, Geneva, Arial, sans-serif; font-size:11pt; line-height: 140%; text-align:justify; margin:1%; } div { margin:0; padding:0; } p { text-indent: 3em; } h1, h2, h3 { text-align:center; line-height: 160%; } h1 { font-size:180%; border-bottom:solid 1pt #808080; } h2 { font-size:160%; } h3 { font-size:130%; } h4 { font-size:110%; } img { border:0; } ul { margin:0; padding:0 1em .1em 3em; } li { margin: .3em 0 .3em 0; } a { text-decoration:none; color:green; } a:after { content: " (" attr(href) ") "; } /* blocs spciaux */ #tete { margin:0; padding:0; } #logo, #user, #connexion { display: none; } #menu1, #menu2, #styleList { display: none; } #contenant{ width:100%; } #chemin { font-size:smaller; } #contenu { width:100%; margin:auto; } #sousTitre { font-size:larger; font-weight:bold; font-style:italic; } #signature { text-align:center; font-size:110%; } #signature img { display:none; } #chemin a:after, #signature a:after { content: ""; } #pied, #zero { display: none; } si2ra0.69/script/index.php0000644000175000017500000000005010502622162015342 0ustar bernardbernardsi2ra0.69/script/.htaccess0000754000175000017500000000004010502622162015321 0ustar bernardbernard Deny from all si2ra0.69/module/messagerie/envel_r.gif0000644000175000017500000000064110460522040017753 0ustar bernardbernardGIF89a/  àáá Ģ!Ģ"ģ#ţ%Ť%Ť&Ƥ'ƥ'ƥ)ǥ)ǥ+Ǧ*Ǧ+ԫϰ@ֺV׺V΂! ?,pH<Ĥ2hZTXQbĬؖBtdjxKĐ*^#pX{{j-B`i}#B)zy'?+&h,zyi++.-%p--.-b%.ì+_ʣz÷.zz+*{yzH;si2ra0.69/module/messagerie/envel_lu.gif0000644000175000017500000000061610457724546020161 0ustar bernardbernardGIF89a/  àáá Ģ!Ģ"ģ#ţ%Ť%Ť&Ƥ'ƥ'ƥ)ǥ)ǥ+Ǧ*Ǧ+ԫϰ@ֺV׺V΂! ?,pH<Ĥ2hZTXQbĬؖBtdjxKĐ*q IOBx-#B)'?+&hj++.-%--.z%.ri&æ&-_ò̩*̼ϪH?A;si2ra0.69/module/messagerie/envel_f.gif0000644000175000017500000000043210457526334017755 0ustar bernardbernardGIF89a Ǧ*Ǧ+ʩ2˪4ͮ=ոRָS׺Viiv{{ܣާ! , `bihJ,p,ϴ bL|@AM`7R)a,Ot^/Z{x)OtkOq5AuA~bt|fSdB Qoz \ erJnn`A"-50)(!;si2ra0.69/module/messagerie/index.php0000644000175000017500000000005410703734362017464 0ustar bernardbernard si2ra0.69/module/messagerie/inc_install.php0000644000175000017500000000666010703734014020657 0ustar bernardbernard Messagerie Interne
'; } ?> si2ra0.69/module/messagerie/messagerie.php0000644000175000017500000003620410705224643020505 0ustar bernardbernard '; /* Corps principal de la page * ******************************/ echo '
'; /* Filtre utiliser : defaut : messages recus 2 : messages reus archivs 8 : messages envoys 9 : messages envoys archivs */ $lListe = empty ($_POST['Liste']) ? 0 : (int) $_POST['Liste']; // Si l'accs la page ne s'est pas fait par un formulaire Post if (! $lListe) { $lListe = empty ($_GET['Liste']) ? 1 : (int) $_GET['Liste']; } // Afin de faire fonctionner les boutons au cas ou les paramtres ait t reu par $_POST if (!isset($_GET['Liste'])) { $_GET['Liste'] = $lListe; if (!empty ($_POST['S2R_Page'])) { $_GET['S2R_Page'] = (int) $_POST['S2R_Page']; } } switch ($lListe) { case 2 : echo '

Messages reus archivs

'; $lWhere = 'd.IDDestin = '. $_SESSION['IdMembre'] . ' AND (d.Etat & ' . S2R_ARCHIVE . ') AND NOT (d.Etat & ' . S2R_EFFACE .')'; break; case 8 : echo '

Messages envoys

'; $lWhere = 'm.Auteur = ' . $_SESSION['IdMembre'] . ' AND m.Montrer=1'; break; case 9 : echo '

Messages envoys archivs

'; $lWhere = 'm.Auteur = ' . $_SESSION['IdMembre'] . ' AND m.Montrer=2'; break; default : echo '

Messages reus

'; $lWhere = 'd.IDDestin = '. $_SESSION['IdMembre'] . ' AND d.Etat < ' . S2R_ARCHIVE ; $lListe = 1; } // Tables concernes par la requte $lFrom = PREF_TAB . 'Messages m '; if ($lListe < 8) { // On a besoin aussi de la table destin et de la table membres $lFrom .= ' INNER JOIN ' . PREF_TAB . 'Destin d ON m.ID=d.IDmessage INNER JOIN ' . PREF_TAB . 'Membres u ON m.Auteur=u.ID'; } $lTab = new Tableau($lFrom); // On signale le champ cl de recherche $lTab->AddField ('mID', '', S2R_CLE, NULL, 'm.ID'); // Les autres champs afficher if ($lListe < 8) { function IconeLu ($Etat) { $fResult = '
'; if ($Etat & S2R_REPONSE) { $fResult .= 'Rpondu
'; return $fResult; } // On ajoute une icone pour l'etat du message (lu / rpondu) $lTab->AddField ('Etat', ' ', S2R_LISTE | S2R_ORDER | S2R_LIEN , 'IconeLu', 'd.Etat'); // Le destinataire doit connaitre l'auteur $lTab->AddField ('Auteur', 'Expediteur', S2R_LISTE | S2R_ORDER | S2R_DETAIL, NULL, 'CONCAT(u.Prenom, " ", u.Nom)'); // Nouveaux messages en premiers $lTab->DefautOrder('d.Etat ASC,m.ID DESC'); } $lTab->AddField ('Date', 'Date', S2R_LISTE | S2R_ORDER | S2R_DETAIL, 'MySql2DateFormat', 'm.Date'); $lTab->AddField ('Titre', 'Titre', S2R_LISTE | S2R_ORDER | S2R_DETAIL | S2R_LIEN, NULL, 'm.Titre'); if ($lListe < 8) { // Du cot du destinataire $lTab->AddField ('Destin', 'Destinataire(s)', S2R_DETAIL, NULL, 'm.Destin'); } else { // Pour l'expediteur, le destinataire apparait dans la liste $lTab->AddField ('Destin', 'Destinataire', S2R_LISTE | S2R_DETAIL, NULL, 'm.Destin'); } $lTab->AddField ('Message', 'Message', S2R_DETAIL, NULL, 'm.Message'); // Les boutons et case cocher if (! (isset($_POST['S2R_Del']) && isset($_POST['Case']))) { $lTab->AddCase ('Case'); } // $lTab->Button (($lListe < 8 ? 'Lire' : 'Dtails'), $_SERVER['PHP_SELF'] . '?Voir='); // Lien par dfaut $lTab->AddLink ($_SERVER['PHP_SELF'] . '?Voir='); // visualisation d'un message if (!empty($_GET['Voir'])) { $lVoir = (int) $_GET['Voir']; if ($lListe < 8) { // Rcupre le message et vrifie que l'on soit un destinataire si liste <8 S2R_SqlInit('SELECT m.Titre, m.Message, m.Destin, m.Date, u.Prenom, u.Nom, m.Auteur, d.Etat FROM ' . PREF_TAB . 'Messages m INNER JOIN ' . PREF_TAB .'Membres u ON m.Auteur = u.ID INNER JOIN ' . PREF_TAB .'Destin d ON m.ID=d.IDmessage WHERE d.IDDestin = ' . $_SESSION['IdMembre'] . ' AND m.ID=' . $lVoir); } else { // Liste > 7 : vrifie que l'on soit l'auteur du message S2R_SqlInit('SELECT m.Titre, m.Message, m.Destin, m.Date, u.Prenom, u.Nom, m.Auteur FROM ' . PREF_TAB . 'Messages m INNER JOIN ' . PREF_TAB .'Membres u ON m.Auteur = u.ID WHERE m.ID=' . $lVoir . ' AND m.Auteur=' . $_SESSION['IdMembre']); } // Controler qu'il y ait un registre de rcuprer (sinon : pas pour vous !) /* // S'il s'agit des messages reus : as-t-on le droit de lire le message ? if ($lListe < 8) { S2R_SqlInit('SELECT Etat FROM ' . PREF_TAB . 'Destin WHERE IDmessage='. $lVoir . ' AND IDDestin=' . $_SESSION['IdMembre']); if ($lDonnee = $S2R_Sql->Next()) { $lEtat = $lDonnee[0]; } else { ErrMsg ('Dsol, ce message ne vous est pas destin.'); } } // Lire un message $lReq = 'SELECT m.Titre, m.Message, m.Destin, m.Date, u.Prenom, u.Nom, m.Auteur FROM ' . PREF_TAB . 'Messages m INNER JOIN ' . PREF_TAB .'Membres u ON m.Auteur = u.ID'; $lFiltre = ' WHERE m.ID=' . $lVoir; if ($lListe > 7) { // On vrifie qu'il s'agisse bien d'un des messages que l'utilisateur envoy $lFiltre .= ' AND m.Auteur=' . $_SESSION['IdMembre']; } S2R_SqlInit($lReq . $lFiltre); */ if ($lDonnee = $S2R_Sql->Next()) { // On affiche le message echo '

message de ', $lDonnee['Prenom'], ' ', $lDonnee['Nom'], ' reu le ', MySql2DateFormat($lDonnee['Date']), '

Pour: ', $lDonnee['Destin'], '

', $lDonnee['Titre'], '

', $lDonnee['Message'], '
'; // Accus de rception if ($lListe < 8) { $lEtat = $lDonnee['Etat']; if (! ($lEtat & S2R_LU)) { // Marque le message comme lu si besoin $S2R_Sql->NewReq('UPDATE '. PREF_TAB . 'Destin SET Etat=' . ($lEtat | S2R_LU) . ' WHERE IDmessage='. $lVoir . ' AND IDDestin=' . $_SESSION['IdMembre']); } elseif ($lEtat > S2R_LU) { echo '

'; // signale si le message est archiv ou rpondu if ($lEtat & S2R_ARCHIVE) { echo 'Message archiv. '; } if ($lEtat & S2R_REPONSE) { echo 'Rponse envoye.'; } echo '

'; } } else { // Liste des membres ayant lu le message $S2R_Sql->NewReq('SELECT u.Prenom, u.Nom FROM '. PREF_TAB . 'Destin d INNER JOIN ' . PREF_TAB . 'Membres u ON d.IDDestin=u.ID WHERE d.IDmessage='. $lVoir . ' AND d.Etat & '. S2R_LU); // Quelqu'un a t'il lu le message if ($S2R_Sql->Count()) { echo '

Message lu par: '; // Liste des membres ayant lu le message while ($lDonnee = $S2R_Sql->Next()) { echo $lDonnee[0], ' ', $lDonnee[1], ' ; '; } echo '

'; } else { echo '

Ce message n\'a pas encore t lu par le(s) destinataire(s)

'; } } echo '
'; if ($lListe < 8) { // Sous formulaire pour les boutons rpondres et rpondres tous echo '
'; // Liste les membres (sauf l'auteur de la rponse !) $S2R_Sql->NewReq('SELECT IDDestin FROM '. PREF_TAB . 'Destin WHERE IDmessage='. $lVoir . ' AND IDDestin != ' . $_SESSION['IdMembre']); while ($lDonnee = $S2R_Sql->Next()) { echo ' '; } echo '
'; } echo '
'; if (!empty($_GET['S2R_Page'])) { echo ' '; } echo ' '; if ($lListe != 2 && $lListe !=9) { echo ' '; } echo '
'; echo '
'; } else { ErrMsg ('Dsol, ce message n\'existe pas ou n\'est pas de vous.'); } } // Fin de visualisation d'un message elseif (!empty($_POST['Case'])) { // Scurit MySql $lCase = array(); foreach ($_POST['Case'] as $value) $lCase[] = (int) $value; // Clause Where if ($lListe < 8) { $lFiltre = 'IDDestin = '. $_SESSION['IdMembre'] . ' AND IDmessage IN (' . implode(',', $lCase) . ')'; } else { $lFiltre = 'ID IN (' . implode(',', $lCase) . ')'; } if (isset($_POST['S2R_Arc'])) { // Archive les messages if ($lListe < 8) { // archivage de messages reus S2R_SqlInit('UPDATE '. PREF_TAB . 'Destin SET Etat=Etat | ' . S2R_ARCHIVE . ' WHERE ' . $lFiltre); } else { // Archivage de message envoy S2R_SqlInit('UPDATE '. PREF_TAB . 'Messages SET Montrer=2 WHERE ' . $lFiltre); } if (count($lCase) > 1) { echo '

Les messages ont bien t archivs.

'; } else { echo '

Le message a bien t archiv.

'; } } elseif (isset($_POST['S2R_Del'])) { // Demande confirmation avant d'effacer les messages echo '
Confirmation avant suppression

Voulez-vous vraiment effacer le(s) message(s) list(s) ci-dessous ?

'; foreach ($lCase as $Value) { echo ' '; } // Renvoie la bonne page if (!empty($_GET['S2R_Page'])) { echo ' '; } echo '
'; // Liste uniquement les messages effacer $lTab->Liste($lFiltre); require ($S2R_racine . 'pied.php'); } elseif (isset($_POST['S2R_Sup'])) { // Marque le message comme effac if ($lListe < 8) { // suppression de messages reus S2R_SqlInit('UPDATE '. PREF_TAB . 'Destin SET Etat=Etat | ' . S2R_EFFACE . ' WHERE ' . $lFiltre); } else { // suppression de message envoy S2R_SqlInit('UPDATE '. PREF_TAB . 'Messages SET Montrer=0 WHERE ' . $lFiltre); } // Le supprime des tables si tout le monde l'a effac // Rcupre l'ID des messages que l'on ne peut pas supprimer des tables $S2R_Sql->NewReq('SELECT DISTINCT m.ID FROM ' . PREF_TAB . 'Messages m INNER JOIN ' . PREF_TAB . 'Destin d ON d.IDmessage=m.ID WHERE m.ID IN (' . implode(',', $lCase) . ') AND (m.Montrer OR NOT (d.Etat & ' . S2R_EFFACE . '))'); // On supprime ces message de $lCase // array_flip facilite l'effacement des entres ! $lCase = array_flip($lCase); while ($lDonnee = $S2R_Sql->Next()) { unset($lCase[$lDonnee[0]]); } $lCase = array_flip($lCase); if (count($lCase)) { // Suppression de la table Messages $S2R_Sql->NewReq('DELETE FROM ' . PREF_TAB . 'Messages WHERE ID IN (' . implode(',', $lCase ) . ')'); // Suppression de la table Destin $S2R_Sql->NewReq('DELETE FROM ' . PREF_TAB . 'Destin WHERE IDmessage IN (' . implode(',', $lCase ) . ')'); echo '

Le message a t supprim de la base de donne.

'; } } } elseif (isset($_POST['S2R_Arc'])) { ErrMsg ('Vous n\'avez pas coch les messages archiver'); } elseif (isset($_POST['S2R_Del'])) { ErrMsg ('Vous n\'avez pas coch les messages supprimer'); } /* Les actions : Supprimer et ARchiver */ // Dbute le formulaire pour les actions sur de multiples registres echo '
'; if (!empty($_GET['S2R_Page'])) { echo ''; } // Affiche la liste des messages $lTab->Liste($lWhere, 15); // Boutons d'actions echo '
Action sur les messages cochs'; if ($lListe != 2 && $lListe !=9) { echo ' '; } echo '
'; /* Pied de page * ****************/ include ($S2R_racine . "compil/defaut_pied.php"); ?> si2ra0.69/module/messagerie/message.php0000644000175000017500000002331310704621502017774 0ustar bernardbernard
'; /* Corps principal de la page * ******************************/ echo '
'; // Rcupration des variables $lGroupe = 0; if (!empty($_POST['Groupe'])) { if (is_array($_POST['Groupe'])) { foreach ($_POST['Groupe'] as $Value) { $lGroupe |= (int) $Value; } } else { $lGroupe = (int) $_POST['Groupe']; } } // Scurit // $lMembre = empty($_POST['Membre']) ? array() : $_POST['Membre']; $lMembre = array(); if (! empty($_POST['Membre'])) { foreach($_POST['Membre'] as $value) $lMembre[] = (int) $value; } $lTitre = empty($_POST['Titre']) ? '' : Proteger ($_POST['Titre']); $lMessage= empty($_POST['Message']) ? '' : Proteger ($_POST['Message']); $lDestin = empty($_POST['Destin']) ? '' : Proteger ($_POST['Destin']); // S'il s'agit d'une rponse : ID du message initial $lReponse = empty($_POST['Reponse']) ? 0 : (int) $_POST['Reponse']; // garder une copie dans la boite envoys (par dfaut): $lCopie = 1; // Si on dispose deja des destinataires (donc on a dja crit le message), on // vrifie si la case a t dcoche. if (!isset($_POST['Copie']) && $lDestin) $lCopie = 0; // Vrification des variables if ((empty($lMembre) && empty($lGroupe)) || isset($_POST['ChgDest'])) { // Affiche le formulaire pour choisir les destinataires echo '

Destinataire(s) du message

Choisissez un ou plusieurs Groupe(s)'; // Liste les groupes ayant une messagerie S2R_SqlInit ('SELECT ID, Nom FROM ' . PREF_TAB . 'Groupe WHERE Droits & 1'); while ($lDonnee = $S2R_Sql->Next()) { echo ' '; } echo '
Et/ou un ou plusieurs membre(s)'; // Liste les membres actifs ayant une messagerie $S2R_Sql->NewReq ('SELECT DISTINCT m.ID, m.Prenom, m.Nom FROM ' . PREF_TAB . 'Membres m INNER JOIN ' . PREF_TAB . 'Groupe g ON m.Groupe & g.ID WHERE Exclus=0 AND ((g.Droits & 1) OR (m.Droits & 1)) ORDER BY m.Prenom, m.Nom'); while ($lDonnee = $S2R_Sql->Next()) { echo ' '; } echo '
'; // Ne va pas plus loin include ($S2R_racine . "compil/defaut_pied.php"); exit; } // Fin du choix des membres elseif (isset($_POST['Envoyer'])) { // Evite les doublons if (!isset( $_SESSION['S2R_Actu'][$_POST['S2R_Actu']])) { // Il y a eu actualisation de la page : vite un renvoi ErrMsg (LG_ERR_ACTU); require ($S2R_racine . 'pied.php'); } else { // Efface la donne du tableau pour viter une nouvelle interprtation du mme formulaire unset ($_SESSION['S2R_Actu'][$_POST['S2R_Actu']]); } // Vrifier que le titre ait t renseign if ($lTitre != '') { // Complte la liste des destinataires partir des groupes if ($lGroupe) { S2R_SqlInit ('SELECT ID FROM ' . PREF_TAB . 'Membres WHERE Groupe & ' . (int)$lGroupe); while ($lDonnee = $S2R_Sql->Next()) { if (!in_array($lDonnee[0], $lMembre)) { $lMembre[] = $lDonnee[0]; } } } // Code en HTML le texte du message $lMessage = AddSlashes(Code2Html($lMessage, $S2R_racine)); // Corrige les effets de protger $lDestin = str_replace (array('<em>', '</em>'), array('', ''), $lDestin); // Envoie le message et rcupre l'ID S2R_SqlInit ('INSERT INTO ' . PREF_TAB . 'Messages (Auteur, Titre, Message, Destin, Date, Montrer) VALUES( ' . $_SESSION['IdMembre'] . ', "' . $lTitre . '", "' . $lMessage . '", "' . $lDestin . '", "' . date('Y/m/d H:i') . '", ' . $lCopie . ')'); $lIDmessage = mysql_insert_id(); if (!$lIDmessage) { ErrMsg ('Votre message n\'a pas pu tre envoy. Vous devriez ressayer plus tard.'); require ($S2R_racine . 'pied.php'); } // Cre un enregistrement par destinataire $lReq = 'INSERT INTO ' . PREF_TAB . 'Destin (IDmessage, IDDestin) VALUES'; $lCount = 0; foreach ($lMembre as $Value) { if ($lCount) { $lReq .= ',('; } else { $lReq .= '('; $lCount = 1; } $lReq .= $lIDmessage . ',' . $Value . ')'; } $S2R_Sql->NewReq($lReq); echo '

Votre message a bien t envoy.

', $lTitre ,'

Destinataire(s): ', $lDestin, '

', $lMessage, '
'; // S'il s'agit d'une rponse, marque le message comme rpondu if ($lReponse) { $S2R_Sql->NewReq('UPDATE '. PREF_TAB . 'Destin SET Etat= Etat | ' . S2R_REPONSE . ' WHERE IDmessage=' . $lReponse . ' AND IDDestin=' . $_SESSION['IdMembre']); } // Arrte le script require ($S2R_racine . 'pied.php'); } else { echo '

Le titre du message est obligatoire.

'; } } // Formulaire pour crire le message echo '

Ecrire un message

Destinataire(s)'; $lDestin = ''; // Liste les groupes if ($lGroupe) { echo ' '; $lDestin = ''; S2R_SqlInit ('SELECT ID, Nom FROM ' . PREF_TAB . 'Groupe WHERE ID &' . $lGroupe); while ($lDonnee = $S2R_Sql->Next()) { $lDestin .= $lDonnee[1] . '; '; } $lDestin .=''; } // Et des membres if (!empty ($lMembre)) { $lTextMembres = implode (',', $lMembre); S2R_SqlInit ('SELECT ID, CONCAT(Prenom, " ", Nom) FROM ' . PREF_TAB . 'Membres WHERE ID IN ('. $lTextMembres . ')'); while ($lDonnee = $S2R_Sql->Next()) { if (in_array($lDonnee[0], $lMembre)) { $lDestin .= $lDonnee[1] . '; '; echo ' '; } } } // Mmorise le controle anti-renvoi de formulaire dans le tableau de SESSION $_SESSION['S2R_Actu']['A' . $_SESSION['Actu']] = 1; // et envoie le mme code dans le formulaire... echo $lDestin, '

'; ShowEditeur('textCourt', 'Message', $lMessage); echo '
Retour au formulaire
'; /* Pied de page * ****************/ include ($S2R_racine . "compil/defaut_pied.php"); ?> si2ra0.69/module/messagerie/0000755000175000017500000000000010713136166015644 5ustar bernardbernardsi2ra0.69/module/index.php0000644000175000017500000000005010566026733015337 0ustar bernardbernardsi2ra0.69/lang/fr/install0000644000175000017500000001734310707604755015173 0ustar bernardbernard

Le script d'installation va vous demander les informations ncessaires pour installer et configurer un systme de publication Si2Ra.

Avant d'excuter ce scritp, vous devez avoir cr la base de donnes et avoir copi les fichiers sur le serveur.

Le programme va maintenant crer quelques dossiers et fichiers."); define ('LG_INSTAL_CONF_INTRO', " /******************************************************** * Fichier de configurations. Il contient : * * - les paramtres gnraux * * - certaines dfinitions servant plusieurs pages * * - l'initialisation de la session * * - l'initialisation et le chargement de la langue * * - les fonctions servant dans toutes les pages * ******************************************************** * Systme de publication sur internet Si2ra * ********************************************************/"); define ('LG_INSTAL1_COMPILERR', "Erreur lors de l'interprtation du squelette %s."); define ('LG_INSTAL1_COMP_EXIT', "Squelette %s interprt."); define ('LG_INSTAL1_ECHEC', "Le dossier %s ne peut pas tre cr par le script"); define ('LG_INSTAL1_ECHEC1', "Effacez le fichier S2R_test du dossier %s, puis recommencez."); define ('LG_INSTAL1_ECHEC2', "Le script ne peut pas crire dans le dossier %s. Merci de modifier les droits de ce dossier pour 0777."); define ('LG_INSTAL1_EXIT', "Le dossier %s a t cr"); define ('LG_INSTAL1_EXIT2', "Le systme de dossier est cre."); define ('LG_INSTAL1_INTRA', "Intranet"); define ('LG_INSTAL1_LOCAL', "test (sur votre ordinateur)"); define ('LG_INSTAL1_PUB', "Site publique"); define ('LG_INSTAL1_SERVER', "relle (sur un serveur)"); define ('LG_INSTAL1_TEST', "Effacez tous les dossiers ou fichiers nomm S2R_test (avec ou sans numro. Relancez ensuite le script."); define ('LG_INSTAL1_TEST1', "Le script ne peut pas crer de dossier. Merci de modifier les droits du dossier dans lequel vous avez copi les fichiers pour 0777 (ou 0705 chez certains hbergeurs)."); define ('LG_INSTAL1_TYPE', "Type d'installation"); define ('LG_INSTAL2_ADMIN', "Cration d'un compte administrateur"); define ('LG_INSTAL2_ADMIN2', "Vous allez dfinir un compte d'administrateur. S'il s'agit d'une mise jour, entrez ici votre nom d'utilisateur et votre mot de passe habituel."); define ('LG_INSTAL2_ADMIN3', "Le compte d'administrateur a t cr. N'oubliez pas de complter les donnes de votre profil"); define ('LG_INSTAL2_BASE', "Nom de la base de donnes"); define ('LG_INSTAL2_CONF', "Paramtres pour MySql"); define ('LG_INSTAL2_DROITS', "Table des droits initialise"); define ('LG_INSTAL2_DROIT2', "Vous disposez maintenant des droits d'administrateur de base"); define ('LG_INSTAL2_EMPTY', "Vous n'avez pas renseign tous les paramtres de connexion !"); define ('LG_INSTAL2_ERRPSEU', "Vous devez renseigner un compte d'administrateur"); define ('LG_INSTAL2_ERRPASS', "Vous n'avez pas saisi le mme mot de passe les deux fois !"); define ('LG_INSTAL2_ERRPASS2', "Il existe dj un membre avec le mme nom d'utilisateur mais un mot de passe diffrent"); define ('LG_INSTAL2_ERRPASS3', "Votre mot de passe doit avoir au moins 7 caractres"); define ('LG_INSTAL2_ERRSQL', "Impossible de se connecter MySql. Merci de vrifier les donnes de connexion"); define ('LG_INSTAL2_ERRSQL2', "Erreur d'excution MySql pour la cration de la table %s."); define ('LG_INSTAL2_ERRSQL3', "Erreur MySql lors de l'initialisation de la table %s."); define ('LG_INSTAL2_ERRBASE', "La base de donne %s ne semble pas exister"); define ('LG_INSTAL2_GROUPE', "Les groupes 'Membres', 'Admin' et 'WebMaster' sont crs"); define ('LG_INSTAL2_PASS', "Mot de passe"); define ('LG_INSTAL2_PASSB', "Confirmez votre mot de passe"); define ('LG_INSTAL2_PREF', "Prfixe pour les tables"); define ('LG_INSTAL2_RUB', "Table des rubriques initialise"); define ('LG_INSTAL2_SERVER', "Adresse de la base MySQL"); define ('LG_INSTAL2_TABLE', "Vrification et/ou cration des tables"); define ('LG_INSTAL2_TEXT', "Merci de renseigner les paramtres de connexion MySql. Si vous ne les connaissez pas, demandez les votre hbergeur."); define ('LG_INSTAL2_USER', "Nom d'utilisateur"); define ('LG_INSTAL3_STYLES', "Diffrents styles sont disponibles. Les visisteurs veront par dfaut le style actuel dont le rpertoire se nomme '%s'"); define ('LG_INSTAL3_DEFAUT', "Un seul style est disponible. Vous pourrez ajouter des sites alternatifs par la suite si vous le dsirez."); define ('LG_INSTAL3_NOSTYLE', "Aucune feuille de style n'est disponible. Vous pourrez en ajouter par la suite."); define ('LG_INSTAL3_NODEFAUT', "%d style(s) sont disponible(s) mais aucun n'a t dsign comme style par dfaut."); define ('LG_INSTAL3_ACTION', "Les styles existants sont : %1s Pour en dsigner un comme style par dfaut, vous devez renommer son rpertoire '%2s', puis recharger cette page."); define ('LG_INSTAL4_CONF', "Dfinitions pour modules complmentaires"); define ('LG_INSTAL4_TEXT', "Afin d'allger le systme, certaines fonctions sont optionnelles. Cochez les modules que vous souhaitez utiliser, et informez les ventuels paramtres qui leurs sont lis."); define ('LG_INSTAL4_NOMOD', "Aucun module ncessitant d'tre install ici n'est disponible."); define ('LG_INSTAL5_CHARSET', "Si vous modifiez ce paramtre, n'oubliez pas de convertir tous les fichiers script avec le nouveau CHARSET"); define ('LG_INSTAL5_CONF', "Description du Site"); define ('LG_INSTAL5_CONF2', "Paramtres de scurit"); define ('LG_INSTAL5_DROIT4', "Tlchargement de fichiers"); define ('LG_INSTAL5_INI', "Initialisation de la page"); define ('LG_INSTAL5_LANG', "Langue par dfaut"); define ('LG_INSTAL5_MAIL', "Mail du Responsable du Site"); define ('LG_INSTAL5_MAXECHEC', "Maximum d'checs de connexion"); define ('LG_INSTAL5_MAXIMG', "Taille maximum des images"); define ('LG_INSTAL5_MAXFILE', "Taille maximum des fichiers"); define ('LG_INSTAL5_MAXLIFE', "Dure maximum d'une session"); define ('LG_INSTAL5_MAXSIZE', "La taille maximum ne peut dpasser %s"); define ('LG_INSTAL5_MINPASS', "Longueur minimum d'un mot de passe"); define ('LG_INSTAL5_ROBOT', "Meta 'Robots' pour les pages publiques"); define ('LG_INSTAL5_SITE', "Nom du Site"); define ('LG_INSTAL5_NOSITE', "Vous n'avez pas rensiegn le nom du site"); define ('LG_INSTAL5_TEXT', "Merci de renseigner les donnes ci-dessous.

Pour les paramtres pr-remplis, laissez la valeur par dfaut si vous ne voyez pas quoi cela peut servir..."); define ('LG_INSTAL5_VISIT', "Droits des visiteurs non connects"); define ('LG_INSTAL6_TEXT', "Vous devez maintenant republier les rubriques et articles pour terminer la mise jour"); ?> si2ra0.69/lang/fr/commun0000644000175000017500000002063210650214065015002 0ustar bernardbernardn\'oubliez pas de vous dconnecter en cliquant sur %s.'); define ('LG_CONTACT_INFO', 'Ce formulaire permet de contacter par e-mail le Matre-Toile (Webmaster), ou l\'auteur d\'un article.

Il n\'est pas ncessaire d\'tre connect comme membre.

Vous pouvez en particulier contacter le responsable du site mme si la base de donnes est tombe.'); define ('LG_CONTACT_ERR_DEST', 'Dsol, mais une erreure dans l\'adresse du destinataire empche l\'envoi de votre message.'); define ('LG_CONTACT_FROM', "Ce message a t envoy partir du site %s."); //%s = nom du site define ('LG_CONTACT_MAIL', 'Votre adresse e-mail'); define ('LG_CONTACT_NO_EXIT', 'Une erreur imprvue a empch l\'envoi de votre message.'); define ('LG_CONTACT_NOMAIL', 'Le destinataire que vous aviez choisi n\'a pas enregistr d\'adresse e-mail.
Le message sera destin au Responsable du Site'); define ('LG_CONTACT_NO_MESSAGE', 'Vous n\'avez pas crit de message !'); define ('LG_CONTACT_NO_OBJET', 'l\'objet de votre message'); define ('LG_CONTACT_OBJECT', 'Objet du message'); define ('LG_CONTACT_SUCCES', 'Votre message pour %s a t envoy.'); define ('LG_CONTACT_TEXT', 'Texte du message'); define ('LG_DECON_EXIT', 'Vous avez t dconnect'); define ('LG_ENTETE_ERR_CONNECT', 'Erreur lors de la connexion: %d chec(s)'); define ('LG_ENTETE_LASTTRY', 'Dernier essai !'); define ('LG_ENTETE_REFUSED', 'Connexion refuse.'); define ('LG_ENTETE_CONTACT', 'Si vous avez perdu votre mot de passe, vous pouvez contacter le'); // contacter le webmaster. define ('LG_ENTETE_MAXTRY', "Vous avez dpass le nombre d'essais autoriss.

Vous pourrez ressayer dans %s.

"); // %s = dlai define ('LG_ENTETE_NO_EXISTS', "L'identifiant que vous avez inform n'est pas enregistr dans la base ou est dsactiv."); define ('LG_ENTETE_RESERVED', 'Dsol, vous ne disposez pas de droits suffisants pour accder cette page'); define ('LG_ENTETE_LASTCONNEX', 'Votre prcdente connexion remonte %s.
Si cela vous semble trange, vous devez changer de mot de passe !'); // %s = temps define ('LG_ENTETE_FIRST', "Bienvenue sur %1\$s ! Si vous n'avez pas choisi vous-mme votre mot de passe, vous pouvez le modifier en cliquant sur le bouton [%2\$s]."); // %1\$s = le titre du site ; %2\$s = Administration define ('LG_ERREUR_BADFILE', 'Le fichier demand est corrompu'); define ('LG_ERREUR_INTRO', 'Dsol, mais nous ne pouvons pas rpondre votre requte'); define ('LG_ERREUR_NO_EXISTS', 'La page demande n\'existe pas'); define ('LG_PAGECREAT_EDIT', 'Editer cet article'); define ('LG_PAGECREAT_EDIT2', 'Editer cette rubrique'); define ('LG_PAGECREAT_RUBRIQUE', 'Sous-Rubriques'); define ('LG_PAGECREAT_LESART', 'Dans cette Rubrique'); define ('LG_PAGECREAT_LAST', 'Derniers Articles'); define ('LG_PAGECREAT_NO_ART', 'Pas d\'article'); define ('LG_PAGECREAT_NOARTICL', 'Cette rubrique ne contient pas encore d\'articles'); define ('LG_PAGECREAT_HERE', 'Vous tes ici'); define ('LG_PAGECREAT_MAIL', "Ecrire l'auteur"); define ('LG_PIED_DATE', 'page mise jour le'); define ('LG_PIED_TIME', '~ temps d\'laboration de la page : %.4f seconde(s) ~'); define ('LG_PIED_SQL', 'requtes'); // (requtes dans la base de donnes) define ('LG_PIED_MEM', 'charge mmoire'); define ('LG_PIED_PRESENT', ' crit avec Si2Ra, systme pour des Sites Simples et Rapides.'); define ('LG_PIED_MAIL', 'Envoyer un e-mail'); define ('LG_PIED_WRITETO', 'Ecrire au Responsable du Site'); define ('LG_FONCTION_GOTOPAGE', 'Aller la page'); define ('LG_FONCTION_NEXT', 'Suivante'); define ('LG_FONCTION_LAST', 'Prcdente'); define ('LG_FICHIER_CATEG', "Filtrer une catgorie"); define ('LG_FICHIER_DATE', "disponible depuis le %s"); define ('LG_FICHIER_DISTANT', "tlcharger depuis un site distant"); define ('LG_FICHIER_HOST', " (hberg sur %s)"); define ('LG_FICHIER_INCAT', " dans la catgorie %s"); define ('LG_FICHIER_NOSIZE', "taille inconnue"); define ('LG_FICHIER_NUM', "fichier(s) tlchargeable(s)"); define ('LG_FICHIER_ROOT', "Hors catgorie"); ?> si2ra0.69/lang/fr/upload0000644000175000017500000000743510476130500014773 0ustar bernardbernard L'ancien fichier avait t mis en tlchargement le %3\$s par %4\$s."); define ('LG_UPLOAD_SIZE', "Taille en octets (sinon spcifiez ko ou Mo)"); define ('LG_UPLOAD_SIZEUNIT', "exemples: 132456, 12.3 ko ou 1.4 Mo"); define ('LG_FILE_CODE', "Code insrer"); define ('LG_FILE_COMMENT', "Description"); define ('LG_FILE_CONF1', "Voulez-vous vraiment supprimer le fichier"); define ('LG_FILE_CONF2', "mis en tlchargement le %1\$s par %2\$s ?"); define ('LG_FILE_CONF3', "Attention, si ce fichier est rfrenc par un ou plusieurs articles, le lien donnera un message d'erreur"); define ('LG_FILE_DEL', "Le fichier %s a bien t supprim"); define ('LG_FILE_DISTANT', "distant"); define ('LG_FILE_GROUPE', "Restriction d'accs"); define ('LG_FILE_LOCAL', "local"); define ('LG_FILE_LOCALIS', "Localisation"); define ('LG_FILE_NOFILE', "Le fichier que vous voulez supprimer n'existe pas ou a dj t supprim."); define ('LG_FILE_NUMBER', "Tlcharg."); define ('LG_FILE_SIZE', "Taille"); define ('LG_FILE_TITLE', "Fichiers en tlchargement"); define ('LG_FILE_VOIR', "Dtails"); define ('LG_RUB_ACTU', "La catgorie %s a t mise jour"); define ('LG_RUB_EXIT', "La catgorie de tlchargement %s a bien t cre"); define ('LG_RUB_MOD', "Modifier une catgorie"); define ('LG_RUB_NEW', "Crer une nouvelle catgorie"); define ('LG_RUB_NOEMPTY', "La rubrique %s n'est pas vide !"); define ('LG_RUB_NOEMPT2', "Supprimez d'abord %d fichier(s) tlcharger de cette rubrique, avant de supprimer la rubrique"); define ('LG_RUB_NONAME', "Vous n'avez pas spcifiez de nom"); define ('LG_RUB_SAME', "Il existe dj une catgorie %s."); define ('LG_RUB_TITRE', "Catgories pour les tlchargements"); ?> si2ra0.69/lang/fr/admin0000644000175000017500000000360110633250317014572 0ustar bernardbernard si2ra0.69/lang/fr/0000755000175000017500000000000010713136166013563 5ustar bernardbernardsi2ra0.69/install/etap5.php0000644000175000017500000003512110710414347015427 0ustar bernardbernard $lMaxSize) || ($confMaxFile > $lMaxSize)) { ErrMsg(sprintf(LG_INSTAL5_MAXSIZE, ReadSize($lMaxSize))); $lErreur = 1; } if ($confMaxImg > $lMaxSize) $confMaxImg = $lMaxSize; if ($confMaxFile > $lMaxSize) $confMaxFile = $lMaxSize; if (!$lErreur) { // nom discriminant du site pour nommer les coockies $lFileName = $S2R_racine . 'conf/cookies.php'; @include ($lFileName); if (empty ($S2R_Discrim)) { // Calcul un discriminant raisonnablement unique et comprehensible $S2R_Discrim = CreateFileName($confSITE ,10); /* Enregistre cette variable dans un fichier pour viter qu'il ne soit modifi en cas de changement de nom du site */ if ($lHandle = fopen ($lFileName, 'w')) { if (!fwrite ($lHandle, '')) { ErrMsg (LG_ERR_WRITE . $lFileName); $lErreur = 1; } fclose ($lHandle); // Modifie les permissions pour permettre une edition if (S2R_LOCAL) { chmod ($lFileName, 0666); } } else { ErrMsg (sprintf (LG_INSTAL1_ECHEC2, 'conf')); $lErreur = 1; } } // Mmorise la version actuelle en vue des futures mises jour @include ($S2R_racine . 'S2R.php'); // Ouverture / cration du fichier version.php dans le rpertoire conf $lFileName = $S2R_racine . 'conf/version.php'; if ($lHandle = fopen ($lFileName, 'w')) { fwrite ($lHandle, '') ; // Pas de test d'erreur, car au pire, il y aura rinstallation lors de la prochaine mise jour fclose ($lHandle); } // Suite du fichier conf_temp.php $lTexte = ''; $lFileName = $S2R_racine . 'conf/conf_temp.php'; if ($lHandle = fopen ($lFileName, 'r')) { // Lit le dbut du fichier while (!feof ($lHandle)) { $lLigne = fgets ($lHandle); if (strpos ($lLigne, LG_INSTAL5_CONF)) { break; } else { $lTexte .= $lLigne; } } fclose ($lHandle); } else { ErrMsg (LG_ERR_READ . $lFileName); $lErreur = 1; } if (!$lErreur) { // continue le fichier conf.php $lTexte .= ' /**** ' . LG_INSTAL5_CONF . ' ****/ // ' . LG_INSTAL5_SITE . ' define(\'SITE\', \'' . $confSITE . '\'); // ' . LG_INSTAL5_MAIL . ' define (\'S2R_WEBMASTER\', \'' . $confWEBMASTER . '\'); // ' . LG_INSTAL5_ROBOT . ' define (\'S2R_ROBOT\', "' . $confRobot . '"); // ' . LG_INSTAL5_LANG . ' define (\'S2R_LANG\', "' . $S2R_Lang . '"); // style define (\'S2R_STYLE\', \'' . $S2R_Style . '\'); /**** ' . LG_INSTAL5_CONF2 . ' ****/ // ' . LG_INSTAL5_MAXECHEC . ' define(\'MAX_ECHEC\', ' . $confMAX_ECHEC . '); // ' . LG_INSTAL5_MINPASS . ' define(\'MIN_LEN_PASS\', ' . $confMIN_PASS . '); // ' . LG_INSTAL5_VISIT .' define (\'S2R_VISIT\', ' . $confVISIT . '); // ' . LG_INSTAL5_MAXLIFE . ' define (\'S2R_MAX_LIFE_TIME\', ' . $MaxLifeTime . '); ini_set(\'session.gc_maxlifetime\', S2R_MAX_LIFE_TIME); // ' . LG_INSTAL5_MAXIMG . ' define (\'S2R_MAX_IMG_SIZE\', ' . $confMaxImg . '); // ' . LG_INSTAL5_MAXFILE . ' define (\'S2R_MAX_FILE_SIZE\', ' . $confMaxFile .'); // Discriminant pour les coockies $S2R_Discrim = \'' . $S2R_Discrim . '\'; /**** ' . LG_INSTAL5_INI . ' ****/ if (empty($S2R_Session)) { // coockie obligatoire pour la session ini_set(\'session.use_cookies\', 1); ini_set(\'session.use_only_cookies\', 1); ini_set(\'session.use_trans_sid\', 0); // Nom du coockie de session session_name(\'SID_' . $S2R_Discrim . '\'); // on dmarre la session session_start(); // Style pour la page if (empty ($_SESSION[\'S2R_style\'])) $_SESSION[\'S2R_style\'] = \'defaut\'; } $S2R_Memory = 0; // Fonction pour charger un fichier langue if (! function_exists (\'LoadLang\')) { function LoadLang ($NomDuFichier) { global $S2R_racine; $FileLang = $S2R_racine . \'lang/\' . $SESSION[\'S2R_Lang\'] . \'/\' . $NomDuFichier; if (file_exists($FileLang)) { // On inclus le fichier langue spcifi include_once ($FileLang); } /* inclus galement la langue par dfaut afin de palier d\'eventuels trous dans la traduction . Seul les constantes non dj dfinies seront dfinies en langue par dfaut */ include_once ($S2R_racine . \'lang/\' . S2R_LANG . \'/\'. $NomDuFichier); } } // Choix de la langue if (!empty($_GET[\'S2R_Lang\'])) { $S2R_PLang = htmlspecialchars($_GET[\'S2R_Lang\']); } elseif (!empty($S2R_Lang) && file_exists($S2R_racine . \'lang/\' . $S2R_Lang . \'/commun\')) { $S2R_PLang = $S2R_Lang; } elseif (!empty($_SESSION[\'S2R_Lang\'])) { $S2R_PLang = $_SESSION[\'S2R_Lang\']; } else { $S2R_PLang = S2R_LANG; if (!empty($_SERVER[\'HTTP_ACCEPT_LANGUAGE\'])) { $laccept_lang = explode (\',\', $_SERVER[\'HTTP_ACCEPT_LANGUAGE\']); foreach ($laccept_lang as $Lang) { if (is_dir($S2R_racine . \'lang/\' . $Lang)) { $S2R_PLang = $Lang; break; } // Sinon on vrifie si on a une langue gnrique elseif (strlen($Lang) > 3) { $lang = substr($Lang, 0, strpos($Lang, \'-\')); if (is_dir($S2R_racine . \'lang/\' . $Lang)) { $S2R_PLang = $Lang; break; } } } unset ($laccept_lang); } } $_SESSION[\'S2R_Lang\'] = $S2R_PLang; // On inclu le fichier commun de la langue choisie $S2R_FileLang = $S2R_racine . \'lang/\' . $S2R_PLang . \'/commun\'; if (file_exists($S2R_FileLang)) { // On inclus le fichier langue spcifi include_once ($S2R_FileLang); } // plus la langue par dfaut au cas ou certains items ne seraient pas traduits include_once ($S2R_racine . \'lang/\' . S2R_LANG . \'/commun\'); /**** DEFINITIONS DIVERSE (voir si elles sont utiles ici) ****/ /* Messages d\'erreur */ define (\'ERR_DROIT\', 0x1); // Les droits ne sont pas suffisant define (\'ERR_NO_FILE\', 0x2); // le fichier demand n\'existe pas define (\'ERR_NO_FILENAME\', 0x4); // le fichier tlcharger n\'a pas t indiqu define (\'ERR_NO_MODULE\', 0x8); // Le module n\'est pas install define (\'ERR_NO_ARTICLE\', 0x10); // L\'article demand n\'existe pas define (\'ERR_404\', 0x20); // la page n\'existe pas. define (\'ERR_BAD_FILE\' , 0x40); // Fichier corompu /* Etat d\'un message (message.php et messagerie.php) */ define (\'S2R_LU\' , 1); // message dj lu define (\'S2R_REPONSE\' , 2); // message rpondu define (\'S2R_ARCHIVE\' , 8); // message archiv define (\'S2R_EFFACE\' , 64); // message supprim ?>'; // Grave le texte $lFileConf = $S2R_racine . 'conf/conf.php'; if ($lHandle = fopen ($lFileConf, 'w')) { if (!fwrite ($lHandle, $lTexte)) { ErrMsg (LG_ERR_WRITE . $lFileConf); $lErreur = 1; } fclose ($lHandle); // Supprime le fichier temporaire unlink ($lFileName); // Modifie les permissions pour permettre une edition if (S2R_LOCAL) { chmod ($lFileConf, 0666); } } else { ErrMsg (sprintf (LG_INSTAL1_ECHEC2, 'conf')); $lErreur = 1; } } } // Passe l'etape suivante if (!$lErreur) { // Si l'on a demand la republication : if (isset ($_SESSION['Restaurer']) ) printf ('

' . LG_INSTAL_NEXT . '

', '' . LG_CONTINUE . ''); else echo '



' . LG_INSTAL_FIN . '

'; $_SESSION['etap'][5] = 1; // On efface la phase 1 pour viter de recharger un fichier conf_temp qui n'existe plus. unset ($_SESSION['etap'][1]); } } else { unset ($_SESSION['etap'][5]); echo '

', LG_INSTAL5_TEXT, '

'; } function CheckCreat ($Nom, $Value, $Actuel, $Label) { echo ' '; } // Le formulaire echo '
'; if ($lErreur || !isset ($_POST['OK5'])) { // Paramtres diverses echo '
', LG_INSTAL5_CONF, '
', LG_INSTAL5_CONF2, '
', LG_MINUTE, '
', LG_INSTAL5_VISIT, ''; CheckCreat ('Visit', 4, $confVISIT, LG_INSTAL5_DROIT4); echo '
'; } echo '
'; if ($_SESSION['etap'][5]) { // On passe l'tape suivante if (isset ($_SESSION['Restaurer']) ) echo ' '; else echo ' '; } else { echo ' '; if ($S2R_Droits) { echo '
'; } } // demande de confirmation avant de continuer if ($lErreur) { echo ' '; } else { echo ' '; } echo '
'; ?> si2ra0.69/install/republier.php0000644000175000017500000002214210705616667016416 0ustar bernardbernardNext()) { $_SESSION['dirList'][] = $lDonnee[0]; } $_SESSION['dirNb'] = count($_SESSION['dirList']); } if ($_SESSION['Restaurer'] & 2) { // Liste les articles n'ayant pas t modifis aprs leur dernire publication $_SESSION['artList'] = array(); $S2R_Sql->NewReq ('SELECT ID FROM ' . PREF_TAB . 'Article WHERE DateVal >= Date'); while ($lDonnee = $S2R_Sql->Next()) { $_SESSION['artList'][] = $lDonnee[0]; } $_SESSION['artNb'] = count($_SESSION['artList']); } } // La fonction CreatePage ncessite un objet Arbre $lArbre pour les rubriques require_once ($S2R_racine . 'classes/arbo.php'); if (empty ($_SESSION['dirArbre'])) { // On rcupre la liste des rubriques du dossier pub $_SESSION['dirArbre'] = array(); // Requte SQL sur les rubriques S2R_SqlInit ('SELECT ID, Parent, Nom, Dossier, `Supprime` FROM ' . PREF_TAB . 'Rubrique'); while ($Donnee = $S2R_Sql->Next()) { $_SESSION['dirArbre'][$Donnee['ID']] = array ('Nom' => $Donnee['Nom'], 'Pere'=> $Donnee['Parent'], 'Dos' => $Donnee['Dossier'], 'Sup' => $Donnee['Supprime']); if ($Donnee['Supprime']) { echo '

La rubrique "', $Donnee['Nom'], '", qui avait t supprim, ne sera pas republie.

'; } } } // On rorganise l'arborescence des rubriques $lArbre = new Arbre (NULL); $lArbre->LoadArray($_SESSION['dirArbre']); // On cre les dossiers si ncessaire (uniquement lors du premier passage) if ($l1erPassage && $_SESSION['Restaurer'] & 1) { // Fonction rcursive pour explorer les sous-dossiers function VerifDossier ($ID_Noeud, $Chemin) { global $lArbre; // Si le noeud est dsactiv : ne vas pas plus loin if ($_SESSION['dirArbre'][$ID_Noeud]['Sup']) return; // ajoute le nom du dossier au chemin $Chemin .= $lArbre->Nom ($ID_Noeud, 'Dos'); // Vrifie que le chemin existe if (! is_dir( $Chemin)) { // essaie de crer le dossier if (mkdir($Chemin) ) { echo '
Cration du dossier ', $Chemin; // si instalation en local, modifie les droits if (S2R_LOCAL) { // Attribue les droits 0777 chmod ($Chemin, 0777); } } } // Vrifie les sous-dossiers $Chemin .= '/'; foreach ($lArbre->LesFils($ID_Noeud) as $Fils ) { VerifDossier($Fils, $Chemin); } } echo '

Vrification des dossiers

'; // Explore depuis la racine VerifDossier($lArbre->IdRacine(), $S2R_racine); } // Fonction CreatePage require_once ($S2R_racine . 'page_create2.php'); // Fonction Code2Html require_once($S2R_racine . 'editeur/editeur.php'); /* Fonction pour republier les rubriques en lot Renvoi 1 si termin, 0 si dpassement du temps imparti */ function publi_rub () { global $S2R_racine, $lTime, $S2R_Sql; // Cration d'une instance pour la classe mySql (si besoin) S2R_SqlInit (); $S2R_Sql->Prepare ('SELECT Nom, Groupe, Texte FROM ' . PREF_TAB . 'Rubrique WHERE ID=?'); foreach ($_SESSION['dirList'] as $key => $value) { if ((time() - $lTime) > MAX_SCRIPT_TIME) { // arrte le script printf ('

%1d rubriques sur %2d ont t revalides.

', $_SESSION['dirNb'] - count($_SESSION['dirList']), $_SESSION['dirNb']); return 0; } // Rcupre les donnes de la rubrique $S2R_Sql->Execute($value); // Publie la rubrique if ($lDonnee = $S2R_Sql->Next()) { if (CreatePage ($lDonnee['Nom'], 'index', $value, $lDonnee['Groupe'], Code2Html ($lDonnee['Texte'], '\' . $S2R_racine . \'')) ) { // Actualise le fichier _dossier.php Actu_dossier($value); echo '
  • ', $lDonnee['Nom'], '
    • '; } } // supprime l'article de la liste des rubriques republier unset ($_SESSION['dirList'][$key]); } return 1; } /* Fonction pour republier les artiles en lot Renvoi 1 si termin, 0 si dpassement du temp imparti */ function publi_art () { global $S2R_racine, $lTime, $S2R_Sql; // Prparation de la requte S2R_SqlInit (); $S2R_Sql->Prepare ('SELECT a.Fichier, a.Titre, a.Groupe, a.Texte, a.Resume, a.MotCle, a.Lang, a.Auteur, a.ID_Dossier, CONCAT(m.Prenom, \" \", m.Nom) as NomAuteur FROM ' . PREF_TAB . 'Article a LEFT JOIN ' . PREF_TAB . 'Membres m ON (a.Auteur = m.ID) WHERE a.ID=?'); foreach ($_SESSION['artList'] as $key => $value) { if ((time() - $lTime) > MAX_SCRIPT_TIME) { printf ('

    %1d articles sur %2d ont t revalids.

    ', $_SESSION['artNb'] - count($_SESSION['artList']), $_SESSION['artNb']); // arrte le script return 0; } // Rcupre les donnes de l'article $S2R_Sql->Execute($value); // valide l'article if ($lDonnee = $S2R_Sql->Next()) { if (CreatePage ($lDonnee['Titre'], $lDonnee['Fichier'], $lDonnee['ID_Dossier'], $lDonnee['Groupe'], Code2Html ($lDonnee['Texte'], '\'. $S2R_racine . \''), $value, $lDonnee['Auteur'] , $lDonnee['Resume'], $lDonnee['NomAuteur'], $lDonnee['MotCle'], $lDonnee['Lang'] )) { // actualise la table ? (date de validation ? pas sr) echo '
  • ', $lDonnee['Titre'], '
    • '; } else echo '
  • L\'article "', $lDonnee['Titre'], ' n\'a pas pu tre revalider.
    • '; } // supprime l'article de la liste unset ($_SESSION['artList'][$key]); } return 1; } // Scurit pour viter d'appeler directement le script if ( !empty($_SESSION['Restaurer'])) { $lResult = 1; // Rubriques if ((int) $_SESSION['Restaurer'] & 1) { // Excution des fonctions echo '

    Republication en lot des rubriques

      '; // Publie les rubriques $lResult = publi_rub(); echo '
    '; if ($lResult) { echo '

    Toutes les rubriques ont t revalides.

    '; // Pas la peine de repasser par la case rubrique si le script est interrompu $_SESSION['Restaurer'] = (int)$_SESSION['Restaurer'] ^ 1; } } // Articles if ($lResult && $_SESSION['Restaurer'] & 2) { echo '

    Republication en lot des articles

      '; unset ($_SESSION['dirNb']); // Publie les articles $lResult = publi_art(); echo '
    '; if ($lResult) echo '

    Tous les articles ont t revalids.

    '; } if ($lResult) { // Republication termine echo '

    La republication en lot est termine.

    '; // Y-a-t'il des articles republier la main ? if ($_SESSION['Restaurer'] & 2) { $lRestant = -1; S2R_SqlInit ('SELECT COUNT(1) FROM ' . PREF_TAB . 'Article WHERE DateVal < Date'); if ($lDonnee = $S2R_Sql->Next()) { $lRestant = $lDonnee[0]; } if ($lRestant > 1) { echo '

    ', $lRestant, ' articles n\'ont pas pu tre publis automatiquement car ils avaient t modifis sans tre revalid ensuite.

    '; } else if ($lRestant == 1) { echo '

    Un article n\'a pas pu tre publi automatiquement car il avait t modifi sans tre revalid par la suite.

    '; } else if ($lRestant) { echo '

    Merci de vrifier s\'il existe des articles publier individuellement (articles ayant t modifis dans la base aprs leur validation).

    '; } if ($lRestant) { if ((int) $_SESSION['Droits'] & 0x1000) { echo '

    Cliquez sur le bouton ci-dessous pour effectuer la revalidation manuelle. (En l\'absence de revalidation manuelle, le lien menant aux pages concernes sera probablement cass.)

    '; } else { echo '

    Vous ne disposez pas des droits permettant la validation des articles. Merci de demander un valideur de revalider rapidement les articles modifis. A dfaut, le lien menant aux pages concerns pourra tre cass.)

    '; } } } // Evite un nouvel appel unset ($_SESSION['Restaurer']); unset ($_SESSION['artNb']); unset ($_SESSION['dirArbre']); } else { // Travail non termin echo '

    '; } } ?> si2ra0.69/install/etap6.php0000644000175000017500000000235210707605306015433 0ustar bernardbernard

    ' . LG_INSTAL_FIN . '

    '; $_SESSION['etap'][6] = 1; } } else { unset ($_SESSION['etap'][6]); echo '

    ', LG_INSTAL6_TEXT, '

    '; } // Le formulaire echo '
    '; echo '
    '; if ($_SESSION['etap'][6]) { // On passe l'tape suivante echo ' '; } else echo ' '; // demande de confirmation avant de continuer echo ' '; echo '
    '; ?> si2ra0.69/install/.htaccess0000644000175000017500000000004010641514723015470 0ustar bernardbernard Deny from all si2ra0.69/install/etap2.php0000644000175000017500000002420410704370033015420 0ustar bernardbernard', LG_INSTAL2_TABLE, '

    '; // dfinition des tables require_once ($S2R_racine . 'install/tables.php'); // essai de se connecter MySql if (@mysql_connect($confSERVEUR, $confUSER, $confMDP)) { // Essai de crer la base de donnes @mysql_query ('CREATE DATABASE IF NOT EXISTS ' . $confBASE); // Vrifie que la base existe if (mysql_select_db($confBASE)) { $S2R_cSqlNbReq ++; // Cre toutes les tables echo '
      '; foreach ($lTables as $tNom => $tDescription) { // On rajoute le prfixe $tNom = $confPREF_TAB . $tNom; if (! mysql_query ( "CREATE TABLE IF NOT EXISTS $tNom ($tDescription)")) { // en cas d'erreur interrompte les requtes ErrMsg (sprintf (LG_INSTAL2_ERRSQL2, '' . $tNom . '')); $lErreur = 2; break; } echo '
    • ', $tNom, '
      • '; } echo '
    '; // Remplis la table de droits if (mysql_query ('INSERT IGNORE INTO ' . $confPREF_TAB . 'Droits (ID, Nom) VALUES ' . $tDroits)) { echo '

    ', LG_INSTAL2_DROITS, '.

    '; } else { ErrMsg (sprintf (LG_INSTAL2_ERRSQL3, 'Droits')); $lErreur = 2; } // Initialise la table des groupes if (mysql_query ('INSERT IGNORE INTO ' . $confPREF_TAB . 'Groupe (ID, Nom, Droits) VALUES ' . $tGroupes)) { echo '

    ', LG_INSTAL2_GROUPE, '.

    '; } else { ErrMsg (sprintf (LG_INSTAL2_ERRSQL3, 'Groupe')); $lErreur = 2; } // On initialise la table des rubriques par la racine if (mysql_query ('INSERT IGNORE INTO ' . $confPREF_TAB . 'Rubrique (ID, Dossier, Nom, Date) VALUES (1, "pub", "' . LG_ARTICLE . '", "'. date("Y/m/d H:i") . '")')) { echo '

    ', LG_INSTAL2_RUB, '.

    '; } else { ErrMsg (sprintf (LG_INSTAL2_ERRSQL3, 'Rubrique')); $lErreur = 2; } // Cre ou actualise le compte d'administrateur si ncessaire if ($lPseudoA !== NULL) { $lResult = mysql_query ('SELECT ID, Pass, GDS1 FROM ' . $confPREF_TAB . 'Membres WHERE Pseudo="' . $lPseudoA .'"'); if ($lDonnee = mysql_fetch_array ($lResult, MYSQL_ASSOC)) { // Vrifie le mot de passe $NoPassGDS2 = 1; if (!VerifPass ($lDonnee['Pass'], $lDonnee['GDS1'], '', // On ne change pas le chiffrage du mot de passe $lPassA, '', $PassGDS2)) { $lErreur = 3; ErrMsg (LG_INSTAL2_ERRPASS2); } // Attribut les droits si ncessaire elseif (mysql_query ('UPDATE ' . $confPREF_TAB . 'Membres SET Droits = Droits | 0x4000000, Groupe = Groupe | 0x60000001, Creation="' . date('Y/m/d H:i:s'). '", Createur="install.php" WHERE ID=' . $lDonnee['ID'] )) { echo '

    ', LG_INSTAL2_DROIT2, '

    '; } else { ErrMsg (sprintf (LG_INSTAL2_ERRSQL3, 'Membres')); $lErreur = 2; } } else { // Calcule un GDS $lGDS = GdsCreate(); if (mysql_query ('INSERT INTO ' . $confPREF_TAB . 'Membres (Pseudo,Pass, GDS1, Prenom,Nom,Groupe,Creation,Createur,Droits) VALUES ("' . $lPseudoA . '", "' . sha1($lPassA . $lGDS) . '", "' . $lGDS . '", "Administrateur", "", 0x60000001, "' . date('Y/m/d H:i:s') . '", "install.php", 0x4000000)')) { // Cre le compte d'administrateur echo '

    ', LG_INSTAL2_ADMIN3, '.

    '; } } } elseif (!defined (SITE) && empty ($_SESSION['Pseudo'])) { /* Utilisateur dj connect mais pas de fichier conf.php Donne des droits d'administrateur */ if (((int) $_SESSION['Droits'] & 0x4C000000) ^ 0x4C000000) { if (mysql_query ('UPDATE ' . $confPREF_TAB . 'Membres SET Droits = Droits | 0x4000000, Groupe= Groupe | 0x60000001, Creation="' . date('Y/m/d H:i:s'), '", Createur="install.php" WHERE ID=' . $lDonnee['ID'] )) { echo '

    ', LG_INSTAL2_DROIT2, '

    '; } else { ErrMsg (sprintf (LG_INSTAL2_ERRSQL3, 'Membres')); $lErreur = 2; } } } } else { ErrMsg (sprintf (LG_INSTAL2_ERRBASE, $confBASE)); $lErreur = 2; } } else { ErrMsg (LG_INSTAL2_ERRSQL . ':'); echo '
    • ', LG_INSTAL2_SERVER, '
    • ', LG_INSTAL2_USER, '
    • ', LG_INSTAL2_PASS, '
    '; $lErreur = 2; } } // Suite du fichier conf_temp.php if (!$lErreur) { // Mmorisation du mot de passe $lFileName = $S2R_racine . 'conf/connect.php'; if ($lHandle = fopen ($lFileName, 'w')) { fwrite ($lHandle, '' ); fclose ($lHandle); } $lTexte = ''; $lFileName = $S2R_racine . 'conf/conf_temp.php'; if ($lHandle = fopen ($lFileName, 'r')) { // Lit la premire tape while (!feof ($lHandle)) { $lLigne = fgets ($lHandle); if (strpos ($lLigne, LG_INSTAL2_CONF)) { break; } else { $lTexte .= $lLigne; } } fclose ($lHandle); } else { ErrMsg (LG_ERR_READ . $lFileName); $lErreur = 1; } if (!$lErreur) { $lTexte .= ' /****' . LG_INSTAL2_CONF . '****/ define (\'SERVEUR\', \'' . $confSERVEUR . '\'); define (\'USER\', \'' . $confUSER . '\'); define (\'MDP\', "' . $confMDP . '"); define (\'BASE\', \'' . $confBASE . '\'); // ' . LG_INSTAL2_PREF . ' define (\'PREF_TAB\', \'' . $confPREF_TAB . '\'); '; // Grave le texte if ($lHandle = fopen ($lFileName, 'w')) { if (!fwrite ($lHandle, $lTexte)) { ErrMsg (LG_ERR_WRITE . $lFileName); $lErreur = 1; } fclose ($lHandle); } else { ErrMsg (sprintf (LG_INSTAL1_ECHEC2, 'conf')); $lErreur = 1; } } } // Passe l'etape suivante if (!$lErreur) { printf ('

    ' . LG_INSTAL_NEXT . '

    ', '' . LG_CONTINUE . ''); $_SESSION['etap'][2] = 1; } } else { unset ($_SESSION['etap'][2]); // Message d'accueil echo '

    ', LG_INSTAL2_TEXT, '

    '; } // Le formulaire echo '
    '; if ($lErreur || !isset ($_POST['OK2'])) { // Paramtres de connexion echo '
    ', LG_INSTAL2_CONF, '
    '; if (!defined (SITE) && empty ($_SESSION['Pseudo'])) { /* Il n'y a pas de fichier conf.php (installation initiale ou rinstallation) Si on est dj connect, pas besoin de crer un compte */ echo '
    ', LG_INSTAL2_ADMIN, '

    ', LG_INSTAL2_ADMIN2, '

    '; } } echo '
    '; if ($_SESSION['etap'][2]) { // On passe l'tape suivante echo ' '; } else echo ' '; // demande de confirmation avant de continuer if ($lErreur) { echo ' '; } else { echo ' '; } echo '
    '; ?> si2ra0.69/install/etap4.php0000644000175000017500000000666510703733635015447 0ustar bernardbernard' . LG_INSTAL_NEXT . '

    ', '' . LG_CONTINUE . ''); $_SESSION['etap'][4] = 1; } } else { unset ($_SESSION['etap'][4]); echo '

    ', LG_INSTAL4_TEXT, '

    '; } // Le formulaire echo '
    '; if ($lErreur || !isset ($_POST['OK4'])) { // Demande les paramtre des modules foreach ($lModuleList as $module) { $maFonction = $module . '_form'; // exectute la fonction et teste le retour d'erreur $maFonction(); } } echo '
    '; if ($_SESSION['etap'][4]) { // On passe l'tape suivante echo ' '; } else echo ' '; // demande de confirmation avant de continuer if ($lErreur) { echo ' '; } else { echo ' '; } echo '
    '; ?> si2ra0.69/install/etap1.php0000644000175000017500000001733610703752724015441 0ustar bernardbernard' . LG_INSTAL1_EXIT, $Rep); } else { ErrMsg(sprintf (LG_INSTAL1_ECHEC, $Rep)); $lErreur = 1; } } } if (!$lErreur) { // Crer les fichiers index.php foreach ($lIndex as $Rep) { $lFileName = $S2R_racine . $Rep . '/index.php'; if (!file_exists ($lFileName)) { if ($lHandle = fopen ($lFileName, 'w')) { if (!fwrite ($lHandle, '')) { ErrMsg (sprintf (LG_INSTAL1_ECHEC2, $Rep)); $lErreur = 1; } fclose ($lHandle); } else { ErrMsg (sprintf (LG_INSTAL1_ECHEC2, $Rep)); $lErreur = 1; } } } // Interprtation du squelette require_once($S2R_racine . 'admin/template.php'); foreach ($S2R_SqueletteList as $value) { // La fonction retourne zero en l'absence d'erreur if (ScriptCreate($value)) { ErrMsg (sprintf (LG_INSTAL1_COMPILERR, $value)); $lErreur = 1; } else { printf ('
    ' . LG_INSTAL1_COMP_EXIT, $value); } } // Et les fichier .htaccess de protection foreach ($lHtaccess as $Rep) { $lFileName = $S2R_racine . $Rep . '/.htaccess'; if (!file_exists ($lFileName)) { if ($lHandle = fopen ($lFileName, 'w')) { if (!fwrite ($lHandle, ' Deny from all ' )) { ErrMsg (sprintf (LG_INSTAL1_ECHEC2, $Rep)); $lErreur = 1; } fclose ($lHandle); } else { ErrMsg (sprintf (LG_INSTAL1_ECHEC2, $Rep)); $lErreur = 1; } } } // Fichier .htaccess la racine pour les erreurs 404 et autres configurations $lFileName = $S2R_racine . '.htaccess'; $lRacinePath = $_SERVER['PHP_SELF']; // suppression du nom du fichier actuel $lRacinePath = substr ($lRacinePath, 0 , strrpos($lRacinePath,'/')); // aller la racine $lNum = substr_count($S2R_racine, '..'); while ($lNum) { $lRacinePath = substr ($lRacinePath, 0 , strrpos($lRacinePath,'/')); $lNum --; } $lTexte = '# Chemin vers le fichier erreur ErrorDocument 404 ' . $lRacinePath . '/erreur.php?ErrMsg=32' ; if ($lHandle = fopen ($lFileName, 'w')) { if (!fwrite ($lHandle, $lTexte)) { ErrMsg (sprintf (LG_INSTAL1_ECHEC2, $lRacinePath)); $lErreur = 1; } } } // Enregistrement des premires options dans conf_temp.php if (!$lErreur) { $lTexte = '', LG_INSTAL1_EXIT2, '

    '; printf ('

    ' . LG_INSTAL_NEXT . '

    ', '' . LG_CONTINUE . ''); $_SESSION['etap'][1] = 1; } } else { unset ($_SESSION['etap'][1]); // Message d'accueil echo '

    ', LG_INSTAL_TEXT1, '

    '; // On vrifie les droits du dossier racine $lDir = $S2R_racine . 'S2R_test'; if (is_dir ($lDir)) { if (!rmdir ($lDir)) do { $i = 0; $lDir .= $i; if ($i > 10) { ErrMsg (LG_INSTAL1_TEST); $lErreur |= 1; break; } } while (file_exists ($lDir)); } if (!$lErreur) { if (! @mkdir ($lDir)) { ErrMsg (LG_INSTAL1_TEST1); $lErreur |= 1; } else { // Efface le dossier test rmdir ($lDir); } } } // Le formulaire echo '
    '; if ($lErreur || !isset ($_POST['OK1'])) { // choix du type d'installation function RadioCreat ($label, $Name, $Value, $Actuel) { // Crer un bouton radio echo ' '; } echo '
    ', LG_INSTAL1_TYPE, '
    '; RadioCreat (LG_INSTAL1_LOCAL, 'Local', 1, $lLocal ); RadioCreat (LG_INSTAL1_SERVER, 'Local', 0, $lLocal ); echo '
    '; RadioCreat (LG_INSTAL1_PUB, 'Extranet', 0, $lExtranet ); RadioCreat (LG_INSTAL1_INTRA, 'Extranet', 1, $lExtranet ); echo '
    '; } echo '
    '; if ($_SESSION['etap'][1]) { // On passe l'tape suivante echo ' '; } // demande de confirmation avant de continuer if ($lErreur) { echo ' '; } else { echo ' '; } echo '
    '; ?> si2ra0.69/install/tables.php0000644000175000017500000002206710705163064015671 0ustar bernardbernard "`Pseudo` VARCHAR(20) NOT NULL PRIMARY KEY, `Pass` CHAR(40) NOT NULL, `GDS1` CHAR(34) NOT NULL, `Prenom` VARCHAR(30) NOT NULL, `Nom` VARCHAR(30) NOT NULL, `Groupe` INT UNSIGNED NOT NULL DEFAULT 1, `Mail` VARCHAR(50) NOT NULL DEFAULT '', `Creation` DATETIME NOT NULL, `Createur` VARCHAR(30) NOT NULL DEFAULT '', `Droits` INT UNSIGNED NOT NULL DEFAULT 0, `Exclus` TINYINT(1) NOT NULL DEFAULT 0, `Options` INT UNSIGNED NOT NULL DEFAULT 0, `Acces` DATETIME NULL DEFAULT NULL, `ID` MEDIUMINT UNSIGNED NOT NULL AUTO_INCREMENT, KEY `Groupe` (`Groupe`), KEY `Actif` (`Pseudo`, `Exclus`), UNIQUE KEY ID (ID)", /* Table contenant les droits d'accs aux diffrents scripts */ 'Droits' => "`ID` INT UNSIGNED NOT NULL PRIMARY KEY, `Nom` VARCHAR(40) NOT NULL", /* Dfinition des groupes de membres (utile notemment si l'on veut une intranet ou une extranet : le contenu pourra tre diffrent selon les groupes */ 'Groupe' => "`ID` INT UNSIGNED NOT NULL PRIMARY KEY, `Nom` VARCHAR(20) NOT NULL, `Droits` INT UNSIGNED NOT NULL DEFAULT 0", /* dossiers contenant les articles */ 'Rubrique'=> "`ID` INT UNSIGNED NOT NULL PRIMARY KEY, `Parent` INT UNSIGNED NOT NULL DEFAULT 0, `Dossier` VARCHAR(32) NOT NULL, `Nom` VARCHAR(64) NOT NULL, `Groupe` INT UNSIGNED NOT NULL DEFAULT 0, `Texte` TEXT NOT NULL DEFAULT '', `Date` DATETIME NOT NULL, `Valideur` INT UNSIGNED NOT NULL DEFAULT 0, `Supprime` TINYINT(1) NOT NULL DEFAULT 0", /* table contenant les articles modifi version 0.63 : rang */ 'Article' => "`ID` INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT, `Fichier` VARCHAR(32) NOT NULL, `Titre` VARCHAR(128) NOT NULL, `Groupe` INT UNSIGNED NOT NULL DEFAULT 0, `Texte` TEXT NOT NULL DEFAULT '', `Resume` VARCHAR(255) NOT NULL DEFAULT '', `MotCle` VARCHAR(255) NOT NULL DEFAULT '', `Lang` VARCHAR(7) NOT NULL DEFAULT 'fr', `Auteur` INT UNSIGNED NOT NULL, `Modif` INT UNSIGNED NOT NULL DEFAULT 0, `Valideur` INT UNSIGNED NOT NULL DEFAULT 0, `Date` DATETIME NOT NULL, `DateVal` DATETIME NULL DEFAULT NULL, `AValider` TINYINT(1) NOT NULL DEFAULT 0, `ID_Dossier` INT UNSIGNED NOT NULL, `Rang` TINYINT UNSIGNED NOT NULL DEFAULT 0, `Ex_Dossier` INT UNSIGNED NOT NULL DEFAULT 0, KEY `Public` (`ID_Dossier`, `DateVal`), KEY `Ordre` (`ID_Dossier`, `Rang`)", /* Table contenant le texte, l'auteur des messages internes Le champ Montrer est >0 si on montre le message dans la boite Envoys de l'auteur */ 'Messages'=> "`ID` INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT, `Auteur` INT UNSIGNED NOT NULL, `Titre` VARCHAR(128) NOT NULL DEFAULT '', `Message` TEXT NOT NULL DEFAULT '', `Destin` TEXT NOT NULL DEFAULT '', `Date` DATETIME NOT NULL, `Montrer` TINYINT(1) NOT NULL DEFAULT 0, KEY `Auteur` (`Auteur`, `Montrer`)", /* Table contenant les destinataire des messages internes (une ligne par destinataire), ainsi que l'tat du message pour le destinataire (lu, rpondu, archiv, effac) */ 'Destin' => "`IDmessage` INT UNSIGNED NOT NULL, `IDDestin` INT UNSIGNED NOT NULL, `Etat` TINYINT(1) NOT NULL DEFAULT 0, PRIMARY KEY (`IDDestin`, `IDmessage`)", /* Table contenant les fichiers tlcharger Le fichier a pour nom physique Fichier Fichier peut aussi tre un lien externe vers un fichier Son nom rel et son extension sont stoque dans Nom Texte est un commentaire pouvant accompagner le fichier Telecharge = nombre de tlchargements */ 'Fichiers'=> "`ID` INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT, `Auteur` INT UNSIGNED NOT NULL, `Fichier` VARCHAR(128) NOT NULL, `Nom` VARCHAR(32) NOT NULL DEFAULT '', `Texte` TEXT NOT NULL DEFAULT '', `Rubrique` INT UNSIGNED NOT NULL, `Groupe` INT UNSIGNED NOT NULL DEFAULT 0, `Taille` INT UNSIGNED NOT NULL DEFAULT 0, `Telecharge` INT UNSIGNED NOT NULL DEFAULT 0, `Date` DATETIME NOT NULL, KEY `Groupe` (`Groupe`), KEY `Unique` (`Rubrique`,`Nom`)", /* Table des forums Lecture, Question et Reponse contiennent les groupes ayant droit lire poser une question ou rpondre. Si 0 : les visiteurs disposent des droits Moderer : liste des ID des membres tant modrateurs 'Forum'=> "`ID` INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT, `Lecture` INT UNSIGNED NOT NULL DEFAULT 0, `Question` INT UNSIGNED NOT NULL DEFAULT 0, `Reponse` INT UNSIGNED NOT NULL DEFAULT 0, `Titre` VARCHAR(128) NOT NULL, `Texte` TEXT NOT NULL DEFAULT '', `Moderer` TEXT NOT NULL DEFAULT ''", /* Table des Questions et Rponses dans les forums ID_Forum : ID du forum contenant la question ID_Parent : ID de la question auquel on rpond (0 : nouvelle question) ID_Membre : ID de l'auteur du post ID_Modif : ID du dernier post modifi dans cette question 'Posts'=> "`ID_Post` INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT, `ID_Forum` INT UNSIGNED NOT NULL, `ID_Parent` INT UNSIGNED NOT NULL DEFAULT 0, `ID_Membre` INT UNSIGNED NOT NULL DEFAULT 0, `ID_Modif` INT UNSIGNED NOT NULL DEFAULT 0, `NbReponse` INT UNSIGNED NOT NULL DEFAULT 0, `Date` DATETIME NOT NULL, `DateModif` DATETIME NOT NULL, `Titre` VARCHAR(128) NOT NULL, `Texte` TEXT NOT NULL DEFAULT '', KEY `Unique` (`ID_Forum`,`ID_Parent`,`ID_Post`)", /* Table contenant les questions vue ou non vue 'PostVu' =>"`ID_Post` INT UNSIGNED NOT NULL, `ID_Membre` INT UNSIGNED NOT NULL, PRIMARY KEY (`ID_Post`,`ID_Membre`)", /* Table contenant les adresses e-mail protger 'Repertoire'=>"`ID` INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT, `Page` INT UNSIGNED NOT NULL, `Nom` VARCHAR(32) NOT NULL DEFAULT '', `Mail` VARCHAR(50) NOT NULL, KEY `Page` (`Page`)", */ /* Table contenant les rubriques pour les fichiers tlcharger */ 'RubTel' => "`ID` INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT, `Nom` VARCHAR(64) NOT NULL, `Texte` TEXT NOT NULL DEFAULT ''" ); // Droits dfinis par dfauts : $tDroits = " (0x1, 'Messagerie personnelle'), (0x2, 'Lecture de tous les articles'), (0x4, 'Download de fichier'), (0x10, 'Ecrire un article'), (0x20, 'Ecrire une brve'), (0x1000, 'Publier un article'), (0x2000, 'Publier une brve'), (0x200000, 'Upload de fichier'), (0x1000000, 'Grer les rubriques'), (0x2000000, 'Grer les Forums'), (0x4000000, 'Gestion des membres'), (0x8000000, 'Gestion des groupes'), (0x10000000,'Gestion des squelettes'), (0x20000000,'Gestion des droits'), (0x40000000,'Grer la base de donnes') "; // Groupes dfinis par dfauts $tGroupes = " (1, 'Membres', 0x5), (0x20000000, 'Admin', 0xF303030), (0x40000000, 'Webmaster', 0x70000000) "; ?> si2ra0.69/install/etap3.php0000644000175000017500000000406010642235240015420 0ustar bernardbernard
      '; foreach ($styles as $value) { $lliste .= '
    • ' . $value . '
      • '; } $lliste .= '

    '; printf ('

    ' . LG_INSTAL3_ACTION . '.

    ', $lliste, 'defaut'); } else { // Pas de feuille de style printf ('

    ' . LG_INSTAL3_NOSTYLE . '.

    ', 'defaut'); } } // Compte les styles elseif (count ($styles) > 1) { // Informe qu'il y a plusieurs styles et que l'actuel est choisi par dfaut printf ('

    ' . LG_INSTAL3_STYLES . '.

    ', 'defaut'); } else { // Un seul style printf ('

    ' . LG_INSTAL3_DEFAUT . '.

    ', 'defaut'); } if (!$lErreur) { printf ('

    ' . LG_INSTAL_NEXT . '

    ', '' . LG_CONTINUE . ''); $_SESSION['etap'][3] = 1; } echo '
    '; if ($lErreur) { echo ' '; } else { echo ' '; } echo '
    '; ?> si2ra0.69/install/index.php0000644000175000017500000000005010566026733015520 0ustar bernardbernardsi2ra0.69/img/descend.gif0000644000175000017500000000064610574061120015101 0ustar bernardbernardPNG  IHDR V2/sBIT|dtEXtSoftwarewww.inkscape.org<8IDAT8JAl.VI:A7XAg6bcAW,- s,vo S{ ^B#wM=,3o sͼ&εgҩtW@\^tWƻ  ^53h}7?ׂzӉ~ؔi$$a;`51FD%zޓ35aap1qpX*lEFcBVcFu ~.< hq7 ^v|&/+, uJgRVmXn"IENDB`si2ra0.69/img/ascend.gif0000644000175000017500000000064710574056405014744 0ustar bernardbernardPNG  IHDR V2/sBIT|dtEXtSoftwarewww.inkscape.org<9IDAT8JCAFd,2+(B@5"VxVs >E@Ѐ,Iaeas?b9|Y̌єhHIlgfq(U43$ w:t /*ŧ3AOOpBŝM}Qq9TH/Q\}5E13]joټ# ))p{@(Oln@i]~V+VjZhxCF&gFf$k3`Rj ^ %9IENDB`si2ra0.69/img/dos_ferme.gif0000644000175000017500000000025110436304174015435 0ustar bernardbernardGIF89a Ʋ߽! dossier ferme! ,EW8?Z6G h:Lbwv$W?^ˆơ-9C2K'm)3*=xD;si2ra0.69/img/dos_ouvert.gif0000644000175000017500000000112710436304150015660 0ustar bernardbernardGIF89aBĜŝʡ˦ЦΫӫҬӬجݰޱ߽߳!dossier ouvert! ,!?=AA9:>>@@AA<1.,A7*%#;3'80&!6-"5+ 4)2$q`@P(@(\Pa  8ŋ-*H (;si2ra0.69/img/firefox.gif0000644000175000017500000000312010467672374015150 0ustar bernardbernardGIF89a !*/:DKR  !ZCDbJ Q Le n+JPK]:l RtZel S Y/t Z{:J!eP!l"t"{ !b "c)m*t#!H *c )i!!Y ({!k q1u )0|)k+)@)(K0 1))\:s 20q:y:20I:B9zBB:{CJB,;lJKKK::iSSJ8Cj R Q#IYZ:CZR!RMJYZccZ[c,Yl-ZOSkjrkQQs*bt,c#kW[t$l&k|9cZ[z|(ls{5jebr@k/s0t(|*{,|!#dl:z%Xt4-9@ksvs/3%'?,z{B~zx|9;24I&(@և,DυE;RЋ3"׋A5*,U̒G;ؓ@RAZ3]9PV՜GZJLfݤ`ޤPc䨤Un[M򫭪eprnou﻽w! ,  H.⤪T+OJh*_ɶ붍֧9&\Cǒ+a̼C7Qi#R32dfmijqRPIiU.dЙ3'Fyr4!1b !ʴm4sQui=zRP#*@%L۷qS)sE*5c0I&%Y5mΙ&,%bLIfL鑬cŚ5HV:&У=v CѨP~;MZ5a"E G:Mc 3p(`H \ǐ)Jxanj4f'YL12'Q f`DW\y"K14+g|@LD;EOa' !]ACUd1; 9PDIt((|$1`@CP)HC9z1$ # )\Ѐ5 f)̐\B()`1,|PB !hfp[¦Pт6*a`DbpZ &!4pAF81E.!Z@p38,l@B @ %H1 kEArP*80(" qЀ-el \+ -@P PfL @)y~繜T8}v7P (١#[/7?ߢ'JO]aܛNõ._C6]hOOh)q}B.M ׮Q@ׅpt 8NozKdvB l:O 3ʬ| @c iv?Á~R-6iUcmsX bSP]ǝ& (\X+4֩_Ǿʏh'lkߕS4!o+lLmgJY ]9w 瓏9Uwz$IT*DAd2qpbpgnc2 ;;}|gj51͆` 887V﵃!$l^30abbbp,c0Dէ :;wkHKKl6s9k֬an"$I466@Zjnx`XEM7^wej<)@DDÇj5"XPb!77kג3@joo_3D𨱬ڸR.\N#..C(AVmDH^$z@;k4@vm:IENDB`si2ra0.69/editeur/img/bout_mail.gif0000644000175000017500000000217110574543740017120 0ustar bernardbernardGIF89a &&&+++...11113344459:???HMSWZ]^``^]ZWSM>为F8b3͌񢍊%FSvHW 4 ј!K*P KFb%t9&M5jlc"2j4P&͛8IKCm?CLMQZ\dns}~!violet, ,-./0258:=@DHKOQQOKHD@=:8520/.-GKQTUUTQKG268;DQUWXXWU;869ALRVX[]][XVRLA=;9˝6>HMSWZ]^``^]ZWSM>为F8b͋2ˈ񢍊$FSvHW L4 є! *O KF"$t9&M5klce"2j4P&͛8IKCmBFJNPPNJFB><6420.,+*EJPTUUTPJE0349BPUWXXWU9435?KQVXZ[[ZXVQK?<95˝3=FLRWY[\__\[YWRL=为C4b 2ɀᢍJ#C~SvHE 3 ͐e *N KFꢐ#l9h̙4ilc!2j4P&͛8ٳIKCmCGINOONIGC>;96421/,+FIORSSROIF256:COSUWWUS:657?JPTWYZZYWTPJ?;:7˝5f4{6j^9}R`$ "C  Bd zB{Hd tH %G" X# d{iHѱuFҟGýA;si2ra0.69/editeur/img/bout_italic.gif0000644000175000017500000000046410430433164017433 0ustar bernardbernardGIF89a "    ,771<=4AA;JJAPQM``Xmn[rrhkotvw{žŧЪո, Y@pH,Ȥrl:ШtJ"58)l0H,l(la;P!q qlq qqHA;si2ra0.69/editeur/img/bout_gras.gif0000644000175000017500000000113710430432606017120 0ustar bernardbernardGIF89a L  ""##$$%%#++$,,$--%..&//)33.991=>5BB7EE9GH:HH;IICTTNaaQdeQeeSggVklXmn\ssnosz|ƠǠȣ˨ҪԬ׮ٰܱݲ߳!Gras, L1! ,GC7F@$2GD5"+>?(:)*K/9= Մ&E 3F)6&.%Ӑ;$dBF@LD:SL @@ Z$Ʋ˗0c<;si2ra0.69/editeur/img/bout_cadre.gif0000644000175000017500000000021510431620706017237 0ustar bernardbernardGIF89a !encadre, [ڋN""GoM) zv5/ulF4MQ!XNA"y*k3yx);si2ra0.69/editeur/img/bout_bleu.gif0000644000175000017500000000205010430434244017106 0ustar bernardbernardGIF89a mEEHHIILLNNOOQQRRTTUUXX^_``cdhhjjkknnuuvvyy!bleu, ,-./2468;=@EHKPQQPKHE@=;8642/.-GKQTUUTQKG478HMSWZ]^``^]ZWSM>为F8b3͌񢍊%FSvHW 4 ј!K*P KFb%t9&M5jlc"2j4P&͛8IKCmxz~{r~f}tBA;si2ra0.69/editeur/img/bout_faq.png0000644000175000017500000000254110614742342016757 0ustar bernardbernardPNG  IHDR szzsBIT|d pHYs B(xtEXtSoftwarewww.inkscape.org<IDATXoLu_;CJ,;8DdpSZ?hKjjE@j2Q45qR['n8~ yHw\9'zp;I>|w'nl!* $5ֲp1 cP}͆f*GaS0THDcm-$!”NR33IȠ֖)mc*Pj%Д _V"gxx,fyii ~xyii,.*"` q[^kss8uV̪^ qZ;:N<@y>]+=AFj(~#w%'[y{+;[HLM!%C ?w3'1ޮ.68HHNFn)@Ʉ7>Ͳg1=:|>85a*?:&"$ύYy(q񏲼8(?15ÊT<# ސ$KUU,Z*hMs}T| dz::ц\#Iwb۳Ų^} ҥ4!(hlJ%Wq :..$zLڝN9KCu,iٺb w<Z"H5ZV vWoQjuH(A}[|+KJHJǁn`Etyy]!<.$1-"BT*I73ۀ af‘KgX\g̐K@#\Ѣie0`Ѣ e0 ? &nܔ&\?ԔooU.IENDB`si2ra0.69/editeur/img/0000755000175000017500000000000010713136166014450 5ustar bernardbernardsi2ra0.69/editeur/editeur.php0000644000175000017500000003643310707732546016066 0ustar bernardbernardErreur d\'utilisation de la fonction ShowEditeur.

    L\'id du controle textarea n\'a pas t dfinie.

    '); } // On construit le div contenant les boutons pour javascript echo '

    Javascript est actuellement dsactiv, ou vous utilisez une version trop ancienne de votre navigateur. Vous devez activer Javascript et recharger la page pour bnficier de l\'diteur en ligne.

    '; } /* Recherche un retour la ligne la position fournie, Retourne la longueur du retour ventuel */ function LenNl ($Code, $Position) { // On ajoute l'ventuel retour la ligne $Result = 0; if ($Code{$Position} == "\r") { $Result ++; if ($Code{$Position + $Result} == "\n") $Result ++; } elseif ($Code{$Position + $Result} == "\n") $Result ++; return $Result; } /* Met jour la table des adresses e-mail, ainsi que les liens dans le texte Les courriels sont formats ainsi : Nom du destinataire On doit les modifier en Nom du destinataire */ function hideMail ($Code) { // Rcupre la liste des destinataire et adresses // supprime les adresses de la page dans la base de donnes // insre les adresses dans la base de donnes et rcupre les indices. // Modifie les balises dans le texte. => problme : il remplacer les bonnes balises // Solutions : traiter au coup par coup chaque balise dans la fonction Code2Html } /* traduit le code en xHTML $Code = le "BBcode" parser $Racine = le chemin vers la racine pour le texte final (pas forcment la racine du script appelant !)*/ function Code2Html ($Code, $Racine) { /* Le principe : On vite de parser le texte en entier pour chaque remplacement On recherche les balises (commence par < et termine >) - Si le texte intrieur la balise est connu : - si balise unique : on remplace par la balise html correspondante - on recherche une balise fermante (sauf si balise unique) - si on trouve la balise fermante, on remplace la balise ouvrante et fermante par les balise html correspondantes. - si la balise est inconnue OU en l'absence de balise fermante, on laisse le texte tel quel. */ /* Les balises unaire sont du type */ $fBaliseUnaire = array ( 'hr' => '
    ' ); /* Les balises simples sont du type Texte on remplace simplement les balises si les deux (ouvrante et fermante) sont incluses. Pour ces balises, il n'est pas ncessaire de vrifier le contexte */ $fBaliseSimple = array ( 'em' => array ( 'O' =>'', 'F' => ''), 'strong' => array ( 'O' =>'', 'F' => ''), 'gras' => array ( 'O' =>'', 'F' => ''), 'italic' => array ( 'O' =>'', 'F' => ''), 'bleu' => array ( 'O' =>'', 'F' => ''), 'vert' => array ( 'O' =>'', 'F' => ''), 'violet' => array ( 'O' =>'', 'F' => ''), 'rouge' => array ( 'O' =>'', 'F' => '') ); /* Pour ces balises on supprime l'espace eventuel aprs la balise fermante */ $fBaliseDiv = array ( 'p' => array ( 'O' =>'

    ', 'F' => '

    '), 'titre1' => array ( 'O' =>'

    ', 'F' => '

    '), 'titre2' => array ( 'O' =>'

    ', 'F' => '

    '), 'titre3' => array ( 'O' =>'

    ', 'F' => '

    '), 'gauche' => array ( 'O' =>'
    ', 'F' => '
    '), 'centre' => array ( 'O' =>'
    ', 'F' => '
    '), 'droite' => array ( 'O' =>'
    ', 'F' => '
    '), 'blocGauche' => array ( 'O' =>'
    ', 'F' => '
    '), 'blocDroit' => array ( 'O' =>'
    ', 'F' => '
    '), 'fond' => array ( 'O' =>'
    ', 'F' => '
    ') ); $BaliseIni = 0; // Variable pour recevoir les liens sur les ancres (FAQ) ventuels $LienAncres = ''; $NumAncre = 0; // On recherche l'ouverture de la premire balise while (($BaliseIni = strpos($Code, '<', $BaliseIni)) !== false) { // On va au caractre suivant $BaliseIni += 4; // On recherche la fin de la balise; if ($BaliseFin = strpos($Code, '>', $BaliseIni)) { // On rcupre le contenu de la balise $Balise = substr($Code, $BaliseIni, $BaliseFin - $BaliseIni); // S'agit-il d'une balise code : pas d'interprtation interne : pas efficace en cas d'imbrication... if ($Balise == 'code') { // On recherche la balise fermante if ($Fermer = strpos($Code, '</code>', $BaliseFin + 4)) { // On remplace la balise fermante $Code = substr_replace ($Code, '', $Fermer, strlen($Balise) + 9); // Les 9 caractres correspondent </ et > // Et la balise ouvrante $Code = substr_replace ($Code, '
    ', $BaliseIni - 4,
						strlen($Balise) + 8);
					// On ajuste le dbut de la recherche suivante  la sortie de la balise code
					$BaliseIni = $Fermer;	
					// - 6 pour la balise ouvrante + 7 pour aller  la fin de la baliser fermante - 1 pour ne pas dborder !
				}

			}
			// S'agit-il d'une balise simple ?
			elseif (!empty($fBaliseSimple[$Balise]['F'])) {
				// On recherche la balise fermante
				if ($Fermer = strpos($Code, '</'. $Balise . '>', $BaliseFin + 4)) {
					// On remplace la balise fermante 
					$Code = substr_replace ($Code, $fBaliseSimple[$Balise]['F'], $Fermer,
						strlen($Balise) + 9);
					// Les 9 caractres correspondent  </ et >
					// Et la balise ouvrante
					$Code = substr_replace ($Code, $fBaliseSimple[$Balise]['O'], $BaliseIni - 4,
						strlen($Balise) + 8);
					// On ajuste le dbut de la recherche suivante
					$BaliseIni += strlen($fBaliseSimple[$Balise]['O']) - 4;	
				}
			}
			elseif (!empty($fBaliseDiv[$Balise]['F'])) {
				// On recherche la balise fermante
				if ($Fermer = strpos($Code, '</'. $Balise . '>', $BaliseFin + 4)) {
					// Longueur  remplacer pour la balise fermante
					$fReplaceLen = strlen($Balise) + 9;
					// On ajoute le retour  la ligne ventuel
					$fReplaceLen += LenNl($Code, $Fermer + $fReplaceLen);
					// On remplace la balise fermante 
					$Code = substr_replace ($Code, $fBaliseDiv[$Balise]['F'], $Fermer,
						$fReplaceLen);
					// Et la balise ouvrante
					$Code = substr_replace ($Code, $fBaliseDiv[$Balise]['O'], $BaliseIni - 4,
						strlen($Balise) + 8);
					// On ajuste le dbut de la recherche suivante
					$BaliseIni += strlen($fBaliseDiv[$Balise]['O']) - 4;	
				}
			}
			elseif ($Balise == 'liste') {
				// On gre les listes et les puces
				if ($Fermer = strpos($Code, '</'. $Balise . '>', $BaliseFin + 4)) {
					// Premire position ou chercher une puce 
					$ListeIni = $BaliseIni + 9 + LenNl($Code, $BaliseIni + 9);
					// On rcupre tout le code entre les balises  et 
					$Liste = substr ($Code, $ListeIni, $Fermer - $ListeIni);
					// Longueur de ce qui sera  remplacer dans $Code
					$ListeLen = strlen($Liste) + 
						$ListeIni - $BaliseIni + 4 	// Longueur balise initiale /n compris
						+ 14 + LenNl($Code, $Fermer + 14); // longueur balise finale
					// On remplace les puces
					$BalIni = 0;
					$Puces = 0;
					while ((($BalIni = strpos($Liste, '<puce>', $BalIni)) !== false) &&
						(($BalFin = strpos($Liste, '</puce>', $BalIni + 12))!== false)) {
						$Puces ++;
						// Diffrence de longueur suite au remplacement
 						$fDifLen = LenNl($Liste, $BalFin + 13) - 5;
						// On remplace la puce fermante
						$Liste = substr_replace ($Liste, '', $BalFin, 
							13 + LenNl($Liste, $BalFin + 13));
						// et la puce ouvrante
						$fDifLen += LenNl($Liste, $BalFin + 12) - 4;
						$Liste = substr_replace ($Liste, '
  • ', $BalIni, 
							12 + LenNl($Liste, $BalIni + 12));
						// On recherche la puce suivante 
						$BalIni = $BalFin + $fDifLen;
					}
					if ($Puces) {
						// On remplace l'ensemble de la liste
						$Code = substr_replace ($Code, '
      ' . $Liste . '
    ', 
											$BaliseIni - 4, $ListeLen);
						// On ajuste le dbut de la recherche suivante : +4 - 4 !
					}

				}		
			}		
			elseif ($Balise == 'table') {
				// On gre la table
				if ($Fermer = strpos($Code, '</'. $Balise . '>', $BaliseFin + 4)) {
					// Premire position ou chercher les titres et lignes 
					$TableIni = $BaliseIni + 9 + LenNl($Code, $BaliseIni + 9);
					// On rcupre tout le code entre les balises  et 
    
					$Table = substr ($Code, $TableIni, $Fermer - $TableIni);
					// Longueur de ce qui sera  remplacer dans $Code
					$TableLen = strlen($Table) + 
						$TableIni - $BaliseIni + 4 	// Longueur balise initiale /n compris
						+ 14 + LenNl($Code, $Fermer + 14); // longueur balise finale
					// On remplace le titre
					if ((($BalIni = strpos($Table, '<titre>')) !== false) &&
					(($BalFin = strpos($Table, '</titre>', $BalIni + 13)) !== false)) {
						$Table = substr_replace ($Table, '', $BalFin, 
								14 + LenNl($Table, $BalFin + 14));
						$Table = substr_replace ($Table, '', $BalIni, 13);
					}
					// On remplace les separateurs
					$Table = str_replace('<separ/>', '', $Table);
					// On remplace les lignes
					while (($BalIni = strpos($Table, '<ligne>', $BalIni)) !== false) {
						// On recherche la balise fermante
						if ($BalFin = strpos($Table, '</ligne>', $BalIni + 13)) {
							// On remplace la ligne fermante
							$Table = substr_replace ($Table, '', $BalFin, 
								14 + LenNl($Table, $BalFin + 14));
							// et la ligne ouvrante
							$Table = substr_replace ($Table, '', $BalIni, 
								13 + LenNl($Table, $BalIni + 13));
						}
						// On recherche la ligne suivante 
						$BalIni = $BalFin + 17 - 27;
					}
					// On remplace l'ensemble de la liste
					$Code = substr_replace ($Code, 
						'' . $Table . '
    ', 
							$BaliseIni - 4, $TableLen);
					// On ajuste le dbut de la recherche suivante : 
					$BaliseIni += 18 - 4;	
				}				
			}
			elseif ((substr($Balise, 0, 4) == 'lien') &&
				($Fermer = strpos($Code, '</lien>', $BaliseFin + 4))
				&& (($Balise{4} == '=') || (substr($Balise, 4, 11) == ' url="')) ) {
				// Il s'agit d'un lien cliquable
				$Code = substr_replace ($Code, '', $Fermer, 13);
				if ($Balise{4} == '=') {
					// Forme simplifie de la balise grant les lien internes et externes
					$Code = substr_replace ($Code, '">', $BaliseFin,4);	
					$temp = '', $BaliseFin - 6, 10);				
					$Code = substr_replace ($Code, '', $BaliseFin - 6, 10);				
				$Code = substr_replace ($Code, '',
				$BaliseIni -4 , $Fermer - $BaliseIni + 18);
			}
			elseif ((substr($Balise, 0, 8) == 'fichier=') &&
				($Fermer = strpos($Code, '</fichier>', $BaliseFin + 4))) {
				// Nom du fichier 
				$fFich = $Racine . 'telecharger.php?ID=' .
					substr($Code, $BaliseIni + 8, $BaliseFin - $BaliseIni - 8);
				// titre de l'image
				$fNomFich = substr($Code, $BaliseFin + 4, $Fermer - $BaliseFin - 4);
				$Code = substr_replace ($Code, 
				'  ' . $fNomFich . '',
				$BaliseIni -4 , $Fermer - $BaliseIni + 20);
			}
			elseif ((substr($Balise, 0, 7) == 'script=') &&
					($Fermer = strpos($Balise, '/'))) {
				// Nom du script
				$lNomScript = trim(substr ($Balise, 7, $Fermer - 7));
				// Inclus le script
				$Code = substr_replace ($Code, 
				'\';include($S2R_racine . "script/' .  $lNomScript . '.php");echo \'', $BaliseIni -4 , $BaliseFin - $BaliseIni + 8);
			}
			// Gestion des ancres pour les FAQ ou sous-parties
			elseif ($Balise == 'ancre') {
				// On recherche la balise fermante
				if ($Fermer = strpos($Code, '</'. $Balise . '>', $BaliseFin + 4)) {
					$Ancre = '';
					$NumAncre ++;	
					// On ajoute un lien en dbut de page vers l'ancre
					$LienAncres .= '
  • ' . 
						Code2Html (substr($Code, $BaliseFin + 4, $Fermer - $BaliseFin - 4), $Racine) . 
						'
    • ';
					// Longueur  remplacer pour la balise fermante
					$fReplaceLen = strlen($Balise) + 9;
					// On ajoute le retour  la ligne ventuel
					$fReplaceLen += LenNl($Code, $Fermer + $fReplaceLen);
					// On remplace la balise fermante 
					$Code = substr_replace ($Code, '', $Fermer, $fReplaceLen);
					// Les 9 caractres correspondent  </ et >
					$Ancre .= '
    ' . LG_UP . 
					'
    ';
					// Et la balise ouvrante
					$Code = substr_replace ($Code, $Ancre, $BaliseIni - 4,
						strlen($Balise) + 8);
					// On ajuste le dbut de la recherche suivante
					$BaliseIni += strlen($Ancre) - 4;	
				}
			}
			else {
				// balise unaire ?
				$fReplaceLen = strlen($Balise) + 8;
				// on autorise une criture dgrade sans ' /' pour fermer la balise
				$Balise = rtrim($Balise, ' /');
				if (isset ($fBaliseUnaire[$Balise]) ) {
					$Code = substr_replace ($Code, $fBaliseUnaire[$Balise], $BaliseIni - 4, $fReplaceLen);
					// On ajuste le dbut de la recherche suivante
					$BaliseIni += $fReplaceLen - strlen($fBaliseUnaire[$Balise]);
				}
//				else $BaliseIni += 1;
			}
		}				
	}
	// On ajoute les liens du dbut si il y a eu des ancres
	if ($LienAncres != '') {
		$Code = '
      ' . $LienAncres . '
    ' . $Code;
	}
	return nl2br($Code);
}	

?>
si2ra0.69/editeur/editeur.js0000644000175000017500000004076610707731505015711 0ustar  bernardbernard/* Un petit diteur de BBcode en javascript */

// Variables globales
var idTextArea;		// id du textarea contenant le code  crire

/* 	script balise adapt du travail de karamilo sur le Site du Zer0  (http://www.siteduzero.com)
	modifi par B Pabion suivant les instructions du tuto http://www.siteduzero.com/tuto-3-1982-1-creation-d-un-bbcode-et-apercu-en-direct.html   */

function balise(balise_debut, balise_fin)
{
	var champ = document.getElementById(idTextArea);
	var scroll = champ.scrollTop;
	champ.focus();

	if (champ.curseur)
		{
			champ.curseur.text = balise_debut + champ.curseur.text + balise_fin;
		}
	else if (document.selection) {
		// Ajout pour IE suivant http://www.siteduzero.com/tuto-3-1982-1-creation-d-un-bbcode-et-apercu-en-direct.html
		var range = document.selection.createRange();
		var insText = range.text;
		range.text = balise_debut + insText + balise_fin;
		range = document.selection.createRange();
		if (insText.length == 0)
		{
			range.move('character', -balise_fin.length);
		}
		else
		{
			range.moveStart('character', balise_debut.length + insText.length + balise_fin.length);
		}
		range.select();

	}
	else if (champ.selectionStart >= 0 && champ.selectionEnd >= 0)
		{
			var debut = champ.value.substring(0, champ.selectionStart);
			var entre = champ.value.substring(champ.selectionStart, champ.selectionEnd);
			var fin = champ.value.substring(champ.selectionEnd);
			champ.value = debut + balise_debut + entre + balise_fin + fin;
			champ.focus();
			champ.setSelectionRange(debut.length + balise_debut.length, champ.value.length - fin.length - balise_fin.length);
		}
	else
		{
		champ.value  += balise_debut + balise_fin;
		champ.focus();
		}
	champ.scrollTop = scroll;
}
	
/* Fonctions crites par B Pabion (ne sont pas forcment optimises...) */

// Demander un lien
function lien() {
	var MonUrl = prompt('Adresse du lien \r\n( partir de la racine si lien interne)','http://');
	// On affiche les balises
	if (MonUrl) {
		balise('', ''); 
	}
}

// Vrifier qu'une adresse e-mail soit correcte
function isMail(adresse) {
	 var mailReg = /^[A-Z0-9._-]+@[A-Z0-9][A-Z0-9.-]+[A-Z0-9]\.[A-Z.]+$/gi;
	 var resultat = mailReg.test(adresse);
	 return resultat;
}

// Masquer une adresse e-mail
function mail2code() {
	var courriel = prompt('Adresse e-mail  masquer', '');
	while (courriel && !isMail(courriel)) {
		courriel = prompt("'" + courriel + "' n'est pas une adresse correcte !\nAdresse e-mail  masquer :", courriel);
	}
	if (courriel) {
		var nom = prompt('Nom du titulaire de l\'e-mail (obligatoire)', '');		
		if (! nom) nom = "courriel";
		balise('' + nom + '', '');
	}
}
	

/* Afficher une image */
function image(src, nom) {
	if (src) {
		balise('' + nom + '', ''); 
	}
}

/* Choisir un option d'une boite de type combo */
function combo (id_combo) {
	var combo = document.getElementById(id_combo);
	var valeur = combo.value;
	if (valeur) {
		valeur += '>';
		balise('<' + valeur,'\n';
	var Num = 1;
	var Item = '';
	// on demande les items de la liste
	do  {
		Item = prompt('Texte de l\'item ' + Num + 
			'\nPour terminer la liste, laisser l\'item en blanc','');
		if (Item) {
			Liste += '' + Item + '\n';
			Num ++;
		}
	} while (Item);
	Liste += '\n';
	// On affiche la liste aprs la slection ventuelle
	if (Num > 1) {
		balise('', Liste);
	}
}

var tableCadre;
var tableau;
var numCol= 1;
var numLin = 0;


// Ajouter une ligne  un tableau
function addLine() {
	if (! numCol) numCol = 1;
	// Cre la nouvelle ligne
	var maLigne = tableau.insertRow(numLin);
	// ajoute les cases
	for (var i = 0; i < numCol ; i++) {
		var contenu = document.createElement("textarea");
		contenu.setAttribute("class", 'largMax');
		var uneCase = document.createElement("td");
		uneCase.appendChild(contenu);
		maLigne.appendChild(uneCase);
	}
	numLin ++;
}

// Ajouter une colonne  un tableau
function addCol() {
	// Rcupre l'ensemble des ligne du tableau
	var nodeList = document.getElementsByTagName("tr");
	var nodeCount = nodeList.length;
	for (var i = 0; i < nodeCount ; i ++) {
		// Il est cr un tbody qui fait un niveau intermdiaire entre tableau et tr !!!
		if ((nodeList[i].parentNode.parentNode == tableau) || 
			(nodeList[i].parentNode == tableau)) {
			// Ajoute une nouvelle case  chacune des lignes
			var contenu = document.createElement("textarea");
			contenu.setAttribute("class", 'largMax');
			var uneCase = document.createElement("td");
			uneCase.appendChild(contenu);
			nodeList[i].appendChild(uneCase);  
		} 
	}
	numCol ++;
	
	// Windows Explorer ne semble pas accepter width pour les textarea, ce qui entraine des dbordements assez rapidement
	if (document.all) location.href='#' + tableCadre.id;
}

// Traduire en BBcode le tableau
function table2code() {
	if (numLin) {
		// On construit les balises du tableau
		var Table_deb = '';
		var Table_fin = '';
		var trList = document.getElementsByTagName("tr");
		var nodeCount = trList.length;
		for (var i = 0 ; i < nodeCount ; i ++) {
			// Vrifie que la ligne appartienne au tableau !
			if ((trList[i].parentNode.parentNode == tableau) || 
				(trList[i].parentNode == tableau)) {
				// dbute la nouvelle ligne
				Table_fin += '\n';
				// rcupre la liste des enfants de la ligne
				var caseList = trList[i].childNodes;
				for ( var j = 0 ; j < numCol ; j ++) {
					// Sparateur si l'on n'est pas  la premire cellule
					if (j) Table_fin += '';
					// Ajoute le contenu de la cellule
					Table_fin += caseList[j].firstChild.value;
				}
				// ferme la ligne
				Table_fin +='';
			}
		}
		Table_fin += '\n
    \n';
		// On crit les balises (le texte slectionn est le titre du tableau)
		balise(Table_deb, Table_fin);
		// et on efface le constructeur de tableaux
		TableEfface();
	}
	else {
		alert("Le tableau est vide...");
	}
}

// afficher l'aire de cration de Tableau
function TableauEditor(id_editor) {
	tableCadre = document.createElement("div");
	tableCadre.setAttribute("id", "tableEditor");
	tableau = document.createElement("table");
	tableau.setAttribute("class", 'largMax');
	var texte = document.createTextNode("Constructeur de tableau");
		
	// Initialement tableau d'une case
	addLine();
	
	// Boutons de commandes
	var boutonCadre = document.createElement("p");
	boutonCadre.setAttribute("class", "centre");
	// Bouton Ajouter une ligne
	var btAddLine = document.createElement("input");
	btAddLine.setAttribute("type","button");
	btAddLine.value = "Ajouter une ligne";
	// Bouton Ajouter une colonne
	var btAddCol = btAddLine.cloneNode(0);
	btAddCol.value = "Ajouter une colonne";
	// Bouton valider le tableau
	var btnOK = btAddLine.cloneNode(0);
	btnOK.value = "Insrer le tableau";
	// bouton annuler la cration d'un tableau
	var btnCancel = btAddLine.cloneNode(0);
	btnCancel.value = "Annuler";
	
	// Ajout des vbnements
	if (document.all) {
		btAddLine.attachEvent("onclick",addLine);
		btAddCol.attachEvent("onclick",addCol);
		btnOK.attachEvent("onclick",table2code);
		btnCancel.attachEvent("onclick",TableEfface);
	}
	else {
		btAddLine.addEventListener("click",addLine,false);
		btAddCol.addEventListener("click",addCol,false);
		btnOK.addEventListener("click",table2code,false);
		btnCancel.addEventListener("click",TableEfface,false);
	}
	
	// Ajoute les boutons
	boutonCadre.appendChild(btAddLine);
	boutonCadre.appendChild(btAddCol);
	boutonCadre.appendChild(btnOK);
	boutonCadre.appendChild(btnCancel);
	// Ajout du cadre des boutons
	tableau.appendChild(boutonCadre);
	
	tableCadre.appendChild(texte);
	tableCadre.appendChild(tableau);
	tableCadre.appendChild(boutonCadre);
	id_editor.parentNode.appendChild(tableCadre);
}

function TableEfface () {
	// Supprime le cadre d'aide  l'criture des tableau
	tableCadre.parentNode.removeChild(tableCadre);
	numLin = 0;
	numCol = 1;
}


/* affiche le texte de id_textarea transform en xhtml dans le div id_previs */
function ParseEditeur() {

//	var textarea = document.getElementById(idTextArea);	
	var div_prev = document.getElementById('S2R_previs');
	var texte = document.getElementById(idTextArea).value;
	// On scurise les balises
	texte = texte.replace(/&/g, '&');
	texte = texte.replace(//g,'>');
	// On autorise certaines balises (paragraphe, strong, em, hr, code, pre)
	texte = texte.replace(/<p>([\s\S]*?)<\/p>(\r?\n?)/g, '
    $1
    ');
	texte = texte.replace(/<em>([\s\S]*?)<\/em>/g, '$1');
	texte = texte.replace(/<strong>([\s\S]*?)<\/strong>/g, '$1');
	texte = texte.replace(/<hr ?\/?>/g, '
    ');
	texte = texte.replace(/<code>([\s\S]*?)<\/code>/g, '
    $1
    ');

	// On transforme les balises
	texte = texte.replace(/<titre1>([\s\S]*?)<\/titre1>(\r?\n?)/g, '
    $1
    ');
	texte = texte.replace(/<titre2>([\s\S]*?)<\/titre2>(\r?\n?)/g, '
    $1
    ');
	texte = texte.replace(/<titre3>([\s\S]*?)<\/titre3>(\r?\n?)/g, '
    $1
    ');

	texte = texte.replace(/<gauche>([\s\S]*?)<\/gauche>(\r?\n?)/g, '
    $1
    ');
	texte = texte.replace(/<centre>([\s\S]*?)<\/centre>(\r?\n?)/g, '
    $1
    ');
	texte = texte.replace(/<droite>([\s\S]*?)<\/droite>(\r?\n?)/g, '
    $1
    ');
	texte = texte.replace(/<blocGauche>([\s\S]*?)<\/blocGauche>(\r?\n?)/g, '
    $1
    ');
	texte = texte.replace(/<blocDroit>([\s\S]*?)<\/blocDroit>(\r?\n?)/g, '
    $1
    ');
	texte = texte.replace(/<fond>([\s\S]*?)<\/fond>/g, '
    $1
    ');
	texte = texte.replace(/<table>([\s\S]*?)<\/table>(\r?\n?)/g, '$1
    ');
	texte = texte.replace(/<titre>([\s\S]*?)<\/titre>(\r?\n?)/g, '$1');
	texte = texte.replace(/<ligne>([\s\S]*?)<\/ligne>(\r?\n?)/g, '$1');
	texte = texte.replace(/<separ\/>/g, '');

	// Pour permettre les listes imbriques, on ne controle pas les paires pour les listes
	texte = texte.replace(/<liste>\r?\n?/g, '
      ');
	texte = texte.replace(/<\/liste>\r?\n?/g, '
    ');
	texte = texte.replace(/<puce>/g, '
  • ');
	texte = texte.replace(/<\/puce>(\r?\n?)/g, '
    • ');
//	texte = texte.replace(/<liste>(\r?\n?)([\s\S]*?)<\/liste>(\r?\n?)/g, '
      $2
    ');
//	texte = texte.replace(/<puce>([\s\S]*?)<\/puce>(\r?\n?)/g, '
  • $1
    • ');
	texte = texte.replace(/<gras>([\s\S]*?)<\/gras>/g, '$1');
	texte = texte.replace(/<italic>([\s\S]*?)<\/italic>/g, '$1');
	texte = texte.replace(/<bleu>([\s\S]*?)<\/bleu>/g, '$1');
	texte = texte.replace(/<rouge>([\s\S]*?)<\/rouge>/g, '$1');
	texte = texte.replace(/<vert>([\s\S]*?)<\/vert>/g, '$1');
	texte = texte.replace(/<violet>([\s\S]*?)<\/violet>/g, '$1');
	// liens externes
	texte = texte.replace(/<lien=([htpfs]{3,5}:\/\/[\s\S]*?)>([\s\S]*?)<\/lien>/g, '$2');
	// autres liens = internes : ajoute le chemin vers la racine
	texte = texte.replace(/<lien=([\s\S]*?)>([\s\S]*?)<\/lien>/g, '$2');

	texte = texte.replace(/<image src=([\s\S]*?)>([\s\S]*?)<\/image>/g, 
		'$2');
	texte = texte.replace(/<fichier=([\s\S]*?)>([\s\S]*?)<\/fichier>/g, 
		' $2');
	texte = texte.replace(/<mail=[\S]*?>([\s\S]*?)<\/mail>/g, '$1');

	// Les FAQs
	liens = texte.match(/<ancre>([\s\S]*?)<\/ancre>/g);
	texte = texte.replace(/<ancre>([\s\S]*?)<\/ancre>(\r?\n?)/g, '
    $1
    ');
	if (liens) {
		liensFaq = '
      ';
		for( i=0; i < liens.length; i++) {
			liensFaq += liens[i];
		}
		liensFaq = liensFaq.replace(/<ancre>([\s\S]*?)<\/ancre>/g, '
    1. $1
      2. ');
		texte = liensFaq + '
    ' + texte;
	}	

	// retour  la ligne
	texte = texte.replace(/\n/g,'
    ');
	// On affiche le texte transform
	div_prev.innerHTML = texte;
	
	// On se dplace vers la zone de prvisualisation
	location.href='#' + div_prev.id;
}

/* Affichage des boutons de l'editeur javascript */
function ShowEditeur (textArea, racineS2R) 
{
  // supprime le texte pour ceux qui dsactive javascript
  var toDelete = document.getElementById('noJavaScript');
  toDelete.parentNode.removeChild(toDelete);
  
  // Enregistre l'id du textArea pour toutes les fonctions
  idTextArea = textArea;
  with (document) {
	writeln ('
    ');
	writeln ('');
	writeln ('
    

    Lisez bien toute la page avant de cliquer ! 
Vous pourrez revenir  cet article grce au menu Aide qui apparait 
lorsque vous tes connect(e) et cliquez dans le menu Administration.
    

    Avant de vous mettre  crire vos pages, il vous faut:
    

      

    • Complter les donnes personnelles du compte d'administrateur
      

      Lors de l'installation (s'il s'agit d'une installation initiale), 
on vous a demand un login (nom de connexion) et un 
mot de passe. Un compte "Administrateur" a ainsi t cr. 
Si vous voulez l'utiliser pour crire vos articles, il est ncessaire de complter quelques 
informations afin que les lecteurs puissent vous reconnatre et vous contacter.
      

      Vous pouvez aussi en profiter pour crer d'autres comptes
 d'utilisateurs, si besoin...
      

      
	
	 

      

      Cette page est galement accessible  partir du menu "Administration
"
      • 

    • Crer la rubrique racine de votre site
      

      Une rubrique dfaut a t cre dans la base de donnes pour servir de racine  tous les articles 
qui seront publis. Avant que vous puissiez y inclure des articles, il vous faut maintenant la 
valider.
      

       Vous pourez par la suite modifier son titre et lui donner un contenu (un texte de bienvenu 
ou de prsentation) grce au menu "Administration | Rubriques"
      

      ';
	// Permet de mettre  jour la rubrique
	// Mmorise le controle anti-renvoi de formulaire dans le tableau de SESSION
	$_SESSION['S2R_Actu']['A' . $_SESSION['Actu']] = 1;
	
	echo '

      
	
	
	
	
	
	
	 

      

      • 

    

    

    

    Bien sr pour ces deux oprations, comme pour toutes les oprations protges, vous devrez tre 
connect et disposer de droits suffisants. Utiliser le login et le mot de passe
 que vous avez inform lors de l'installation.
    

    ';

	// Pied de la page
	require ($S2R_racine . "compil/article_pied.php");
?>
si2ra0.69/aide/_dossier.php0000644000175000017500000000111010603704441015441 0ustar  bernardbernard array ( "F" => "fin_d039installat0.php",
 				"T" => "Fin d'installation initiale",
				"D"	=> 0x0,
				"R" => "Ce que vous devrez faire aprs avoir install le systme")
	);

	/* Racine du systme */
	$S2R_racine = "../";

	/* chemin cliquable */
	$S2R_ChemClic = 'Accueil > 
		Aide';

?>
si2ra0.69/aide/index.php0000644000175000017500000000271310603704017014752 0ustar  bernardbernardSystme de Publication sur Internet Si2Ra
    Pour accder  ces pages, vous devez tre connect comme membre.
    Nous esprons que ces quelques pages vous aideront dans la construction de votre site internet ou intranet.
    Bonne lecture !
    ';

	// Pied de la page
	require ($S2R_racine . "compil/rubrique_pied.php");
?>
si2ra0.69/admin/update.php0000644000175000017500000001272710707604570015331 0ustar  bernardbernard' . $S2R_Version . ''; 	

/* Variables facultatives *
 **************************/
	$S2R_Droits = 0;	

	$S2R_Robot = 'none'; 		// Possibilit de spcifier une mta robot

/* entte de la page *
 *********************/
	// Demande la connexion si besoin, gre les droits, envoit le header pour la page ainsi 
    // que le menu principal
	require_once ($S2R_racine . 'entete.php');
	
	require_once ($S2R_racine . 'classes/sql.php');

/* Corps principal de la page *
 ******************************/
	echo '
    ';

	// Traitement de la republication en lots.
	if (isset ($_POST['publier']) && (! empty ($_SESSION['Restaurer'])) ) {
		// Republication en lot
		require_once ($S2R_racine . 'install/republier.php');
		// Et on s'arrte !
		require ($S2R_racine . 'pied.php');
	}

	// Dbut de la mise  jour

	$lReinstal = 0;

	$lRepublic = 0;

	// Membres : ajoute les champs GDS1 et GDS2 et augmente la taille de Pass (version 0.65)
	S2R_SqlInit ('SHOW COLUMNS FROM ' . PREF_TAB . 'Membres LIKE "GDS1"');
	if  (! $S2R_Sql->Next()) {
		// Ajoute la colonne
		$S2R_Sql->NewReq('ALTER TABLE ' . PREF_TAB . 'Membres
						 MODIFY Pass CHAR(40) NOT NULL');
		$S2R_Sql->NewReq('ALTER TABLE ' . PREF_TAB . 'Membres
						 ADD `GDS1`	CHAR(34) NOT NULL DEFAULT \'\'');
		echo '
    Modification de la table Membres : Pass, GDS1
    ';
	}

	// Table pages :
	$lPages = false;
	$lRub = false;
	$lArt = false;
	S2R_SqlInit ('SHOW TABLES LIKE "' . PREF_TAB . '%"');
	// Vrifie la prsence des tables Pages, Article et Rubrique
	while ($Donnee = $S2R_Sql->Next()) {
		if ($Donnee[0] == PREF_TAB . 'Pages') $lPages = true;
		if ($Donnee[0] == PREF_TAB . 'Rubrique') $lRub = true;
		if ($Donnee[0] == PREF_TAB . 'Rubrique')	$lArt = false;
	}
	
	if ($lArt) {
		// Ajoute le champ Rang  la table Article si ncessaire (version 0.63)
		$S2R_Sql->NewReq('SHOW COLUMNS FROM ' . PREF_TAB . 'Article LIKE "Rang"');
		if  (! $S2R_Sql->Next()) {
			// Ajoute la colonne
			$S2R_Sql->NewReq('ALTER TABLE ' . PREF_TAB . 'Article
						 ADD `Rang`	TINYINT UNSIGNED NOT NULL DEFAULT 0');
			// Ajoute l'indexe sur Rang
			$S2R_Sql->NewReq('ALTER TABLE ' . PREF_TAB . 'Article
						 ADD INDEX `Ordre` (`ID_Dossier`, `Rang`)');
			echo '
    La colonne Rang a t ajoute  la table Article
    ';
		}
	}

/*	// Si l'on a une table pages et des tables Rubriques et articles :
	Compte les articles et rubriques
	compte dans la table Page
	transfert le contenu des anciennes tables dans page
	Supprime les tables articles et rubrique
*/

	// Numro de l'ancienne version
	@include_once ($S2R_racine . 'conf/version.php');

	if (empty ($S2R_MaVersion) || 	(floatval ($S2R_MaVersion) < 0.69)) {
		// Modification de l'index pour la table Destin
		// Lock des tables
		S2R_SqlInit ('LOCK TABLES ' . PREF_TAB . 'Destin WRITE');
		// Suppression de l'index
		$S2R_Sql->NewReq ('ALTER TABLE ' . PREF_TAB . 'Destin DROP PRIMARY KEY');
		// Reconstruction de l'index
		$S2R_Sql->NewReq ('ALTER TABLE ' . PREF_TAB . 'Destin 
			ADD PRIMARY KEY (IDDestin, IDmessage)');
		// Libration de la table
		$S2R_Sql->NewReq ('UNLOCK TABLES');
		echo '
    Index primaire de la table Destin optimis.
    ';
	}


	if (empty ($S2R_MaVersion) || 	(floatval ($S2R_MaVersion) < 0.68)) {
		// Rinstallation
		$lReinstal = 1;
		// Republication complte
		$lRepublic = 3;
	}
	elseif (floatval ($S2R_MaVersion) < 0.69) {
		// Modification de la mmorisation du numro de version
		$lReinstal = 1;
		// Les rubriques ont t modifies
		$lRepublic = 1;
	}


	echo '
	
    Les tables sont maintenant  jour.
    ';


	if ($lReinstal) {
		echo '
	
    Vous devez maintenant relancer le script d\'installation en cliquant sur le bouton ci-dessous. Attention, vous devez connaitre les identifiants de la base de donnes MySql !
    
	
    ';
		if ($lRepublic) echo '
	';
		echo '
	
	
    ';

	}
	else if ($lRepublic) {
		// Necessit de republier les rubriques et articles sans avoir  relancer le script d'installation
		$_SESSION['Restaurer'] = $lRepublic;
		echo '
	
    Vous devez maintenant republier les rubriques et articles pour terminer la mise  jour
    
	
    
	
    
	
    ';
		require ($S2R_racine . 'pied.php');
	}

	// Actualisation du numro de version
	if (!$lReinstal) {
		// Ouverture / cration du fichier version.php dans le rpertoire conf
		if ($lHandle = fopen ($S2R_racine . 'conf/version.php', 'w')) {
			fwrite ($lHandle, '') ;
			// Pas de test d'erreur, car au pire, il y aura rinstallation lors de la prochaine mise  jour
			fclose ($lHandle);	
		}
	}


	echo '
	

    
	
    ';

/* Pied de page *
 ****************/
	include ($S2R_racine . 'pied.php');
?>
si2ra0.69/admin/sha1hash.js0000644000175000017500000002273210710404666015367 0ustar  bernardbernard/*
 * A JavaScript implementation of the Secure Hash Algorithm, SHA-1, as defined
 * in FIPS PUB 180-1
 * Version 2.1a Copyright Paul Johnston 2000 - 2002.
 * Other contributors: Greg Holt, Andrew Kepert, Ydnar, Lostinet
 * Distributed under the BSD License
 * See http://pajhome.org.uk/crypt/md5 for details.
 */

/*
 * Configurable variables. You may need to tweak these to be compatible with
 * the server-side, but the defaults work in most cases.
 */
var hexcase = 0;  /* hex output format. 0 - lowercase; 1 - uppercase        */
var b64pad  = ""; /* base-64 pad character. "=" for strict RFC compliance   */
var chrsz   = 8;  /* bits per input character. 8 - ASCII; 16 - Unicode      */

/*
 * These are the functions you'll usually want to call
 * They take string arguments and return either hex or base-64 encoded strings
 */
function hex_sha1(s){return binb2hex(core_sha1(str2binb(s),s.length * chrsz));}
function b64_sha1(s){return binb2b64(core_sha1(str2binb(s),s.length * chrsz));}
function str_sha1(s){return binb2str(core_sha1(str2binb(s),s.length * chrsz));}
function hex_hmac_sha1(key, data){ return binb2hex(core_hmac_sha1(key, data));}
function b64_hmac_sha1(key, data){ return binb2b64(core_hmac_sha1(key, data));}
function str_hmac_sha1(key, data){ return binb2str(core_hmac_sha1(key, data));}

/*
 * Perform a simple self-test to see if the VM is working
 */
function sha1_vm_test()
{
  return hex_sha1("abc") == "a9993e364706816aba3e25717850c26c9cd0d89d";
}

/*
 * Calculate the SHA-1 of an array of big-endian words, and a bit length
 */
function core_sha1(x, len)
{
  /* append padding */
  x[len >> 5] |= 0x80 << (24 - len % 32);
  x[((len + 64 >> 9) << 4) + 15] = len;

  var w = Array(80);
  var a =  1732584193;
  var b = -271733879;
  var c = -1732584194;
  var d =  271733878;
  var e = -1009589776;

  for(var i = 0; i < x.length; i += 16)
  {
    var olda = a;
    var oldb = b;
    var oldc = c;
    var oldd = d;
    var olde = e;

    for(var j = 0; j < 80; j++)
    {
      if(j < 16) w[j] = x[i + j];
      else w[j] = rol(w[j-3] ^ w[j-8] ^ w[j-14] ^ w[j-16], 1);
      var t = safe_add(safe_add(rol(a, 5), sha1_ft(j, b, c, d)),
                       safe_add(safe_add(e, w[j]), sha1_kt(j)));
      e = d;
      d = c;
      c = rol(b, 30);
      b = a;
      a = t;
    }

    a = safe_add(a, olda);
    b = safe_add(b, oldb);
    c = safe_add(c, oldc);
    d = safe_add(d, oldd);
    e = safe_add(e, olde);
  }
  return Array(a, b, c, d, e);

}

/*
 * Perform the appropriate triplet combination function for the current
 * iteration
 */
function sha1_ft(t, b, c, d)
{
  if(t < 20) return (b & c) | ((~b) & d);
  if(t < 40) return b ^ c ^ d;
  if(t < 60) return (b & c) | (b & d) | (c & d);
  return b ^ c ^ d;
}

/*
 * Determine the appropriate additive constant for the current iteration
 */
function sha1_kt(t)
{
  return (t < 20) ?  1518500249 : (t < 40) ?  1859775393 :
         (t < 60) ? -1894007588 : -899497514;
}

/*
 * Calculate the HMAC-SHA1 of a key and some data
 */
function core_hmac_sha1(key, data)
{
  var bkey = str2binb(key);
  if(bkey.length > 16) bkey = core_sha1(bkey, key.length * chrsz);

  var ipad = Array(16), opad = Array(16);
  for(var i = 0; i < 16; i++)
  {
    ipad[i] = bkey[i] ^ 0x36363636;
    opad[i] = bkey[i] ^ 0x5C5C5C5C;
  }

  var hash = core_sha1(ipad.concat(str2binb(data)), 512 + data.length * chrsz);
  return core_sha1(opad.concat(hash), 512 + 160);
}

/*
 * Add integers, wrapping at 2^32. This uses 16-bit operations internally
 * to work around bugs in some JS interpreters.
 */
function safe_add(x, y)
{
  var lsw = (x & 0xFFFF) + (y & 0xFFFF);
  var msw = (x >> 16) + (y >> 16) + (lsw >> 16);
  return (msw << 16) | (lsw & 0xFFFF);
}

/*
 * Bitwise rotate a 32-bit number to the left.
 */
function rol(num, cnt)
{
  return (num << cnt) | (num >>> (32 - cnt));
}

/*
 * Convert an 8-bit or 16-bit string to an array of big-endian words
 * In 8-bit function, characters >255 have their hi-byte silently ignored.
 */
function str2binb(str)
{
  var bin = Array();
  var mask = (1 << chrsz) - 1;
  for(var i = 0; i < str.length * chrsz; i += chrsz)
    bin[i>>5] |= (str.charCodeAt(i / chrsz) & mask) << (32 - chrsz - i%32);
  return bin;
}

/*
 * Convert an array of big-endian words to a string
 */
function binb2str(bin)
{
  var str = "";
  var mask = (1 << chrsz) - 1;
  for(var i = 0; i < bin.length * 32; i += chrsz)
    str += String.fromCharCode((bin[i>>5] >>> (32 - chrsz - i%32)) & mask);
  return str;
}

/*
 * Convert an array of big-endian words to a hex string.
 */
function binb2hex(binarray)
{
  var hex_tab = hexcase ? "0123456789ABCDEF" : "0123456789abcdef";
  var str = "";
  for(var i = 0; i < binarray.length * 4; i++)
  {
    str += hex_tab.charAt((binarray[i>>2] >> ((3 - i%4)*8+4)) & 0xF) +
           hex_tab.charAt((binarray[i>>2] >> ((3 - i%4)*8  )) & 0xF);
  }
  return str;
}

/*
 * Convert an array of big-endian words to a base-64 string
 */
function binb2b64(binarray)
{
  var tab = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
  var str = "";
  for(var i = 0; i < binarray.length * 4; i += 3)
  {
    var triplet = (((binarray[i   >> 2] >> 8 * (3 -  i   %4)) & 0xFF) << 16)
                | (((binarray[i+1 >> 2] >> 8 * (3 - (i+1)%4)) & 0xFF) << 8 )
                |  ((binarray[i+2 >> 2] >> 8 * (3 - (i+2)%4)) & 0xFF);
    for(var j = 0; j < 4; j++)
    {
      if(i * 8 + j * 6 > binarray.length * 32) str += b64pad;
      else str += tab.charAt((triplet >> 6*(3-j)) & 0x3F);
    }
  }
  return str;
}

function str_to_ent(str)
{
    var result = '';
    var i;

    for (i = 0; i < str.length; i++)
    {
        var c = str.charCodeAt(i);
        var tmp = '';

        if (c > 255)
        {

            while (c >= 1)
            {
                tmp = "0123456789" . charAt(c % 10) + tmp;
                c = c / 10;
            }

            if (tmp == '')
            {
                tmp = "0";
            }
            tmp = "#" + tmp;
            tmp = "&" + tmp;
            tmp = tmp + ";";

            result += tmp;
        }
        else
        {
            result += str.charAt(i);
        }
    }
    return result;
}

function trim(s)
{
    while (s.substring(0, 1) == ' ')
    {
        s = s.substring(1, s.length);
    }
    while (s.substring(s.length-1, s.length) == ' ')
    {
        s = s.substring(0, s.length-1);
    }
    return s;
}

/* pour équivalent htmlspecialchars de PHP */
function htmlspecialchars (str)  {
	var result = '';
	for (var i = 0; i < str.length; i++) {
		var c = str.charAt(i);
		switch (c) {
			case '&' : 
				result += '& ';
				break;
			case '"' : 
				result += '"';
				break;
			case "'" : 
				result += ''';
				break;
			case '<' : 
				result += '<';
				break;
			case '>' :
				result += '>';
				break;
			default :
				result += c;
				break;
		}
	}
	return result;
}


// fonction modifiée pour Si2Ra : crypte le mot de passe avec 2 GDS
function sha1hash(input, output_gds1, output_gds2, gds1, gds2)
{
    if ( (gds1 == '') || (gds2 == '') ) return true;

    if (navigator.userAgent.indexOf("Mozilla/") == 0 && parseInt(navigator.appVersion) >= 4)
    {
		// Crypte avec le gds1
        var sha1string = hex_sha1(str_to_ent(trim(htmlspecialchars(input.value)) + gds1));
        output_gds1.value = sha1string;
		// et avec le gds2
		sha1string = hex_sha1(str_to_ent(trim(htmlspecialchars(input.value)) + gds2));
        output_gds2.value = sha1string;
        // efface le mot de passe non crypté !
        input.value = '';
    }

    return true;
}

// Pour Si2ra : crypte 2 mots de passe différents chacun avec son GDS
function sha12mdp (actuel, sha1actuel, futur1, futur2, sha1futur)
{
	if (navigator.userAgent.indexOf("Mozilla/") == 0 && parseInt(navigator.appVersion) >= 4)
    {
		// Ne fait pas de vérification en cas d'abandon du formulaire, 
		// mais crypte quand même les mots de passe !
		if (!Gcancel) {
			// Vérifie que l'on ait donné son mot de passe actuel
			if (actuel.value == '') {
				alert (GpassMessage);
				return false;
			}
			// Vérifie que les deux saisies soient identiques pour le nouveau MDP
			if (futur1.value != futur2.value) {
				alert (GdifMessage);
				futur1.value = '';
				futur2.value = '';
				return false;
			}
			else {
				var len = futur1.value.length;
				if (len && len < GminLen) {
					alert (GlenMessage);
					futur1.focus();
					return false;
				}
			}
		}
	
		// En l'absence de GDS : s'arrête là
		if ((!GgdsActuel) || (!GgdsFutur)) return true;

		// Crypte le mot de passe actuel
        var sha1string = hex_sha1(str_to_ent(trim(htmlspecialchars(actuel.value)) + GgdsActuel));
        sha1actuel.value = sha1string;
		actuel.value = '';
		// Crypte le nouveau mot de passe s'il est renseigné
		if (futur1.value != '') {
			sha1string = hex_sha1(str_to_ent(trim(htmlspecialchars(futur1.value)) + GgdsFutur));
        	sha1futur.value = sha1string;
        	// efface le mot de passe non crypté !
       		futur1.value = '';
			futur2.value = '';
		}
    }
    return true;
}

// Pour Si2ra : Crypte un mot de passe avec un seul GDS
function sha1GDS1 (pass, sha1pass) {
	// Ne crypte pas en l'absence de GDS !
    if (!GgdsActuel) return true;
	if (pass.value == '') {
				alert (GpassMessage);
				return false;
	}

    if (navigator.userAgent.indexOf("Mozilla/") == 0 && parseInt(navigator.appVersion) >= 4)
    {
		// Crypte avec le gds1
        var sha1string = hex_sha1(str_to_ent(trim(htmlspecialchars(pass.value)) + GgdsActuel));
        sha1pass.value = sha1string;
        // efface le mot de passe non crypté !
        pass.value = '';
    }
	return true;
}

si2ra0.69/admin/index.php0000644000175000017500000000364010710405530015135 0ustar  bernardbernard';
	S2R_MenuAdm();
	echo '
    '; /* Corps principal de la page * ******************************/ echo '

    Actions possibles pour ', $_SESSION['Nom'], '

      '; //
        '; $S2RMenuSection = 0; // drapeau pour savoir si un sparateur doit tre dessin foreach ($S2R_MenuA as $item) { if (($item == 'Separateur') && $S2RMenuSection) { echo '
      • ****~****~****
        • '; $S2RMenuSection = 0; } // Vrifie les droits if ( (int)$_SESSION['Droits'] & $item['D'] ) { echo '
      • ', $item['T'], '
        • '; $S2RMenuSection = 1; } } echo '
      '; /* Pied de page * ****************/ include ($S2R_racine . 'pied.php'); ?> si2ra0.69/admin/restaure.php0000644000175000017500000001504210701760662015671 0ustar bernardbernard'; S2R_MenuAdm(); echo '
    '; /* Corps principal de la page * ******************************/ echo '
    '; // Dossier contenant les donnes $lDossier = $S2R_racine . 'zbackup'; /* Vrifier la validit d'un nom de fichier backup (on peut inclure 10 caractre entre backup00_00_00 et .php (ou .php.gz) */ function isValidBackup ($fileName) { return preg_match ('/^backup[0-9_]{8,10}[\w]{0,10}\.php(.gz)?$/', $fileName); } // Rcupre le nom du fichier et le vrifie $lFileName = ''; $lCompress = empty($_POST['gz']) ? 0 : 1; if (!empty ($_POST['fichier']) && isValidBackup($_POST['fichier'])) { $lFileName = $_POST['fichier']; // S'agit-il d'un fichier gzipp ? if (substr($lFileName, -3, 3) == '.gz') { $lCompress = 1; } } // Rcupre la liste des fichiers utilisables $lDirHandle = opendir($lDossier); $lFichiersListe = array(); while (false !== ($lFichier = readdir($lDirHandle))) { // Vrifie qu'il s'agisse d'un fichier de backup if (isValidBackup ($lFichier)) { $lFichiersListe[] = $lFichier; } } $lErreur = 0; if (isset ($_POST['lancer']) && !empty ($lFileName) ) { // Dcompresse le fichier si ncessaire if ($lCompress) { $lNewFileName = substr($lFileName, 0, -3); if (file_exists($lDossier .'/'. $lNewFileName)) unlink($lDossier .'/'. $lNewFileName); if ($lcontenu = gzfile($lDossier .'/'. $lFileName)){ if ($lhandle = fopen($lDossier .'/'. $lNewFileName, 'w')) { foreach ($lcontenu as $ligne) { fwrite($lhandle, $ligne); } fclose($lhandle); unset($lcontenu); } } if (file_exists($lDossier .'/'. $lNewFileName)) $lFileName = $lNewFileName; else { ErrMsg('Le fichier ', $lFileName, ' n\'a pas pu tre dcompress'); $lCompress = 0; $lErreur = 1; } } // Affiche le contenu du fichier sauvegarder et demande confirmation if (! include_once ($lDossier .'/'. $lFileName)) { ErrMsg('Le fichier ', $lFileName, ' n\'a pas pu tre lu.'); $lErreur = 1; } if (!$lErreur) echo '

    Vrification avant la restauration

    Voulez-vous restaurer les tables partir de la sauvegarde

    • du site ', $lSite, ',
    • datant du ', $lDate, ' ?

    '; require ($S2R_racine . 'pied.php'); } elseif (isset ($_POST['confirm']) && !empty ($lFileName) ) { $lFileName = $lDossier .'/'. $lFileName; // Inclus les donnes if (!@include_once ($lFileName)) { // pas de donne... ErrMsg('Le fichier ', $lFileName, ' n\'a pas pu tre lu.'); } else { require_once($S2R_racine. 'classes/sql.php'); echo '

    Restauration des tables

      '; foreach ($lTables_liste as $table) { // Calcule le nom des variables $lDescripteur = $table . '_Descr'; $lContenu = 't' . $table; // Vrifie si des donnes existes if (empty($$lContenu)) continue; echo '
    • ', $table, '
      • '; // Vide la table S2R_SqlInit ('TRUNCATE TABLE '. PREF_TAB . $table); // Importe les donnes $S2R_Sql->NewReq ('INSERT IGNORE INTO ' . $$lDescripteur . $$lContenu); } echo '

    Restauration de la base de donnes termine. N\'oubliez pas de re-publier les rubriques puis les articles.

    '; // Si le fichier de sauvegarde avait t dpos compress, on supprime le fichier dcompress if ($lCompress) { unlink($lFileName); } // Efface le fichier pour viter de le laisser trainer if (isset ($_POST['effacer'])) { if ($lCompress) $lFileName .= '.gz'; unlink($lFileName); } // Propose de republier les donnes (3 = Rubriques et Articles) $_SESSION['Restaurer'] = 3; echo '

    '; require ($S2R_racine . 'pied.php'); } } elseif (isset ($_POST['publier']) && !empty($_SESSION['Restaurer']) ) { // Republication en lot require_once ($S2R_racine . 'install/republier.php'); // Et on s'arrte ! require ($S2R_racine . 'pied.php'); } echo '

    Informations importantes

    Avant de lancer la restauration, assurez vous d\'avoir :

    • tlcharg (upload) sur le site le fichier de sauvegarde dans le rpertoire zbackup grce votre logiciel FTP.
    • mis en ligne par FTP le contenu du rpertoire file contenant les images et fichiers. Ces derniers ne sont pas inclus dans la base de donnes.

    Une fois ces oprations (la premire tant obligatoire) effectues, vous pouvez lancer la restauration

    '; if ($lNombre = count($lFichiersListe)) { echo '

    Slectionnez le fichier utiliser dans la liste ci-dessous :

    '; } else { echo '

    Aucun fichier de sauvegarde n\'est actuellement disponible.

    '; } echo '

    '; include ($S2R_racine . 'pied.php'); ?> si2ra0.69/admin/publier_art.php0000644000175000017500000004751610704210075016351 0ustar bernardbernardNext()) { $lFichier = $lDonnee['Fichier']; $lTitre = $lDonnee['Titre']; $lTexte = $lDonnee['Texte']; $lResume = $lDonnee['Resume']; $lMotCle = $lDonnee['MotCle']; $lLang = $lDonnee['Lang']; $lAuteur = $lDonnee['Auteur']; $lModif = $lDonnee['Modif']; $lValid = $lDonnee['Valideur']; $lDate = $lDonnee['Date']; $lDateVal = $lDonnee['DateVal']; $lDossier = $lDonnee['ID_Dossier']; $lRang = $lDonnee['Rang']; // rang actuel de l'article dans la base $lExDossier = $lDonnee['Ex_Dossier']; if (!isset($_POST['Publier'])) { $lMembre = (bool) ((int) $lDonnee['Groupe'] & 0x7fffffff); $lGroupe = $lMembre ? (int) $lDonnee['Groupe'] : 0x7fffffff; } } else { // L'article n'a pas t indiqu ! ErrRedirection ('Publication', ERR_NO_ARTICLE); } } /* autres fichiers inclure * *****************************/ // Login et controle des droits require_once ($S2R_racine . 'entete.php'); // Classe arborescence pour le select des Rubriques require_once ($S2R_racine . 'classes/arbo.php'); // Editeur pour la fonction de conversion du code vers l'xHTML require_once($S2R_racine . 'editeur/editeur.php'); /* Menus gauche spcifique * ***************************/ echo ''; /* Corps principal de la page * ******************************/ echo '
    '; if ($lID) { // On rcupre la liste des rubriques du dossier pub $lListeDossiers = array(); // Requte SQL sur les rubriques S2R_SqlInit ('SELECT ID, Parent, Nom, Dossier, Supprime FROM ' . PREF_TAB . 'Rubrique'); while ($Donnee = $S2R_Sql->Next()) { $lListeDossiers[$Donnee['ID']] = array ('Nom' => $Donnee['Nom'], 'Pere'=> $Donnee['Parent'], 'Dos' => $Donnee['Dossier'], 'Sup' => $Donnee['Supprime']); } // On rorganise l'arborescence de la liste $lArbre = new Arbre (NULL); $lArbre->LoadArray($lListeDossiers); // Nom de l'auteur et de la dernire personne ayant modifi et du valideur $lTabNom = array(); $S2R_Sql->NewReq('SELECT ID, Prenom, Nom FROM ' . PREF_TAB . 'Membres WHERE ID IN (' . $lAuteur .', ' . $lModif . ', ' . $lValid . ')'); while ($lDonnee = $S2R_Sql->Next()) { $lTabNom[$lDonnee['ID']] = $lDonnee['Prenom'] . ' ' . $lDonnee['Nom']; } $lErreur = 0; // L'article est-il dans un tat publiable ? if (empty($lTitre)) { $lErreur ++; ErrMsg ('Il manque un titre l\'article'); } if (empty ($lDossier)) { // Thoriquement impossible... $lErreur ++; ErrMsg ('Aucune rubrique n\'a t choisie pour l\'article.'); } // On rcupre la liste des groupes $S2R_Sql->NewReq ('SELECT ID, Nom FROM ' . PREF_TAB . 'Groupe ORDER BY ID'); // On rcupre le rsultat dans un tableau $lTabGroupe = array(); while ($Donnee = $S2R_Sql->Next()) { $lTabGroupe[$Donnee[0]] = $Donnee[1]; } // a-t-on demand l'enregistrement des donnes ? if (isset($_POST['Publier'])) { // S'agit-il d'un nouvel article jamais publi ? $lNouveau = empty($lFichier) ? 1 : 0; // A-t-on dplac un article dj publi $lDeplacer = $lExDossier ? ($lExDossier != $lDossier) : 0; // On vrifie que le dossier soit actif if ($lArbre->Inactif ($lDossier)) { $lErreur ++; ErrMsg ('La rubrique que vous avez choisie n\'existe pas ou a t supprime.'); } if (empty($lFichier)) { // On construit le nom du Fichier partir du titre de la rubrique $lFichier = CreateFileName ($lTitre, 20); } elseif ($lDeplacer) { $lExFichier = $lFichier; } // Eviter que deux fichiers aient le mme nom dans le mme dossier... if ($lNouveau || $lDeplacer) { // On vrifie que le nom du fichier n'est pas dj pris $S2R_Sql->NewReq ('SELECT COUNT(1) FROM ' . PREF_TAB . 'Article WHERE ID_Dossier='. $lDossier .' AND Fichier="' . $lFichier. '" AND ID != ' . $lID); $Donnee = $S2R_Sql->Next(); if ($Donnee[0]) { $lLikeName = array(); // On rcupre l'ensembles des articles de mme nom $S2R_Sql->NewReq ('SELECT Fichier FROM ' . PREF_TAB . 'Article WHERE ID_Dossier='. $lDossier .' AND Fichier LIKE "' .$lFichier . '%" AND ID != ' . $lID); while ($Donnee = $S2R_Sql->Next()) { $lLikeName[] = $Donnee[0]; } // On ajoute un nombre $lIndice = 0; do { if (in_array($lFichier . $lIndice, $lLikeName)) { $lIndice ++; } else { $lFichier .= $lIndice; break; } } while (1); } } if (!$lErreur) { // On affichera la liste des articles $lShowList = 1; // Chemin vers le dossier devant contenir le fichier $lChemin = $S2R_racine . $lArbre->Chemin ($lDossier, '/', 'Dos'); if (!is_dir($lChemin)) { $lErreur ++; ErrMsg ('La rubrique que vous avez choisie n\'est pas publie.'); } else { // On crit le fichier require_once ( $S2R_racine. 'page_create2.php' ); if (CreatePage ($lTitre, $lFichier, $lDossier, $lGroupe, Code2Html ($lTexte, '\'. $S2R_racine . \''), $lID, $lAuteur , $lResume, $lTabNom[$lAuteur], $lMotCle, $lLang )) { echo '

    La page ', $lChemin, '/', $lFichier, '.php a bien t '; if ($lNouveau) { echo 'cre.

    '; } else echo 'modifie.

    '; // Actualise les rangs des articles de mme rubrique if ($lDeplacer && $lRang) { // Changement de rubrique d'un article publi // On remonte les articles de rang postrieur dans l'ancienne rubrique $S2R_Sql->NewReq ('UPDATE ' . PREF_TAB .'Article SET Rang=Rang-1 WHERE ID_Dossier=' . $lExDossier . ' AND Rang>' . $lRang); // Et on insre l'article dans la nouvelle rubrique $lRang = 0; } if (! $lRang) { // Insertion d'un article // Dplace les articles vers le bas partir du rang souhait $S2R_Sql->NewReq ('UPDATE ' . PREF_TAB .'Article SET Rang=Rang+1 WHERE ID_Dossier=' . $lDossier . ' AND Rang>=' . (int) $_POST['Rang']); } elseif ($_POST['Rang'] > $lRang) { // Dplacement d'un article publi vers le bas // On remonte les articles $S2R_Sql->NewReq ('UPDATE ' . PREF_TAB .'Article SET Rang=Rang-1 WHERE ID_Dossier=' . $lDossier . ' AND Rang>' . $lRang . ' AND Rang <= ' . (int) $_POST['Rang']); } elseif ($_POST['Rang'] < $lRang) { // Dplacement d'un article publi vers le haut // On descend les articles entre l'ancien et le nouveau rang $S2R_Sql->NewReq ('UPDATE ' . PREF_TAB .'Article SET Rang=Rang+1 WHERE ID_Dossier=' . $lDossier . ' AND Rang<' . $lRang . ' AND Rang >= ' . (int) $_POST['Rang']); } // On actualise l'article dans la table $S2R_Sql->NewReq ("UPDATE " . PREF_TAB ."Article SET Fichier='$lFichier', Groupe=$lGroupe, Valideur=". $_SESSION['IdMembre'] . ", DateVal='". date("Y/m/d H:i") . "', AValider=0, Rang=" . (int) $_POST['Rang'] . ", Ex_Dossier=$lDossier WHERE ID = $lID"); // On met jour le fichier _dossier.php de la rubrique Actu_dossier ($lDossier); // En cas de dplacement if ($lDeplacer) { // On efface l'ancienne page $lAncien = $S2R_racine . $lArbre->Chemin ($lExDossier, '/', 'Dos') . '/' . $lExFichier . '.php' ; if (file_exists ($lAncien)) { if (!unlink ($lAncien)) { ErrMsg('L\'ancien fichier
    '. $lAncien . '
    n\'a pas pu tre effac.'); } } // et on actualise le fichier _dossier.php de l'ancienne rubrique Actu_dossier ($lExDossier); } } else { ErrMsg ('L\'article '. $lTitre. ' n\'a pas pu tre publi.'); } } } } // S'agit-il d'une dpublication d'article elseif (isset($_POST['S2R_Sup'])) { // L'article est-il dj publi ? if (!$lDateVal) { ErrMsg ('L\'article que vous voulez retirer n\'a jamais t publi !'); $lShowList = 1; } else { // On demande confirmation echo '

    Annuler la publication d\un article

    Voulez-vous vraiment dpublier l\'article:

    ', $lTitre, '

    crit par ', $lTabNom[$lAuteur],'

    de la rubrique
    ', $lArbre->Nom($lDossier), '
    publie le ', MySql2DateFormat($lDateVal), ' par ',$lTabNom[$lValid], ' ?

    '; echo '
    '; // Autres variable pour le bon affichage des listes if (!empty($_GET['S2R_Asc'])) { echo ' '; } elseif (!empty($_GET['S2R_Desc'])) { echo ' '; } if (!empty($_GET['S2R_Page'])) { echo ' '; } echo '  
    '; } } // Confirmation d'une dvalidation d'article ? elseif (!empty($_POST['S2R_Del'])) { $lChemin = $S2R_racine . $lArbre->Chemin ($lDossier, '/', 'Dos') . '/' . $lFichier . '.php'; if (file_exists($lChemin)) { // On efface la page if (unlink($lChemin)) { echo '

    La page ', $lChemin, ' a bien t supprime.

    '; } else { echo '

    Impossible de suprimer la page ', $lChemin, '.

    '; } } else { echo '

    La page ', $lChemin, ' n\'existe pas !

    '; } // On dplace vers le haut tous les articles de rang postrieurs if ($lRang) $S2R_Sql->NewReq ('UPDATE ' . PREF_TAB .'Article SET Rang=Rang-1 WHERE ID_Dossier=' . $lDossier . ' AND Rang>' . $lRang); // On actualise l'article dans la table et on lui donne un Rang 0 (non publi) $S2R_Sql->NewReq ('UPDATE ' . PREF_TAB .'Article SET Fichier="", Valideur='. $_SESSION['IdMembre'] . ', DateVal=NULL, AValider=0, Rang=0, Ex_Dossier=0 WHERE ID=' . $lID); // et le lien sur la page ! require_once ( $S2R_racine. 'page_create2.php' ); Actu_dossier ($lDossier); $lShowList = 1; } // S'agit-il d'une demande de publication d'article ? else { // On montre l'article et demande confirmation avant de le publier echo '
    '; // Autres variable pour le bon affichage des listes if (!empty($_GET['S2R_Asc'])) { echo ' '; } elseif (!empty($_GET['S2R_Desc'])) { echo ' '; } if (!empty($_GET['S2R_Page'])) { echo ' '; } echo ' Article publier ou retirer

    ', $lTitre, '

    crit par ', $lTabNom[$lAuteur],'

    dernire modification le ', MySql2DateFormat($lDate); if ($lModif) { echo ', par ', $lTabNom[$lModif]; } echo '

    ', LG_LANG, ': ', $lLang, ' ~ Rubrique:', $lArbre->Chemin($lDossier), '

    Placement de l\'article
    '; // Fonction pour afficher la liste des groupes (en cases cocher) function LesGroupes() { global $lTabGroupe, $lGroupe; // Case pour tous les Membres $Result = ''; // Case pour chacun des groupes foreach ($lTabGroupe as $Key => $Value) { // Ajoute une case cocher $Result .= ''; } return $Result; } // Fonction javascript pour afficher la liste des groupes echo ''; echo '
    Visibilit
    '; if ($lMembre) { // Si on a coch Pour les membre, affiche la liste de tous les groupes possibles echo stripslashes(LesGroupes()); } echo '
    '; if (!$lErreur) { echo '
    '; } echo ' '; if ($lDateVal) { // Si l'article a dj t publi echo ' '; } echo ' Editer l\'article
    '; if (! empty($lResume)) { echo '
    ', $lResume, '
    '; } eval ('echo \'' . Code2Html ($lTexte, $S2R_racine) . '\';'); echo '
    ', $lTabNom[$lAuteur],'
    '; } } if ($lShowList) { // Afficher une des listes d'articles require_once($S2R_racine. 'classes/tableau.php'); echo '

    '; switch ($_GET['Liste']) { case 2 : echo 'Articles en attente de re-publication'; $lReq2 = 'a.AValider AND (a.DateVal IS NOT NULL)'; break; case 3 : echo 'Les articles que j\'ai valids'; $lReq2 = 'a.Valideur = ' . $_SESSION['IdMembre']; break; case 4 : echo 'Tous les articles publis'; $lReq2 = 'a.DateVal IS NOT NULL'; break; case 5 : echo 'Articles modifis depuis leur publication'; $lReq2 = 'a.DateVal < a.Date'; break; default : echo 'Articles en attente de publication'; $lReq2 = 'a.AValider'; break; } echo '

    '; // Prpare la requte $lTab = new Tableau (PREF_TAB . 'Article a LEFT JOIN ' . PREF_TAB . 'Membres m ON a.Auteur=m.ID LEFT JOIN ' . PREF_TAB . 'Rubrique r ON a.ID_Dossier=r.ID'); // On signale le champ cl de recherche $lTab->AddField ('ID', 'Num', S2R_CLE | S2R_LISTE | S2R_DETAIL, NULL, 'a.ID'); // Les autres champs afficher $lTab->AddField ('Titre', 'Titre', S2R_LISTE | S2R_ORDER | S2R_DETAIL, NULL, 'a.Titre'); $lTab->AddField ('Auteur', 'Auteur', S2R_LISTE | S2R_ORDER | S2R_DETAIL, NULL, 'CONCAT(m.Prenom, " ", m.Nom)'); $lTab->AddField ('Rubrique','Rubrique', S2R_LISTE | S2R_ORDER | S2R_DETAIL, NULL, 'r.Nom'); $lTab->AddField ('Date', 'Date', S2R_LISTE | S2R_ORDER | S2R_DETAIL, 'MySql2DateFormat', 'a.Date'); // Ordre par dfaut : Date dcroissante $lTab->DefautOrder ('a.Date', 1); // bouton publier if ((int)$_SESSION['Droits'] & 0x1000) { $lTab->Button ('Publier', $S2R_racine . 'admin/publier_art.php?Liste=' . $_GET['Liste'] . '&Pub='); } echo '

    ', $lTab->Count($lReq2), ' articles

    '; // affiche la liste if ($lTab->Count($lReq2)) $lTab->Liste ($lReq2); } /* Pied de page * ****************/ include ($S2R_racine . 'pied.php'); ?> si2ra0.69/admin/menu_art.php0000644000175000017500000000260110701457060015641 0ustar bernardbernardValidation '; } echo '

    Mes articles

    '; ?> si2ra0.69/admin/rub_tel.php0000644000175000017500000001341410704611422015464 0ustar bernardbernard'; S2R_MenuAdm(); echo '
    '; /* Corps principal de la page * ******************************/ echo '
    '; // Rcupration des variables $lNom = empty ($_POST['Nom']) ? '' : Proteger($_POST['Nom']); $lTexte = empty ($_POST['Texte']) ? '' : Proteger($_POST['Texte']); $lMod = empty ($_POST['S2R_MOD']) ? 0 : (int) $_POST['S2R_MOD']; // On appelle la classe tableau AVEC l'accs au modifications // la classe Sql est appele par tableau.php require_once ($S2R_racine . 'classes/tableau2.php'); $lTab = new Tab_Modif (PREF_TAB . 'RubTel'); // Fonction pour tronquer un texte potentiellement long function FirstWords ($Texte, $Len=160) { if (strlen ($Texte) >$Len) { return substr($Texte, 0, $Len) . '(...)'; } return $Texte; } // On signale le champ cl de recherche $lTab->AddField ('ID', 'ID', S2R_CLE); // Les autres champs afficher $lTab->AddField ('Nom', 'Titre', S2R_LISTE | S2R_DETAIL | S2R_ORDER); $lTab->AddField ('Texte', 'Description', S2R_LISTE, FirstWords ); $lTab->AddField ('Texte', 'Description', S2R_DETAIL); $lTab->Button (LG_FILE_VOIR, $_SERVER['PHP_SELF'] . '?Voir='); $lTab->Button ('Modifier', $_SERVER['PHP_SELF'] . '?Mod='); $lTab->Button ('Supprimer', $_SERVER['PHP_SELF'] . '?Del='); // Si aucun ordre n'a t dfini, on classe par ID $lTab->DefautOrder('Nom'); /* Une action GET ou POST a t demande ? */ if (!empty ($_GET['Voir'])) { $lTab->Detail ((int) $_GET['Voir']); } elseif (!empty ($_GET['Del'])) { $lID = (int)$_GET['Del']; // Vrifie que la rubrique soit vide S2R_SqlInit('SELECT COUNT(1) FROM ' . PREF_TAB . 'Fichiers WHERE Groupe=' . $lID); if ($lDonnee = $S2R_Sql->Next()) { if ($lCount = $lDonnee[0]) { $S2R_Sql->NewReq('SELECT Nom FROM ' . PREF_TAB . 'RubTel WHERE ID=' . $lID); $lDonnee = $S2R_Sql->Next(); ErrMsg(sprintf (LG_RUB_NOEMPTY, '' . $lDonnee['Nom'] . '')); printf ("

    " . LG_RUB_NOEMPT2 . ".

    ", $lCount); } else { // Formulaire de suppression $lTab->Delete($lID); require ($S2R_racine . 'pied.php'); } } } elseif (!empty($_POST['S2R_Del'])) { $lID = (int) $_POST['S2R_Del']; // Scurit : Vrifie que la rubrique soit vide S2R_SqlInit('SELECT COUNT(1) FROM ' . PREF_TAB . 'Fichiers WHERE Groupe=' . $lID); if ($lDonnee = $S2R_Sql->Next()) { if ($lCount = $lDonnee[0]) { $S2R_Sql->NewReq('SELECT Nom FROM ' . PREF_TAB . 'RubTel WHERE ID=' . $lID); $lDonnee = $S2R_Sql->Next(); ErrMsg(sprintf (LG_RUB_NOEMPTY, '' . $lDonnee['Nom'] . '')); printf ("

    " . LG_RUB_NOEMPT2 . ".

    ", $lCount); } else { // Formulaire de suppression $lTab->DoDelete($lID); } } } // Demande de validation elseif (isset ($_POST['S2R_OK'])) { $lErreur = 0; // Vrifie qu'il y ait un nom if (empty ($lNom)) { ErrMsg (LG_RUB_NONAME); $lErreur = 1; } // et que celui-ci ne soit pas dj employ else { S2R_SqlInit('SELECT ID FROM ' . PREF_TAB . 'RubTel WHERE Nom= "' . $lNom . '" AND ID !=' . $lMod); if ($S2R_Sql->Next()) { ErrMsg (sprintf(LG_RUB_SAME, '' . $lNom . '')); $lErreur = 1; } } if (!$lErreur) { if ($lMod) { // Actualise la catgorie $S2R_Sql->NewReq('UPDATE ' . PREF_TAB . 'RubTel SET Nom="' . $lNom . '", Texte="' . $lTexte . '" WHERE ID=' . $lMod); if (mysql_affected_rows()) { printf ('

    ' . LG_RUB_ACTU . '.

    ', '' . $lNom . ''); } } else { // Enregistre la nouvelle catgorie $S2R_Sql->NewReq('INSERT INTO ' . PREF_TAB . 'RubTel (Nom, Texte) VALUES ("' . $lNom . '", "' . $lTexte . '")'); printf ('

    ' . LG_RUB_EXIT . '.

    ', '' . $lNom . ''); } } else { // Dclenche le formulaire $_GET['Mod'] = $lMod ; } } if (isset($_GET['Mod'])) { // Formulaire d'ajout ou de modification $lMod = (int)$_GET['Mod']; if ($lMod) { // Modification d'une rubrique existante echo '

    ', LG_RUB_MOD,'

    '; // On rcupre les donnes actuelles du registre S2R_SqlInit ('SELECT * FROM ' . PREF_TAB . 'RubTel WHERE ID=' . $lMod); if ($Donnee = $S2R_Sql->Next()) { if (!$lNom) $lNom = $Donnee['Nom']; if (!$lTexte) $lTexte = $Donnee['Texte']; } } else { echo '

    ', LG_RUB_NEW, '

    '; } echo '
    '; AddEdit ('Nom', 'Titre de la Rubrique', $lNom, 34, 40); echo '
    '; AddOKCancel (); echo '

    '; } if (!isset($_GET['Mod'])) { echo '

    ', LG_RUB_NEW, '

    '; } $lTab->Liste(); /* Pied de page * ****************/ include ($S2R_racine . 'pied.php'); ?> si2ra0.69/admin/upload.php0000644000175000017500000004465610704211505015326 0ustar bernardbernard'; S2R_MenuAdm(); echo '
    '; /* Corps principal de la page * ******************************/ echo '
    '; // Rcuprer les variables post $lUrl = empty($_POST['Url']) ? '' : Proteger($_POST['Url']); $lFichier = empty ($_POST['Fichier']) ? '' : Proteger ($_POST['Fichier']); $lNom = empty($_POST['Nom']) ? '' : Proteger($_POST['Nom']); $lTexte = empty($_POST['Texte']) ? '' : Proteger($_POST['Texte']); $lRubrique = empty($_POST['Rubrique']) ? 0 : (int) $_POST['Rubrique']; // Interprtation de la taille : if (empty ($_POST['Taille'])) { $lTaille = 0; } else $lTaille = Size2octet ($_POST['Taille']); // Accs rserver certains groupes ? if (isset ($_POST['Membre'])) { $lMembre = (bool) $_POST['Membre']; if ($lMembre) { $lGroupe = empty($_POST['groupeTous']) ? 0 : 0x7fffffff; if (!empty ($_POST['Groupe'])) { foreach ($_POST['Groupe'] as $Value) { $lGroupe |= (int) $Value; } } } else { $lGroupe = 0; } } elseif (isset ($_POST['Groupe'])) { // en cas de remplacement de fichier par exemple $lGroupe = (int) $_POST['Groupe']; } else { // Par dfaut, on restreint l'accs au membres s'il s'agit d'une extranet $lMembre = S2R_EXTRANET; $lGroupe = 0x7fffffff; } // Rcupration des rubriques de tlchargement S2R_SqlInit ('SELECT ID, Nom FROM ' . PREF_TAB . 'RubTel ORDER BY Nom'); // On rcupre le rsultat dans un tableau $lTabRub = array( 0 => LG_FICHIER_ROOT); while ($lDonnee = $S2R_Sql->Next()) { $lTabRub[$lDonnee[0]] = $lDonnee[1]; } // A faire : supprimer la rubrique racine s'il s'agit d'un nouveau fichier $lErreur = 0; if (isset($_POST['OK'])) { // Evite les envois en double ... if (!isset( $_SESSION['S2R_Actu'][$_POST['S2R_Actu']])) { // Il y a eu actualisation de la page : vite un renvoi ErrMsg (LG_ERR_ACTU); echo '

    ', LG_UPLOAD_ERRACTU, ''; require ($S2R_racine . 'pied.php'); } else { // Efface la donne du tableau pour viter une nouvelle interprtation du mme formulaire unset ($_SESSION['S2R_Actu'][$_POST['S2R_Actu']]); } // S'il s'agit d'une modification if (!empty($_POST['Mod'])) { $lMod = (int) $_POST['Mod']; } // Vrifie que l'on ait indiqu un fichier elseif ($lUrl == '' && empty($_FILES['Fichier']['name'])) { ErrMsg (LG_UPLOAD_EMPTY); $lErreur = 1; } // S'il s'agit d'un fichier upload : elseif (!empty($_FILES['Fichier']['name'])) { // Rcupre la taille $lTaille = $_FILES['Fichier']['size']; // controle les erreur if ($_FILES['Fichier']['error'] > 0) { if ($_FILES['Fichier']['error'] < 3) { ErrMsg(LG_UPLOAD_ERRSIZE); printf (LG_UPLOAD_LIMITSIZE, ReadSize(S2R_MAX_FILE_SIZE)); } else { ErrMsg(LG_UPLOAD_ERR); } $lErreur = 1; } elseif ($lTaille > S2R_MAX_FILE_SIZE) { ErrMsg(LG_UPLOAD_ERRSIZE); echo '

    '; printf (LG_UPLOAD_LIMITSIZE, ReadSize(S2R_MAX_FILE_SIZE)); echo '.

    '; } else { // Sauve le fichier sous un nom unique $lFichier = uniqid(strval(mt_rand(10, 99))); if (! move_uploaded_file( $_FILES['Fichier']['tmp_name'], $S2R_racine . 'file/' . $lFichier)) { ErrMsg(LG_UPLOAD_ERR); // On supprime le nom du fichier $lFichier = ''; } } } elseif (!strpos($lUrl, '://')) { ErrMsg (LG_UPLOAD_NOURL); $lErreur = 1; } // remplis le nom du fichier si l'utilisateur ne l'a pas inform if (! $lErreur) { if ($lNom == '') { if ($lUrl != '') { // Fichier distant $lNom = substr ($lUrl, strrpos($lUrl, '/') + 1); } else { $lNom = $_FILES['Fichier']['name']; } if (!$lNom) { ErrMsg (LG_UPLOAD_NONAME); $lErreur = 1; } } /* Vrifie que la rubrique existe, sinon met dans la racine */ if (!array_key_exists ($lRubrique, $lTabRub)) { $lRubrique = 0; echo '

    ', LG_UPLOAD_NORUB, '

    '; } /* Vrifie qu'il n'y ait pas d'autre fichier avec le mme nom dans la mme rubrique Si c'est le cas demande si l'on veut remplacer le fichier existant */ $lFiltre = 'f.Rubrique=' . $lRubrique . ' AND f.Nom="' . $lNom . '"'; if ($lMod) { // Evite de comparer avec soit mme en cas de modif $lFiltre .= ' AND f.ID != ' . $lMod; } $S2R_Sql->NewReq ( 'SELECT f.ID, f.Fichier, f.Date, m.Prenom, m.Nom FROM ' . PREF_TAB . 'Fichiers f LEFT JOIN ' . PREF_TAB . 'Membres m ON f.Auteur=m.ID WHERE ' . $lFiltre); if ($lDonnee = $S2R_Sql->Next()) { // Demande si on veut remplacer le fichier existant // Mmorise le controle anti-renvoi de formulaire dans le tableau de SESSION $_SESSION['S2R_Actu']['A' . $_SESSION['Actu']] = 1; echo '
    '; if (!empty ($lFichier)) { echo ' '; } elseif ($lUrl != '') { echo ' '; } if (!empty ($lMod)) { echo ' '; } echo '

    '; echo '

    Fichier : ', $lDonnee['ID'], '

    '; printf (LG_UPLOAD_SAME, ''. $lNom .'', $lTabRub[$lRubrique], MySql2DateFormat ($lDonnee['Date']), $lDonnee['Prenom'] . ' ' . $lDonnee['Nom']); echo '

    '; require ($S2R_racine . 'pied.php'); } } } // Renomme le fichier si ncessaire elseif (isset ($_POST['Renommer'])) { /* ajoute un nombre au nom du fichier avant l'extension */ // On rcupre le nom de son extension $lPos = strrpos ($lNom, '.'); if ($lPos) { $lRadical = substr ($lNom, 0, $lPos); $lExtension = substr ($lNom, $lPos); } else { $lRadical = $lNom; $lExtension = ''; } $lLikeName = array(); // On rcupre l'ensemble des fichier de nom similaire $S2R_Sql->NewReq ('SELECT Nom FROM ' . PREF_TAB . 'Fichiers WHERE Rubrique='. $lRubrique .' AND Nom LIKE "'. $lRadical . '%' . $lExtension .'"'); while ($Donnee = $S2R_Sql->Next()) { $lLikeName[] = $Donnee[0]; } // On ajoute un nombre $lIndice = 0; do { $lNom = $lRadical . $lIndice . $lExtension; if (in_array($lNom , $lLikeName)) { $lIndice ++; } else break; } while (1); } elseif (isset ($_POST['Ecraser'])) { /* Si remplacement d'un fichier existant, donne la mme ID dans la table */ if (empty ($_POST['IDAnc'])) { ErrMsg (LG_ERROR); require ($S2R_racine . 'pied.php'); } $lID = (int) $_POST['IDAnc']; // Rcupre les donnes sur le fichier if (file_exists ($S2R_racine . sprintf ('file/cache/%d.php' , $lID))) { // On inclut le fichier include ($S2R_racine . sprintf ('file/cache/%d.php' , $lID)); // Puis on l'efface unlink ($S2R_racine . sprintf ('file/cache/%d.php' , $lID)); } else { // Rcupre le nom du fichier dans la base de donne $S2R_Sql->NewReq ('SELECT Fichier FROM ' . PREF_TAB . 'Fichiers WHERE ID=' . $lID); if ($lDonnee = $S2R_Sql->Next()) { // Vrifie qu'il ne s'agisse pas d'une URL ! if (!strpos($lDonnee[0], '://')) { $Fichier = $lDonnee['Fichier']; } } } // Efface l'ancien fichier s'il s'agit d'un fichier local if (!empty($Fichier)) { if (file_exists ($S2R_racine . 'file/' . $Fichier)) { unlink ($S2R_racine . 'file/' . $Fichier); } } // Actualise la table $lReq = 'UPDATE ' . PREF_TAB . 'Fichiers SET Auteur=' . $_SESSION['IdMembre'] . ', Fichier="'; if (!empty ($lFichier)) { $lReq .= $lFichier ; } elseif ($lUrl != '') { $lReq .= $lUrl ; } $lReq .= '", Nom="' . $lNom . '", Texte="' . $lTexte . '", Rubrique=' . $lRubrique . ', Groupe= ' . $lGroupe . ', Taille=' . $lTaille . ', Date= "' . date('Y/m/d H:i:s') . '"'; // Execute la requete $S2R_Sql->NewReq ($lReq . ' WHERE ID=' . $lID ); } // Insertion ou modification d'un fichier. if (!$lErreur) { if (!empty ($_POST['Mod'])) { // Rcupre l'ID $lID = (int) $_POST['Mod']; // Modifie le fichier s'il s'agit d'un ancien fichier $lIdPhp = $S2R_racine . sprintf ('file/cache/%d.php' , $lID); // Efface le fichier cache Id.php s'il existe if (file_exists ($lIdPhp)) { // Pour rcuprer le nombre de tlchargement include ($lIdPhp); // Puis on l'efface unlink ($lIdPhp); } // Actualise la table if (isset ($_POST['Ecraser'])) { // Change le nombre de tlchargements if (empty ($Nb)) { // Rcupre le nombre de tlchargement dans la table $S2R_Sql->NewReq ('SELECT Telecharge FROM ' . PREF_TAB . 'Fichiers WHERE ID=' . $lID); if ($lDonnee = $S2R_Sql->Next()) { $Nb = $lDonnee[0]; } else $Nb = 0; } // Actualise le nombre de tlchargements $S2R_Sql->NewReq ('UPDATE ' . PREF_TAB . 'Fichiers SET Telecharge = ' . $Nb . ' WHERE ID=' .(int) $_POST['IDAnc']); // Supprime l'ancien registre puisqu'on l'a remplac par celui qu'on a cras $lReq = 'DELETE FROM ' . PREF_TAB . 'Fichiers'; } else { // Actualise le registre $lReq = 'UPDATE ' . PREF_TAB . 'Fichiers SET Auteur=' . $_SESSION['IdMembre'] . ', Nom="' . $lNom . '", Texte="' . $lTexte . '", Rubrique=' . $lRubrique . ', Groupe= ' . $lGroupe . ', Taille=' . $lTaille . ', Date= "' . date('Y/m/d H:i:s') . '"'; } // Execute la requete $S2R_Sql->NewReq ($lReq . ' WHERE ID=' . $lID); } elseif (isset($_POST['OK']) || isset ($_POST['Renommer'])) { // Insre le fichier dans la table s'il s'agit d'un nouveau fichier // On actualise la table $lReq = 'INSERT INTO ' . PREF_TAB . 'Fichiers (Auteur, Fichier, Nom, Texte, Rubrique, Groupe, Taille, Date) VALUES (' . $_SESSION['IdMembre'] . ', "'; if (!empty ($lFichier)) { $lReq .= $lFichier ; } elseif ($lUrl != '') { $lReq .= $lUrl ; } $lReq .= '", "' . $lNom . '", "' . $lTexte . '", ' . $lRubrique . ', ' . $lGroupe . ', ' . $lTaille . ', "' . date('Y/m/d H:i:s') .'")'; // Excute la requte $S2R_Sql->NewReq ($lReq); // Rcupre l'ID $lID = mysql_insert_id(); } // le fichier cache sera cr lors du premier tlchargement } // Fin de la page sauf si erreur : on affiche le formulaire if (!$lErreur && (isset($_POST['OK']) || isset ($_POST['Renommer']) || isset($_POST['Ecraser']))) { // Si on a cras un fichier en en modifiant un autre, on rtablie l'ID if (isset($_POST['Ecraser'])) { $lID = (int) $_POST['IDAnc']; } // Informe du lien pour rfrencer le fichier echo '

    '; printf (LG_UPLOAD_EXIT, $lNom); echo '

    ', LG_UPLOAD_LINK, ':

    <fichier=', $lID, '>', $lNom, '</fichier>

    '; require ($S2R_racine . 'pied.php'); } /* Modification : rcupration des donnes */ if (!empty ($_GET['Mod'])) { $lMod = (int) $_GET['Mod']; S2R_SqlInit ('SELECT Fichier, Nom, Texte, Rubrique, Groupe, Taille FROM ' . PREF_TAB . 'Fichiers WHERE ID=' . $lMod); if ($lDonnee = $S2R_Sql->Next()) { $lFichier = $lDonnee['Fichier']; $lNom = $lDonnee['Nom']; $lTexte = $lDonnee['Texte']; $lRubrique = $lDonnee['Rubrique']; $lTaille = $lDonnee['Taille']; $lGroupe = $lDonnee['Groupe']; $lMembre = (bool) $lGroupe; // Pour le bon fonctionnement des groupes if (!$lMembre) $lGroupe = 0x7fffffff; } } /* Gestion des groupes pour le formulaire */ // On rcupre la liste des groupes S2R_SqlInit ('SELECT ID, Nom FROM ' . PREF_TAB . 'Groupe ORDER BY ID'); // On rcupre le rsultat dans un tableau $lTabGroupe = array(); while ($lDonnee = $S2R_Sql->Next()) { $lTabGroupe[$lDonnee[0]] = $lDonnee[1]; } // Fonction pour afficher la liste des groupes (en cases cocher) function LesGroupes() { global $lTabGroupe, $lGroupe; // Case pour tous les Membres $Result = ''; // Case pour chacun des groupes foreach ($lTabGroupe as $Key => $Value) { // Ajoute une case cocher $Result .= ''; } return $Result; } // Fonction javascript pour afficher la liste des groupes echo ''; // Mmorise le controle anti-renvoi de formulaire dans le tableau de SESSION $_SESSION['S2R_Actu']['A' . $_SESSION['Actu']] = 1; echo '
    ', LG_UPLOAD_INFO, '
    '; if (empty ($lMod)) { echo '
    ', LG_UPLOAD_DISTANT, '
    ', LG_UPLOAD_SIZE, ':
    ', LG_OR, ' ', LG_UPLOAD_LOCAL, '
    '; } else { echo '
    ', LG_UPLOAD_REPLAC, '

    '; printf (LG_UPLOAD_CHANGE, LG_ADMIN_NEWFILE); echo '.

    '; if (strpos($lFichier , '://')) { echo '
    ', LG_UPLOAD_SIZE, ':
    '; } echo '
    ', LG_VISIBILITY, '
    '; if ($lMembre) { // Si on a coch Pour les membre, affiche la liste de tous les groupes possibles echo stripslashes(LesGroupes()); } echo '
    '; /* Pied de page * ****************/ include ($S2R_racine . 'pied.php'); ?> si2ra0.69/admin/squelette.php0000644000175000017500000000770610644744513016065 0ustar bernardbernard'; S2R_MenuAdm(); echo '
    '; /* Corps principal de la page * ******************************/ echo '
    '; $S2R_SqueletteList = array (); // Rcupre la liste des fichiers squelettes if ($handle = opendir($S2R_racine . 'style')) { while (false !== ($file = readdir($handle))) { if (!strcmp (substr ($file, -5, 5), '.html')) { $S2R_SqueletteList[] = substr ($file, 0, -5); } } closedir($handle); } echo '

    Le style du site peut tre modifi de deux faons:

    • A partir des feuilles de style (.css)
    • En modifiant les fichiers squelettes (.html), ce qui permet des modifications beaucoup plus profondes.

    Dans les deux cas, les fichiers modifier (par FTP) se trouvent dans le sous-rpertoire style du systme Si2Ra. Pour qu\'une modification des squelettes soit prise en compte, vous devez la valider grce la page prsente.

    '; // Interprtation des fichiers squelettes cochs if (isset ($_POST['OK'])) { echo '
      '; require_once($S2R_racine . 'admin/template.php'); foreach ($S2R_SqueletteList as $value) { if (!empty($_POST[$value])) { // interprte le squelette ScriptCreate($value); // supprime le cache if ($value == 'article') CacheSupp ($S2R_racine . 'pub', O, 1, 1); elseif ($value == 'rubrique') CacheSupp ($S2R_racine . 'pub', 1, 0, 1); elseif ($value == 'defaut') CacheSupp ($S2R_racine, 0, 1, 0); echo '
    • Squelette "' . $value . '.html" mis jour.
      • '; } } echo '
    '; } $l_modifiable = array (); // Vrifie si un des squelettes t modifis foreach ($S2R_SqueletteList as $value) { // Nom du fichier squelette $lFileName = $S2R_racine . 'style/' . $value . '.html'; // Date du fichier squelette if (file_exists ($lFileName)) { $lDateSquel = filemtime($lFileName); // Vrifie la date du fichier compil/ _pied.php $lFileName = $S2R_racine . 'compil/'. $value . '_pied.php'; $lResult = file_exists ($lFileName); if ($lResult) { $lDateCompil = filemtime($lFileName); $lResult = $lDateCompil > $lDateSquel; } // Ajoute le squelette la liste des squelette modifier if (!$lResult) { $l_modifiable[] = $value; } } else { ErrMsg('Le fichier ' . $lFileName . ' est manquant. Merci de rinstaller le systme.'); } } if (! count ($l_modifiable)) { echo '

    Tous les squelettes semblent actuellement jour.

    '; } // Affiche la liste des squelettes modifiables echo '
    Mettre jour les squelettes
    '; foreach ($S2R_SqueletteList as $value) { echo '
    '; } echo '
    '; /* Pied de page * ****************/ include ($S2R_racine . 'pied.php'); ?> si2ra0.69/admin/membres.php0000644000175000017500000004270510704615036015474 0ustar bernardbernard'; S2R_MenuAdm(); echo '
    '; /* Corps principal de la page * ******************************/ echo '
    '; // la classe Sql est appele par tableau2.php require_once ($S2R_racine . 'classes/tableau2.php'); /*** Rcupration des Groupes ***/ S2R_SqlInit ('SELECT ID, Nom, Droits FROM ' . PREF_TAB . 'Groupe ORDER BY ID'); // On rcupre le rsultat dans un tableau $lTabGroupe = array(); while ($Donnee = $S2R_Sql->Next()) { $lTabGroupe[$Donnee[0]]['Nom'] = $Donnee[1]; $lTabGroupe[$Donnee[0]]['Droit'] = $Donnee[2]; } // Fonction pour afficher les libell des Groupes et non les ID dans la liste des membres function lShowGroupe ($Groupe) { global $lTabGroupe; $fResult = ''; foreach ($lTabGroupe as $Key => $Gr) { if ((int)$Key & (int)$Groupe) { if ($fResult) $fResult .= ', '; $fResult .= $Gr['Nom']; } } return $fResult; } /*** Rcupration des Droits (uniquement si ncessaire) ***/ $lTabDroit = array (); if (isset($_GET['Voir']) || isset($_GET['Mod'])) { $S2R_Sql->NewReq ('SELECT ID, Nom FROM ' . PREF_TAB . 'Droits ORDER BY ID'); while ($Donnee = $S2R_Sql->Next()) { $lTabDroit[$Donnee[0]] = $Donnee[1]; } } /*** Instance de classe Tableau2 pour lister les membres ***/ $lTab = new Tab_Modif (PREF_TAB .'Membres'); // On signale le champ cl de recherche $lTab->AddField ('ID', '', S2R_CLE); // Les autres champs afficher $lTab->AddField ('Pseudo'); $lTab->AddField ('Prenom', 'Prnom', S2R_DETAIL); $lTab->AddField ('Nom', 'Nom', S2R_DETAIL); // Champ calcul pour le nom complet $lTab->AddField ('NomC', 'Nom', S2R_LISTE | S2R_DETAIL | S2R_ORDER, NULL, 'CONCAT(Prenom, " ", Nom)'); $lTab->AddField ('Groupe', 'Groupe(s)', S2R_LISTE | S2R_DETAIL, 'lShowGroupe'); $lTab->AddField ('Droits', 'Droits spciaux', S2R_DETAIL, 'lShowDroit'); $lTab->AddField ('Mail', 'Courriel', S2R_DETAIL); $lTab->AddField ('Creation', 'Date d\'inscription', S2R_LISTE | S2R_DETAIL | S2R_ORDER, 'MySql2DateFormat'); $lTab->AddField ('Createur', 'Valid par', S2R_DETAIL); $lTab->AddField ('Exclus', '', S2R_EXCLUS); $lTab->Button ('Voir', $_SERVER['PHP_SELF'] . '?Voir='); $lTab->Button ('Modifier', $_SERVER['PHP_SELF'] . '?Mod='); $lTab->Button ('Exclure', $_SERVER['PHP_SELF'] . '?Inact='); // Si aucun ordre n'a t dfini, on classe par Pseudo $lTab->DefautOrder('NomC'); /*** Initialisation des variables ***/ $lMod = empty($_POST['S2R_MOD']) ? 0 : (int) $_POST['S2R_MOD']; $lN_Pseudo = empty($_POST['NPseudo']) ? '' : Proteger(strtolower(substr($_POST['NPseudo'], 0, 20))); $lN_Prenom = empty($_POST['Prenom']) ? '' : Proteger($_POST['Prenom']); $lN_Nom = empty($_POST['Nom']) ? '' : Proteger($_POST['Nom']); $lN_Mail = empty($_POST['Mail']) ? '' : Proteger($_POST['Mail']); $lN_Pass = empty($_POST['NPass']) ? NULL : Proteger($_POST['NPass']); $lN_Pass2 = empty($_POST['NPass2']) ? NULL: Proteger($_POST['NPass2']); // Recupration du ou des groupe(s) $lNGroupe = empty($_POST['NGroupe']) ? 1 : (int)$_POST['NGroupe']; if (!empty($_POST['Groupes'])) { foreach ($_POST['Groupes'] as $Value) { $lNGroupe |= (int) $Value; } } // Rcupration des droits spciaux ventuels $lNDroits = 0; if (!empty($_POST['Droits'])) { foreach ($_POST['Droits'] as $Value) { $lNDroits |= (int) $Value; } } /*** Confirmation d'une action ***/ if (isset($_POST['S2R_OK'])) { $lErreur = 0; // Vrification du mot de passe de l'administrateur sans le modifier $PassGDS2 = 1; // $_SESSION['Pass'], $_SESSION['GDS1'] ont t dfini lors de la connexion de l'admin if (!VerifPass ($_SESSION['Pass'], $_SESSION['GDS1'], '', // On ne change pas le chiffrage du mot de passe Proteger ($_POST['Pass']), $_POST['PassGDS1'], $PassGDS2)) { $lErreur ++; ErrMsg (LG_ERR_PASS); } /*** Exclusion d'un compte ***/ if (!empty($_POST['S2R_Del'])) { // On s'assure du contenu de la variable $_POST['S2R_Del'] = (int) $_POST['S2R_Del']; if ($lErreur) { // On dclenche l'affichage $_GET['Inact'] = $_POST['S2R_Del']; } else { // Inactive le compte $S2R_Sql->NewReq('UPDATE ' . PREF_TAB . 'Membres SET Exclus=1, Creation="' . date('Y/m/d H:i:s'). '", Createur="' . $_SESSION['Nom']. '" WHERE ID='. $_POST['S2R_Del']); // Efface les messages reus $S2R_Sql->NewReq('UPDATE '. PREF_TAB . 'Destin SET Etat=Etat | ' . S2R_EFFACE . ' WHERE IDDestin=' . $_POST['S2R_Del']); // Efface les messages envoys $S2R_Sql->NewReq('UPDATE '. PREF_TAB . 'Messages SET Montrer=0 WHERE Auteur=' . $_POST['S2R_Del'] . ' AND Montrer'); // Suppression des messages entirement effacs (voir messagerie.php) $S2R_Sql->NewReq(' DELETE m1 FROM ' . PREF_TAB . 'Messages m1 INNER JOIN ( SELECT m2.ID FROM ' . PREF_TAB . 'Messages m2 INNER JOIN ' . PREF_TAB . 'Destin d ON m2.ID=d.IDmessage WHERE m2.Montrer=0 GROUP BY d.IDmessage HAVING BIT_AND(d.Etat) & ' . S2R_EFFACE . ') AS S WHERE m1.ID=S.ID' ); // Suppression des lignes correspondantes dans Destin $S2R_Sql->NewReq(' DELETE d FROM ' . PREF_TAB . 'Destin d LEFT JOIN ' . PREF_TAB . 'Messages m ON m.ID=d.IDmessage WHERE m.ID IS NULL' ); echo '

    ', sprintf(LG_MBRE_DELET, $lN_Prenom . ' ' . $lN_Nom), '

    '; } } /*** Cration ou modification d'un compte ***/ else { // Vrification des donnes if (!$lN_Pseudo) { ErrMsg(LG_COMPTE_NO_PSEUDO); // On dclenche l'affichage du formulaire $lErreur ++; } else { // Le Pseudo est-il dj utilis pour un autre registre ? $S2R_Sql->NewReq('SELECT COUNT(*) FROM ' . PREF_TAB . 'Membres WHERE Pseudo="' . $lN_Pseudo . '" AND ID<>' . $lMod); if ($Donnee = $S2R_Sql->Next()) { if ($Donnee[0]) { ErrMsg(LG_COMPTE_ERR_PSEUDO); $lN_Pseudo = ''; $lErreur ++; } } else { $S2R_Sql->Err('Impossible de vrifier le Pseudo'); } } if (!$lN_Prenom && !$lN_Nom) { // Il faut remplir au moins un des deux champs ! ErrMsg(LG_COMPTE_NO_NAME); $lErreur ++; } if ($lN_Mail && !IsMail($lN_Mail)) { ErrMsg(LG_MAIL_INVALID); $lErreur ++; } if (!$lN_Pass && !$lMod && empty($_POST['NPassGDS'])) { // Absence de mot de passe pour une cration de membre ErrMsg(sprinf(LG_MBRE_NO_PASS, MIN_LEN_PASS)); $lErreur ++; } elseif ($lN_Pass != $lN_Pass2) { // Mot de passe chang, non chiffr et mal saisi $lN_Pass = $lN_Pass2 = ''; ErrMsg(LG_ERR_PASS1_2); $lErreur ++; } elseif ($lN_Pass && (strlen($lN_Pass) < MIN_LEN_PASS)) { // Mot de passe chang, non chiffr et trop court $lN_Pass = $lN_Pass2 = ''; ErrMsg (sprintf(LG_COMPTE_MINPASS, MIN_LEN_PASS)); $lErreur ++; } // Vrifie le mot de passe du membre chiffr if (preg_match ('/^[a-f0-9]{40}$/', $_POST['NPassGDS'])) { $lNPassGDS = $_POST['NPassGDS']; } // Chiffre le mot de passe si celui-ci a t chang et non chiffr elseif ($lN_Pass) { $lNPassGDS = sha1($lN_Pass . $_SESSION['GDS_Mbre']); } if ($lErreur) { // Le formulaire s'affichera. $_GET['Mod'] = $lMod; } else { // Pas d'erreur : if ($lMod) { // Modification d'un registre existant d'ID S2R_MOD $lRequete = "UPDATE " . PREF_TAB . "Membres SET Pseudo='$lN_Pseudo', Prenom='$lN_Prenom', Nom='$lN_Nom', Mail='$lN_Mail', Groupe=$lNGroupe, Droits=$lNDroits, Creation='" . date('Y/m/d H:i:s'). "', Createur='" . $_SESSION['Nom']. "', Exclus=0"; if ($lNPassGDS){ // on modifie le mot de passe $lRequete .= ",Pass='" . $lNPassGDS . "', GDS1='" . $_SESSION['GDS_Mbre'] . "'"; } $S2R_Sql->NewReq($lRequete . ' WHERE ID=' . $lMod); echo '

    ', sprintf(LG_MBRE_EXIT, $lN_Prenom . ' ' . $lN_Nom), '

    '; // On efface les variables POST $_POST = array(); if (!$lNPassGDS) { echo '

    ', LG_MBRE_EXIT2, '

    '; } } else { // Ajout d'un nouveau registre $S2R_Sql->NewReq("INSERT INTO " . PREF_TAB . "Membres (Pseudo,Pass,GDS1,Prenom,Nom,Groupe,Mail, Creation,Createur,Droits,Exclus) VALUES('$lN_Pseudo', '$lNPassGDS', '" . $_SESSION['GDS_Mbre'] . "', '$lN_Prenom', '$lN_Nom', $lNGroupe, '$lN_Mail', '" . date('Y/m/d H:i:s'). "', '" . $_SESSION['Nom']. "', $lNDroits, 0)"); echo '

    Le compte de ', $lN_Prenom, ' ',$lN_Nom, ' a t ajout avec succs.

    '; // On efface les variables POST $_POST = array(); } } } // fin de gestion de l'inclusion ou de la modification d'un membre } // fin de gestion des actions confirmes ! /*** Suppression d'un membre ***/ if (isset($_GET['Inact'])) { // Utilise sha1GDS1 pour le mot de passe de l'admin : on dfini les variables javascript ! echo ' '; $lID = (int)$_GET['Inact']; // On rcupre le nom et prnom et valideur du compte $S2R_Sql->NewReq('SELECT Prenom,Nom,Createur FROM ' . PREF_TAB . 'Membres WHERE ID=' . $lID . ' AND Exclus=0'); if (!$Donnee = $S2R_Sql->Next()) { ErrMsg('Le compte n\'existe pas ou a dj t exclus'); } else { // Formulaire de suppression echo '

    Exclure un Membre

    Voulez-vous vraiment inactiver le compte de
    ', $Donnee['Prenom'], ' ', $Donnee['Nom'], ' qui avait t valid par ', $Donnee['Createur'], '?

    Si vous confirmez, cet utilisateur ne pourra plus se connecter et apparatra en gris dans la liste des membres

    '; AddPass ('Pass', 'Votre Mot de Passe*'); echo '
     
    '; } } /*** Formulaire d'ajout ou de modification de compte ***/ elseif (isset($_GET['Mod'])) { if (!$lMod) $lMod = (int)$_GET['Mod']; if ($lMod) { // Modification echo '

    ', LG_MBRE_ALTER, '

    '; // On rcupre les donnes actuelles du registre $S2R_Sql->NewReq('SELECT Pseudo,Prenom,Nom,Groupe,Mail, Droits FROM ' . PREF_TAB . 'Membres WHERE ID=' . $lMod); if ($Donnee = $S2R_Sql->Next()) { if (! isset($_POST['NPseudo'])) { // On ne corrige pas ces donnes si elles ont dj t envoyes $lN_Pseudo = $Donnee['Pseudo']; $lN_Prenom = $Donnee['Prenom']; $lN_Nom = $Donnee['Nom']; $lN_Mail = $Donnee['Mail']; $lNGroupe = $Donnee['Groupe']; $lNDroits = $Donnee['Droits']; } } } else { // Ajout echo '

    ', LG_MBRE_NEW, '

    '; } // Grain de sel pour cryptage de l'ventuel MDP du membre. $_SESSION['GDS_Mbre'] = GdsCreate(); // Javascript pour le formulaire echo ' '; // le formulaire echo '

    Les champs marqus d\'une * sont obligatoires.

    Donnes du nouveau Membre'; AddEdit ('NPseudo', LG_CONNECT_PSEUDO .'*', $lN_Pseudo, 18, 20); AddEdit ('Prenom', LG_COMPTE_1stNAME .'*', $lN_Prenom, 18, 30); AddEdit ('Nom', LG_COMPTE_NAME, $lN_Nom, 18, 30); AddEdit ('Mail', LG_MBRE_MAIL, $lN_Mail, 34, 50); // Le mot de passe n'est indispensable que s'il s'agit d'un nouveau membre $lObligatoire = $lMod ? '' : '*'; AddPass ('NPass', LG_PASS . $lObligatoire, $lN_Pass, 18); AddPass ('NPass2', LG_COMPTE_PASS2 . $lObligatoire, $lN_Pass2, 18); echo '
    '; // Formulaire pour choisir les groupes echo ' Cochez 1 ou plusieurs Groupe(s)'; foreach ($lTabGroupe as $Key =>$Value) { // Ajoute une case cocher echo ' '; } echo '
    Droits supplmentaires pour le membre Les droits griss correspondent ceux des groupes choisis'; foreach ($lTabDroit as $Key =>$Value) { // Ajoute une case cocher echo ' '; } echo '
    Valider l\'inscription'; AddPass ('Pass', 'Votre Mot de Passe*'); // Ajout d'un bouton Confirmer et d'un bouton Annuler echo '
    '; echo '
    '; } // elseif (isset($_GET['Mod'])) { /*** voir les dtails ***/ elseif (isset($_GET['Voir'])) { // afficher les droits et non le code ! function lShowDroit ($Droits) { global $lTabDroit; echo '
      '; foreach ($lTabDroit as $Key => $Nom) { if ((int) $Key & (int)$Droits) { echo '
    • ', $Nom, '
      • '; } } echo '
    '; } echo '
    '; $lTab->Detail((int)($_GET['Voir']), 'NomC'); echo '
    '; } /*** Liste des membres ***/ if (!isset($_GET['Mod'])) { echo '

    Ajouter un Membre

    '; } echo '

    Il y a ', $lTab->Count(), ' utilisateurs enregistrs.

    '; $lTab->Liste(); /* Pied de page * ****************/ include ($S2R_racine . 'pied.php'); ?> si2ra0.69/admin/template.php0000644000175000017500000004545510702347417015665 0ustar bernardbernard et . Pour crire la prsentation de vos pages, les balises suivantes seront interprtes. Les balises , , et sont suceptibles d'tre rencontres l'intrieur de balises html ! chemin vers la racine du site Nom du site Titre de la page Nom de l'utilisateur (ou visiteur) Mettre LG_VISITOR comme '' pour ne rien mentionner Pseudo de l'utilisateur Message d'accueil lorsque l'on se connecte (affiche quand remonte la derniere connexion) Affichage d'une constante dfinie dans le fichier langue commun Date de mise jour, temps de calcul, nombre de requete, mmoire ( n'utiliser qu'en fin de page !) formulaire permettant de choisir le style (s'il y en a plusieurs) Menus essentiels balises avec un seul lien : ne sont pas encadres par des
  • afin de pouvoir tre utiliss n'importe o lien vers la page d'accueil lien vers le plan Lien vers la page tlcharger Lien vers le rpertoire PUB Lien vers les pages d'aide Lien vers le formulaire de contact du Webmaster balises avec plusieurs liens : sont encadres par des
  • Se connecter ou si connect : Deconnexion, Messagerie et Admin liste des liens vers les sous-rubriques de PUB (rubriques principales) Pour les articles et rubriques: Chemin clicable pour remonter les rubriques Texte de l'article ou de la rubrique (facultatif) Le code que vous insrerez ici sera affich si il y a au moins une sous rubrique Liste des sous-dossiers du dossier en cours (
  • NomRubrique
    • ) A vous de vous charger d'encadrer par
      (ou
        ) Le code que vous insrerez ici sera affich si il y a au moins une sous rubrique (facultatif) Le code que vous insrerez ici sera affich en l'absence de sous rubrique (ferme les balises et ) (facultatif) Le code que vous insrerez ici sera affich si il y a au moins un article Liste tous les articles visibles par l'utilisateur de la rubriques actuelle Vous pouvez ajouter dans la balises article les mots cles suivants ABSTRACT : affiche les sous-titres eventuels des articles LIMIT=x : N'affiche que les x derniers articles PAGE=x : Listes x articles par page (avec lien pour naviguer entre les pages) IMG=Nom_de_l'image_eventuelle (Attention, cela doit toujours tre le DERNIER paramtre) exemple : Liste tous les articles avec leur sous titre Listes les 5 derniers articles Listes les articles avec leur sous-titre par pages de 10 (facultatif) Le code que vous insrerez ici sera affich en l'absenceCrer d'article visible (ferme les balises et ) Pour les articles Bouton permettant l'auteur d'diter l'article Bouton permettant d'diter la rubrique Bouton permettant d'crire un nouvel article dans la rubrique Sous titre de l'article Signature avec lien pour crire l'auteur */ // Balises laisser car marquant les diffrents embranchements possibles $NoChange = array ('IF_ARTICLE', 'NO_ARTICLE', '/ARTICLE', 'IF_RUBRIQUE', 'NO_RUBRIQUE', '/RUBRIQUE'); // 'TEXTE'); /* fonction effectuant la substitution des balises simples par le code correspondant Les balises de la liste $NoChange ne sont pas affectes $Squetette est le nom du fichier sans son chemin ni son extension */ function CompileTemplate ($Squelette) { global $S2R_racine, $NoChange; // Balises remplacer simplement par un texte afficher par echo $Variables = array ( 'ABSTRACT' => '$S2R_Abstract', 'ADMIN' => '$S2R_Admin', 'CHEMIN' => '$S2R_ChemClic', 'RACINE' => '$S2R_racine', 'SITE' => 'SITE', 'TITRE' => '$S2R_Titre', 'USER' => '$_SESSION[\'Nom\']', 'WELCOME' => '$S2R_Connexion', 'ACCUEIL' => '\'\' . LG_HOME . \'\'', 'DOWNLOAD' => '\'\' . LG_DOWNLOAD. \'\'', 'PLAN' => '\'\' . LG_MAP . \'\'', 'PUB' => '\'\' . LG_ARTICLE . \'\'', 'WEBMASTER' => '\'\' . LG_PIED_WRITETO . \'\'' ); // Balises pouvant recevoir des paramtres (listes d'items) $ListItems = array ( 'ARTICLES', 'RUBRIQUES' ); // Balises correspondant des blocs $BlocIf = array ( 'AIDE' => ' if ((int) $_SESSION[\'Groupe\'] & 0x7fffffff) { echo \'\' . LG_HELP . \'\'; }', 'AUTEUR' => ' if (!empty ($S2R_AuteurName)) { echo \' \', LG_PAGECREAT_MAIL, \' \', $S2R_AuteurName, \'\'; }', 'CHAPITRES' => ' // Sauvegarde les variables du dossier en cours si besoin if (isset ($S2R_Art)) { $temp_Art =& $S2R_Art; unset ($S2R_Art); } if (isset ($S2R_Rub)) { $temp_Rub =& $S2R_Rub; unset ($S2R_Rub); } if (isset ($S2R_ChemClic)) { $temp_Chem =& $S2R_ChemClic; unset ($S2R_ChemClic); } if (isset ($S2R_racine)) { $temp_Racine = & $S2R_racine; unset ($S2R_racine); } // Rcupre les noms des rubriques principales $lChapitre = $temp_Racine . \'pub/_dossier.php\' ; if (file_exists ($lChapitre)) { include_once ($lChapitre); if (!isset ($S2R_Rub)) { // fichier dj inclus ! $S2R_Rub =& $temp_Rub; unset ($temp_Rub); } if (!empty ($S2R_Rub)) { foreach ($S2R_Rub as $Value) { if ($Value[\'D\'] && !(((int) $_SESSION[\'Groupe\'] & $Value[\'D\']) || ((int) $_SESSION[\'Droits\'] & 0x2))) continue; echo \'
      1. \', $Value[\'T\'], \'
        2. \'; } } } // Retablit les variables du dossier en cours si besoin if (isset ($temp_Art)) { $S2R_Art =& $temp_Art; } if (isset ($temp_Rub)) { $S2R_Rub =& $temp_Rub; } if (isset ($temp_Chem)) { $S2R_ChemClic =& $temp_Chem; } if (isset ($temp_Racine)) { $S2R_racine = & $temp_Racine; }', 'EDITART' => ' if (!empty($S2R_Auteur) && ($S2R_Auteur == $_SESSION[\'IdMembre\'])) { echo \' \', LG_PAGECREAT_EDIT, \'\'; }', 'LASTCHANGE' => ' if (!empty($S2R_date)) { echo LG_PIED_DATE, \' \', $S2R_date; } ', 'NOUVART' => ' if ((int) $_SESSION[\'Droits\'] & 0x10) { echo \' \', LG_NEW_ART, \'\'; }', 'PSEUDO' => ' if (empty($_SESSION[\'Pseudo\'])) { echo LG_VISITOR; } else { echo $_SESSION[\'Pseudo\']; }', 'STATISTIQUES' => ' if (isset($S2R_cTimeInit)) { $lTemps = microtime_float(microtime()) - microtime_float($S2R_cTimeInit); printf (LG_PIED_TIME, $lTemps); } if (isset($S2R_cSqlNbReq)) { echo \'~ \', $S2R_cSqlNbReq, \' \', LG_PIED_SQL, \' Sql ~\'; } if (function_exists (\'memory_get_usage\')) { $S2R_Memory = max ($S2R_Memory, memory_get_usage()); echo \'~ \', LG_PIED_MEM, \' : \', ReadSize($S2R_Memory), \' ~\'; }', 'STYLE_LIST' => ' if (empty ($_SESSION[\'styles\'])) { // Liste les sous-rpertoires de style/ disponibles $styleDir = $S2R_racine . \'style/\'; if ($handle = opendir($styleDir)) { while (false !== ($dir = readdir($handle))) { if (is_dir ($styleDir . $dir) && ($dir[0] != \'.\') && file_exists($styleDir . $dir . \'/style.css\')) { $_SESSION[\'styles\'][] = $dir; } } closedir($handle); } } // Affiche le slecteur de style s\'il y a plus d\'un style if (count ($_SESSION[\'styles\']) > 1) { echo \'
        \', LG_STYLE, \'
        \'; }' ); // Ajoute le bouton pour diter les rubriques si l'on est dans un squelette de rubrique if ($Squelette == 'rubrique') { $BlocIf['EDITRUB'] = ' if ((int) $_SESSION[\'Droits\'] & 0x1000000) { echo \' \', LG_PAGECREAT_EDIT2, \'\'; }'; } // $Squetette est le nom du fichier sans son chemin ni son extension $mFileName = $S2R_racine . 'style/' . $Squelette . '.html'; // Ouvre le fichier squelette en lecture et le lit dans une variable $mFile = fopen ($mFileName, 'rb'); if (!$mFile) { echo '

        ', LG_ERR_OPEN , $mFileName, '.

        '; return 0; } $mTexte = fread ($mFile, filesize($mFileName)); fclose ($mFile); if (! $mTexte) { echo '

        ', LG_ERR_READ , $mFileName, '.

        '; return 0; } // Mais un slach avant les guillemets simples ! $mTexte = str_replace ("'", "\'", $mTexte); // Cherche les ouvertures de balise $Position = 0; // Position partir de laquelle poursuivre la recherche $Segment = 0; // Position partir de laquelle afficher le texte // Variable pour la page crire $mPage = ' // Lister des articles ou des rubriques ou autre lment sous mme forme // $Relief permet de mettre en relief l\'item correspondant function S2R_ListItems (&$MaListe, $Balise, $Relief = -1) { if (empty($MaListe)) return; global $S2R_racine; $ShowAbstract = strpos ($Balise, \'ABSTRACT\') ? 1 : 0; $fLimit = 0; $fPage = 0; $fImg = NULL; if ($tempPos = strpos ($Balise, \'LIMIT=\')) { $fLimit = (int) substr($Balise, $tempPos + 6); } elseif ($tempPos = strpos ($Balise, \'PAGE=\')) { $fPage = (int) substr($Balise, $tempPos + 5); } if ($tempPos = strpos ($Balise, \'IMG=\')) { $fImg = $S2R_racine . \'img/\' . substr($Balise, $tempPos + 4); } foreach ($MaListe as $Key => $Value) { if ($Key == $Relief) { echo \'
      2. \', $Value[\'T\'], \'
        3. \'; $Num ++; } else { if ($Value[\'D\'] && !( ((int) $_SESSION[\'Groupe\'] & $Value[\'D\']) || ((int) $_SESSION[\'Droits\'] & 0x2))) continue; echo \'
      3. \'; if ($fImg) { echo \' \'; } echo $Value[\'T\'], \'\'; if ($ShowAbstract) { echo \'
        \', $Value[\'R\'] ; } echo \'
        4. \'; $Num ++; } if ($fLimit) { if ($Num == $fLimit) break; } elseif ($fPage) { } } } '; while ((($BaliseIni = strpos ($mTexte , '<', $Position)) !== false) && ($FinBalise = strpos ($mTexte, '>', $BaliseIni + 1))) { // Rcupre le contenu de la balise $Balise = substr ($mTexte, $BaliseIni + 1, $FinBalise - $BaliseIni -1); // Recherche un espace au sein de la balise (premier mot de la balise if (($Espace = strpos ($Balise, ' ')) === false) { $Mot = $Balise; } else { $Mot = substr ($Balise, 0, $Espace); } // Balises d'embrenchement (sont traite par une autre fonction if (in_array ($Mot, $NoChange) || ($Balise == 'TEXTE')) { $mPage .= ' echo \'' . substr ($mTexte, $Segment, $BaliseIni - $Segment) . '\'; <' . $Mot . '>'; } // traitement des variables simples elseif (array_key_exists ($Mot, $Variables)) { // on affiche ce qui prcde $mPage .= ' echo \'' . substr ($mTexte, $Segment, $BaliseIni - $Segment); // et la variable $mPage .= '\', ' . $Variables[$Mot] . ';'; } // traitement des balises langues elseif (!strncmp ('LG_', $Mot, 3)) { // on affiche ce qui prcde $mPage .= ' echo \'' . substr ($mTexte, $Segment, $BaliseIni - $Segment); // et la constante $mPage .= '\', ' . $Mot . ';'; } // Blocs conditionnels simples elseif (array_key_exists ($Mot, $BlocIf)) { // on affiche ce qui prcde $mPage .= ' echo \'' . substr ($mTexte, $Segment, $BaliseIni - $Segment) . '\';'; // et le bloc $mPage .= $BlocIf[$Mot] ; } // Listes d'articles, de rubriques... elseif (in_array($Mot, $ListItems)) { // on affiche ce qui prcde $mPage .= ' echo \'' . substr ($mTexte, $Segment, $BaliseIni - $Segment) . '\';'; // S'il s'agit d'une liste d'articles if (!strcmp ($Mot, 'ARTICLES')) { $mPage .= ' $Relief = (isset($S2R_ArtNum)) ? $S2R_ArtNum : -1; S2R_ListItems ($S2R_Art, \'' . $Balise . '\', $Relief);'; } // Autres listes elseif (!strcmp ($Mot, 'RUBRIQUES')) { $mPage .= ' S2R_ListItems ($S2R_Rub, \'' . $Balise . '\');'; } } // S'il ne s'agit pas d'une balise template, recherche la prochaine ouverture de balise else { $Position = $BaliseIni + 1; continue; } // dbut de la prochaine recherche et du nouveau segment $Position = $Segment = $FinBalise +1; } // ajoute le texte aprs la dernire balise et ferme le corps de la page $mPage .= ' ?> '. substr ($mTexte, $Segment) . ' '; return $mPage; } // Fin de la fonction CompilTemplate() // Ecrit un script dans le rpertoire compil function PageWrite($Squelette, $Suffixe, $Page) { global $S2R_racine; $fResult = 0; // Nom du fichier temporaire $fFileName = $S2R_racine . 'compil/' . $Squelette . $Suffixe; // Ouvre le fichier en criture $fFile = fopen ($fFileName, 'w'); if (!$fFile) { echo '

        ', LG_ERR_OPEN , $fFileName, '.

        '; return $fResult; } // crit la page $fResult = fwrite ($fFile, $Page); // Ferme le fichier fclose ($fFile); if ($fResult) { // Renomme le fichier avec extension .php if (file_exists ($fFileName . '.php')) unlink ($fFileName . '.php'); $fResult = rename($fFileName, $fFileName . '.php'); } if (! $fResult) { echo '

        ', LG_ERR_WRITE , $fFileName, '.

        '; } return $fResult; } // fonction grant les balises IF_ NO_ / : retourne le texte modifi, ce qui permet un appel rcurssif function CompileIfNo ($fTexte) { global $NoChange; // Recherche les balises qui n'ont pas t prcdement interprtes // Cherche les ouvertures de balise $Position = 0; // Position partir de laquelle poursuivre la recherche $Segment = 0; // Position partir de laquelle afficher le texte $fResult = ''; while ((($BaliseIni = strpos ($fTexte , '<', $Position)) !== false) && ($FinBalise = strpos ($fTexte, '>', $BaliseIni + 1))) { // Rcupre le contenu de la balise $Balise = substr ($fTexte, $BaliseIni + 1, $FinBalise - $BaliseIni -1); // S'il s'agit d'une des balises templates non traites par la 1re fonction if (in_array ($Balise, $NoChange)) { // Ajoute le texte prcdent la balise $fResult .= substr ($fTexte, $Segment, $BaliseIni - $Segment); /* if (!strcmp ($Balise, 'TEXTE')) { // La balise n'est pas interprte ici $fResult .= ''; // dbut de la prochaine recherche et du nouveau segment $Position = $Segment = $FinBalise +1; continue; } */ if (! strcmp ($Balise, 'IF_ARTICLE') ) { // Position de la balise /ARTICLE $FinPos = strpos ($fTexte , '', $FinBalise); // Position de la balise NO_ARTICLE attention : position relative la sous-chane $NoPos = strpos (substr ($fTexte , $FinBalise, $FinPos - $FinBalise), ''); if ($NoPos !== FALSE) { // Rtablit l'adresse de $NoPos par rapport au texte entier $NoPos += $FinBalise; $fResult .= ' if (empty($S2R_Art)) { ' . CompileIfNo(substr ($fTexte, $NoPos + 12, $FinPos - $NoPos - 12)) .' } else { ' . CompileIfNo(substr ($fTexte, $FinBalise + 1, $NoPos - $FinBalise - 1)) .' }'; } else { $fResult .= ' If (!empty($S2R_Art)) { // Affiche ce qui ce trouve jusqu\' /ARTICLE ' . CompileIfNo(substr ($fTexte, $FinBalise + 1, $FinPos - $FinBalise - 1)) .' }'; } // debut de la prochaine recherche en cas de balise IF_ $Position = $Segment = $FinPos + 10; continue; } elseif (!strcmp($Balise, 'IF_RUBRIQUE')) { // Position de la balise /RUBRIQUE $FinPos = strpos ($fTexte , '', $FinBalise); // Position de la balise NO_RUBRIQUE $NoPos = strpos (substr ($fTexte , $FinBalise, $FinPos - $FinBalise), ''); if ($NoPos !== FALSE) { // Rtablit l'adresse de $NoPos par rapport au texte entier $NoPos += $FinBalise; $fResult .= ' if (empty($S2R_Rub)) { ' . CompileIfNo(substr ($fTexte, $NoPos + 13, $FinPos - $NoPos - 13)) .' } else { ' . CompileIfNo(substr ($fTexte, $FinBalise + 1, $NoPos - $FinBalise - 1)) .' }'; } else { $fResult .= ' If (!empty($S2R_Rub)) { // Affiche ce qui ce trouve jusqu\' /RUBRIQUE ' . CompileIfNo(substr ($fTexte, $FinBalise + 1, $FinPos - $FinBalise - 1)) .' }'; } // debut de la prochaine recherche en cas de balise IF_ $Position = $Segment = $FinPos + 11; continue; } } // S'il ne s'agit pas d'une balise template, recherche la prochaine ouverture de balise else { $Position = $BaliseIni + 1; } } // ajoute le texte aprs la dernire balise et ferme le corps de la page $fResult .= substr ($fTexte, $Segment); // Retourne la chaine transforme return $fResult; } /* Fonction crant le script partir du squelette printerprt par CompileTemplate */ function ScriptCreate($Squelette) { global $NoChange; // Interprte la plupart des balises $mTexte = CompileTemplate($Squelette); if (!$mTexte) return 1; // Interprte les boucles IF_ NO_ / $mTexte = CompileIfNo ($mTexte); if (!$mTexte) return 1; // Variable pour la page crire $mPage .= ' $Position = strpos($mTexte, ''); if ($Postion !== false) { // Texte de la partie pr-TEXTE $mPage .= substr ($mTexte, 0, $Position) ; } // ferme le fichier tete $mPage .= ' ?>'; // Grave le template pr-texte if (! PageWrite($Squelette, '_tete', $mPage)) { return 2; } // Dmarre le fichier de pied de page $mPage = ' si2ra0.69/admin/ecrire_art.php0000644000175000017500000004725110704206765016167 0ustar bernardbernard

        Aide

        1. Choisissez la rubrique dans laquelle vous voulez publier l\'article.
        2. Pour pouvoir enregistrer votre travail, il est ncessaire d\'avoir au minimum:
          - donn le titre
          - commenc le texte
        3. Afin de ne pas perdre votre travail en raison d\'une dconnexion intempestive, enregistrez le rgulirement.
        4. L\'insertion d\'une image a partir de votre ordinateur se fait en 2 temps:
          - choisir l\'image par le bouton parcourir et lui donner un titre ventuel
          - Aprs avoir cliqu sur le bouton envoyer (ou enregistrer), cliquer sur le lien qui apparait dans le cadre image pour insrer le code de l\'image dans le texte.
        5. A tout moment, vous pouvez juger de l\'aspect final grace au bouton Prvisualiser
        6. Lorsque votre article est fini, cliquez sur publication.
        '; /* Corps principal de la page * ******************************/ echo '
        '; // On rcupre la liste des rubriques du dossier pub $lListeDossiers = array(); // Requte SQL sur les rubriques S2R_SqlInit ('SELECT ID, Parent, Nom, Dossier, Supprime, Groupe FROM ' . PREF_TAB . 'Rubrique'); while ($Donnee = $S2R_Sql->Next()) { $lListeDossiers[$Donnee['ID']] = array ('Nom' => $Donnee['Nom'], 'Pere'=> $Donnee['Parent'], 'Dos' => $Donnee['Dossier'], 'Sup' => $Donnee['Supprime'], 'Gr' => $Donnee['Groupe']); } // On rorganise l'arborescence de la liste $lArbre = new Arbre (NULL); $lArbre->LoadArray($lListeDossiers); // On rcupre les variables POST $lID = empty($_POST['Mod']) ? 0 : (int) $_POST['Mod']; $lExDossier = empty($_POST['ExDossier'])? 0 : (int) $_POST['ExDossier']; $lDossier = empty($_POST['Dossier']) ? 0 : (int) $_POST['Dossier']; $lFichier = empty($_POST['Fichier']) ? '' : Proteger($_POST['Fichier']); $lTitre = empty($_POST['Titre']) ? '' : Proteger($_POST['Titre']); $lResume = empty($_POST['Resume']) ? '' : Proteger($_POST['Resume']); $lTexte = empty($_POST['Texte']) ? '' : Proteger($_POST['Texte']); $lMotCle = empty($_POST['MotCle']) ? '' : Proteger($_POST['MotCle']); $lDate = empty($_POST['Date']) ? '' : Proteger($_POST['Date']); $lIdAuteur = empty($_POST['IdAuteur']) ? 0 : (int) $_POST['IdAuteur']; $lAuteur = empty($_POST['Auteur']) ? '' : Proteger($_POST['Auteur']); $lModif = empty($_POST['Modif']) ? '' : Proteger($_POST['Modif']); $lValid = empty($_POST['Valid']) ? '' : Proteger($_POST['Valid']); $lDate = empty($_POST['Date']) ? '' : Proteger($_POST['Date']); $lDateVal = empty($_POST['DateVal']) ? 0 : Proteger($_POST['DateVal']); $lLang = empty($_POST['Lang']) ? $S2R_Lang : Proteger($_POST['Lang']); /* Liste des images charges pour cet article Cette variable ne sera ni affiche ni utilise dans une requte => pas de vrification */ $lImageList = empty($_POST['ImageList']) ? NULL : explode(',', $_POST['ImageList']); $lErreur = 0; // A-t'on envoy une image ? if (!empty($_FILES['Image']['name']) && isset( $_SESSION['S2R_Actu'][$_POST['S2R_Actu']])) { // Efface la donne du tableau pour viter un nouvel envoi de l'image unset ($_SESSION['S2R_Actu'][$_POST['S2R_Actu']]); // On vrifie que l'image soit correcte if ($_FILES['Image']['error'] > 0) { ErrMsg('Une erreur est survenue lors du transfert de l\'image !'); } elseif ($_FILES['Image']['size'] > S2R_MAX_IMG_SIZE) { ErrMsg('Le fichier d\'image est trop gros !'); echo '

        Demandez au responsable du site s\'il peut augmenter la taille des images (limite actuelle = ', ReadSize(S2R_MAX_IMG_SIZE), ').

        '; } else { $extensions_valides = array( 'jpg' , 'jpeg' , 'gif' , 'png' ); $extension_upload = strtolower(substr( strrchr($_FILES['Image']['name'], '.'), 1)); if (! in_array($extension_upload, $extensions_valides)) { ErrMsg('Le fichier ' . $_FILES['Image']['name'] . ' n\'est pas une image autorise'); echo '

        Utilisez pour vos images le format gif, png ou jpeg.

        '; } else { // On sauve l'image $lImage = uniqid(strval(mt_rand(10, 99))) . '.' . $extension_upload ; // On dplace le fichier if (! move_uploaded_file( $_FILES['Image']['tmp_name'], $S2R_racine . 'file/img/' . $lImage)) { ErrMsg('Le fichier image n\'a pas pu tre transfr'); // On supprime le nom du fichier pour ne pas afficher le lien $lImage = ''; } else { // Ajoute l'image la liste des images charges $lImageList[] = $lImage; } // Titre de l'image : $lNomImg = empty($_POST['NomImg']) ? '' : Proteger($_POST['NomImg']); // On corrige les apostrophes $lNomImg = str_replace(''','’', $lNomImg); } } // On affiche de nouveau le formulaire si on a cliqu sur Publier ou Graver $lErreur = 1; } // Si on a cliqu sur le bouton envoyer if (isset($_POST['Envoi'])) { // On affiche de nouveau le formulaire ! $lFormulaire = 1; } // a-t-on demand l'enregistrement des donnes ? elseif (isset($_POST['Graver']) || isset ($_POST['Soumettre'])) { // Evite les envois en double ... (dsactiv s'il y a eu interruption de la session !) if (isset($_SESSION['S2R_Actu']) && ! isset ($_SESSION['S2R_Actu'][$_POST['S2R_Actu']])) { // Il y a eu actualisation de la page : vite un renvoi ErrMsg (LG_ERR_ACTU); echo '

        Cliquez ici pour revenir vos articles

        '; require ($S2R_racine . 'pied.php'); } else { // Efface la donne du tableau pour viter une nouvelle interprtation du mme formulaire unset ($_SESSION['S2R_Actu'][$_POST['S2R_Actu']]); } // On vrifie les donnes indispensables if (!$lTitre) { $lErreur ++; ErrMsg ('Vous n\'avez pas spcifi de titre pour l\'article.'); } if (empty($lTexte)) { $lErreur ++; ErrMsg ('Vous n\'avez pas crit de texte pour l\'article.'); } // On vrifie que le dossier pre soit actif if ($lArbre->Inactif ($lDossier)) { $lErreur ++; ErrMsg ('La rubrique que vous avez choisie n\'existe pas ou a t supprime.'); } if ($lErreur) { $lFormulaire = 1; } else { // On vrifie que toutes les images charges soient rfrences foreach ($lImageList as $Image) { if (strpos($lTexte, $Image) === FALSE) { // Suprimme l'image $ChemIm = $S2R_racine . 'file/img/' . $Image; if (file_exists($ChemIm)) { if (unlink ($ChemIm)) { echo '

        L\'image ', $Image, ' avait t tlcharge sans tre utilise. Elle a t supprime du serveur.

        '; } } } } if (!$lID) { // Il s'agit du premier enregistrement d'un article // On donne par dfaut la visibilit de la rubrique $lGroupe = $lListeDossiers[$lDossier]['Gr']; $lRequete = 'INSERT INTO '. PREF_TAB . 'Article (Titre, Groupe, Texte, Resume, MotCle, Lang, Auteur, Date, AValider, ID_Dossier) VALUES ("' . $lTitre .'", "' . $lGroupe . '", "' . $lTexte .'", "' . $lResume . '", "' . $lMotCle .'", "' . $lLang . '", ' . $_SESSION['IdMembre'] . ', "' . date('Y/m/d H:i') . '",'; // On demande la validation si on a choisi le bouton correspondant if (isset ($_POST['Soumettre'])) { $lRequete .= '1, '; } else $lRequete .= '0, '; $lRequete .= $lDossier . ')'; $S2R_Sql->NewReq ($lRequete); // On rcupre l'ID de l'article $lID = mysql_insert_id(); echo '

        L\'article ', $lTitre, ' a t enregistre dans la table.

        '; } else { // On actualise la table sans toucher aux groupes grs par la publication $S2R_Sql->NewReq ("UPDATE " . PREF_TAB ."Article SET Titre = '$lTitre', Texte = '$lTexte', Resume = '$lResume', MotCle = '$lMotCle', Lang='$lLang', Modif = " . $_SESSION['IdMembre'] . ", Date = '". date("Y/m/d H:i") . "', AValider = " . (isset ($_POST['Soumettre']) ? 1 : 0) . ", ID_Dossier = $lDossier WHERE ID=$lID"); echo '

        L\'article ', $lTitre, ' a t modifie dans la table.'; } // si demande de publication if (isset ($_POST['Soumettre'])) { if ((int)$_SESSION['Droits'] & 0x1000) { echo '

        Cliquez ici pour publier l\'article

        '; } else { echo '

        Votre article a t ajout la liste des articles publier.
        Il sera examin par un des responsables du site.

        '; } } else { if ($lDateVal) { echo '

        Vous n\'avez pas demand de publication. Les modifications ne seront visible qu\'aprs nouvelle publication.

        Vous pouvez retrouver votre article dans la liste "Tous mes articles".

        '; } else { echo'

        Vous pouvez le retrouver dans la listes des brouillons.

        '; } echo '

        Cliquez ici pour retourner l\'article
        ', $lTitre, '

        '; } } } // S'agit-il d'une suppression d'article ? elseif (isset($_POST['S2R_Sup'])) { if (!$lID) { ErrMsg ('Vous essayez de supprimer un article qui n\'existe pas encore !'); } elseif (! ($_SESSION['Groupe'] & 0x20000000) && ! ($_SESSION['IdMembre'] == $lIdAuteur)) { // Seuls les administrateurs ou l'auteur peuvent supprimer un article ErrMsg ('Seul l\'auteur ou un administrateur peut supprimer un article.'); } else { // On demande confirmation pour supprimer l'article echo '

        Supprimer un Article

        Voulez-vous vraiment supprimer l\'article:

        ', $lTitre, '

        crit par ', $lAuteur ; if ($lDateVal) { echo '
        publi le ', MySql2DateFormat($lDateVal), ' par ', $lValid; } echo ' ?

        Cette action est dfinitive.

        '; echo '
         
        '; } } // Confirmation d'une suppression d'article? elseif (!empty($_POST['S2R_Del'])) { if (!$lID) { ErrMsg ('Vous essayez de supprimer un article qui n\'existe pas encore !'); } elseif (! ($_SESSION['Groupe'] & 0x20000000) && ! ($_SESSION['IdMembre'] == $lIdAuteur)) { // Seuls les administrateurs ou l'auteur peuvent supprimer un article ErrMsg ('Seul l\'auteur ou un administrateur peut supprimer un article.'); } else { // On rcupre les images ventuelles supprimer if ($lTexte) { if (preg_match_all('@<image src=(.+)>.*</image>@sU', $lTexte, $lDelImg)) { // Libre la mmoire de la partie inutile unset($lDelImg[0]); // Suppression des images foreach ($lDelImg[1] as $value) { $ChemIm = $S2R_racine . 'file/img/' . $value; if (file_exists($ChemIm)) { if (unlink ($ChemIm)) { echo '

        Suppression de l\'image ', $value, '.

        '; } } } } } // On le supprime de la base $S2R_Sql->NewReq ('DELETE FROM '. PREF_TAB . 'Article WHERE ID=' . $lID); echo '

        L\'article ', $lTitre, ' a t supprim de la base de donnes.

        '; // On supprime la page du dossier $lDossier = $lExDossier ? $lExDossier : $lDossier; $lChemin = $S2R_racine . $lArbre->Chemin ($lDossier, '/', 'Dos') . '/' . $lFichier . '.php'; if ($lFichier && file_exists($lChemin)) { // On efface la page if (unlink($lChemin)) { echo '

        La page ', $lChemin, ' a bien t supprime.

        '; } } // On actualise le fichier _dossier.php si l'article tait publi if ($lDateVal) { require_once ( $S2R_racine. 'page_create2.php' ); Actu_dossier ($lDossier); } } } // S'agit-il d'une demande de modification ou de cration d'article ? if (isset($_GET['Mod']) || isset($lFormulaire)) { if (!$lFormulaire) { // Rcupre les variables GET $lID = (int) $_GET['Mod']; $lDossier = empty($_GET['Dossier']) ? 0 : (int) $_GET['Dossier']; } if ($lID) { // On attribue les donnes dj disponibles if (!isset($lFormulaire)) { $S2R_Sql->NewReq ('SELECT Fichier, Titre, Texte, Resume, MotCle, Lang, Date, Auteur, Modif, Valideur, DateVal, ID_Dossier FROM ' . PREF_TAB . 'Article WHERE ID=' . $lID); if ($Donnee = $S2R_Sql->Next()) { $lDossier = $Donnee['ID_Dossier']; $lExDossier = $Donnee['Ex_Dossier']; $lFichier = $Donnee['Fichier']; $lTitre = $Donnee['Titre']; $lResume = $Donnee['Resume']; $lTexte = $Donnee['Texte']; $lMotCle = $Donnee['MotCle']; $lLang = $Donnee['Lang']; $lDate = $Donnee['Date']; $lIdAuteur = $Donnee['Auteur']; $lModif = $Donnee['Modif']; $lValid = $Donnee['Valideur']; $lDateVal = $Donnee['DateVal']; // On scanne le texte pour collecter les images utilises if ($lTexte && preg_match_all( '@<image src=(.+)>.*</image>@sU', $lTexte, $lImageList)) { // On n'a pas besoin de l'expression complte unset ($lImageList[0]); $lImageList = $lImageList[1]; } } else { // L'article n'est pas enregistr dans la table $lID = 0; } // On attribue le nom au champs Auteur, modifi par et Valid par if ($lIdAuteur) { // On range les nom dans un tableau $lTab_User = array (); $S2R_Sql ->NewReq ('SELECT ID, CONCAT(Prenom, " ", Nom) AS Auteur FROM ' . PREF_TAB . 'Membres WHERE ID IN (' . $lIdAuteur . ', ' . $lModif . ', ' . $lValid . ')'); while ($Donnee = $S2R_Sql->Next()){ $lTab_User[$Donnee[0]] = $Donnee[1]; } // On remplace les ID par les noms $lAuteur = $lTab_User[$lIdAuteur]; if ($lModif) $lModif = $lTab_User[$lModif]; if ($lValid) $lValid = $lTab_User[$lValid]; } } } // Mmorise le controle anti-renvoi de formulaire dans le tableau de SESSION $_SESSION['S2R_Actu']['A' . $_SESSION['Actu']] = 1; // formulaire de cration / modification d'article echo '
        Donnes gnrales
        '; echo '
        Ajouter une image   Titre de l\'image '; if ($lImage) { // On affiche le lien pour l'image echo '
        Code pour insrer l\'image : <image src=', $lImage, '>', $lNomImg, '</image>'; } echo '
        Texte de l\'article (obligatoire):'; ShowEditeur('texte', 'Texte', $lTexte); echo '

        '; if ($lAuteur) { echo 'Article crit par ', $lAuteur, '.
        '; } if ($lDate) { echo 'Dernire Modification le ', MySql2DateFormat($lDate); if ($lModif) { echo ' par ', $lModif; } echo '.
        '; } if ($lValid || $lDateVal) { echo 'Publi le ', MySql2DateFormat($lDateVal), ' par ', $lValid, '.'; } echo '

        '; echo '
        Retour au formulaire
        '; } // Fin de demande de modification ou cration (par $_GET['Mod']) /* Pied de page * ****************/ include ($S2R_racine . 'pied.php'); ?> si2ra0.69/admin/droits.php0000644000175000017500000001617110704613563015347 0ustar bernardbernard'; S2R_MenuAdm(); echo '
        '; /* Corps principal de la page * ******************************/ echo '
        '; // la classe Sql est appele par tableau.php // On appelle la classe tableau AVEC l'accs au modifications require_once ($S2R_racine . 'classes/tableau2.php'); // fonction pour afficher en hexadcimal: function hexadec ($Nombre) { return '0x' . dechex($Nombre); } // fonction pour vrifier qu'un nombre est une puissance de 2 function Puissance2($Nombre) { for ($i = 1; $i ^ 0x80000000; $i <<= 1) { if (! ((int)$Nombre ^ (int)$i)) { return TRUE; } } return FALSE; } /* Rechercher la premire puissance de 2 libre dans le champ ID de NomTable */ function FirstBit($NomTable) { global $S2R_Sql; // On initialise le retour 1 $fRetour = 1; // On rcupre les registres dans l'ordre croissant S2R_SqlInit ('SELECT ID FROM '. $NomTable . ' ORDER BY ID'); while ($Donnee = $S2R_Sql->Next()) { if ($Donnee[0] > $fRetour) { // Le nombre Retour est libre pour un nouveau registre return $fRetour; } // Si le nombre est pris, on multiplie par 2 et on test le registre suivant $fRetour <<= 1; } if ($fRetour == 0x8000000) { // Tous les bits sont pris echo '

        Les 31 ID possibles sont dj utilises.

        '; return FALSE; } return $fRetour; } $lTab = new Tab_Modif (PREF_TAB . 'Droits'); // On signale le champ cl de recherche $lTab->AddField ('ID', 'ID', S2R_CLE | S2R_LISTE | S2R_ORDER, 'hexadec'); // Les autres champs afficher $lTab->AddField ('Nom', 'Droit'); $lTab->Button ('Modifier', $_SERVER['PHP_SELF'] . '?Mod='); $lTab->Button ('Supprimer', $_SERVER['PHP_SELF'] . '?Del='); // Si aucun ordre n'a t dfini, on classe par ID $lTab->DefautOrder('ID'); // Modification ou cration d'un registre : on rcupre les donnes POST $lMod = empty($_POST['S2R_MOD']) ? 0 : (int) $_POST['S2R_MOD']; $lID = empty($_POST['ID']) ? 0 : Proteger($_POST['ID']); // Traduit si notation hexadcimale if (strpos ($lID, 'x')) { $lID = hexdec($lID); } // Scurit ! else $lID = (int) $lID; $lNom = empty($_POST['Nom']) ? '' : Proteger($_POST['Nom']); $lDroits = 0; /* Une action a t confirme ? */ if (isset($_POST['S2R_OK'])) { // Dltion d'un registre if (!empty($_POST['S2R_Del'])) { $lTab->DoDelete((int)$_POST['S2R_Del']); } else { $lErreur = 0; // Cration ou modification d'un registre : on vrifie les donnes if (!Puissance2($lID)) { // L'ID n'est pas une puissance de 2 (ou n'est pas renseigne) echo '

        Vous devez choisir une puissance de 2 comme ID pour le Droit.

        '; $lID = FirstBit(PREF_TAB .'Droits'); if ($lID) { $lID = '0x'. dechex($lID); echo '

        Vous pouvez par exemple accepter l\'ID propose par le programme.

        '; $lErreur ++; } else { echo '

        Il n\'est pas possible de rajouter un nouveau Droit.

        '; $lTab->Liste(); require ($S2R_racine . 'pied.php'); } } elseif ($lMod != $lID) { // S'il s'agit d'une cration ou que l'ID d'un registre modifier ait t chang // On vrifie que la nouvelle ID ne soit pas prise S2R_SqlInit ('SELECT COUNT(*) FROM ' . PREF_TAB . 'Droits WHERE ID=' . $lID); if ($Donnee = $S2R_Sql->Next()) { if ($Donnee[0]) { echo '

        L\'ID ', $lID, ' est dj utilise par un autre droit.

        '; $lID = FirstBit(PREF_TAB . 'Droits'); if ($lID) { $lID = '0x' . dechex($lID); echo '

        Utilisez plutot le numro ID propos par le programme.

        '; } $lErreur ++; } } } if (!$lNom) { echo '

        Vous n\'avez pas donn de titre au droit.

        '; // On dclenche l'affichage du formulaire $lErreur ++; } if ($lErreur) { // Le formulaire s'affichera. $_GET['Mod'] = $lMod; } else { // Pas d'erreur : if ($lMod) { // Modification d'un registre existant d'ID S2R_MOD S2R_SqlInit ("UPDATE " . PREF_TAB . "Droits SET ID=$lID, Nom='$lNom' WHERE ID=$lMod"); echo '

        ', $lNom, ' a t modifi avec succs.

        '; } else { // Ajout d'un nouveau registre S2R_SqlInit ("INSERT INTO " . PREF_TAB . "Droits (ID, Nom) VALUES($lID, '$lNom')"); echo '

        ', $lNom, ' a t ajout avec succs.

        '; } } } } /* Une action a t demande ? */ if (isset($_GET['Del'])) { $lID = (int)$_GET['Del']; // Formulaire de suppression $lTab->Delete($lID); if ((int) $lID & 0x6F30307F) { // 0x6F30307F = les droits structuraux echo '

        Attention, ce droit est ncessaire au bon fonctionnement du site !

        Il est fortement dconseill de le supprimer.

        '; } include ($S2R_racine . 'pied.php'); } elseif (isset($_GET['Mod'])) { // Formulaire d'ajout ou de modification $lMod = (int)$_GET['Mod']; if ($lMod) { echo '

        Modifier le Droit 0x', dechex($lMod), '

        '; if ((int)$lMod & 0x6F30307F) { // 0x6F30307F = les droits structuraux echo '

        Attention, ce droit est ncessaire au bon fonctionnement du site !

        Vous pouvez modifier son libell, condition de ne pas en changer le sens.

        '; } // On rcupre les donnes actuelles du registre S2R_SqlInit ('SELECT * FROM ' . PREF_TAB . 'Droits WHERE ID=' . $lMod); if ($Donnee = $S2R_Sql->Next()) { if (!$lID) $lID = '0x' . dechex($lMod); if (!$lNom) $lNom = $Donnee['Nom']; } } else { echo '

        Crer un nouveau Droit

        '; $lID = FirstBit(PREF_TAB . 'Droits'); if (!$lID) { echo '

        Il n\'est pas possible de rajouter un nouveau Droit.

        '; } else { $lID = '0x' . dechex($lID); } } echo '
        '; AddEdit ('ID', 'Numro ID', $lID); AddEdit ('Nom', 'Titre du Droit', $lNom, 34, 40); AddOKCancel (); echo '
        '; } if (!isset($_GET['Mod'])) { echo '

        Crer un nouveau Droit

        '; } echo '

        Il existe ', $lTab->Count(), ' droits enregistrs (sur 31 possibles).

        '; $lTab->Liste(); /* Pied de page * ****************/ include ($S2R_racine . 'pied.php'); ?> si2ra0.69/admin/file_list.php0000644000175000017500000001607410704607517016021 0ustar bernardbernard'; S2R_MenuAdm(); echo '
        '; /* Corps principal de la page * ******************************/ echo '
        '; // Fonction pour actualiser le nombre de tlchargement dans la base lors de sa lecture function ActuNombre ($NbBase_ID) { global $S2R_racine; $Nb = 0; // Spare ID et le nombre de tlchargement dans la base $fDonnee = explode (';' ,$NbBase_ID); // inclus le fichier ID.php s'il existe $lIdPhp = $S2R_racine . sprintf ('file/cache/%d.php' , $fDonnee[1]); if (file_exists($lIdPhp)) { include ($lIdPhp); // Y a t'il besoin de mettre jour ? if ($fDonnee[0] != $Nb) { // Nouvelle instance de Sql pour ne pas dtruire le rsulat $fSql = new Sql('UPDATE ' . PREF_TAB . 'Fichiers SET Telecharge=' . $Nb . ' WHERE ID=' . $fDonnee[1]); } return $Nb; } return $fDonnee[0]; } // Fonction d'affichage de la taille function Taille ($Taille) { if ($Taille) return ReadSize ($Taille); return '-'; } // Fonction pour indiquer si local ou distant function LocalDistant ($Url) { global $S2R_racine; $fImage = 'download.gif" alt="' . LG_FILE_LOCAL; if (strpos($Url , '://')) $fImage = 'firefox.gif" alt="' . LG_FICHIER_DISTANT; return ''; } // Fonction pour indiquer si local ou distant function Localiser ($Url) { if (strpos($Url , '://')) return $Url; return LG_FILE . ' ' . LG_FILE_LOCAL; } /* On rcupre la liste des groupes */ S2R_SqlInit ('SELECT ID, Nom FROM ' . PREF_TAB . 'Groupe ORDER BY ID'); // On rcupre le rsultat dans un tableau $lTabGroupe = array(); while ($Donnee = $S2R_Sql->Next()) { $lTabGroupe[$Donnee[0]] = $Donnee[1]; } function ShowGroupe ($Groupe) { if (!$Groupe) { return LG_ALL; } global $lTabGroupe; foreach ($lTabGroupe as $Key => $Value) { if ($Key & (int) $Groupe) { echo $Value, '; '; } } } $lTab = new Tableau (PREF_TAB . 'Fichiers f LEFT JOIN ' . PREF_TAB . 'RubTel r ON f.Rubrique=r.ID'); // Cl $lTab->AddField ('ID', LG_NUM, S2R_CLE, NULL, 'f.ID'); // Les autres champs afficher $lTab->AddField ('Fichier', LG_FILE_LOCALIS, S2R_DETAIL, Localiser, 'f.Fichier'); $lTab->AddField ('Url', ' ', S2R_LISTE, LocalDistant, 'f.Fichier'); $lTab->AddField ('Nom', LG_FILE, S2R_LISTE | S2R_ORDER | S2R_DETAIL, NULL, 'f.Nom'); $lTab->AddField ('Taille', LG_FILE_SIZE, S2R_LISTE | S2R_ORDER | S2R_DETAIL, Taille, 'f.Taille'); $lTab->AddField ('Categ', LG_UPLOAD_RUB, S2R_LISTE | S2R_ORDER | S2R_DETAIL, NULL, 'r.Nom'); $lTab->AddField ('Texte', LG_FILE_COMMENT, S2R_DETAIL, 'nl2br', 'f.Texte'); $lTab->AddField ('Code', LG_FILE_CODE, S2R_LISTE | S2R_DETAIL, NULL, 'CONCAT("<fichier=", f.ID, ">", f.Nom, "</fichier>")'); $lTab->AddField ('Telecharge', LG_FILE_NUMBER, S2R_LISTE | S2R_ORDER | S2R_DETAIL, ActuNombre, 'CONCAT(f.Telecharge, ";", f.ID)'); $lTab->AddField ('Date', LG_DATE, S2R_DETAIL, 'MySql2DateFormat', 'f.Date'); $lTab->AddField ('Groupe', LG_FILE_GROUPE, S2R_DETAIL, 'ShowGroupe', 'f.Groupe'); $lTab->Button (LG_FILE_VOIR, 'file_list.php?Voir='); $lTab->Button (LG_MODIF, 'upload.php?Mod='); $lTab->Button (LG_DELET, 'file_list.php?Sup='); $lTab->DefautOrder ('ID', 1); if (!empty ($_GET['Voir'])) { $lTab->Detail ((int) $_GET['Voir'], 'Nom'); } elseif (!empty ($_GET['Sup'])) { // Demande de confirmation avant suppression $_GET['Sup'] = (int) $_GET['Sup']; // Rcupre les donnes concernant le fichier S2R_SqlInit ('SELECT CONCAT(m.Prenom, " ", m.Nom) AS Auteur, f.Nom, f.Date FROM ' . PREF_TAB . 'Fichiers f LEFT JOIN ' . PREF_TAB . 'Membres m ON f.Auteur = m.ID WHERE f.ID=' . $_GET['Sup']); if ($lDonnee = $S2R_Sql->Next()) { echo '
        ', LG_CONFIRM, '

        ', LG_FILE_CONF1, ' ', $lDonnee['Nom'], ' '; printf (LG_FILE_CONF2, MySql2DateFormat($lDonnee['Date'], 'd/m/y'), $lDonnee['Auteur']); echo '

        ', LG_FILE_CONF3, '.

        '; } else { ErrMsg (LG_FILE_NOFILE); } } elseif (!empty ($_POST['Del'])) { $_POST['Sup'] = (int) $_POST['Sup']; // Vrifie que le fichier existe et en rcupre les coordonnes $lIdPhp = $S2R_racine . sprintf ('file/cache/%d.php' , $_POST['Sup']); if (file_exists($lIdPhp)) { include ($lIdPhp); // dtruit le fichier Id.php unlink ($lIdPhp); } else { // Cherche les donnes dans la table S2R_SqlInit ('SELECT Fichier, Nom FROM ' . PREF_TAB . 'Fichiers WHERE ID=' . $_POST['Sup']); if ($lDonnee = $S2R_Sql->Next()) { if (!strpos($lDonnee[0] , '://')) { $Fichier = $lDonnee[0]; } $Nom = $lDonnee[1]; } else { ErrMsg (LG_FILE_NOFILE); } } // Supprime le fichier s'il est local if (!empty($Fichier)) { $Fichier = $S2R_racine . 'file/' . $Fichier; if (file_exists ($Fichier)) { unlink ($Fichier); } } // Supprime le registre dans la table if (!empty ($Nom)) { S2R_SqlInit ('DELETE FROM ' . PREF_TAB . 'Fichiers WHERE ID=' . $_POST['Sup']); echo '

        '; printf (LG_FILE_DEL, $Nom); echo '.

        '; } } // Modifie les donnes descriptives d'un fichier elseif (!empty ($_GET['Mod'])) { // Utiliser Upload.php car les rubriques et les groupes sont dj gr !! } // effectue les modifications de nom ou de commentaire elseif (!empty ($_POST['Mod'])) { } /* Principe : une liste des fichiers tlcharger avec leur nom leur taille leur rubrique : Les tlchargements ncessitant SQL, on peut faire appel SQL pour les rubriques leur auteur le nombre de tlchargement (plus ou moins ???) supprimer code inserer dans un article pour faire un lien. Tlcharger (lien sur la page tlcharger) */ echo '

        ', LG_UPLOAD, '

        '; $lTab->Liste(); /* Pied de page * ****************/ include ($S2R_racine . 'pied.php'); ?> si2ra0.69/admin/groupes.php0000644000175000017500000002053710704614003015516 0ustar bernardbernard'; S2R_MenuAdm(); echo '
        '; /* Corps principal de la page * ******************************/ echo '
        '; // la classe Sql est appele par tableau.php // On appelle la classe tableau AVEC l'accs au modifications require_once ($S2R_racine . 'classes/tableau2.php'); // fonction pour afficher en hexadcimal: function hexadec ($Nombre) { return '0x' . dechex($Nombre); } // fonction pour vrifier qu'un nombre est une puissance de 2 function Puissance2($Nombre) { for ($i = 1; $i ^ 0x80000000; $i <<= 1) { if (! ((int)$Nombre ^ (int)$i)) { return TRUE; } } return FALSE; } /* Rechercher la premire puissance de 2 libre dans le champ ID de NomTable */ function FirstBit($NomTable) { global $S2R_Sql; // On initialise le retour 1 $fRetour = 1; // On rcupre les registres dans l'ordre croissant S2R_SqlInit ('SELECT ID FROM '. $NomTable . ' ORDER BY ID'); while ($Donnee = $S2R_Sql->Next()) { if ($Donnee[0] > $fRetour) { // Le nombre Retour est libre pour un nouveau registre return $fRetour; } // Si le nombre est pris, on multiplie par 2 et on test le registre suivant $fRetour <<= 1; } if ($fRetour == 0x8000000) { // Tous les bits sont pris echo '

        Les 31 ID possibles sont dj utilises.

        '; return FALSE; } return $fRetour; } $lTab = new Tab_Modif (PREF_TAB . 'Groupe'); // On signale le champ cl de recherche $lTab->AddField ('ID', 'ID', S2R_CLE | S2R_LISTE | S2R_ORDER, 'hexadec'); // Les autres champs afficher $lTab->AddField ('Nom', 'Groupe'); $lTab->AddField ('Droits', 'Droits du groupe', S2R_DETAIL, 'lShowDroit'); $lTab->Button ('Droits', $_SERVER['PHP_SELF'] . '?Voir='); $lTab->Button ('Modifier', $_SERVER['PHP_SELF'] . '?Mod='); $lTab->Button ('Supprimer', $_SERVER['PHP_SELF'] . '?Del='); // Si aucun ordre n'a t dfini, on classe par ID $lTab->DefautOrder('ID'); // Variable pour la table des droits (ne la remplir que si ncessaire) $lTabDroit = array (); if (isset($_GET['Voir']) || isset($_POST['S2R_OK']) || isset($_GET['Mod'])) { S2R_SqlInit ('SELECT ID, Nom FROM ' . PREF_TAB . 'Droits'); while ($Donnee = $S2R_Sql->Next()) { $lTabDroit[$Donnee[0]] = $Donnee[1]; } } // Modification ou cration d'un registre : on rcupre les donnes POST $lMod = empty($_POST['S2R_MOD']) ? 0 : (int) $_POST['S2R_MOD']; $lID = empty($_POST['ID']) ? 0 : Proteger($_POST['ID']); // Traduit si notation hexadcimale if (strpos ($lID, 'x')) { $lID = hexdec($lID); } else $lID = (int) $lID; $lNom = empty($_POST['Nom']) ? '' : Proteger($_POST['Nom']); $lDroits = 0; // On recherche les droits foreach ($lTabDroit as $Key =>$Value) { if (!empty($_POST['Droit' . $Key])) { $lDroits |= (int)$Key; } } /* Une action a t confirme ? */ if (isset($_POST['S2R_OK'])) { // Dltion d'un registre if (!empty($_POST['S2R_Del'])) { $lTab->DoDelete((int)$_POST['S2R_Del']); } else { $lErreur = 0; // Cration ou modification d'un registre : on vrifie les donnes if (!Puissance2($lID)) { // L'ID n'est pas une puissance de 2 (ou n'est pas renseigne) echo '

        Vous devez choisir une puissance de 2 comme ID pour le groupe.

        '; $lID = FirstBit(PREF_TAB . 'Groupe'); if ($lID) { $lID = '0x'. dechex($lID); echo '

        Vous pouvez par exemple accepter l\'ID propose par le programme.

        '; $lErreur ++; } else { // Il n'est pas possible de rajouter un nouvel enregistrement. echo '

        Il n\'est pas possible de rajouter un nouveau groupe.

        '; $lTab->Liste(); require ($S2R_racine . 'pied.php'); } } elseif ($lMod != $lID) { // S'il s'agit d'une cration ou que l'ID d'un registre modifier ait t chang // On vrifie que la nouvelle ID ne soit pas prise $S2R_Sql->NewReq('SELECT COUNT(*) FROM ' . PREF_TAB . 'Groupe WHERE ID=' . $lID); if ($Donnee = $S2R_Sql->Next()) { if ($Donnee[0]) { echo '

        L\'ID ', $lID, ' est dj utilise par un autre groupe.

        '; $lID = FirstBit(PREF_TAB . 'Groupe'); if ($lID) { $lID = '0x' . dechex($lID); echo '

        Utilisez plutot le numro ID propos par le programme.

        '; } $lErreur ++; } } } if (!$lNom) { echo '

        Vous n\'avez pas nomm le groupe.

        '; // On dclenche l'affichage du formulaire $lErreur ++; } if ($lErreur) { // Le formulaire s'affichera. $_GET['Mod'] = $lMod; } else { // Pas d'erreur : if ($lMod) { // Modification d'un registre existant d'ID S2R_MOD $S2R_Sql->NewReq("UPDATE " . PREF_TAB . "Groupe SET ID=$lID, Nom='$lNom',Droits=$lDroits WHERE ID=$lMod"); echo '

        ', $lNom, ' a t modifi avec succs.

        '; } else { // Ajout d'un nouveau registre $S2R_Sql->NewReq("INSERT INTO " . PREF_TAB . "Groupe (ID, Nom, Droits) VALUES($lID, '$lNom', $lDroits)"); echo '

        ', $lNom, ' a t ajout avec succs.

        '; } } } } /* Une action a t demande ? */ if (isset($_GET['Del'])) { $lID = (int)$_GET['Del']; // Formulaire de suppression $lTab->Delete($lID); if ($lID & 0x1) { // Groupe structurel echo '

        Attention, ce groupe est ncessaire au bon fonctionnement du site !

        Il est fortement dconseill de le supprimer.

        '; } include ($S2R_racine . 'pied.php'); } elseif (isset($_GET['Mod'])) { // Formulaire d'ajout ou de modification $lMod = (int)$_GET['Mod']; if ($lMod) { echo '

        Modifier le Groupe 0x', dechex($lMod), '

        '; // On rcupre les donnes actuelles du registre $S2R_Sql->NewReq('SELECT * FROM ' . PREF_TAB . 'Groupe WHERE ID=' . $lMod); if ($Donnee = $S2R_Sql->Next()) { if (!$lID) $lID = '0x' . dechex($lMod); if (!$lNom) $lNom = $Donnee['Nom']; if (!$lDroits) $lDroits = $Donnee['Droits']; } } else { echo '

        Crer un nouveau Groupe

        '; $lID = FirstBit(PREF_TAB . 'Groupe'); if (!$lID) { echo '

        Il n\'est pas possible de rajouter un nouveau groupe.

        '; } else { $lID = '0x' . dechex($lID); } } echo '
        '; AddEdit ('ID', 'Numro ID', $lID, 18, 10); AddEdit ('Nom', 'Nom du Groupe', $lNom, 18, 20); echo '
        Droits communs tous les membres du groupe'; foreach ($lTabDroit as $Key =>$Value) { // Ajoute une case cocher echo ''; } // Ajout d'un bouton Confirmer et d'un bouton Annuler echo '
        '; AddOKCancel (); echo '
        '; } elseif (isset($_GET['Voir'])) { /* voir les dtails */ // N'est utilis qu'en cas de visualisation des dtails function lShowDroit ($Droits) { global $lTabDroit; echo '
          '; foreach ($lTabDroit as $Key => $Nom) { if ((int) $Key & (int)$Droits) { echo '
        • ', $Nom, '
          • '; } } echo '
        '; } echo '
        '; $lTab->Detail((int)($_GET['Voir']), 'Nom'); echo '
        '; } if (!isset($_GET['Mod'])) { echo '

        Ajouter un groupe

        '; } echo '

        Il y a ', $lTab->Count(), ' groupes enregistrs (sur 31 possibles).

        '; $lTab->Liste(); /* Pied de page * ****************/ include ($S2R_racine . 'pied.php'); ?> si2ra0.69/admin/compte.php0000644000175000017500000001655410704206172015331 0ustar bernardbernard'; S2R_MenuAdm(); echo '
        '; /* Corps principal de la page * ******************************/ echo '
        '; require_once ($S2R_racine . 'classes/sql.php'); // Affiche le formulaire avec les donnes du compte if (empty ($_SESSION['IdMembre'])) { ErrMsg (LG_RESERVED); echo '

        ', LG_SO_MEMBER, '

        '; require ($S2R_racine . 'pied.php'); } $lFormul = 0; if (isset ($_POST['OK'])) { // Vrifie que l'id poste correspond l'ID de la session if ($_POST['ID_compte'] != $_SESSION['IdMembre']) { $lFormul = 1; ErrMsg (LG_RESERVED); echo '

        ', LG_SO_MEMBER, '

        '; require ($S2R_racine . 'pied.php'); } // On ne change pas le chiffrage du mot de passe $PassGDS2 = 1; // Vrifie le mot de passe actuel (avant mise jour) if (!VerifPass ($_SESSION['Pass'], $_SESSION['GDS1'], '', // On ne change pas le chiffrage du mot de passe Proteger ($_POST['Pass']), $_POST['PassGDS1'], $PassGDS2)) { ErrMsg (LG_ERR_PASS); $lFormul = 1; } // Vrifie que le nouveau mot de passe soit bien saisi // si le mot de passe a t chiffr, la bonne saisie aura t vrifie avant chiffrement if ($_POST['Cpt_Pass2'] != $_POST['Cpt_Pass1']) { $lFormul = 1; ErrMsg (LG_ERR_PASS1_2); } // Vrifie le mot de passe chiffr if (preg_match ('/^[a-f0-9]{40}$/', $_POST['Cpt_PassGDS'])) { $lCpt_PassGDS = $_POST['Cpt_PassGDS']; } // Chiffre le mot de passe si besoin elseif (!empty($_POST['Cpt_Pass1'])) { // Vrifie que le nouveau mot de passe est la longueur requise if (strlen($_POST['Cpt_Pass1']) < MIN_LEN_PASS) { $lFormul = 1; ErrMsg (sprintf(LG_COMPTE_MINPASS, MIN_LEN_PASS)); } // GDS diffrent pour le cas ou l'ancien mot de passe tait chiffr sans GDS else { $lCpt_PassGDS = sha1(Proteger($_POST['Cpt_Pass1']) . $_SESSION['cpt_GDS']); } } // Rcupre les autres donnes POST $lPseudo = empty($_POST['Cpt_pseudo']) ? '' : Proteger(strtolower(substr($_POST['Cpt_pseudo'], 0, 20))); $lPrenom = empty($_POST['Cpt_Prenom']) ? '' : Proteger($_POST['Cpt_Prenom']); $lNom = empty($_POST['Cpt_Nom']) ? '' : Proteger($_POST['Cpt_Nom']); $lMail = empty($_POST['Cpt_Mail']) ? '' : Proteger($_POST['Cpt_Mail']); if (empty ($lPseudo)) { $lFormul = 1; ErrMsg (LG_COMPTE_NO_PSEUDO); } else if (strcmp($lPseudo, $_SESSION['Pseudo'])) { // Vrifie que le pseudo ne soit pas dj attribu S2R_SqlInit ('SELECT COUNT(1) FROM ' . PREF_TAB . 'Membres WHERE Pseudo ="'. $lPseudo . '" AND ID !=' . $_SESSION['IdMembre']); if (($lDonnee = $S2R_Sql->Next()) && $lDonnee[0]) { $lFormul = 1; ErrMsg (LG_COMPTE_ERR_PSEUDO); } } if (empty($lPrenom) && empty($lNom)) { $lFormul = 1; ErrMsg (LG_COMPTE_NO_NAME); } if (! empty($lMail) && ! IsMail($lMail)) { $lFormul = 1; ErrMsg (LG_MAIL_INVALID); } if (!$lFormul) { // Enregistre les modifications $lRequete = 'UPDATE ' . PREF_TAB . 'Membres SET Pseudo="' . $lPseudo .'", Prenom="' . $lPrenom .'", Nom="' . $lNom .'", Mail="' . $lMail .'"'; // Change le mot de passe si besoin (et nouveau grain de sel) if (!empty ($lCpt_PassGDS)) { $lRequete .= ', Pass="' . $lCpt_PassGDS . '", GDS1="' . $_SESSION['cpt_GDS']. '"'; } S2R_SqlInit ($lRequete . ' WHERE ID=' . $_SESSION['IdMembre']); echo '

        ', LG_COMPTE_EXIT, '

        '; // Supprime les variables de session pour le controle du mot de passe unset ($_SESSION['Pass']); unset ($_SESSION['GDS1']); } } else { // Cherche les donnes dans la table S2R_SqlInit ('SELECT Pseudo, Pass, GDS1, Prenom, Nom, Mail, Options FROM ' . PREF_TAB . 'Membres WHERE ID=' . $_SESSION['IdMembre']); if ($lDonnee = $S2R_Sql->Next()) { $lFormul = 1; $lPseudo = $lDonnee['Pseudo']; $lPrenom = $lDonnee['Prenom']; $lNom = $lDonnee['Nom']; $lMail = $lDonnee['Mail']; $_SESSION['Pass'] = $lDonnee['Pass']; $_SESSION['GDS1'] = $lDonnee['GDS1']; $_SESSION['cpt_GDS'] = GdsCreate(); } else { ErrMsg (LG_RESERVED); echo '

        ', LG_SO_MEMBER, '

        '; require ($S2R_racine . 'pied.php'); } } if ($lFormul) { echo '
        ', LG_COMPTE_DATA, '
        ', LG_COMPTE_NEWPASS, '
        ', LG_COMPTE_CONFIRM, '
         
        '; } /* Pied de page * ****************/ include ($S2R_racine . 'pied.php'); ?> si2ra0.69/admin/sauver2.php0000644000175000017500000001434710612472610015427 0ustar bernardbernard'; S2R_MenuAdm(); echo '
        '; /* Corps principal de la page * ******************************/ echo '
        '; /* les fichiers de sauvegarde sont stocks dans un rpertoire rserv, protg par .htaccess Un lien permet de tlcharger la sauvegarde que l'on vient de dclencher, le mot de passe sera redemand avant de permettre le tlchargement Le rpertoire et le fichier .htaccess ont t cr lors de l'installation du systme */ // calcul le nom du fichier de sauvegarde $lDateFichier = date('d_m_y'); // nom complet (avec le chemin) $lFichier = $S2R_racine . 'zbackup/backup'. $lDateFichier . '.php'; // Peut-on comprimer le fichier ? $lCompress = 0; if (function_exists('gzopen')) { // nom complet du fichier compress si il y a possibilit de compression $lFichier .= '.gz'; $lCompress = 1; } if (empty($_POST['sauve'])) { echo '

        Cette page vous permet d\'effectuer une sauvegarde de l\'ensemble de la base de donne du site. Cette tache est bien sr faire rgulirement, afin de pouvoir reconstruire le site en cas de problme au niveau du serveur.

        Une fois la sauvegarde effectue, vous serez invit la tlcharger sur votre ordinateur.

        '; // Formulaire pour lancer la sauvegarde. echo '

        Par ailleurs, pensez sauvegarder les images et fichiers en tlchargement en rcuprant le sous-rpertoire file grce votre logiciel FTP.

        '; require ($S2R_racine . 'pied.php'); } // Vrifier qu'il n'y a pas dj une sauvegarde pour le mme jour if (file_exists($lFichier)) unlink($lFichier); // Liste des tables sauvegarder ( complter si ajout de tables...) $lTables_liste = array ('Droits', 'Membres', 'Groupe', 'Rubrique', 'Article', 'Messages', 'Destin', 'Fichiers', // 'Forum', // 'Posts', // 'Repertoire', 'RubTel'); echo '

        Sauvegarde de la base de donnes de "', SITE, '"

          '; // Variable contenant le texte crire dans le fichier $lTexte = 'Next()) { // Faut-il prcder la valeur d'une virgule ? if ($lNombreChamp) { $lTexte .= ', '; } $lNombreChamp ++; // Ajoute le nom du champ $lTexte .= '`' . $lDonnee[0] . '`'; } // Ferme la description de la table $lTexte .= ') VALUES "; // Donnes de la table "' . PREF_TAB . $table . '" $t'. $table . '= \'' ; // Rcupere les lignes de la table $S2R_Sql->NewReq ('SELECT * FROM ' . PREF_TAB . $table); $lVirgule = 0; while ($lDonnee = $S2R_Sql->Next()) { if ($lVirgule) { $lTexte .= ','; } else $lVirgule = 1; $lTexte .= ' ('; // Ajoute le contenu de chaque champ $lIndiceChamp = 0; while ($lIndiceChamp < $lNombreChamp) { // Virgule sparant les diffrent champs if ($lIndiceChamp) { $lTexte .= ', '; } // Contenu du champ $lTexte .= "\'" . $lDonnee[$lIndiceChamp] . "\'"; $lIndiceChamp ++; } $lTexte .= ')'; } $lTexte .= '\' ; ' ; echo '
        • ', PREF_TAB, $table, '
          • '; } $lTexte .= ' ?>' ; // Ouverture du fichier de sauvegarde en criture if ($lCompress) { $lHandle = gzopen($lFichier, 'w'); } else { // ouverture normale du fichier $lHandle = fopen($lFichier, 'w'); } if (!Handle) { ErrMsg (LG_ERR_OPEN . $lFichier); } else { // On crit les donnes et ferme le fichier if ($lCompress) { $lResult = gzwrite ($lHandle, $lTexte); gzclose($lHandle); } else { $lResult = fwrite($lHandle, $lTexte); fclose($lHandle); } if (!$lResult) { ErrMsg (LG_ERR_WRITE . $lFichier); } } // On propose de tlcharger le fichier if (file_exists($lFichier)) { echo '

        La base de donnes ', BASE,' a t sauvegarde.

        Pour des raisons de scurit, le fichier sera effac du serveur une fois tlcharg, mme si le tlchargement a t interrompu ou annul. Attention, ne laissez pas trainer le fichier n\'importe o si le site contient des informations confidentielles !

        N\'oubliez pas de sauvegarder le rpertoire file contenant les images et les fichiers proposs en tlchargement, pour que la sauvegarde soit complte. Pour cela, utilisez votre logiciel FTP.

        '; } else { echo '

        Une erreur est survenu, le fichier de sauvegarde n\'a pas t retrouv.

        '; } include ($S2R_racine . 'pied.php'); ?> si2ra0.69/admin/articles.php0000644000175000017500000000751210623021643015640 0ustar bernardbernard'; include_once ('menu_art.php'); include_once ('_dossier.php'); S2R_MenuAdm(); echo '
        '; /* Corps principal de la page * ******************************/ echo '
        '; // On rcupre les variables GET $lVal = isset ($_GET['val']) ? (int) $_GET['val'] : NULL; $lReVal = empty ($_GET['reval']) ? NULL : (int) $_GET['reval']; $lAut = empty ($_GET['aut']) ? NULL : (int) $_GET['aut']; $lTab = new Tableau (PREF_TAB . 'Article a LEFT JOIN ' . PREF_TAB . 'Membres m ON a.Auteur=m.ID LEFT JOIN ' . PREF_TAB . 'Rubrique r ON a.ID_Dossier=r.ID'); // On signale le champ cl de recherche $lTab->AddField ('ID', 'Num', S2R_CLE | S2R_LISTE | S2R_DETAIL, NULL, 'a.ID'); // Les autres champs afficher $lTab->AddField ('Titre', 'Titre', S2R_LISTE | S2R_ORDER | S2R_DETAIL, NULL, 'a.Titre'); $lTab->AddField ('Auteur', 'Auteur', S2R_LISTE | S2R_ORDER | S2R_DETAIL, NULL, 'CONCAT(m.Prenom, " ", m.Nom)'); $lTab->AddField ('Rubrique','Rubrique', S2R_LISTE | S2R_ORDER | S2R_DETAIL, NULL, 'r.Nom'); $lTab->AddField ('Date', 'Date', S2R_LISTE | S2R_ORDER | S2R_DETAIL, 'MySql2DateFormat', 'a.Date'); // Ordre par dfaut : Date dcroissante $lTab->DefautOrder ('a.Date', 1); // bouton publier if ((int)$_SESSION['Droits'] & 0x1000) { $lTab->Button ('Examiner', $S2R_racine . 'admin/publier_art.php?Pub='); } // Bouton diter if (($lAut == $_SESSION['IdMembre']) || ((int)$_SESSION['Groupe'] & 0x40000000)) { $lTab->Button ('Editer', $S2R_racine . 'admin/ecrire_art.php?Mod='); } if ($lAut) { // Tous les article de l'auteur $lReq2 = 'a.Auteur = ' . $lAut; $lTitre = 'Mes articles'; if ($lVal === 0) { // Si l'on veut les articles en cours d'un auteur : $lReq2 .= ' AND a.AValider=0 AND (a.DateVal IS NULL)'; $lTitre .= ' en cours'; } elseif ($lReVal) { // Les articles en attente de validation d'un auteur : $lReq2 .= ' AND a.AValider=1'; $lTitre .= ' en attente de validation'; } echo '

        ', $lTitre, '

        '; } elseif ($lVal === 0) { // Tous les articles valider $lReq2 = 'a.AValider'; echo '

        Tous les articles en attente de validation

        '; } elseif ($lVal) { // Les articles que j'ai valids $lReq2 = 'a.Valideur = ' . $lVal; echo '

        Articles que j\'ai valids

        '; } elseif ($lReVal) { // Les articles revalider $lReq2 = 'a.AValider AND (a.DateVal IS NOT NULL)'; echo '

        Articles revalider

        '; } else { // Par dfaut, on n'affiche aucune liste echo '


        Choississez une des listes dans le menu.

        '; /* On pourrait afficher un formulaire permettant de connaitre les articles crits ou modifis par un membre donns, formulaire accessible seulement au admin ou aux valideurs */ } // On affiche la liste des articles if ($lReq2) { echo '

        ', $lTab->Count($lReq2), ' articles

        '; $lTab->Liste ($lReq2); } /* Pied de page * ****************/ include ($S2R_racine . 'pied.php'); ?> si2ra0.69/admin/_dossier.php0000644000175000017500000000451710623021625015643 0ustar bernardbernard 'compte.php', 'N' => 'Mon Compte', 'T' => 'Modifier mes donnes personnelles', 'D' => 0x7fffffff), array ( 'C' => 'membres.php', 'N' => 'Membres', 'T' => 'Gestions des Membres', 'D' => 0x4000000), array ( 'C' => 'groupes.php', 'N' => 'Groupes', 'T' => 'Gestion des groupes', 'D' => 0x8000000), array ( 'C' => 'droits.php', 'N' => 'Droits', 'T' => 'Gestions des Droits', 'D' => 0x20000000), 'Separateur', array ( 'C' => 'ecrire_art.php?Mod=0', 'N' => LG_NEW_ART, 'T' => LG_NEW_WRITE, 'D' => 0x1000000), array ( 'C' => 'articles.php', 'N' => 'Articles', 'T' => 'Gestion des Articles', 'D' => 0x1010), array ( 'C' => 'rubriques.php', 'N' => 'Rubriques', 'T' => 'Rubriques pour les articles', 'D' => 0x1000000), 'Separateur', array ( 'C' => 'file_list.php', 'N' => 'Fichiers tlcharger', 'T' => 'Gestion des Tlchargements', 'D' => 0x200000), array ( 'C' => 'upload.php', 'N' => LG_ADMIN_NEWFILE, 'T' => "Ajouter un fichier tlcharger", 'D' => 0x200000), array ( 'C' => 'rub_tel.php', 'N' => 'Rubriques Fichiers', 'T' => 'Rubriques pour les fichiers tlcharger', 'D' => 0x200000), 'Separateur', array ( 'C' => 'sauver2.php', 'N' => LG_ADMIN_SAVE, 'T' => 'Sauvegarder la base de donnes', 'D' => 0x40000000), array ( 'C' => 'restaure.php', 'N' => LG_ADMIN_RESTOR, 'T' => 'Restaurer la base de donnes', 'D' => 0x40000000), array ( 'C' => 'squelette.php', 'N' => 'Modifier les squelettes', 'T' => 'Valider une modification de squelette', 'D' => 0x10000000) ); function S2R_MenuAdm() { global $S2R_MenuA; echo '

        Administration

          '; $S2RMenuSection = 0; // drapeau pour savoir si un sparateur doit tre dessin foreach ($S2R_MenuA as $item) { // Sparateur if (($item == 'Separateur') && $S2RMenuSection) { echo '
          • '; $S2RMenuSection = 0; } // Vrifie les droits elseif ( (int)$_SESSION['Droits'] & $item['D'] ) { echo '
        • ', $item['N'], '
          • '; $S2RMenuSection = 1; } } echo '
        '; } ?> si2ra0.69/admin/tel_sauve2.php0000644000175000017500000000371010634571606016112 0ustar bernardbernard si2ra0.69/style/0000755000175000017500000000000010713136166013373 5ustar bernardbernardsi2ra0.69/script/0000755000175000017500000000000010713136166013537 5ustar bernardbernardsi2ra0.69/module/0000755000175000017500000000000010713136166013520 5ustar bernardbernardsi2ra0.69/lang/0000755000175000017500000000000010713136166013154 5ustar bernardbernardsi2ra0.69/install/0000755000175000017500000000000010713136166013701 5ustar bernardbernardsi2ra0.69/img/0000755000175000017500000000000010713136166013007 5ustar bernardbernardsi2ra0.69/editeur/0000755000175000017500000000000010713136166013674 5ustar bernardbernardsi2ra0.69/classes/0000755000175000017500000000000010713136166013670 5ustar bernardbernardsi2ra0.69/aide/0000755000175000017500000000000010713136166013135 5ustar bernardbernardsi2ra0.69/admin/0000755000175000017500000000000010713136166013323 5ustar bernardbernardsi2ra0.69/install.php0000644000175000017500000001207110710404733014406 0ustar bernardbernardNext()) { // Vrifie qu'il existe au moins un membre ayant les droits ncessaires $S2R_Sql->NewReq ('SELECT COUNT(1) FROM ' . PREF_TAB . 'Membres m LEFT JOIN ' . PREF_TAB . 'Groupe g ON m.Groupe & g.ID WHERE (m.Droits | ' . 0x40000000 . ') || (g.Droits | '. 0x40000000 . ')' ); if (($lDonnee = $S2R_Sql->Next()) && $lDonnee[0]) { $S2R_Droits = 0x40000000; // On vrifie le mot de passe en Etape 5 if ( isset($_SESSION['etap'][4]) && ! (isset($_SESSION['etap'][5]) ) ) { $S2R_Javascript = 'admin/sha1hash.js'; $S2R_jsText = '// initialise des variables globales var GgdsActuel = "' . $_SESSION['GDS1'] . '"; var GpassMessage = "' . LG_ERR_PASS . '";'; } } else $S2R_Droits = 0; } } } else { // Dmare la session si besoin session_start(); // S'assure que l'on ne sera pas connect d'un essai prcdent non referm... unset ($_SESSION['Pseudo']); } // On est connect, on peut dfinir une variable de session pour grer la republication en cas de mise jour if ( ! empty($_POST['republier']) ) { $_SESSION['Restaurer'] = (int) $_POST['republier']; } function Pied (){ // fin de la page echo '
         
        '; // Quelques statistiques if (function_exists('microtime_float') && isset($GLOBALS['S2R_cTimeInit'])) { $lTemps = microtime_float(microtime()) - microtime_float($GLOBALS['S2R_cTimeInit']); printf (LG_PIED_TIME, $lTemps); } if (isset($GLOBALS['S2R_cSqlNbReq'])) { echo '~ ', $GLOBALS['S2R_cSqlNbReq'], ' ', LG_PIED_SQL, ' Sql ~'; } if (function_exists('memory_get_usage') && function_exists('ReadSize')) { $GLOBALS['S2R_Memory'] = max ($GLOBALS['S2R_Memory'], memory_get_usage()); echo '~ ', LG_PIED_MEM, ' : ', ReadSize($GLOBALS['S2R_Memory']), " ~"; } echo '
        ', LG_PIED_PRESENT, '
        '; exit (''); } $lEtape = empty ($_GET['Etape']) ? 0 : (int) $_GET['Etape']; if (!$lEtape) { $lEtape = empty ($_POST['Etape']) ? 1 : (int) $_POST['Etape']; } $S2R_Titre = LG_INSTAL_TITLE . $lEtape; // Style par dfaut if (empty ($_SESSION['S2R_style'])) $_SESSION['S2R_style'] = 'defaut'; // Vrification des droits require_once ($S2R_racine . 'entete.php'); // affichage des tapes function ShowEtap ($Num, $Actuelle) { if ($Num < $Actuelle) { echo '
      4. ', LG_INSTAL_ETAP, ' ', $Num, '
        5. '; } elseif ($Num == $Actuelle) { echo '
      5. ', LG_INSTAL_ETAP, ' ', $Num, '
        6. '; } else { echo '
      6. ', LG_INSTAL_ETAP, ' ', $Num, '
        7. '; } } // Navigation entre les tapes echo ''; // Texte d'accueil echo '
        '; // Vrifie que les etapes prcdantes soient valides (sauf pour l'tape 6) if (empty ($_SESSION['etap'][5]) ) { for ($i = 1 ; $i < $lEtape ; $i ++) { if (empty ($_SESSION['etap'][$i])) { ErrMsg (sprintf (LG_INSTAL_NOETAP, $i)); Pied (); } } } echo '

        ', constant ('LG_INSTAL_' . $lEtape), '

        '; // Appel le script de l'tape require_once ('install/etap' . $lEtape . '.php'); // fin de la page Pied (); ?> si2ra0.69/S2R.php0000644000175000017500000000021610650207204013341 0ustar bernardbernard si2ra0.69/connect.php0000644000175000017500000000020210626523707014373 0ustar bernardbernard si2ra0.69/contact.php0000644000175000017500000001441510704200776014403 0ustar bernardbernard

        ', LG_CONTACT_INFO, '

        '; /* Corps principal de la page * ******************************/ echo '
        '; // Rcupration de l'Id du destinataire $lId = empty($_GET['Id']) ? 0 : (int) $_GET['Id']; // On rcupre les variables post if (! $lId) { // Le titre et le message sont protgs par htmlspecialchars et seront dprotgs avant l'envoi. $lTitre = empty($_POST['Titre']) ? '[' . SITE . '] ' : Proteger ($_POST['Titre']); $lMessage = empty($_POST['Message'])? '' : Proteger ($_POST['Message']); // ID du destinataire $lId = empty($_POST['Id']) ? 0 : (int)$_POST['Id']; // Mail du destinataire $lDestin = empty($_POST['Destin']) ? '' : Proteger ($_POST['Destin']); // Nom du destinataire $lNomDestin = empty($_POST['NomDestin']) ? '' : Proteger ($_POST['NomDestin']); // Mail de l'auteur $lAuteur = empty($_POST['Auteur']) ? '' : Proteger ($_POST['Auteur']); } // Mail du destinataire if ($lId && ! $lDestin) { require_once($S2R_racine . 'classes/sql.php'); S2R_SqlInit ('SELECT Prenom, Nom, Mail FROM ' . PREF_TAB . 'Membres WHERE ID=' . $lId . ' AND Mail!=""'); if ($lDonnee = $S2R_Sql->Next()) { $lNomDestin = $lDonnee['Prenom'] . ' ' . $lDonnee['Nom']; $lDestin = $lDonnee['Mail']; } else { // Destinataire inconnu ou sans Mail ErrMsg (LG_CONTACT_NOMAIL); $lId = 0; } $S2R_Sql->Close(); } // Pour le WebMaster if (!$lId) { $lNomDestin = LG_WEBMASTER; $lDestin = S2R_WEBMASTER; } // Envoi du message if (isset($_POST['Envoyer'])) { // Evite les envois en double ... if (!isset( $_SESSION['S2R_Actu'][$_POST['S2R_Actu']])) { // Il y a eu actualisation de la page : vite un renvoi ErrMsg (LG_ERR_ACTU); require ($S2R_racine . 'pied.php'); } else { // Efface la donne du tableau pour viter une nouvelle interprtation du mme formulaire unset ($_SESSION['S2R_Actu'][$_POST['S2R_Actu']]); } // On vrifie les donnes $lErreur = 0; if (empty($lTitre)) { ErrMsg (sprintf(LG_NO_INFORM,LG_CONTACT_NO_OBJET)); $lErreur = 1; } if (!IsMail($lAuteur)) { ErrMsg (LG_MAIL_INVALID); $lErreur = 1; } if (empty($lMessage)) { ErrMsg (LG_CONTACT_NO_MESSAGE); $lErreur = 1; } if (!IsMail($lDestin)) { ErrMsg (LG_CONTACT_ERR_DEST); require ($S2R_racine . 'pied.php'); } if (!$lErreur) { // Pour php 4 if (!function_exists ('htmlspecialchars_decode')) { function htmlspecialchars_decode ($texteADecoder, $quote_style) { $fChercher = array ('<', '>'); $fRemplacerPar = array ('<', '>'); if ($quote_style != ENT_NOQUOTES) { $fChercher[] = '&'; $fChercher[] = '"'; $fRemplacerPar[] = '&'; $fRemplacerPar[] = '"'; } if ($quote_style != ENT_NOQUOTES) { $fChercher[] = '''; $fRemplacerPar[] = "'"; } return str_replace($fChercher, $fRemplacerPar, $texteADecoder); } } // On dprotge le texte avant de l'envoyer... $lTitre = htmlspecialchars_decode($lTitre, ENT_QUOTES); $lMessage = htmlspecialchars_decode($lMessage, ENT_QUOTES); // Ajoute un pied au message $lMessage .= sprintf(' ************ ' . LG_CONTACT_FROM, SITE); // Envoi du mail if (mail ($lDestin, $lTitre, $lMessage, 'From: '. $lAuteur) ) { printf ('

        '. LG_CONTACT_SUCCES . '.

        ', ' '. $lNomDestin. ''); } else { ErrMsg (LG_CONTACT_NO_EXIT); echo '

        ', LG_OTHER_DAY, '.

        '; } // Pas de formulaire require ($S2R_racine . 'pied.php'); } } // Mmorise le controle anti-renvoi de formulaire dans le tableau de SESSION $_SESSION['S2R_Actu']['A' . $_SESSION['Actu']] = 1; // Le formulaire echo '

        Destinataire: ', $lNomDestin, '


        '; /* Pied de page * ****************/ include ($S2R_racine . "compil/defaut_pied.php"); ?> si2ra0.69/deconnect.php0000644000175000017500000000215410637262351014711 0ustar bernardbernard', LG_DECON_EXIT,'

        '; printf (LG_REDIRECT, 1, ''); echo '

        ', LG_NO_WAIT,'

        '; ?> si2ra0.69/entete.php0000644000175000017500000000751710705147667014253 0ustar bernardbernard : $S2R_Titre - : $S2R_MotCle - : S2R_ROBOT - script javascript ventuel - la balise - l'entete commune toutes les pages et son titre spcifique - le menu commun - Eventuellement le menus spcifique l'utilisateur ***********************************************************************/ // Calcul du chemin vers la racine si ncessaire if (!isset($S2R_racine)) { $S2R_racine = ''; // On compte le nombre de / dans le path while ($S2R_Path_Sep = strpos($_SERVER["PHP_SELF"], "/", $S2R_Path_Sep + 1)) { if (file_exists ($S2R_racine . "S2R.php")) { break; } $S2R_racine .= "../"; } } // Vrification des droits d'accs et connexion ventuelle require_once ($S2R_racine . 'login.php'); // Initialisation de la page require_once('header.php'); // On termine le header et dbute le body echo '
        '; /* Entte personalise insre ici * *************************************/ /* Nom du membre */ if (!empty($_SESSION['Nom'])) { echo '
        ',$_SESSION['Nom'],'
        '; } echo '

        ', $S2R_Titre, '

        '; /* Fin de l'entete, on passe au menu principal */ echo '
        '; /* Dernire connexion */ if (isset($lLastConnexion)) { if ($lLastConnexion > 172800) { $lLastConnexion = round($lLastConnexion / 86400) . ' ' . LG_DAY ; } elseif ($lLastConnexion > 7200) { $lLastConnexion = round($lLastConnexion / 3600) . ' ' . LG_HOUR ; } elseif ($lLastConnexion > 0) { $lLastConnexion = round($lLastConnexion / 60) . ' ' . LG_MINUTE ; } echo '

        '; if ($lLastConnexion) { if (date('H') < 20) printf (LG_HEllO, $_SESSION['Nom']); else printf (LG_GOODEVENING, $_SESSION['Nom']); printf (LG_ENTETE_LASTCONNEX, $lLastConnexion); } else { printf (LG_ENTETE_FIRST, SITE, LG_ADMIN); } echo '

        '; } ?> si2ra0.69/entete2.php0000644000175000017500000000602210705147725014316 0ustar bernardbernard : $S2R_Titre - : $S2R_MotCle - : S2R_ROBOT - script javascript ventuel - la balise - l'entete commune toutes les pages et son titre spcifique - le menu commun - Eventuellement le menus spcifique l'utilisateur ***********************************************************************/ // Chemin vers la racine par dfaut = page situe la racine if (!isset($S2R_racine)) { $S2R_racine = ''; } // Vrification des droits d'accs et connexion ventuelle require_once ($S2R_racine . 'login.php'); // Initialisation de la page require_once('header.php'); /* Dernire connexion */ $S2R_Connexion = NULL; if (isset($lLastConnexion)) { if ($lLastConnexion > 172800) { $lLastConnexion = round($lLastConnexion / 86400) . ' ' . LG_DAY ; } elseif ($lLastConnexion > 7200) { $lLastConnexion = round($lLastConnexion / 3600) . ' ' . LG_HOUR ; } elseif ($lLastConnexion > 0) { $lLastConnexion = round($lLastConnexion / 60) . ' ' . LG_MINUTE ; } if ($lLastConnexion) { if (date('H') < 20) { $S2R_Connexion = sprintf (LG_HEllO, $_SESSION['Nom']); } else { $S2R_Connexion = sprintf (LG_GOODEVENING, $_SESSION['Nom']); } $S2R_Connexion .= sprintf (LG_ENTETE_LASTCONNEX, $lLastConnexion); } else { $S2R_Connexion .= sprintf (LG_ENTETE_FIRST, '' . SITE . '', LG_ADMIN); } } // Prpare la balise if (empty($_SESSION['Pseudo'])) { $S2R_Admin = '
      7. ' . LG_CONNECT . '
        8. '; } else { // L'utilisateur est dj connect : $S2R_Admin = ''; // S'il a une messagerie if (defined("S2R_TIME_MAIL") && S2R_TIME_MAIL && ((int)$_SESSION['Droits'] & 1) ) { $S2R_Admin .= '
      8. ' . LG_MAILBOX; if (time() - $_SESSION['TimeMail'] > S2R_TIME_MAIL) { $_SESSION['TimeMail'] = time(); require_once ($S2R_racine . 'classes/sql.php'); S2R_SqlInit ('SELECT COUNT(1) FROM ' . PREF_TAB . 'Destin WHERE IDDestin="'. $_SESSION['IdMembre'] . '" AND Etat=0'); if ($lDonnee = $S2R_Sql->Next()) { $_SESSION['NumMail'] = $lDonnee[0]; } } if (!empty ($_SESSION['NumMail'])) { $S2R_Admin .= ' (' . $_SESSION['NumMail'] . ')'; } $S2R_Admin .= '
        9. '; } $S2R_Admin .= '
      9. ' . LG_ADMIN . '
      10. ' . LG_DECONNECT . '
        11. '; } /* Fin de l'entete, on passe au menu principal */ ?> si2ra0.69/entete3.php0000644000175000017500000000312610642514364014316 0ustar bernardbernard if (empty($_SESSION['Pseudo'])) { $S2R_Admin = '
      11. ' . LG_CONNECT . '
        12. '; $_SESSION['Nom'] = LG_VISITOR; } else { // L'utilisateur est dj connect : $S2R_Admin = '
      12. ' . LG_ADMIN . '
      13. ' . LG_DECONNECT . '
        14. '; } // Variable pour vrifier que l'on n'actualise pas une page d'envoi de formulaire if (isset ($_SESSION['Actu'])) { $_SESSION['Actu'] ++; } else $_SESSION['Actu'] = 0; ?> si2ra0.69/erreur.php0000644000175000017500000000442410703336540014251 0ustar bernardbernard'; } if ((int) $lErrNum & ERR_NO_FILE) { $lErrMsg .= 'Le fichier demand n\'existe pas ou est indisponible.
        '; } if ((int) $lErrNum & ERR_NO_FILENAME) { $lErrMsg .= 'Vous avez demand un tlchargement mais aucun nom n\'a t donn.
        '; } if ((int) $lErrNum & ERR_NO_MODULE) { $lErrMsg .= 'Ce module n\'est pas configur.
        '; } if ((int) $lErrNum & ERR_NO_ARTICLE) { $lErrMsg .= 'L\'article rfrenc n\'existe pas dans la table ou est incomplet.
        '; } if ((int) $lErrNum & ERR_404) { $lErrMsg .= LG_ERREUR_NO_EXISTS .'.
        '; } if ((int) $lErrNum & ERR_BAD_FILE) { $lErrMsg .= LG_ERREUR_BADFILE . '.
        '; } // Erreur par dfaut if ($lErrMsg == '') { $lErrMsg = LG_ERROR; } // Page d'erreur redirigeant vers la page appelante $S2R_Refresh = "10;url='$lPageFrom'"; $S2R_ROBOT = 'none'; include_once ('header.php'); echo '

        ', $lTitre, '

        ', LG_ERREUR_INTRO,'.

        ', $lErrMsg, '

        '; if ($_SESSION['Lang'] == 'fr') { printf (LG_REDIRECT, 5, 's'); } else { printf (LG_REDIRECT, 5, ''); } echo '

        ', LG_NO_WAIT, '

        ', LG_GOTO_INDEX, '.

        '; // on termine la page include ('pied.php'); si2ra0.69/fichiers.php0000644000175000017500000001234710704201742014540 0ustar bernardbernardCount()) { echo ' '; } /* Corps principal de la page * ******************************/ echo '
        '; // Par dfaut, on utilise le mme filtre que plus haut if (isset($_GET['Categ'])) { if (array_key_exists($_GET['Categ'], $lTabCateg)) { $lFiltre = 'f.Rubrique=' . (int)$_GET['Categ'] . ' AND (' . $lFiltre . ')'; echo '

        ', $lTabCateg[$_GET['Categ']], '

        '; // On affiche le texte eventuel $S2R_Sql->NewReq('SELECT Texte FROM ' . PREF_TAB . 'RubTel WHERE ID=' . (int) $_GET['Categ']); if ($lDonnee = $S2R_Sql->Next()) { echo '

        ', nl2br($lDonnee[0]), '

        '; } } else unset($_GET['Categ']); } //On compte les fichiers tlcharger accessibles (mme filtre) $S2R_Sql->NewReq('SELECT COUNT(1) FROM ' . PREF_TAB . 'Fichiers f WHERE '. $lFiltre); $lDonnee = $S2R_Sql->Next(); if ($lTotal = $lDonnee[0]) { echo '

        ', $lDonnee[0], ' ', LG_FICHIER_NUM, '.

        '; $lGoto = ''; $lLimit = ''; // On affiche les fichiers if ($lTotal > FICHIERS_PAR_PAGE) { // gestion des pages $lPage = empty($_GET['S2R_Page']) ? 1 : (int) $_GET['S2R_Page']; $lNbPage = ceil ($lTotal / FICHIERS_PAR_PAGE); if ($lPage > $lNbPage) { $lPage = $lNbPage; } $lGoto = EnumPage ($lPage, $lNbPage); echo $lGoto; $lLimit = ' LIMIT ' .($lPage - 1) * FICHIERS_PAR_PAGE . ',' . FICHIERS_PAR_PAGE ; } // On rcupre les fichiers $S2R_Sql->NewReq('SELECT ID, Fichier, Nom, Texte, Rubrique, Taille, Date FROM ' . PREF_TAB . 'Fichiers f WHERE ' . $lFiltre . ' ORDER BY ID DESC' . $lLimit); // Pour alternance de bandes de diffrentes douleurs $lFond = false; while ($lDonnee = $S2R_Sql->Next()) { echo ' ', LG_FICHIER_DISTANT, ' ', $lDonnee['Nom'], ' ('; if ($lDonnee['Taille']) { echo ReadSize($lDonnee['Taille']); } else { echo LG_FICHIER_NOSIZE; } echo ')
        '; printf ( LG_FICHIER_DATE, MySql2DateFormat ($lDonnee['Date'])); if ($lDonnee['Rubrique']) { printf (LG_FICHIER_INCAT , '' . $lTabCateg[$lDonnee['Rubrique']] .''); } if (strpos($lDonnee['Fichier'], '://')) { // Affiche l'adresse du site o se trouve le fichier printf (LG_FICHIER_HOST, substr ($lDonnee['Fichier'], 0, strpos($lDonnee['Fichier'], '/', 8))); } echo ''; if (!empty ($lDonnee['Texte'])) { echo '

        ', nl2br($lDonnee['Texte']), '

        '; } echo '
        '; } echo $lGoto; } else { echo '



        Aucun fichiers tlchargeable.


        '; } /* Pied de page * ****************/ require ($S2R_racine . "compil/defaut_pied.php"); ?> si2ra0.69/fonctions.php0000644000175000017500000001715110644451277014761 0ustar bernardbernard', $Message, '

        '; return false; } /* rediriger une page sans avoir fournir une url absolue */ function Redirection ($url) { echo ' '; exit; } /* Erreur avec redirection */ function ErrRedirection ($Titre, $MessageNum) { global $S2R_racine; echo ' '; exit; } /* Fonction pour crer des liens sur les pages : $lPage = Numero de la page actuelle $NbPages = Nombre total de pages $Max = Nombre maximum de pages afficher Si le nombre de pages est suprieur au maximum, affiche les premieres, celles qui entourent la page actuelle et les dernires La fonction retourne une chaine ce qui permet de l'utiliser plusieurs fois dans la page sans la recalculer */ function EnumPage ($lPage, $NbPages, $Max=20) { // On rcupre les autres arguments $Param = ''; foreach ($_GET as $Key => $Value) { if ($Key != 'S2R_Page') { if (is_numeric ($Value)) $Param .= '&' . $Key . '=' . $Value; else $Param .= '&' . $Key . '=' . Proteger($Value); } } if ($NbPages < 2) return NULL; if ($NbPages > $Max) { $Paquet = (int) $Max / 4; } else $Paquet = $NbPages + 1; $Resultat = "
        " . LG_FONCTION_GOTOPAGE . ": "; if ($lPage > 1) { $Resultat .= "" . LG_FONCTION_LAST . " "; } for ($i=1 ; $i <= $NbPages ; $i ++) { if ($lPage==$i) { $Resultat .= "$i "; } else { if (($i < $Paquet) || ($i > ($NbPages - $Paquet + 1)) || (($i > ($lPage - $Paquet)) && ($i < ($lPage + $Paquet)))) { $Resultat .= "$i "; } elseif (($i == $Paquet) || ($i == ($NbPages - $Paquet))) { // Points de suspension $Resultat .= " ... "; } } } if ($lPage < $NbPages) { $Resultat .= "" . LG_FONCTION_NEXT . " "; } return $Resultat."
        "; } //traduit une taille du style 2 Mo ou 3.4 Ko en octets function Size2octet ($Size) { $Size = strtolower($Size); if ($Pos = strpos ($Size, ',')) { // remplace la virgule par un point $Size{$Pos} = '.'; } if (strpos ($Size, 'k')) return ((float) $Size) * 1024; if (strpos ($Size, 'm')) return ((float) $Size) * 1048576; if (strpos ($Size, 'g')) return ((float) $Size) * 1073741824; return (int) $Size; // octets donc pas de virgule ! } /* fonction rcursive pour supprimer les fichiers .html d'un rpertoire $Index : supprimer les fichiers index.html $Autres : supprimer les fichiers html sauf index.html $Recursif : explorer les sous rpertoires */ function CacheSupp ($Repertoire, $Index=1, $Autres=1, $Recursif=0) { if ($handle = opendir($Repertoire)) { while (false !== ($file = readdir($handle))) { if ($file == "." || $file == "..") continue; if (!strcmp (substr ($file, -5, 5), '.html')) { if (!strcmp ($file, 'index.html')) { if ($Index) { unlink ($Repertoire . '/' . $file); } } elseif ($Autres) { unlink ($Repertoire . '/' . $file); } } elseif ($Recursif && is_dir($SousDir = $Repertoire . '/' . $file)) { CacheSupp ($SousDir, $Index, $Autres, 1); } } closedir($handle); } } // Cre un grain de sel de longueur $Nb (maximum = 80) function GdsCreate ($Nb = 34) { $Chiffres = str_shuffle( '!:;,.?@$_*%+-=|#()0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'); return substr($Chiffres, 0, $Nb); } /* Vrifier un mot de passe $Temoin : mot de passe chiffr dans la BDD $GDS1 : Grain de sel actuel $GDS2 : futur grain de sel $Pass : mot de passe transmis en clair (Protg avant l'appel de la fonction) $PassHash : mot de passe transmis chiffr $PassGDS2 : mot de passe chiffr avec le futur Grain de Sel La fonction vrifie si $PassGDS2 est bien un hash (sinon, il sera vid) Si l'on a pas besoin de $PassGDS2, mettre 1 comme valeur, ce qui vitera de le calculer */ function VerifPass ($Temoin, $GDS1, $GDS2, $Pass, $PassHash, &$PassGDS2) { $Result = False; $CalculerPassGDS2 = !$PassGDS2; if (empty ($Pass) && empty ($PassHash)) { // Pas de mot de passe ! return FALSE; } elseif (empty ($PassHash)) { // Mot de passe transmis en clair if (empty($GDS1)) { // Premire connexion aprs la version 0.65 : utiliser crytp() $PassHash = crypt($Pass, $Temoin); } else { // Mot de passe transmis en clair par dfaillance javascript $PassHash = sha1($Pass . $GDS1); } } // Vrifie si $PassGDS2 est bien un hash if ($PassGDS2) { if (!preg_match ('/^[a-f0-9]{40}$/', $PassGDS2)) { $PassGDS2 = ''; } } // Vrifie le mot de passe $Result = ($Temoin == $PassHash); if ($Result && $Pass && $CalculerPassGDS2) { // Encode le mot de passe en sha1 avec le GDS2 $PassGDS2 = sha1($Pass . $GDS2); } return $Result; } ?> si2ra0.69/header.php0000644000175000017500000000317510644661001014174 0ustar bernardbernard '; } echo ' ', SITE; if (! empty($S2R_Titre)) { echo ': ', $S2R_Titre; } echo ' '; if (! empty($S2R_MotCle)) { echo ' '; } if (!empty($S2R_Javascript)) { if (is_array($S2R_Javascript)) { foreach ($S2R_Javascript as $value) { echo ' '; } } else echo ' '; } if (!empty($S2R_jsText)) { echo ' '; } if (isset($S2R_Refresh)) { echo ' '; } echo ' '; ?> si2ra0.69/index.php0000644000175000017500000000057610563410004014050 0ustar bernardbernard si2ra0.69/licence.txt0000644000175000017500000004310310616447340014400 0ustar bernardbernard GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Lesser General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Lesser General Public License instead of this License. si2ra0.69/lisezMoi.php0000644000175000017500000001011210632611343014525 0ustar bernardbernard'; // Excuter un script lors du chargement de la page $S2R_bodyLoad = 'mafonction()'; /* entte de la page * *********************/ // Si'lon souhaite utiliser le squelette defaut.html ! require_once($S2R_racine . 'entete2.php'); // Entte du squelette compil require ($S2R_racine . "compil/defaut_tete.php"); // On peut aussi utiliser la place des de entete2.php + entete du squelette le fichier entete.php // require_once ($S2R_racine . 'entete.php'); /* Menus gauche spcifique * ***************************/ echo ''; /* Corps principal de la page * ******************************/ echo '
        '; // rien n'interdit de mettre du PHP dans le corps... ?>

        Les informations intressantes de cette page sont contenues dans son code.

        Pour les lires, tlchargez les sources du systme de publication Si2Ra et lisez la page dans un diteur de texte.

        On va mettre ici un texte un peu long pour voir ce qui ce passe.

        Aprs les sauts de ligne, un petit problme de mise en forme : l'indentation ne se fait pas, ce qui est tout fait normal.

         

        si2ra0.69/login.php0000644000175000017500000004666010705146657014077 0ustar bernardbernard $fmyTime) && !($value['nb'] % 10)) { // Il y a blocage effectif $fLatence = $value['time'] - $fmyTime; $fTemps = ''; // Formate le temps de faon lisible if ($fLatence > 3600) { $fTemps = ((int)($fLatence / 3600)) . ' ' . LG_HOUR . ', '; $fLatence %= 3600; } if ($fLatence > 60) { $fTemps .= ((int)($fLatence / 60)) . ' ' . LG_MINUTE . ', '; } $fTemps .= ($fLatence % 60) . ' ' . LG_SECOND; require_once ($S2R_racine . 'header.php'); echo '

        ',sprintf (LG_ENTETE_MAXTRY, $fTemps), '

        '; // Si la page n'exige pas de connexion, retour sur la page hors connexion, sinon vers l'index if (empty($S2R_Droits) && empty($S2R_Groupes)) { $fGoTo = $_SERVER['PHP_SELF']; } else $fGoTo = $S2R_racine . 'index.php'; echo '

        '; printf (LG_REDIRECT, 5, 's'); echo '

        ', LG_NO_WAIT, '

        '; require_once($S2R_racine . 'pied.php'); } } } // Si l'on est parvenu jusqu'ici, il n'y a pas d'interdiction return 0; } /* Dmarquer un couple IP /login */ function demarqueIP ($Login) { global $S2R_racine; $fFileName = $S2R_racine . 'conf/interdits.php'; $fmyTime = time(); if (file_exists ($fFileName)) { include ($fFileName); if ($IP_lastChange + 43200 < $fmyTime) { // efface la table unlink($fFileName); } else { $myIP = getIP(); foreach ($IP_list as $key => $value) { // Actualise le registre du couple s'il existe dj if ((($value['login'] == $Login) && ($value['IP'] == $myIP)) || ($value['time'] + 43200 < $fmyTime)) { unset ($IP_list[$key]); } } // Supprime le fichier s'il est vide if (!count ($IP_list)) { unlink($fFileName); } // Sinon l'actualise else { // rcrit le fichier $fTexte = ''; if ($fFile = fopen($fFileName, 'wb')) { fwrite($fFile, $fTexte); fclose($fFile); } } } } } /* Fonction pour interdire un couple IP / login */ function marqueIP ($Login) { global $S2R_racine; $fFileName = $S2R_racine . 'conf/interdits.php'; // heure actuelle $fmyTime = time(); // IP $myIP = getIP(); // heure de validit de l'interdiction $fvalidTime = $fmyTime + 600; $result = 0; if (file_exists ($fFileName)) { include ($fFileName); if ($IP_lastChange + 43200 < $fmyTime) { // efface la table $IP_list = array(); } else { // Mise jour des registres foreach ($IP_list as $key => $value) { // Actualise le registre du couple s'il existe dj if (($value['login'] == $Login) && ($value['IP'] == $myIP)) { if ($value['time'] > $fmyTime) { // Il y a eu au moins un chec pendant la session actuelle $IP_list[$key]['nb'] ++; if (($IP_list[$key]['nb'] % 10) >= MAX_ECHEC) { // Nombre de blocage dans les dernires 12 heures $blocage = (int)($value['nb'] / 10); // Augmente le temps de latence $fvalidTime += $blocage * 600; $IP_list[$key]['nb'] = ($blocage + 1) * 10; } } elseif ($value['nb'] > 9) { // Le couple a dj t bloqu dans les dernires 12 heures $IP_list[$key]['nb'] ++; $fvalidTime += ($value['nb'] / 10) * 600; } else $IP_list[$key]['nb'] = 1; $IP_list[$key]['time'] = $fvalidTime; $result = $IP_list[$key]['nb']; } // Supprime les registres prims (les conserve 12 heures) elseif ($value['time'] + 43200 < $fmyTime) unset ($IP_list[$key]); } } } else { // Initialise le tableau des IP interdites $IP_list = array(); } // ajoute le nouveau couple IP / login si besoin if (!$result) { $IP_list[] = array ('login' => $Login, 'IP' => $myIP, 'time' => $fvalidTime, 'nb' => 1); $result = 1; } // rcrit le fichier $fTexte = ''; if ($fFile = fopen($fFileName, 'wb')) { fwrite($fFile, $fTexte); fclose($fFile); } return ($result % 10); } /* Formulaire demandant l'identifiant et vrifiant si le javascript est affich */ function FormPseudo ($ErrMsg = NULL) { global $S2R_racine; require_once($S2R_racine . 'fonctions.php'); $S2R_Robot='none'; $S2R_Titre= LG_CONNECT; $S2R_bodyLoad = 'document.formulaire.Pseudo.focus();'; // Page appelante $fFrom = $_SERVER['PHP_SELF']; if (substr($_SERVER['PHP_SELF'], strrpos($_SERVER['PHP_SELF'], '/') + 1) == 'connect.php') { $fFrom = empty($_SERVER['HTTP_REFERER']) ? 'index.php' : $_SERVER['HTTP_REFERER']; // Evite de retourner vers une page html ! if (substr($fFrom, -1, 1) == '/') $fFrom .= 'index.php'; elseif (substr($fFrom, -4, 4) == 'html') $fFrom = substr_replace($fFrom, 'php', -4); } // Entete de la page require_once ($S2R_racine . 'header.php'); // Titre de la page echo '

        ', LG_CONNECT, '

        '; // Affiche le message d'erreur si besoin if ($ErrMsg) { echo '

        ', $ErrMsg, '

        '; } echo '

        ', LG_CONNECT_INVIT, '



        '; // Transmet les variables POST eventuelles (hors celles qui sont traite part) foreach ($_POST as $key => $value) { echo ' '; } echo '
        '; // termine la page require $S2R_racine . 'pied.php'; } /* Fonction affichant le formulaire de login si ncessaire ou si chec de login $ErrMsg : message d'erreur obligatoire en cas d'erreur */ function FormPass ($ErrMsg = NULL) { global $S2R_racine, $S2R_Sql, $S2R_Droits, $S2R_Groupes, $S2R_Lang, $S2R_cSqlNbReq; $S2R_Titre = LG_CONNECT; // variable locale : Ne pas indexer la page de connexion $S2R_Robot = 'none'; // Javascript du formulaire $S2R_Javascript = 'admin/sha1hash.js'; $S2R_jsText = 'function bodyLoad() { document.formulaire.Pass.focus(); }'; $S2R_bodyLoad = 'bodyLoad()'; require_once($S2R_racine . 'fonctions.php'); // le pseudo est toujours en minuscules et ne fait pas plus de 20 caractres $fPseudo = empty($_SESSION['PseudoTemp']) ? '' : $_SESSION['PseudoTemp']; if (!empty($_POST['Pseudo'])) { $fPseudo = Proteger(strtolower(substr($_POST['Pseudo'], 0, 20))); } // Supprime les variables POST qui ne sont pas rmettre automatiquement if (isset ($_POST['Pseudo'])) unset ($_POST['Pseudo']); if (isset ($_POST['Pass'])) unset ($_POST['Pass']); if (isset ($_POST['PassGDS1'])) unset ($_POST['PassGDS1']); if (isset ($_POST['PassGDS2'])) unset ($_POST['PassGDS2']); if (isset ($_POST['S2R_LOGIN'])) unset ($_POST['S2R_LOGIN']); if (isset ($_POST['S2R_Cancel'])) unset ($_POST['S2R_Cancel']); // En l'absence de pseudo ou si l'on veut en changer : if (! $fPseudo || isset($_GET['NewPseudo'])) { // Affiche le formulaire pour demander le pseudo FormPseudo(); } // Vrifie si le couple IP/Pseudo est bloqu actuellement VerifIP($fPseudo); // Existe-t-il un cookie de session ? if (!isset($_COOKIE[session_name()])) { FormPseudo(LG_CONNECT_COOKIE); } // Vrifie que le pseudo existe et rcupre le Grain de Sel correspondant if (empty ($_SESSION['PseudoTemp']) || ($_SESSION['PseudoTemp'] != $fPseudo) || empty ($_SESSION['GDS1'])) { // classe Sql require_once($S2R_racine . 'classes/sql.php'); S2R_SqlInit ('SELECT Pass, GDS1 FROM ' . PREF_TAB . 'Membres WHERE Pseudo="'. $fPseudo . '" AND Exclus=0'); if ($lDonnee = $S2R_Sql->Next()) { $_SESSION['PseudoTemp'] = $fPseudo; $_SESSION['Pass'] = $lDonnee['Pass']; $_SESSION['GDS1'] = $lDonnee['GDS1']; $_SESSION['GDS2'] = GdsCreate(); } else { // Le pseudo n'existe pas $_SESSION = array(); $_SESSION['S2R_Lang'] = $S2R_Lang; FormPseudo(sprintf(LG_ENTETE_NO_EXISTS, LG_CONNECT_PSEUDO)); } } // Entete de la page require_once ($S2R_racine . 'header.php'); echo '

        ', LG_CONNECT, '

        '; // Affiche le message d'erreur si besoin if ($ErrMsg) { echo '

        ', $ErrMsg, '

        '; } // Envoie le formulaire de demande de mot de passe echo '

        ', LG_CONNECT_PASS, '



        '; // Transmet les variables POST eventuelles (hors celles qui sont traite part) foreach ($_POST as $key => $value) { echo ' '; } // Transmet les variables caches echo ' '; // Demande du mot de passe echo '
        ', LG_CONNECT_PSEUDO, ': ', $fPseudo, '
        ', LG_CONNECT_CHANGE, '
        '; // Avertissement si le javascript n'est pas install echo '

        '; printf (LG_CONNECT_REMEMBER, LG_DECONNECT); echo '

        '; // termine la page require ($S2R_racine . 'pied.php'); } // Vrifie le ticket de session si l'on est connect if (!empty($_SESSION['Pseudo'])) { // Routine adapte de http://guillaume-affringue.developpez.com/securite/chiffrement/ if ($_COOKIE['ticket_' . $S2R_Discrim] == $_SESSION['ticket']) { // On renouvelle $_SESSION['ticket'] = uniqid(strval(mt_rand(1, 999999))); setcookie('ticket_' . $S2R_Discrim, $_SESSION['ticket'], time() + 3600, '/'); } else { // On DECONNECT $S2R_Style = $_SESSION['S2R_style']; $_SESSION = array(); // On rtablit le style et la langue $_SESSION['S2R_style'] = $S2R_Style; $_SESSION['S2R_Lang'] = $S2R_Lang; } } // En l'absence de connexion, on donne des droits dfinis dans le fichier conf.php if (empty($_SESSION['Pseudo'])) { $_SESSION['Groupe'] = 0; $_SESSION['Nom'] = LG_VISITOR; $_SESSION['Droits'] = S2R_VISIT; } // Demande de connexion ? if (isset($_POST['S2R_LOGIN'])) { // Demande le mot de passe si on vient d'envoyer le nom if (!empty ($_POST['Pseudo'])) { FormPass(); } elseif (empty ($_SESSION['PseudoTemp'])) { FormPseudo (); } if (empty($_POST['Pass']) && empty($_POST['PassGDS1'])) { // Aucun mot de passe (chiffr ou non) n'a t envoy FormPass(sprintf (LG_NO_INFORM, strtolower(LG_CONNECT_PASS))); } // Vrifie si le couple IP/Pseudo est bloqu actuellement VerifIP($_SESSION['PseudoTemp']); // pour la fonction protger et la vrification du mot de passe require_once($S2R_racine . 'fonctions.php'); // Protege le Mot de passe (pour qu'il soit toujours identique) $lPass = empty ($_POST['Pass']) ? '' : Proteger ($_POST['Pass']); // et rcupre le Mot de passe chiffr avec le 2me GDS qui sera pass en rfrence $lPassGDS2 = empty ($_POST['PassGDS2']) ? '' : $_POST['PassGDS2']; // et le nouveau grain de sel ! $lGDS2 = $_SESSION['GDS2']; // Vrifie le mot de passe if (VerifPass ( $_SESSION['Pass'], $_SESSION['GDS1'], $lGDS2, $lPass, $_POST['PassGDS1'], $lPassGDS2)) { // Vrifie que le Pass aie bien t ecrypt avec le 2me GDS if (empty ($lPassGDS2)) { /* Ceci n'est possible que si le formulaire a t trafiqu (ou que le Javascript n'est fonctionn que partiellement ???) Il est plus sr de refuser la connexion ! */ FormPass(LG_ERROR); } // Rcupre toutes les donnes du membre require_once($S2R_racine . 'classes/sql.php'); S2R_SqlInit ('SELECT ID, Prenom, Nom, Groupe, Droits, Acces FROM ' . PREF_TAB . 'Membres WHERE Pseudo="'. $_SESSION['PseudoTemp'] . '" AND Exclus=0'); // Mmorise le pseudo qui sera effac avec l'ensemble des variables de session $lPseudo = $_SESSION['PseudoTemp']; if ($lDonnee = $S2R_Sql->Next()) { // Libre le couple IP / login si besoin demarqueIP($lPseudo); // Mmorise les donnes dans les variables de session $S2R_Style = $_SESSION['S2R_style']; $_SESSION = array(); // On rtablit la langue et le style $_SESSION['S2R_style'] = $S2R_Style; $_SESSION['S2R_Lang'] = $S2R_Lang; $_SESSION['Pseudo'] = $lPseudo; $_SESSION['Groupe'] = $lDonnee['Groupe']; $_SESSION['Nom'] = $lDonnee['Prenom'] . ' ' . $lDonnee['Nom']; $_SESSION['Droits'] = (int)$lDonnee['Droits']; $_SESSION['IdMembre'] = $lDonnee['ID']; $_SESSION['Time'] = time(); $_SESSION['TimeMail'] = 0; // On calcule l'intervale depuis la dernire connexion if ($lDonnee['Acces']) { $lLastConnexion = mktime() - mktime( substr ($lDonnee['Acces'], 11, 2), substr ($lDonnee['Acces'], 14, 2), substr ($lDonnee['Acces'], 17, 2), substr ($lDonnee['Acces'], 5, 2), substr ($lDonnee['Acces'], 8, 2), substr ($lDonnee['Acces'], 0, 4)); } else { $lLastConnexion = 0; } // Les droits associs au(x) groupe(s) $S2R_Sql->NewReq('SELECT BIT_OR(Droits) FROM S2R_Groupe WHERE ID & ' . (int)$_SESSION['Groupe']); if ($lDonnee = $S2R_Sql->Next()) { $_SESSION['Droits'] |= (int)$lDonnee[0]; } /* for ($i = 1 ; $i ^ 0x80000000; $i <<= 1) { // Pour chaque groupe potentiel : if ((int)$i & (int)$_SESSION['Groupe']) { // Si l'utilisateur appartient au groupe, on rcupre les droits $S2R_Sql->NewReq('SELECT Droits FROM ' . PREF_TAB . 'Groupe WHERE ID=' . $i); if ($lDonnee = $S2R_Sql->Next()) { $_SESSION['Droits'] |= (int)$lDonnee[0]; } } } */ // Et on actualise le registre ! $S2R_Sql->NewReq('UPDATE ' . PREF_TAB . 'Membres SET Pass="' . $lPassGDS2 . '", GDS1="' . $lGDS2 . '", Acces="'. date("Y-m-d H:i:s") . '" WHERE ID=' . $_SESSION['IdMembre']); // On mmorise le hash du pass et le GDS $_SESSION['Pass'] = $lPassGDS2; $_SESSION['GDS1'] = $lGDS2; // Cration du ticket $_SESSION['ticket'] = uniqid(strval(mt_rand(1, 999999))); setcookie('ticket_' . $S2R_Discrim, $_SESSION['ticket'], time() + 3600, '/'); } else { // ne devrait jamais survenir FormPseudo(LG_ERROR); } } else { // Le mot de passe est faux ! $lNbEchec = marqueIP ($_SESSION['PseudoTemp']); if ($lNbEchec == MAX_ECHEC - 1) { $lNbEchec = LG_ENTETE_LASTTRY; } // Redemande le mot de passe FormPass(LG_ERR_PASS . ' (' . $lNbEchec . ')'); } // On ferme la connection Sql puisque la plupart des pages n'en auront pas besoin. $S2R_Sql->close(); } // Vrifie les droits if (!empty($S2R_Droits) || !empty($S2R_Groupes)) { // Est-on connect : compare les droits puis les groupes if (!empty($_SESSION['Pseudo'])) { $lResultat = 0; // Il suffit d'appartenir un des groupes ayant droit pour avoir le droit if (!empty($S2R_Groupes)) { $lResultat = (int)$S2R_Groupes & (int)$_SESSION['Groupe']; } // Si il n'y a pas d'autorisation par le groupe : recherche une autorisation par les droits. if (!$lResultat && !empty($S2R_Droits)) { // un seul des droits lists suffit pour avoir accs la page $lResultat = (int) $S2R_Droits & (int) $_SESSION['Droits']; } // Si l'on est l'auteur d'une page, on y a toujours accs ! if (!$lResultat && !empty($S2R_Auteur)) { $lResultat = ($S2R_Auteur == $_SESSION['IdMembre']); } if (!$lResultat) { // Pas droit la page $S2R_Titre = LG_RESERVED; $S2R_Robot = 'none'; require_once('header.php'); echo '

        ', LG_RESERVED, '


        ', LG_ENTETE_RESERVED, '

        ', LG_GOTO_INDEX, '.

        ', LG_CHANGE_USER, '

        '; exit; } } // Sinon vrifie si le visiteur dispose des droits ncessaires elseif (! ((int) $S2R_Droits & (int) $_SESSION['Droits'])) { // S'il s'agit d'un abandon de connexion : retourne l'accueil if (isset($_POST['S2R_Cancel'])) { header('location:' . $S2R_racine . 'index.php'); } // Pas de droits suffisants : exige une connexion FormPass(); } } // Variable pour vrifier que l'on n'actualise pas une page d'envoi de formulaire if (isset ($_SESSION['Actu'])) { $_SESSION['Actu'] ++; } else $_SESSION['Actu'] = 0; // la page appelante est-elle rserve aux membres ou certains groupes ? if (empty($S2R_Droits) && empty($S2R_Groupes)) { // Page ouverte, on indexe si besoin if (empty ($S2R_Robot)) $S2R_Robot = S2R_ROBOT; } else { // Page ferme : ne pas indexer ! $S2R_Robot = 'none'; } ?> si2ra0.69/page_create2.php0000644000175000017500000002575510704203231015267 0ustar bernardbernard 0 si rserv aux membres connects $Texte, // Texte propre la page $ID_Art = 0, // ID de l'article si article $Auteur = 0, // ID de l'auteur inicial de l'article (si article) $Resume = '', // Sous-titre ventuel pour l'article $NomAut = 0, // Nom complet de l'auteur $MotCle = '', // Mots cls si article $Lang = S2R_LANG) // Langue de l'article { // $lArbre est l'arborescence contenant toutes les rubriques global $lArbre, $S2R_racine; // On calcule le chemin du dossier contenant l'article $fChemin = $lArbre->Chemin ($Dossier, '/', 'Dos'); // On ajoute au chemin la racine DU SCRIPT APPELANT $fChemin = $S2R_racine . $fChemin; // On vrifie que le dossier soit accessible if (!is_dir($fChemin)) { return ErrMsg (sprintf (LG_ERR_NODIR, $lArbre->Nom($Dossier))); } // Type de page pour la mise en page $fType = 1; // article if ($Fichier == 'index') { $fType = 0; // index d'un dossier } // Nom complet du fichier crire $fFileName = $fChemin. '/' . $Fichier . '.php'; // Calcul de la page $lPage = ' \'; $S2R_head = 1; // Utilisation du supercache pour les visiteurs ne souhaitant pas se connecter $S2R_SuperCache= \'' . $Fichier . '.html\'; if (@include($S2R_SuperCache)) { // Affiche le super-cache exit; } else { // Crer le super-cache : buffrise le reste de la page ob_start(); } }'; } $lPage .= ' // On aura besoin du fichier conf.php complet ! if (! @include_once ($S2R_racine . "conf/conf.php")) { header ("location:" . $S2R_racine . "travaux.php"); exit; } // ID de l\'article $S2R_ArtNum= ' . $ID_Art . '; // ID de la rubrique $S2R_RubNum= ' . $Dossier . '; $S2R_Titre ="' . $Titre . '"; /* Variables facultatives */ $S2R_Groupes = 0x'. dechex($Groupe) . '; $S2R_Droits = 0x'. ($Groupe ? '2' : '0') . '; $S2R_date = "' . date("d/m/Y") .'"; $S2R_MotCle = "' . $MotCle . '"; // ID de l\'auteur $S2R_Auteur = ' . $Auteur . '; // Nom de l\'auteur $S2R_AuteurName = "' . $NomAut . '"; /* header de la page et gestion des droits */ if ($S2R_Groupes || S2R_TIME_MAIL || isset($_POST["S2R_LOGIN"]) ) { require_once($S2R_racine . "entete2.php"); } else { // entte plus simple et plus rapide require_once($S2R_racine . "entete3.php"); } // Sous-titre ou rsum court facultatif pour les articles $S2R_Abstract = "' . $Resume . '";'; $lPage .= ' // Entte du squelette pr-interprt require ($S2R_racine . "compil/' . $S2R_Squelette . '_tete.php"); /* Texte de la page */ echo \'' .$Texte . '\'; // Pied de la page require ($S2R_racine . "compil/' . $S2R_Squelette . '_pied.php"); if (!empty ($S2R_SuperCache) ) { // Rcupre la page dans une variable $S2R_CacheBuffer = ob_get_contents (); // affiche la page et libre le tampon ob_end_flush(); // Grave le fichier super-cache $lFile = fopen($S2R_SuperCache, \'w\'); if ($lFile) { fwrite($lFile, $S2R_CacheBuffer); fclose($lFile); } } ?> '; // On ouvre le fichier en criture $fFile = fopen($fFileName, 'wb'); if (!$fFile) { return ErrMsg (LG_ERR_OPEN . '
        ' . $fFileName); } // Ecriture du fichier if (!fwrite($fFile, $lPage)) { return ErrMsg (LG_ERR_WRITE . $fFileName); } // On ferme le fichier if (!fclose($fFile) ) { return ErrMsg (LG_ERR_CLOSE . $fFileName); } return true; } /* Fonction pour recalculer le fichier _dossier.php d'un rpertoire Les informations sont rcupres des tables Sql les variables de _dossier.php sont : - $S2R_ChemClic - $S2R_Rub - $S2R_Art */ function Actu_dossier ($ID_dossier) { global $lArbre, $S2R_racine, $S2R_Sql; // Toute actualisation du contenu d'un dossier entraine l'effacement du cache du plan ! if (file_exists($S2R_racine . '_S2Rplan.php')) { unlink ($S2R_racine . '_S2Rplan.php'); if ( file_exists($S2R_racine . 'plan.html') ) unlink ($S2R_racine . 'plan.html'); } // Les modifications sur le dossier racine entraine l'effacement de tout le cache if ($ID_dossier == 1) { CacheSupp ($S2R_racine . 'pub', 1, 1, 1); } // Chemin vers le dossier $fChemin = $S2R_racine . $lArbre->Chemin ($ID_dossier, '/', 'Dos'); if (!is_dir($fChemin)) { return ErrMsg (sprintf (LG_ERR_NODIR, $fChemin)); } // On supprime le cache du fichier index.php if (file_exists($lCacheName = $fChemin . '/index.html')) { unlink ($lCacheName); } $Texte = 'Next()) { if ($Num) { $Texte .= ','; } else $Num = 1; $Texte .= ' array ( "F" => "' . $Donnee['Dossier'] . '/index.php", "T" => "' . $Donnee['Nom'] . '", "D" => 0x' . dechex($Donnee['Groupe']) .')'; } $Texte .= '); /* Les articles */ $S2R_Art = array ('; // On rcupre les informations sur les articles $S2R_Sql->NewReq('SELECT ID, Fichier, Titre, Groupe, Resume FROM ' . PREF_TAB. 'Article WHERE ID_Dossier=' . $ID_dossier . ' AND DateVal IS NOT NULL ORDER BY Rang' ); $Num = 0; while ($Donnee = $S2R_Sql->Next()) { if ($Num) { $Texte .= ','; } else $Num = 1; $Texte .= $Donnee ['ID'] . ' => array ( "F" => "' . $Donnee['Fichier'] . '.php", "T" => "' . $Donnee['Titre'] . '", "D" => 0x' . dechex($Donnee['Groupe']) .', "R" => "' . $Donnee['Resume'] . '") '; // Supprime les caches html des articles publiques if (! $Donnee['Groupe'] && file_exists($lCacheName = $fChemin . '/' . $Donnee['Fichier'] . '.html')) { unlink ($lCacheName); } } $Texte .= '); /* Racine du systme */'; // On calcule la racine pour la page en question $Profondeur = $lArbre->Niveau ($ID_dossier); // La racine de pub est ../ => racine minimale $Racine = '../'; while ($Profondeur > 0) { $Racine .= '../'; $Profondeur --; } $Texte .= ' $S2R_racine = "' . $Racine . '"; /* chemin cliquable */'; $fChemClic = ''; $fAdresse = 'index.php'; // On modifie le dossier courant de l'arbre $lArbre->Noeud ($ID_dossier); do { $fChemClic = ' >         ' . $lArbre->Nom() . '' . $fChemClic ; $fAdresse = '../' . $fAdresse; } while ($lArbre->Parent()); // On rajoute le lien vers la page d'accueil sachant qu'il est un niveau plus haut que pub $fChemClic = '' . LG_HOME. '' . $fChemClic; $Texte .= ' $S2R_ChemClic = \'' . $fChemClic . '\'; ?>'; // Chemin vers le fichier _dossier.php $fChemin .= '/_dossier.php'; // On ouvre le fichier en criture if (! $fFile = @fopen($fChemin, 'wb')) { return ErrMsg (LG_ERR_OPEN . $fFileName); } // On crit les donnes if (!fwrite($fFile, $Texte)) { return ErrMsg (LG_ERR_WRITE . $fFileName); } fclose($fFile); } /* Fonction plus rapide que la prcdente car ne met jour que le chemin */ function Actu_chemin($ID_dossier) { global $lArbre, $S2R_racine; // Toute actualisation du contenu d'un dossier entraine l'effacement du cache du plan ! if (file_exists($S2R_racine . '_S2Rplan.php')) { unlink ($S2R_racine . '_S2Rplan.php'); if ( file_exists($S2R_racine . 'plan.html') ) unlink ($S2R_racine . 'plan.html'); } // Chemin vers le fichier _dossier.php $fChemin = $S2R_racine . $lArbre->Chemin ($ID_dossier, '/', 'Dos'); if (!is_dir($fChemin)) { return ErrMsg (sprintf (LG_ERR_NODIR, $fChemin)); } $fChemin .= '/_dossier.php'; $S2R_Rub = array(); $S2R_Art = array(); // On inclue l'actuel fichier _dossier.php; if (file_exists($fChemin)) { include ($fChemin); } $Texte = 'Niveau ($ID_dossier); // La racine de pub est ../ => racine minimale $Racine = '../'; while ($Profondeur > 0) { $Racine .= '../'; $Profondeur --; } $Texte .= ' $S2R_racine = "' . $Racine . '"; /* chemin cliquable */'; $fChemClic = ''; $fAdresse = 'index.php'; // On modifie le dossier courant de l'arbre $lArbre->Noeud ($ID_dossier); do { $fChemClic = ' > ' . $lArbre->Nom() . '' . $fChemClic ; $fAdresse = '../' . $fAdresse; } while ($lArbre->Parent()); // On rajoute le lien vers la page d'accueil sachant qu'il est un niveau plus haut que pub $fChemClic = '' . LG_HOME. '' . $fChemClic; $Texte .= ' $S2R_ChemClic = \'' . $fChemClic . '\'; ?>'; // On ouvre le fichier en criture if (!$fFile = fopen($fChemin, 'wb')) { return ErrMsg (LG_ERR_OPEN . $fFileName); } // On crit les donnes if (!fwrite($fFile, $Texte)) { return ErrMsg (LG_ERR_WRITE . $fFileName); } return fclose($fFile); } ?> si2ra0.69/pied.php0000644000175000017500000000173510640674470013677 0ustar bernardbernard
         
        ', SITE, ' ~ ', LG_PIED_PRESENT, '
        ', LG_PIED_WRITETO, '
        '; // Ne pas modifier la partie ci-dessous ! echo ' '; // Permet d'appeler le pied en cours de script pour le fermer proprement exit; ?> si2ra0.69/telecharger.php0000644000175000017500000000702310704203626015227 0ustar bernardbernardNext()) { $Fichier = $lDonnee['Fichier']; // Vrifie qu'il ne s'agisse pas d'un lien externe if (strpos($Fichier , '://')) { $Externe = $Fichier; unset ($Fichier); } $Nom = $lDonnee['Nom']; $Taille = $lDonnee['Taille']; $Nb = $lDonnee['Telecharge']; } else { // L'id ne correspond pas un fichier dans la base ni dans les ID.php ErrRedirection ('Telechargement', ERR_NO_FILE); } $S2R_Sql->Close(); } else { require ($lIdPhp); } if (!empty ($S2R_Groupes)) { // Vrifie les droits if (! (int) $S2R_Groupes & (int) $_SESSION[S2R]['Groupe'] ) { ErrRedirection ('Telechargement', ERR_DROIT); } } // Si le fichier est local if (!empty ($Fichier)) { // Vrifie que le fichier existe $lFile = $S2R_racine . 'file/' . $Fichier; if (! file_exists ($lFile)) { ErrRedirection ('Telechargement', ERR_NO_FILE); } // et qu'il ait la bonne taille if ($Taille != @filesize($lFile)) { ErrRedirection ('Telechargement', ERR_BAD_FILE); } } // Actualise le compteur $Texte = ''; // Grave le fichier ID.php $lHandle = @fopen ($lIdPhp, 'w'); if ($lHandle) { fwrite ($lHandle, $Texte); fclose ($lHandle); } // S'il s'agit d'un lien externe redirige if (!empty ($Externe)) { header('location:' .$Externe); } elseif (!empty ($Fichier) && !empty ($Nom)) { /* la routine suivante est reprise du tutoriel d'upload : http://www.siteduzero.com/tuto-3-1718-1-upload-de-fichiers-par-formulaire.html */ // indiquer au navigateur qu'il s'agit d'un fichier tlcharger header('Content-Transfer-Encoding: binary'); //Transfert en binaire (fichier) header('Content-Disposition: attachment; filename="' . $Nom . '"'); header('Content-Length: '. $Taille); //Taille du fichier //Envoie du fichier readfile($lFile); } else { ErrRedirection ('Telechargement', ERR_NO_FILE); } ?> si2ra0.69/travaux.php0000644000175000017500000000323510644450044014436 0ustar bernardbernard 3) { $lang = substr($Lang, 0, strpos($Lang, '-')); if (is_dir($S2R_racine . 'lang/' . $Lang)) { $S2R_PLang = $Lang; break; } } } unset ($laccept_lang); } } $_SESSION['S2R_Lang'] = $S2R_PLang; // On inclu le fichier commun de la langue choisie $S2R_FileLang = $S2R_racine . 'lang/' . $S2R_PLang . '/install'; if (file_exists($S2R_FileLang)) { // On inclus le fichier langue spcifi include_once ($S2R_FileLang); } // plus la langue par dfaut au cas ou certains items ne seraient pas traduits include_once ($S2R_racine . 'lang/fr/install'); $S2R_Titre = LG_TRAVAUX_TITLE; $S2R_ROBOT = 'none'; require_once('header.php'); echo '

        ', LG_TRAVAUX_TITLE, '



        ', LG_TRAVAUX_TEXT,'...

        '; si2ra0.69/0000755000175000017500000000000010713136166012233 5ustar bernardbernardsi2ra0.69/plan.php0000644000175000017500000001241510713371104013672 0ustar bernardbernard '; $S2R_head = 1; if (file_exists ($S2R_SuperCache)) { // Affiche le super-cache require ($S2R_SuperCache); exit; } else { // Crer le super-cache : buffrise le reste de la page ob_start(); } } if (! @include_once ($S2R_racine . 'conf/conf.php')) { header ('location:' . $S2R_racine . 'travaux.php'); } $S2R_Titre = LG_MAP_TITLE ; // Titre de la page /* Variables facultatives * **************************/ $S2R_Droits = 0; // Droits ventuellement ncessaires pour accder la page $S2R_Groupes = 0; // Groupes ventuels autoriss voir la page /* L'utilisateur doit appartenir l'UN des groupes autoriss ET/OU possder UN des droits demands pour accder la page */ $S2R_Robot = S2R_ROBOT; // Possibilit de spcifier une mta robot /* entte de la page * *********************/ /* header de la page et gestion des droits */ if ($Groupe || S2R_TIME_MAIL || isset($_POST["S2R_LOGIN"]) ) { require_once($S2R_racine . "entete2.php"); } else { // entte plus simple et plus rapide require_once($S2R_racine . "entete3.php"); } // Entte du squelette compil require ($S2R_racine . "compil/defaut_tete.php"); /* Corps principal de la page * ******************************/ echo '
        '; // rien n'interdit de mettre du PHP dans le corps... // Classe arborescence require_once ($S2R_racine . 'classes/arbo.php'); // On inclut le fichier avec l'arborescence des articles et rubriques s'il existe if (! @include_once('_S2Rplan.php')) { // Sinon on rcupre les donnes de la base SQL // Classe Sql require_once($S2R_racine. 'classes/sql.php'); // On rcupre la liste des rubriques du dossier pub $lListeDossiers = array(); // Requte SQL sur les rubriques S2R_SqlInit ('SELECT ID, Parent, Nom, Dossier, Groupe FROM ' . PREF_TAB . 'Rubrique WHERE Supprime=0'); while ($Donnee = $S2R_Sql->Next()) { $lListeDossiers[$Donnee['ID']] = array ('Nom' => ''. LG_RUB . ' ' .$Donnee['Nom'], 'Pere'=> $Donnee['Parent'], 'Dos' => $Donnee['Dossier'], 'Gro' => $Donnee['Groupe']); } // ID maximum pour les rubriques (afin de ne pas remplacer une rubrique cache par un article !) $S2R_Sql->NewReq ('SELECT MAX(ID) FROM ' . PREF_TAB . 'Rubrique'); // ORDER BY ID DESC LIMIT 1'); if ($Donnee = $S2R_Sql->Next()) { $lDepart = $Donnee[0]; } else $lDepart = 10000; // Rcupre les articles $S2R_Sql->NewReq ('SELECT ID_Dossier, Titre, Fichier, Groupe FROM ' . PREF_TAB . 'Article WHERE DateVal'); while ($Donnee = $S2R_Sql->Next()) { if (array_key_exists ($Donnee['ID_Dossier'], $lListeDossiers)) { $lDepart ++; $lListeDossiers[$lDepart] = array ( 'Nom' => $Donnee['Titre'], 'Pere'=> $Donnee['ID_Dossier'], 'Dos' => $Donnee['Fichier'].'.php', 'Gro' => $Donnee['Groupe']); } } // Libre la mmoire $S2R_Sql->Close(); // Grave le cache // On ouvre le fichier en criture if ($fFile = fopen('_S2Rplan.php', 'wb')) { // On ne teste pas les erreurs : au pire, il n'y aura pas de cache ! fwrite($fFile, ''); fclose($fFile); } } // On rorganise l'arborescence de la liste $lArbre = new Arbre (NULL); $lArbre->LoadArray($lListeDossiers); // On supprime les branche interdites foreach ($lListeDossiers as $Key => $Value) { // Si la valeur de Gro est 0, la page est ouverte tous if ($Value['Gro'] && ! ((int) $Value['Gro'] & $_SESSION['Groupe'])) { $lArbre->SupFils($Key, 1); } } // Evite une trop grosse page if (count($lListeDossiers) > NUM_MAX_ITEMS) { // Suppression des articles foreach ($lListeDossiers as $Key => $Value) { // Supprime le noeud s'il n'a pas d'enfants if (empty ($Value['Fils'])) { $lArbre->SupFils($Key, 1); } } } // Affichage de l'arborescence $lArbre->Liste (0, $S2R_racine, 1); /* Pied de page * ****************/ include ($S2R_racine . "compil/defaut_pied.php"); if (!empty ($S2R_SuperCache) ) { // Rcupre la page dans une variable $S2R_CacheBuffer = ob_get_contents (); // affiche la page et libre le tampon ob_end_flush(); // Grave le fichier super-cache $lFile = fopen($S2R_SuperCache, 'w'); if ($lFile) { fwrite($lFile, $S2R_CacheBuffer); fclose($lFile); } } ?> si2ra0.69/style/vert/si2ra.png0000644000175000017500000001170210623541434016100 0ustar bernardbernardPNG  IHDR\@sBIT|dtEXtSoftwarewww.inkscape.org<TIDATx\yTW=Y  !IXT,T[-hSkjkSq鴟K븶3=-sZW7p@\VYBl,xNg~}}{ 1 8j"wADtm JeDtDӵaa-~6B[Vŋ:ujc9`ݗ K|egK,`嬲=HoKȐkq\.yfaD_;v?'3pBV]5./x{{# bXB7›mƖcj.O7df6kg \zZVVvvXBܗ] m҄ {r8%pa2сհq8())aǏ?vTذr"yN* ApM֚ %ş,#ZN;wg7o (**†,tDiBvf᲏x #aMh Z[^Eʱ4_\ժ%9É=55C8\|K/m>!6 =n튱kZQ۷;qÕK?kx\\ܟl6mڴдH#F6pܡ]6`;O6‰H8q)!!!~XB=r̸{ "eGd I?7C1& 9. L2Q.Ø#}X,4iR 1gsT^!7豻3lGFFN=z .&ndj,}tz& Uj£qR]# =n4*T F3n#"j\32Wȷ?a#h4:$+JՊxeW?1mD9$q>)./Yq6*&Ony#""~[H| ɓZO;'Q.A;$<%䆍999ƵKKKaZj& q~qn2t?#2nm_2F8cLwȑ:O9ԩS8u v68bM@pPN'"d]_KF$!11HNNhD^^cXz5N> `gyר$`(̘M}]{"zyyMST|fLJ]VT*{1l6l6`0瞃dÌ'FM ;D>`]fCUsڇ,xEDܰӧϙ3ĉuuuŵk-#Gk~1#""1}\.4Z,VwOD6(Á?(!!\ D3fצMF%''L&Z FBRRFMJWXXG}555&%%E^VV2B01L+6bfJ?T‰BCC̞={ƍB!`ݺuXt):}!!!bW_}Usm6MN`X4hbU .aqT#"">X~ⴴXuu5ju7|m۶{̙3/0ΎX+qv>G;mZ-"WCs|TiZ^؝zEƘDg,^d@}}=|}@ ,LOOrʸW\ڑqWn>Ez uX<ΫT|gLS ҶP(HHHؼtRm:nnnQ*رcvʕQq'E*m |.ձk!KG,6`‰H֭[GkOHHcp]u>3d̜9TDDČ^Oj%=| x 'Ćj|sMzbLxLĻD"v"š5kqFdggf9WP`۶m7xc[bbγ}{a4ᄆ=\y *@sj;7j{T !"όs!ȟ8q?#FT*g?K$LͱZ/Ո(!Fx6wZVL=Ƈ}. ~.5:=1Yf@7Ͱ˖- vT>%%)))0L}6nݺlܺu (... Bh$r\"܂~RFLi½/u;u$ <}ʩߎ+S 2ca1oq.<É3a„K~mK ɓ5k캺RT JxT.Y2|[MEw|*p#L:=S8cV Qx< ν֚rn£Uc=X\RkFuA Hv/躆WZ|پb*X4[f ;]3~ɬ1-gUuwpjl<x뭷YV|w8|04 Ν {WEMM jkk;ALJ|p+ǵt 4r̈!c4YB<郉=^|q]n'pF={.Rسg{UUU+oBܹVg~b˖-ce^s^xhĦG8W +U q)䣴 >%krK:[>BcCŢ'Ko-ᱱ:wu_cc#֯_E!4m0HKKٳgI S.^2)lݬAIwVu&JNlŴ}]XxDJO[Ts;\rD"ɓ9sSR)֯_,474ܼy+^p 9=~2d__GQ͹;"pq 7L|L>˖-֭[b ڵzMMMY@d牲c;OlF?@Pjkpw;F ES{'v]Vw \QhU>1ƹp~bpppl6T*d2k 7/8#nbZ}/lT.<\ =/wш^}N $ҒRZZS]]ȟ=̛7YYY5׮]~(_6/-J%,;W{({  RAĨ=_TlLئbSBn3<@KeK 7nxPT];X!Z{KRÃV t>QQ*#cc.=C)@c:ی2<n߾]{nWRTt>VHxiI^vKdHܢ4 "z݈k|ZND/(em`uf50ƶ3V nnnVo4g06F;;1Hǯ6/yF VL)c3 C"Lz3H!h0\kX_Q?|d#F-MxI~雂[ gxp@s%p"ND `EےS>*R^PlЭcnϤ_7T; Ё%|h9H%6Q"{ mJw t&>cCj Ret.a8Jz.IENDB`si2ra0.69/style/vert/bois.jpg0000644000175000017500000000113110623543336016006 0ustar bernardbernardJFIFHHExifMM*C  !"$"$C<"0 !"Qq34ACSarR!aA ?0@7%?$Λ'3@E}-8 r&5$qI_ҵ2VpVUI4ZCcΐ(t`dGND)P%:ul5QevtF$"6"51JGE;X^_U&Y+TY81{1Qj-/݊ C]]2 &Pfߊ U*qcs@~,Sx<ٸS%si2ra0.69/style/vert/style.css0000644000175000017500000000766510713370765016250 0ustar bernardbernardbody { background-color:#acff75; margin:0; padding:0 0 0 ; font-family: Verdana, Geneva, Arial, sans-serif; color:#602010; font-size:small; text-align:justify; line-height: 150%; width:100% } div { margin:0; padding:0; } p:first-letter { font-family:Georgia, "Times New Roman", Times, serif; font-size:150%; } h1, h2, h3 , th{ text-align:center; color:#008000; } h1, h2, h3, h4 { margin:0; padding: 1em .1em .5em; } h1 { font-size:180%; } h2 { font-size:160%; } h3 { font-size:130%; } h4 { font-size:110%; } img { border:0; vertical-align:middle; } ul { margin:0; padding:0 1em .1em 3em; } li { margin: .3em 0 .3em 0; } a:link { text-decoration:none; color:#006060; } a:visited { text-decoration: none; color:#800040; } a:hover { text-decoration:underline; color:green; } a:active { text-decoration:underline; color:#a05000; } table { border:outset 2px #c0ffc0; border-collapse:collapse; margin:auto; } th, td { border: inset 2px #c0ffc0; padding:2px; text-align:center; } /* blocs spciaux */ #tete { border:0; background-color:#b0ffe0; background-image:url("titre.png"); background-position:bottom; background-repeat:repeat-x; margin:0; padding:0; min-height:70px } #logo { background-image:url("si2ra.png"); background-repeat:no-repeat; height:64px; width:92px; display:block; float:left; margin:3px 5px 0 5px; padding:0; } #user { float:right; max-width:7em; margin:1em; } #contenant{ background-color:#d0ffb0; width:100%; clear:both; padding:0 ; margin:0; } #menu1 { text-align:center; line-height: 180%; clear:both; margin:0 0 0 0; padding: 0 0 0 0; } #menu1 li { display:inline; margin: 0 2px; } #menu1 a{ background-color:#f0a040; background-image:url("bois.jpg"); color:#000000; padding:1px; border:outset 2px #f0a040; } #menu2 { position:relative; float:left; width:25%; clear:left; padding:1%; margin:0; } #menu2 h4 { text-align:center; } #menu2 ul{ list-style-type:none; padding:0; text-align:center; } #menu2 li { line-height: 130%; margin:4px 0; } #menu2 li img { display:none; } #menu2 li a{ display:block; background-color:#f0a040; background-image:url("bois.jpg"); padding:1px; width:90%; margin:auto; border:outset 2px #f0a040; text-align:center; color:#000000; } #menu1 a:hover, #menu2 a:hover { color:#a00000; } #connexion { float:left; width:66%; padding:0 1%; margin: 2px 0 0 3%; font-weight:bold; } #chemin { color:#000000; float:left; width:66%; padding:0 1%; margin-left:3%; font-size:smaller; font-weight:bold; } #contenu { background-color:#ffffff; background-image:url("coin.png"); background-position:top left; background-repeat:no-repeat; -moz-border-radius-bottomright:32px; float:left; width:66%; padding:1%; margin:0; } #sousTitre { font-style:italic; color:#000000; } #signature { text-align:center; font-size:110%; } #pied { background-color:#acff75; background-image:url("bas.png"); background-position:top; background-repeat:repeat-x; clear:both; font-size:x-small; line-height: 130%; text-align:center; padding:24px .2em .2em .2em; margin:0 0 0 -10px; } #zero { clear:both; height:0; padding:0; margin:0; } #styleList { text-align:center; width:90%; margin: 4px auto; padding:0; } /* alternative contenu lorsque l'on ne veut qu'une seule colonne */ #uneColonne { background-color:#ffffff; background-image:url("coin.png"); background-position:top left; background-repeat:no-repeat; -moz-border-radius-bottomright:32px; padding:1% 2%; width:92%; margin:1em auto; } /* quelques classes */ .fondDif { background-color:#c0ffc0; padding:1%; margin:2px 0; } .cadre { border: 1px solid green; margin:1em; padding:1em; } si2ra0.69/style/vert/titre.png0000644000175000017500000000030310713363562016206 0ustar bernardbernardPNG  IHDR d06bKGD pHYs  tIME &PIDATHc\nĀJ,iF )f+MiGh1=Wr=shrMuK:BcIIENDB`si2ra0.69/style/vert/bas.png0000644000175000017500000000030010713353225015614 0ustar bernardbernardPNG  IHDR d06bKGDOCG pHYs  tIME yMIDATHc<=nĀ00'4!&l7%.ب({c$uըF=6$z>*vEF}sspt9 c_М,) -W|2ku @wK#L:9^fPHAMȐ*, ˰" Da~ Qy/pIENDB`si2ra0.69/classes/arbo.php0000644000175000017500000002634210713372667015343 0ustar bernardbernardAddFils ($Nom_du_noeud, $ID_Noeud = NULL); // Suppression d'un noeud Fils $lArbre->SupFils ($Nom_du_noeud) // Suppression de tous les fils du noeud courant $lArbre->Vider (); // Retourn l'Id du neoud racine $IdDuNoeudRacine = $lArbre->IdRacine(); // rejoindre le noeud parent $lArbre->Parent ($ID_Noeud = NULL); // rejoindre un noeud fils (du noeud courant si $ID_parent=NULL) $lArbre->Fils ($Nom_du_Fils, $ID_parent =NULL); // Nommer le noeud (du noeud courant si $ID_noeud = NULL echo $lArbre->Nom ($ID_noeud = NULL); // Afficher l'arborescence depuis un noeud (depuis la racine si $ID_noeud = NULL) echo $lArbre->Liste ($ID_noeud = NULL); // Afficher le chemin depuis la racine jusqu' un noeud (noeud courant si NULL) echo $lArbre->Chemin($ID_noeud = NULL); // Retourne la diffrence de niveau entre la racine et un noeud int function Niveau ($Id_noeud) // Charger l'arborescence partir d'un array linaire $lArbre = new Arbre ($Array, $NomChampIDNoeud='ID', $NomChampIDParent='ID_Parent'); // Sauver l'arborescence dans un array linaire $lTableau = $lArbre->Tableau() ******************************************************************/ /* Classe Arbre : gre les connections entre les noeuds */ class Arbre { var $cRacine = 0; // ID du noeud racine var $cCourant = 0; // ID du noeud courant var $cLastID = 0; // La plus grande valeur attribue l'ID d'un noeud var $cNoeuds = array(); // Tous les noeuds /* Gestion des erreurs */ function Err($Message) { echo '

        Erreur de la classe Arborescence

        '; echo '

        Arbre "', $this->cNoeuds[$this->cRacine]['Nom'], '"

        '; echo '

        ', $Message, '

        '; } /* Ajouter un noeud fils au noeud $ID_parent et retourne l'ID du nouveau noeud */ function AddFilsID ($Nom, $ID_parent, $Suprime = 0) { if (!$Nom) return 0; if ($this->cNoeuds[$this->$ID_parent]['Sup']) { $this->Err ('Impossible d\'ajouter ', $Nom, ' ', $this->cNoeuds[$this->$ID_parent]['Nom'], ' car ce dernier a t supprim.'); return 0; } $this->cLastID ++; // Cre le nouveau noeud $this->cNoeuds[$this->cLastID] = array ( 'Nom' => $Nom, 'Pere' => $ID_parent, 'Sup' => $Suprime); // On lie le noeud son parent if ($ID_parent) { $this->cNoeuds[$ID_parent]['Fils'][$this->cLastID] = $this->cLastID; } return $this->cLastID; } /* Constructeur : cre le noeud racine d'un nouvel arbre Si on fournit un array dj remplis, en fait simplement une rfrence */ function Arbre ($NomRacine) { if ($NomRacine) { $this->cRacine = $this->AddFilsID($NomRacine, 0); $this->cCourant = $this->cRacine; } // Si l'on ne fournie pas un nom pour la racine il faut utiliser la fonction // suivante (LoadArray) pour remplir l'arborescence } /* charger une arborescence sous forme d'array */ function LoadArray (&$ListePrete) { if (is_array($ListePrete)) { $this->cNoeuds =& $ListePrete; foreach ($this->cNoeuds as $ID => $Noeud) { // On informe le LastID if ($this->cLastID < $ID) { $this->cLastID = $ID; } // On reconstruits les champs fils if ($Noeud['Pere']) { $this->cNoeuds[$Noeud['Pere']]['Fils'][$ID] = $ID; } else { // On recherche la racine dans la liste fournie if ($Noeud['Pere'] == 0) { $this->cRacine = $ID; $this->cCourant = $this->cRacine; } } } if ($this->cRacine) { return true; } else { Err('Attention, la liste fournie est circulaire : il n\'y a pas de racine l\'arborescence'); return false; } } else { Err('La liste fournie la classe Arbre n\'est pas un array'); return false; } } /* Retourner la liste dans un array */ function &SaveArray () { return $this->cNoeuds; } /* Ajouter un noeud fils au noeud courant */ function AddFils ($Nom) { return $this->AddFilsID($Nom, $this->cCourant); } /* Retourne le contenu du champ pour un noeud (du noeud courant si $ID_Noeud est 0) */ function Nom ($ID_Noeud = 0, $Champ = 'Nom') { if (!$ID_Noeud) { $ID_Noeud = $this->cCourant; } return $this->cNoeuds[$ID_Noeud][$Champ]; } /* retourne l'id du noeud racine */ function IdRacine() { return $this->cRacine; } /* Rejoindre un noeud par sont ID */ function Noeud ($ID_Noeud) { if (array_key_exists($ID_Noeud, $this->cNoeuds)) { $this->cCourant = $ID_Noeud; return true; } return false; } /* rejoindre un noeud fils par son nom */ function Fils ($Nom_du_Fils) { // On parcours tous les noeuds fils du noeud courant foreach ($this->cNoeuds[$this->cCourant]['Fils'] as $Fils) { if ($this->cNoeuds[$Fils]['Nom'] == $Nom_du_Fils) { $this->cCourant = $Fils; return $Fils; } } return false; } /* rejoindre le noeud parent du noeud courant */ function Parent () { if ($this->cNoeuds[$this->cCourant]['Pere']) { $this->cCourant = $this->cNoeuds[$this->cCourant]['Pere']; return $this->cCourant; } return 0; } /* Retourner la liste des noeud fils */ function LesFils ($ID_Noeud) { if (is_array($this->cNoeuds[$ID_Noeud]['Fils']) ) return $this->cNoeuds[$ID_Noeud]['Fils']; // En l'absence de fils, retourne un array vide return array(); } /* Afficher le chemin jusqu'au noeud Id_Noeud (ou courant si Id_noeud est nul) Le champ Nom permet d'afficher un autre champ de l'array */ function Chemin ($Id_Noeud = 0, $Separateur = ' > ', $Nom='Nom', $IndexPhp = false) { if (!$Id_Noeud) { $Id_Noeud = $this->cCourant; } // On mmorise le noeud terminal $Chemin = $this->cNoeuds[$Id_Noeud][$Nom]; // Ajoute index.php si besoin if ($IndexPhp && strcmp(substr($Chemin, -4, 4), '.php') ) { $Chemin .= '/index.php'; } while ($Id_Noeud = $this->cNoeuds[$Id_Noeud]['Pere']) { // tant qu'il y a un parent $Chemin = $this->cNoeuds[$Id_Noeud][$Nom] . $Separateur . $Chemin; } return $Chemin; } /* Afficher l'arborescence depuis un noeud (ou la racine ) Pour crer un lien sur chaque noeud, fournir une variable $url sous la forme 'ma_page.php?noeud=' par exemple */ function ListeFils ($Id_Noeud, $url=NULL, $Inactif = 0, $Path=0) { if (!$Inactif) $Inactif = $this->cNoeuds[$Id_Noeud]['Sup']; if ($Inactif) { echo '
      14. '; } else echo '
      15. '; if ($url || $Path) { echo ''; } echo $this->cNoeuds[$Id_Noeud]['Nom']; if ($url || $Path) { echo ''; } if (is_array($this->cNoeuds[$Id_Noeud]['Fils'])) { echo '
          '; foreach ($this->cNoeuds[$Id_Noeud]['Fils'] as $Fils) { $this->ListeFils ($Fils, $url, $Inactif, $Path); } echo '
        '; } echo '
        16. '; } /* Afficher l'arborescence depuis un noeud (ou la racine si $id_noeud = 0 ) $url permet d'afficher un lien Si $Path est diffrent de 0 le lien est le chemin utilisant le champ Dossier */ function Liste ($Id_Noeud = 0, $url = NULL, $Path=0) { if (!$Id_Noeud) { $Id_Noeud = $this->cRacine; } echo '
          '; $this->ListeFils ($Id_Noeud, $url, 0, $Path); echo '
        '; } /* crer les options du select avec indentation N'affiche pas les noeud supprims */ function SelectFils ($Id_Noeud, $Niveau, $Value, $Id_Stop) { // On ne remponte pas les noeud supprims ni $ID_Stop et ses descendants if ($this->cNoeuds[$Id_Noeud]['Sup'] || ($Id_Noeud == $Id_Stop)) return; echo ' ' ; if (is_array($this->cNoeuds[$Id_Noeud]['Fils'])) { foreach ($this->cNoeuds[$Id_Noeud]['Fils'] as $Fils) { $this->SelectFils ($Fils, $Niveau . '  ', $Value, $Id_Stop); } } } /* Afficher l'arborescence depuis un noeud (ou la racine) dans un SELECT Si on informe $Id_Stop, la liste s'arrtera avant le noeud $Id_Stop (mais les autres branches seront explores jusqu' leur terme */ function Select ($NomDuSelect, $Value = 0, $Id_Depart = 0, $Id_Stop = 0) { if (!$Id_Depart) { $Id_Depart = $this->cRacine; } echo ' '; } /* Supprimer un Noeud et ses descendant (inactive simplement le noeud si descendants sauf si l'on met l'option SupReel 1 */ function SupFils ($Id_noeud, $SupReel = 0) { // Suppression des noeud fils si besoin if ($SupReel and is_array($this->cNoeuds[$Id_noeud]['Fils'])) { foreach ($this->cNoeuds[$Id_noeud]['Fils'] as $Key => $Value) { $this->SupFils($Key, $SupReel); } } // Supprime le noeud s'il est vide if (empty($this->cNoeuds[$Id_noeud]['Fils'])) { // On supprime la rfrence dans le noeud parent $Pere = $this->cNoeuds[$Id_noeud]['Pere']; if ($Pere) { unset ($this->cNoeuds[$Pere]['Fils'][$Id_noeud]); } // Suppression relle unset ($this->cNoeuds[$Id_noeud]); } else { // desactivation du noeud s'il a encore des descendants $this->cNoeuds[$Id_noeud]['Sup'] = 1; } } /* Le noeud ou un de ses parents est-il inactiv ? */ function Inactif ($Id_noeud) { $Result = $this->cNoeuds[$Id_noeud]['Sup']; // On cherche si un parent est inactiv while (!$Result && ($Id_noeud = $this->cNoeuds[$Id_noeud]['Pere'])) { $Result = $this->cNoeuds[$Id_noeud]['Sup']; } return $Result; } /* Retourne l'ID du noeud Parent */ function ParentID ($Id_noeud) { return $this->cNoeuds[$Id_noeud]['Pere']; } /* Dplacer un noeud Attention ne pas dplacer un noeud dans lui-meme ou chez un de ses enfants ! */ function Deplace ($ID_Noeud, $ID_NouvPere) { //On verifie que Id_Noeud ne soit pas un anctre de ID_NouvPere $Temp = $ID_NouvPere; do { if ($ID_Noeud == $Temp) return false; } while ($Temp = $this->cNoeuds[$Temp]['Pere']); // On corrige le champ fils du noeud pre if ($Temp = $this->cNoeuds[$ID_Noeud]['Pere']) { unset ($this->cNoeuds[$Temp]['Fils'][$ID_Noeud]); } // puis le champ pere de Id_Noeud $this->cNoeuds[$ID_Noeud]['Pere'] = $ID_NouvPere; // Et le champ fils du nouveau Pere if ($ID_NouvPere) { $this->cNoeuds[$ID_NouvPere]['Fils'][$ID_Noeud] = $ID_Noeud; } return true; } /* Retourne le niveau entre la racine et un noeud */ function Niveau ($Id_noeud) { $Result = 0; while ($Id_noeud = $this->cNoeuds[$Id_noeud]['Pere']) { $Result ++; } return $Result; } } ?> si2ra0.69/admin/rubriques.php0000644000175000017500000005053310713374431016062 0ustar bernardbernard'; // Ici la colonne gauche echo '

        Attention !
        Avant de cliquer sur un des liens ci-dessous, enregistrez votre travail en cours ventuel !

        '; include_once ('menu_art.php'); echo '
        '; /* Corps principal de la page * ******************************/ echo '
        '; // On rcupre la liste des rubriques du dossier pub $lListeDossiers = array(); // Requte SQL sur les rubriques S2R_SqlInit ('SELECT ID, Parent, Nom, Dossier, Supprime FROM ' . PREF_TAB . 'Rubrique'); while ($Donnee = $S2R_Sql->Next()) { $lListeDossiers[$Donnee['ID']] = array ('Nom' => $Donnee['Nom'], 'Pere'=> $Donnee['Parent'], 'Dos' => $Donnee['Dossier'], 'Sup' => $Donnee['Supprime']); } // On rorganise l'arborescence de la liste $lArbre = new Arbre (NULL); $lArbre->LoadArray($lListeDossiers); // On rcupre la liste des groupes $S2R_Sql->NewReq ('SELECT ID, Nom FROM ' . PREF_TAB . 'Groupe ORDER BY ID'); // On rcupre le rsultat dans un tableau $lTabGroupe = array(); while ($Donnee = $S2R_Sql->Next()) { $lTabGroupe[$Donnee[0]] = $Donnee[1]; } // On rcupre les variables POST $lID = empty($_POST['Mod']) ? 0 : (int) $_POST['Mod']; $lExParent = empty($_POST['ExParent']) ? 0 : (int) $_POST['ExParent']; $lParent = empty($_POST['Parent']) ? 0 : (int) $_POST['Parent']; $lDossier = empty($_POST['Dossier']) ? '' : Proteger($_POST['Dossier']); $lNom = empty($_POST['Nom']) ? '' : Proteger($_POST['Nom']); $lTexte = empty($_POST['Texte']) ? '' : Proteger($_POST['Texte']); $lDate = empty($_POST['Date']) ? '' : Proteger($_POST['Date']); $lAuteur = empty($_POST['Auteur']) ? '' : Proteger($_POST['Auteur']); // Par dfaut, on restreint l'accs au membres s'il s'agit d'une extranet $lMembre = isset($_POST['Membre']) ? (bool) $_POST['Membre'] : S2R_EXTRANET; // Accs rserver certains groupes ? $lGroupe = empty($_POST['groupeTous']) ? 0 : 0x7fffffff; if ($lMembre && !$lGroupe) { foreach ($lTabGroupe as $Key =>$Value) { if (!empty($_POST['Groupe' . $Key])) { $lGroupe |= (int)$Key; } } } // Par dfaut : visible pour tous les groupes if (!$lGroupe) $lGroupe = 0x7fffffff; // S'agit-il d'une validation de cration ou de modification ? if (isset($_POST['Valider'])) { $lErreur = 0; // Evite les envois en double ... if (isset($_SESSION['S2R_Actu']) && ! isset ($_SESSION['S2R_Actu'][$_POST['S2R_Actu']])) { // Il y a eu actualisation de la page : vite un renvoi ErrMsg (LG_ERR_ACTU); echo '

        Cliquez ici pour revenir la liste des rubriques

        '; require ($S2R_racine . 'pied.php'); } $lDeplacer = $lID && ($lExParent != $lParent); // On vrifie les donnes indispensables if (!$lNom) { $lErreur ++; ErrMsg ('Vous n\'avez pas spcifi de nom pour la rubrique.'); } // On vrifie que le dossier pre soit actif if ($lParent && $lArbre->Inactif ($lParent)) { $lErreur ++; ErrMsg ('Le dossier parent est inactif / supprim.

        Choisissez un autre parent pour le dossier ' . $lNom . '.'); } if (empty($lDossier)) { // On construit le nom du dossier partir du titre de la rubrique $lDossier = CreateFileName ($lNom, 15); } elseif ($lDeplacer) { $lExDossier = $lDossier; } /* Le nom du dossier est-il dj utilis pour un autre dossier du mme rpertoire ? pas besoin de se soucier des articles dont le nom se termine par .php */ if ((!$lID) || $lDeplacer) { $S2R_Sql->NewReq ('SELECT COUNT(*) FROM ' . PREF_TAB . 'Rubrique WHERE Parent=' . $lParent . ' AND Dossier="' . $lDossier . '"'); $Donnee = $S2R_Sql->Next(); if ($Donnee[0]) { $lLikeName = array(); // On rcupre l'ensembles des sous-dossier de mme nom $S2R_Sql->NewReq ('SELECT Dossier FROM ' . PREF_TAB . 'Rubrique WHERE Parent='. $lParent .' AND Dossier LIKE "' .$lDossier . '%"'); while ($Donnee = $S2R_Sql->Next()) { $lLikeName[] = $Donnee[0]; } // On ajoute un nombre $lIndice = 0; do { if (in_array($lDossier . $lIndice, $lLikeName)) { $lIndice ++; } else { $lDossier .= $lIndice; break; } } while (1); } } if ($lErreur) { $_GET['Mod'] = $lID; } else { /* On supprime la valeur par dfaut de $lGroupe, qui n'tait l que pour le formulaire */ if (!$lMembre) $lGroupe = 0; // On cre le dossier physique si besoin if ($lParent) { $lChemin = $S2R_racine . $lArbre->Chemin ($lParent, '/', 'Dos') . '/' . $lDossier; } else { // Cas du rpertoire racine $lChemin = $S2R_racine . $lDossier; } $DossierCree = is_dir($lChemin); if (!$DossierCree) { if ($lDeplacer) { // On dplace le dossier $lAncien = $S2R_racine . $lArbre->Chemin ($lExParent, '/', 'Dos') . '/' . $lExDossier; if ($DossierCree = rename ($lAncien, $lChemin)) { echo '

        Le dossier a bien t dplac.

        '; } else ErrMsg('Echec du dplacement du dossier.'); } elseif ($DossierCree = mkdir($lChemin)) { if (S2R_LOCAL) { // Attribue les droits 0777 chmod ($lChemin, 0777); } echo '

        Le dossier "', $lChemin, '" a t cr.

        ' ; } } if (!$lID) { // On ajoute le rpertoire l'arborescence $lID = $lArbre->AddFilsID($lNom, $lParent); if ($lID) { $lListeDossiers[$lID]['Dos'] = $lDossier; // On cre le dossier dans la table $S2R_Sql->NewReq ("INSERT INTO " . PREF_TAB . "Rubrique (ID, Parent, Dossier, Nom, Groupe, Texte, Date, Valideur) VALUES ($lID, $lParent, '$lDossier', '$lNom', $lGroupe, '$lTexte', '". date("Y/m/d H:i") . "', " . $_SESSION['IdMembre'] . ")"); echo '

        La rubrique ', $lNom, ' a t enregistre dans la table.

        '; } else { ErrMsg ('Impossible de crer la rubrique dans la table '. $lChemin . '. Veuillez contacter le reponsable du site.'); } } else { // On modifie l'arborescence $lListeDossiers[$lID]['Nom'] = $lNom; // S'il s'agit d'un dplacement if ($lDeplacer) { $lArbre->Deplace ($lID, $lParent); $lListeDossiers[$lID]['Dos'] = $lDossier; } if ($lListeDossiers[$lID]['Sup']) { // On ractive le dossier dans l'arborescence si besoin $lListeDossiers[$lID]['Sup'] = 0; // Mais on dsactive les dossiers fils puisqu'ils ne sont plus dans le cache if (is_array($lListeDossiers[$lID]['Fils'])) { foreach ($lListeDossiers[$lID]['Fils'] as $lFils) { $lListeDossiers[$lFils]['Sup'] = 1; } } } // On actualise la table $S2R_Sql->NewReq ("UPDATE " . PREF_TAB ."Rubrique SET Parent = $lParent, Dossier = '$lDossier', Nom = '$lNom', Groupe = $lGroupe, Texte = '$lTexte', Date = '". date("Y/m/d H:i") . "', Valideur= " . $_SESSION['IdMembre'] . ", Supprime=0 WHERE ID=$lID"); echo '

        La rubrique ', $lNom, ' a t modifie dans la table.

        '; } if ($DossierCree) { // Cration/modification du fichier index.php require_once ( $S2R_racine. 'page_create2.php' ); if (CreatePage ($lNom, 'index', $lID, $lGroupe, Code2Html ($lTexte, '\' . $S2R_racine . \''))) { echo '

        Le rpertoire ', $lChemin, ' a bien t '; if (empty($_POST['Mod'])) { echo 'cr.

        '; } else echo 'modifi.

        '; } // Cration / modification du fichier _dossier.php Actu_dossier ($lID); // On modifie le fichier _dossier.php du rpertoire parent if ($lParent) { Actu_dossier ($lParent); } // Gestion des modifications dues aux dplacement if ($lDeplacer) { // Ancien dossier parent if ($lExParent) Actu_dossier ($lExParent); // dossiers fils (pour le chemin cliquable) if (is_array($lListeDossiers[$lID]['Fils'])) { // Fonction rcursive pour actualiser les dossiers fils function Actu_CheminFils ($ID_dossier) { global $lListeDossiers; foreach ($lListeDossiers[$ID_dossier]['Fils'] as $Fils) { // On actualise de chemin du dossier Actu_chemin($Fils); // on explore les fils if (is_array($lListeDossiers[$Fils]['Fils'])) { Actu_CheminFils ($Fils); } } } // Fin de la fonction // On dclenche la cascade d'actualisation Actu_CheminFils ($lID); } } } else { ErrMsg ('Impossible de crer le rpertoire ' . $lChemin . '. Veuillez contacter le reponsable du site.'); } } // Efface la donne du tableau pour viter une nouvelle interprtation du mme formulaire unset ($_SESSION['S2R_Actu'][$_POST['S2R_Actu']]); } // S'agit-il d'une suppression de rubrique ? elseif (isset($_POST['S2R_Sup'])) { if ($lID == 1) { ErrMsg ('Vous ne pouvez pas supprimer la racine de toutes les rubriques.'); } elseif (!$lID) { ErrMsg ('Vous essayez de supprimer une rubrique qui n\'existe pas encore !'); } else { // On demande confirmation pour supprimer la rubrique echo '

        Supprimer une Rubrique

        Voulez-vous vraiment supprimer la rubrique:

        ', $lNom, '

        correspondant au dossier:
        ', $lDosActuel, '
        valide le ', MySql2DateFormat($lDate), ' par ', $lAuteur, ' ?

        '; // La rubrique a-t-elle des sous-rubriques ? $lVide = empty($lListeDossiers[$lID]['Fils']); if ($lVide) { // La rubrique a-t-elle des articles ? $S2R_Sql->NewReq ('SELECT COUNT(1) FROM ' . PREF_TAB . 'Article WHERE ID_Dossier=' . $lID); if ($Donnee = $S2R_Sql->Next()) { $lVide = !$Donnee[0]; } } if ($lVide) { echo '

        Cette Rubrique est vide pour le moment. Si vous confirmez l\'opration, elle sera supprime de la base et le dossier effac. Elle n\'apparatra plus dans l\'arborescence.

        '; } else { echo '

        Cette rubrique contient un ou plusieurs article(s) ou sous-rubrique(s).

        Si vous confirmez l\'opration, la rubrique sera dsactive, ainsi que ses sous-rubriques et/ou articles. Elle apparaitra alors en gris dans l\'arborescence.

        '; } echo '
         
        '; } } // Confirmation d'une suppression de rubrique ? elseif (!empty($_POST['S2R_Del'])) { // Fonction rcursive pour supprimer un dossier ayant des descendant function ExtRmdir ($Fichier) { if (is_dir($Fichier)) { // On lit le contenu du dossier $fDossier = dir ($Fichier); while ($file = $fDossier->read()) { if ($file != '.' && $file != '..') { if (! ExtRmdir ($Fichier . '/' . $file)) { echo '

        Impossible de supprimer ', $Fichier . '/' . $file, '.

        '; return false; } } } $fDossier->close (); // On efface le dossier return rmdir ($Fichier); } else if (file_exists ($Fichier)) { return unlink($Fichier); } } // La rubrique supprimer existe-t-elle ? if (array_key_exists($lID, $lListeDossiers)) { // La rubrique a-t-elle des sous-rubriques ? $lVide = empty($lListeDossiers[$lID]['Fils']); if ($lVide) { // La rubrique a-t-elle des articles ? $S2R_Sql->NewReq ('SELECT COUNT(*) FROM ' . PREF_TAB . 'Article WHERE ID_Dossier=' . $lID); if ($Donnee = $S2R_Sql->Next()) { $lVide = !$Donnee[0]; } } // Chemin vers le dossier $lChemin = $S2R_racine . $lArbre->Chemin ($lID, '/', 'Dos'); if ($lVide) { // On efface les donnes de la table. $S2R_Sql->NewReq ('DELETE FROM ' . PREF_TAB . 'Rubrique WHERE ID=' . $lID); echo '

        La rubrique ', $lListeDossiers[$lID]['Nom'], ' a t supprime de la base de donnes.

        '; // On supprime le rpertoire s'il avait t cr if (is_dir ($lChemin)) { if (ExtRmdir ($lChemin)) { echo '

        Le dossier ', $lListeDossiers[$lID]['Dos'], ' a t effac.

        '; } else { ErrMsg ('Le dossier ' . $lListeDossiers[$lID]['Dos'] . ' n\'a pas pu tre effac.
        Vous tes invit le faire par votre logiciel FTP.'); } } // Supprime le dossier dans l'arborescence $lArbre->SupFils ($lID); } else { // On dsactive simplement la rubrique et les sous-rubriques dans la table $S2R_Sql->NewReq ('UPDATE ' . PREF_TAB . 'Rubrique SET Supprime=1 WHERE ID=' . $lID); echo '

        La rubrique ', $lListeDossiers[$lID]['Nom'], ' a t dsactive. Elle apparaitra dsormais comme grise dans l\'arborescence

        Pour la ractive, cliquez sur le lien gris

        '; // On supprime tous les fichiers et le dossier if (is_dir ($lChemin) && ExtRmdir ($lChemin)) { echo '

        Le dossier '. $lListeDossiers[$lID]['Dos']. ' a t supprim du cache ainsi que ses sous-dossiers et/ou fichiers.

        '; } else { ErrMsg ('Le dossier ' . $lListeDossiers[$lID]['Dos'] . ' n\'a pas pu tre effac.
        Vous tes invit le faire par votre logiciel FTP.'); } // On dsactive la rubrique dans l'arborescence $lListeDossiers[$lID]['Sup'] = 1; } // On corrige le dossier parent if ($lParent) { require_once ( $S2R_racine. 'page_create2.php' ); Actu_dossier ($lParent); } } else { ErrMsg ('La rubrique que vous voulez supprimez n\'existe pas'); } } // S'agit-il d'une demande de modification ou de cration de rubrique ? if (isset($_GET['Mod'])) { $lID = (int) $_GET['Mod']; // On vrifie que l'ID existe if ($lID && !array_key_exists($lID, $lListeDossiers)) { $lID = 0; } if ($lID) { // A-t-on cliqu sur une rubrique dsactives if ($lListeDossiers[$lID]['Sup']) { // On demande confirmation pour ractiver la rubrique ErrMsg ('Attention, cette rubrique est actuellement dsactive.

        Si vous cliquez sur le bouton valider, la rubrique sera cre de nouveau.'); } // On attribue les donnes dj disponibles if (!isset($_POST['Valider'])) { $lExParent = $lParent = $lListeDossiers[$lID]['Pere']; $lNom = $lListeDossiers[$lID]['Nom']; $lDossier = $lListeDossiers[$lID]['Dos']; $lDosActuel = $lDossier; // et on rcupre les autres donnes dans la table $S2R_Sql->NewReq ('SELECT r.Texte, r.Date, r.Groupe, CONCAT(m.Prenom, "", m.Nom) AS Auteur FROM ' . PREF_TAB . 'Rubrique r LEFT JOIN ' . PREF_TAB . 'Membres m ON r.Valideur=m.ID WHERE r.ID=' . $lID); if ($Donnee = $S2R_Sql->Next()) { $lTexte = $Donnee['Texte']; $lDate = $Donnee['Date']; $lMembre = (bool) ((int) $Donnee['Groupe'] && 0x7fffffff); $lGroupe = $lMembre ? (int) $Donnee['Groupe'] : 0x7fffffff; $lAuteur = $Donnee['Auteur']; } } } // Fonction pour afficher la liste des groupes (en cases cocher) function LesGroupes() { global $lTabGroupe, $lGroupe; // Case pour tous les Membres $Result = ''; // Case pour chacun des groupes foreach ($lTabGroupe as $Key => $Value) { // Ajoute une case cocher $Result .= ''; } return $Result; } // Fonction javascript pour afficher la liste des groupes echo ''; // Mmorise le controle anti-renvoi de formulaire dans le tableau de SESSION $_SESSION['S2R_Actu']['A' . $_SESSION['Actu']] = 1; // formulaire de cration / modification de rubrique echo '

        Donnes obligatoires
        '; // On ne permet pas d'attribuer un parent la racine if ($lID == 1) { echo 'Rubrique racine de toutes les autres'; } else { // On n'affiche pas comme parent possible le dossier modifi ni ses descendants $lArbre->Select('Parent', $lParent, 0, $lID); } echo '
        Visibilit
        '; if ($lMembre) { // Si on a coch Pour les membre, affiche la liste de tous les groupes possibles echo stripslashes(LesGroupes()); } echo '
        Prsentation de la rubrique (facultative)'; ShowEditeur('textCourt', 'Texte', $lTexte); echo '
        '; if ($lAuteur || $lDate) { echo '

        Rubrique valide par ', $lAuteur, ', le ', MySql2DateFormat($lDate), '

        '; } echo '
        '; echo '
        Retour au formulaire
        '; } // Fin de demande de modification ou cration (par $_GET['Mod']) else { echo '

        Crer une nouvelle Rubrique

        '; // On affiche l'arborescence echo '

        Arborescence des Rubriques

        Pour Modifier une rubrique, cliquez sur son nom dans l\'arborescence

        '; $lArbre->Liste (0, $_SERVER['PHP_SELF'] . '?Mod='); echo '

        Nouvelle Rubrique

        '; } /* Pied de page * ****************/ include ($S2R_racine . 'pied.php'); ?> si2ra0.69/admin/S2R.php0000644000175000017500000000021710713374524014444 0ustar bernardbernard