#!/usr/bin/perl # ------------------- NoDeny ------------------ # Copyright (Я) Volik Stanislav, 2008, 2009 # Read license http://nodeny.com.ua/license.txt # --------------------------------------------- $VER=49.32; $VER==$VER_chk or &VerWrong($F{a}); $PR{88} or &Error('мЕР ОПЮБ +МЮ ЯНГДЮМХh +5; СВЕРМШУ ГЮ&# +1054;ХЯЕИ.'); &LoadMoneyMod; $mid=int $F{mid}; if( $mid ) { $p=sql_select_line($dbh,"SELECT *,AES_DECRYPT(passwd,'$Passwd_Key') + AS pass FROM users WHERE id=$mid",'дЮММj +4;Е НЯМНБМНИ &# +1043;ЮОХЯХ',"ЯЙПj +4;Р: select from users where id=$mid"); $p or &Error("сЙЮГЮММ
 +70;Ъ НЯМНБМЮЪ & +#1043;ЮОХЯЭ id=$mid МЕ 
 +71;СЫЕЯРБСЕР!") +; $p->{mid} && &Error("мЕКЭГЪ  +071;НГДЮРЭ ЮКХ& +#1070;ЯМСЧ ГЮОХЯ +;Э ДКЪ ЮКХЮЯ +052;НИ."); ($grp,$paket,$paket3)=&Get_fields('grp','paket','paket3'); $UGrp_allow{$grp}<2 && &Error("с БЮЯ М +;ЕР ОПЮБ МЮ Я&# +1053;ГДЮМХЕ СВЕ +РМШУ ГЮОХЯh +5;И Б ГЮЙЮГЮМ&# +1052;НИ ЦПСООЕ. k +3;НГЛНФМН, РН&# +1050;ЭЙН ВРН ЩРХ +; ОПЮБЮ АШКХ &# +1043;ЮАПЮМШ.",$go_back); ($name,$fio,$passwd)=&Get_filtr_fields('name','fio','pass'); $origpasswd=$br.'оЮПНКЭ Н +ЯМНБМНИ ГЮi +4;ХЯХ:'.$br.'<input type=radio name=passnum value=3 + checked> '.&input_t('passwd3',$passwd,20,30); $OUT.=$br.&MessX(&Printf('яНГДЮМ +;ХЕ ЮКХЮЯМН
 +48; ГЮОХЯХ ДКЪ +КНЦХМЮ: [bold], тх +085;: [bold], id: [bold]',$name,$fio,$mid),0,1); } else { # мЮИДЕЛ ОЮЙ& +#1045;Р, Й ЙНРНПН
 +51;С ЮДЛХМ ХЛЕ& +#1045;Р ДНЯРСО %tarifs=(); $first_pkt=0; foreach( 1..$m_tarif ) { next if !$Plan_name[$_] || !$Plan_allow_show[$_]; $first_pkt||=$_; $tarifs{$_}=$Plan_name_short[$_]; } $paket=int $F{paket}; $paket=$first_pkt if !$Plan_allow_show[$paket]; # ЯФ +057;КЭМХВЮК - ОЮ +;ЙЕР АСДЕР О +045;ПБШЛ ХГ ЯОХ +ЯЙЮ $pakets=join '',map{ &tag('option',$tarifs{$_},"value=$_".($paket== +$_ && ' selected')) } sort {$tarifs{$a} cmp $tarifs{$b}} keys %tarifs +; $pakets=&tag('select',$pakets,'name=paket size=1'); $fio=$origpasswd=''; $OUT.=&Mess3('row2',&bold('яНГДЮi +2;ХЕ СВЕРМНИ &# +1043;ЮОХЯХ ЙКХЕ +МРЮ')).$br; @grps=grep{ $_ && $UGrp_allow{$_}>1 } keys %UGrp_name; $F{grp}=$grps[0] if $#grps==0; # ЕЯКХ k +0;ДЛХМС ДНЯР +057;ОМЮ БЯЕЦН Н +ДМЮ ЦПСООЮ,  +071;ВХРЮЕЛ, ВРН + НМ ЕЕ Х БШАП&# +1070;К if( defined $F{grp} ) { $grp=int $F{grp}; $UGrp_allow{$grp}<2 && &Error('с БЮЯ  +052;ЕР ОПЮБ МЮ Я +;НГДЮМХЕ СВ
 +45;РМШУ ГЮОХЯ&# +1045;И Б ГЮЙЮГЮМ +;МНИ ЦПСООЕ. &# +1073;НГЛНФМН РН +КЭЙН ВРН ЩР
 +61; ОПЮБЮ АШКХ +ГЮАПЮМШ.',$go_back); } else { $out1=$out2=''; foreach $g (sort {$UGrp_name{$a} cmp $UGrp_name{$b}} keys %UGrp_ +name) { next if $UGrp_allow{$g}<2 || !$g; $h="<option value=$g".($grp==$g && ' selected').">$UGrp_name{ +$g}</option>"; $UGrp{$g}=~/^2$|^2,|,2,|,2$/? ($out2.=$h) : ($out1.=$h); } $out=&tag('select',$out1.$out2,'name=grp size=1'); $out=&Center(&Table('table2',&RRow('row1','ll',$out,&submit_a('& +#1076;ЮКЕЕ →')))); $OUT.=&MessX(&form('!'=>1,"бШАЕП&# +1061;РЕ ЦПСООС Й +;КХЕМРЮ, Б ЙН&# +1056;НПНИ ЯНАХП +ЮЕРЕЯЭ ЯНГh +4;ЮРЭ СВЕРМС +063; ГЮОХЯЭ:".$br3.$out)); &Exit; } $paket3=int $F{paket3}; $paket3=0 if !defined($Plans3{$paket3}) || $Plans3{$paket3}{usr_grp +}!~/,$grp,/; $pakets3=join '',map {"<option value=$_".($paket3==$_ && ' selected +').">$Plans3{$_}{name}</option>"} sort {$Plans3{$a}{name} cmp $Plans3{$b}{name}} keys %Plans3; $pakets3&&=&tag('select',"<option value=0> </option>$pakets3", +'name=paket3 size=1'); } %fileds=('mid'=>$mid,'grp'=>$grp,'paket'=>$paket,'paket3'=>$paket3); $p=sql_select_line($dbh,"SELECT * FROM user_grp WHERE grp_id=$grp",'&# +1076;ЮММШЕ ЙКХЕ +МРЯЙНИ ЦПСi +4;ОШ'); if( $p ) { $grp_block_limit=$p->{grp_block_limit}; $grp_nets=$p->{grp_nets}; @nets=split /\n/,$grp_nets if $grp_nets; } else { $grp_block_limit=0; $grp_nets=''; @nets=(); } {# ОПНБЕПЙЮ О +070;ПНКЪ, ip $need_form=0; $ip_str='IP'; $Ffio=&trim(defined $F{fio}? $F{fio} : $fio); $Fcontract_date=int $F{contract_date}; $Fcontract_date=0 if $Fcontract_date<0 || $Fcontract_date>31; $Fpassnum=int $F{passnum}; $Fpasswd=$Fpassnum>2? $F{passwd3} : $Fpassnum>1? $F{passwd2} : $Fpass +num>0? $F{passwd1} : $F{passwd0}; if( defined $Fpasswd ) { if( !$Fpasswd ) { &Message('оСЯРНИ О +070;ПНКЭ МЕ ПЮГ +ПЕЬЕМ.','','бМХЛ +;ЮМХЕ'); $need_form=1; } elsif( length($Fpasswd)<4 ) { &Message('пЕЙНЛЕМ
 +44;СЕРЯЪ ДКЪ А& +#1045;ГНОЮЯМНЯР +Х ХЯОНКЭГНh +1;ЮРЭ ОЮПНКХ &# +1044;КХММНИ МЕ Л +;ЕМЕЕ 4У ЯХЛБ&# +1053;КНБ.','','оПЕДС& +#1054;ПЕФДЕМХЕ'); } } $Fip=&trim($F{ip}); unless (defined $F{ip}) { $need_form=1; last; } if( $Fip!~/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/ || $1>255 || $2>255 || $3>25 +5 || $4>255 ) { &Message($Fip? 'IP-ЮДПЕЯ С
 +49;ЮГЮМ МЕБЕП&# +1052;Н.' : 'мЕ СЙЮГЮ& +#1052; ip-ЮДПЕЯ','','бМ
 +61;ЛЮМХЕ'); $ip_str=&tag('span','IP','class=error'); $need_form=1; last; } $sortip=$2*65536 + $3*256 + $4; if( $grp_nets && !&Check_Ip_in_Nets($Fip,@nets) ) { &Message('IP МЕ ОНОЮД +070;ЕР Б ЯОХЯНЙ + ПЮГПЕЬЕММj +4;У ОНДЯЕРЕИ &# +1044;КЪ ДЮММНИ Ц +;ПСООШ.','','бМХi +1;ЮМХЕ'); $ip_str=&tag('span','IP','class=error'); $need_form=1; last; } $p=&sql_select_line($dbh,"SELECT * FROM users WHERE ip='$Fip'",'n +3;СЫЕЯРБСЕР  +050;Х ЙКХЕМР Я Р +;ЮЙХЛ ФЕ ip?'); if( $p ) { &Message('йКХЕМР Я i +7;ЙЮГЮММШЛ ip С +ФЕ ГЮПЕЦХЯi +6;ПХПНБЮМ. бН&# +1043;ЛНФМН ОНЙЮ + БШ ББНДХКХ  +044;ЮММШЕ, СЙЮГ +ЮММШИ ip АШК Г& +#1070;МЪР.','','бМХЛЮ +МХЕ'); $ip_str=&tag('span','IP','class=error'); $need_form=1; last; } } { $need_form or last; $allow_nets=''; if( $grp_nets ) { &LoadNetMod; $first_ip=''; foreach $net (split /\n/,$grp_nets) { ($h)=&nNet_GetNextIp($net); $first_ip||=$h; $allow_nets.=&RRow('*','ll',$net,!!$h && &ahref('#',$h,qq{OnCli +ck="javascript:document.getElementById(1).value='$h'"})); } $allow_nets=&Table('tbg3',&RRow('tablebg','cc','оН
 +44;ЯЕРЭ','яБНАН +ДМШИ ip').$allow_nets) if $allow_nets; } $i=0; $contact_sel=''; foreach( ' (ЯЕЦНДМЪ)',' (&# +1041;ВЕПЮ)',' (ОНГЮ&# +1041;ВЕПЮ)','','','','','','','' ) { $contact_sel.="<option value=$i".($Fcontract_date==$i && ' selecte +d').'>'.&the_date($t-86400*$i++)." $_</option>"; } # ТНПЛХПСЕЛ  +071;КСВЮИМШИ О& +#1070;ПНКЭ $rpass1=$rpass2=''; $len=9+int(rand 3); for ($i=0; $i<$len; $i++) {$rpass1.=(0..9,'A'..'Z','a'..'z','@','.',' +,','-','=','%','$','(',')',':','_','?','+','#')[rand 76]} for ($i=0; $i<$len-3; $i++) {$rpass2.=(0..9,'A'..'Z','a'..'z')[rand 6 +2]} $sth=&sql($dbh,"SELECT ip FROM users",'оНКС&# +1042;ХЛ ЯОХЯНЙ ip  +041;ЯЕУ ЮАНМЕМ& +#1056;НБ'); $U{$_->{ip}}=1 while $_=$sth->fetchrow_hashref; $i=0; $out_lft=$h=''; $old_region=0; $sth=&sql($dbh,"SELECT * FROM points,p_street WHERE points.street=p_s +treet.street ORDER BY p_street.region,p_street.name_street,points.hou +se",'яОХЯНЙ СКХ +Ж'); while( $p=$sth->fetchrow_hashref ) { ($street,$box,$house,$net,$region)=&Get_fields qw( street box house net region); $house.='('.&Filtr_out($p->{block}).')' if $p->{block}; $nstreet=&Filtr_out($p->{name_street}); if( $old_region!=$region ) { $r=$Regions{$region}; chop $r; $out_lft.=$h.&RRow('head','c',$r); $h=''; } $old_region=$region; $out_lft.="$h<tr class=row2><$td><a href='javascript:show_x($stree +t)'>$nstreet</a></td></tr>". "<tr class=row1 id=my_x_$street style='display:none'><td><tabl +e class='tbg1 width100'>" if $i!=$street; $i=$street; $h||='</table></td></tr>'; # ОНОШРЮЕЛЯ& +#1066; МЮИРХ ЯБНh +0;НДМШИ ip $ip=''; if( $net=~/^(\d+\.\d+\.\d+\.)(\d+)$/ && $2<254 ) { $net=$1; for( $x=$2+1; $x<255; $x++ ) { next if $U{"$net$x"}; $ip="$net$x"; last; } }else { $net=''; } $out_lft.=&PRow."<td>рНВЙЮ: <a href= +'$scrpt&a=map&bx=$box' target='_blank'>$box</a></td><td>дН +;Л: <span class=data1>$house</span></td><td>оНh +4;ЯЕРЭ: ".($net? "<span class=data1>$net</spa +n>" : "мехгбеярм +;ю"). "</td><td>IP: ".($ip? qq{<a href='#' OnClick="javascript:docum +ent.getElementById(1).value='$ip'">$ip</a>} : 'МЕР +БЮПХЮМРНБ')."</ +td></tr>"; } $out_lft.=$h; $out=&div('message',&form('!'=>1,%fileds,&Table('tbg3', &RRow('*','ll ','тхн ЙКХЕ +МРЮ',&input_t('fio',$Ffio,36,255),''). &RRow('*','ll ','дЮРЮ ГЮЙ +КЧВЕМХЪ ЙНi +2;РПЮЙРЮ',"<select name=contract_ +date size=1>$contact_sel</select>",''). &RRow('*','lll',$ip_str,&input_t('ip',$Fip || ($Auto_ip>0 && $first +_ip),36,16,'id=1'),$allow_nets? ' б ЦПСООЕ h +9;КХЕМРЮ ПЮГ +055;ЕЬЮЕРЯЪ МЮ& +#1043;МЮВЮРЭ ip ЮД +055;ЕЯЮ Б РЮЙХУ + ДХЮОЮГНМЮi +9;:'.$br2.$allow_nets : ' мЕР НЦПЮМ +;ХВЕМХИ ОН Д +061;ЮОЮГНМС ЮД& +#1055;ЕЯНБ'). &RRow('*','lll','оЮПНКЭ', '<input type=radio name=passnum value=0> '.&input_t('passwd0',$ +Fpasswd,20,30).$br. '<input type=radio name=passnum value=1> '.&input_t('passwd1',$ +rpass1,20,30).$br. '<input type=radio name=passnum value=2'.(!$mid && ' checked'). +'> '.&input_t('passwd2',$rpass2,20,30).$origpasswd, 'бБЕДХРЕ Оk +0;ПНКЭ ХКХ БШ&# +1040;ЕПХРЕ НДХМ + ХГ ОПЕДКНФ
 +45;ММШУ ЯЦЕМЕ&# +1055;ХПНБЮММШУ +ЯКСВЮИМШЛ i +3;АПЮГНЛ'). (!$mid && &RRow('*','lll',$Plan2_Title || 'рЮП +061;ТМШИ ОКЮМ',$paket +s,'')). (!$mid && $pakets3 && &RRow('*','lll',$Plan3_Title || 'дi +3;ОНКМХРЕКЭ
 +52;ШИ РЮПХТМШ&# +1048; ОКЮМ',$pakets3,'')) ).$br2.&submit_a('дЮКЕЕ →').$br) +); if( !$out_lft ) { $OUT.=$out.$go_back; &Exit; } $OUT.=&Table('width100', &tag('tr', &tag('td',&Table('tbg width100',$out_lft),'valign=top width=36%' +). &tag('td',$out,'valign=top') ) ).$go_back; &Exit; } $fileds{passwd0}=$Fpasswd; $Fpasswd=&Filtr_mysql($Fpasswd); $fileds{contract_date}=$Fcontract_date; $Fcontract_date=$t-$Fcontract_date*86400; $fileds{fio}=$Ffio; $title="тхн: ".&bold(&Filtr_out($Ffio) || 'М&# +1045; СЙЮГЮМШ').$br2; $fileds{ip}=$Fip; {# === оПНБЕПЙЮ К +;НЦХМЮ if( $PR{120} ) { # КНЦХМ МЕ БШ +;АХПЮЕР ЮДЛ
 +61;М, ОПХЯБЮХБ& +#1070;ЕРЯЪ ЮБРНЛ +;ЮРХВЕЯЙХ $login=lc( &translit(&Filtr($Ffio)) ) || $Fip; $login=~s|^([^ ]+) +.*$|$1|; # НЯРЮБ +ХЛ РНКЭЙН Т
 +70;ЛХКХЧ $sth=&sql($dbh,"SELECT name FROM users WHERE name LIKE '$login%'") +; $L{lc($p->{name})}=1 while $p=$sth->fetchrow_hashref; if( $L{$login} ) { # МЮИДЕЛ МЕ
 +43;ЮМЪРШИ КНЦ&# +1061;М БХДЮ КНЦХ +;М_ВХЯКН $i=1; $i++ while ( $L{"${login}_$i"} ); $login.="_$i"; } $Flogin=$login; last; } $Flogin=$F{login}; defined $Flogin or last; $Flogin=&trim($Flogin); $Block_space_login && $Flogin=~s|\s||g && &Message('б К&# +1053;ЦХМЕ САПЮМ +Ш ОПНАЕКШ.','','k +3;МХЛЮМХЕ'); $login=&Filtr($Flogin); $Flogin ne $login && &Message("б КНЦХ&# +1052;Е САПЮМШ МЕ +;ДНОСЯРХЛШh +5; ЯХЛБНКШ. мН& +#1041;ШИ КНЦХМ: $login",'', +'бМХЛЮМХЕ'); $Flogin=''; if( length($login)<3 ) { &Message('кНЦХМШ ЛЕ +;МЕЕ 3У ЯХЛБН&# +1050;НБ МЕ ПЮГПЕ +;ЬЕМШ.','','бМХЛk +0;МХЕ'); last; } $p=&sql_select_line($dbh,"SELECT name FROM users WHERE name='$login'" +,'яСЫЕЯРБСЕ
 +56; КХ ЙКХЕМР Я + РЮЙХЛ ФЕ КН +062;ХМНЛ?'); if( $p ) { &Message("сФЕ ЯСЫЕЯ +;РБСЕР ЙКХЕ
 +52;Р Я КНЦХМНЛ +".&bold($login),'','бМХЛЮМХ +Е'); last; } $fileds{login}=$Flogin=$login; } sub push_login { length($_[0])>2 && !(grep{$_ eq $_[0]} @logins) && push @logins,$_[0] +; } {# === бБНД КНЦХМ +;Ю $Flogin && last; @logins=(); $h1=$h=lc( &Filtr($Ffio||$Fip) ); if( $h1=~s/^([^ ]+) +([^ ]*).*$/$1_$2/ ) { $h=$1; &push_login(&translit($h1)); &push_login($h); } $h3=$h2=&translit($h); @logins,&push_login($h2); $h3=~s|[euioa]||g && &push_login($h3); # КНЦХ +М АЕГ ЦКЮЯМ
 +64;У АСЙБ &push_login($h1); @f=$Block_space_login? ('_2','_pc2','_pc3','_comp_2','_comp_3','_note +book','_apoint','_router','_alias','_out_ip','.') : ('_2',' pc2',' pc3',' comp 2',' comp 3',' out ip','_pc2','_pc3','_n +otebook','_apoint','_router','_alias','_out_ip','.'); push @logins,$h2.$_ foreach @f; $out="$title бШАЕПХРЕ + НДХМ ХГ БЮП +061;ЮМРНБ КНЦХ& +#1052;Ю:".$br2.&input_t('login','',36,36,'id=1').$br2; foreach $login (@logins) { %L=(); $sth=&sql($dbh,"SELECT name FROM users WHERE name LIKE '$login%'") +; $L{&lc_rus(lc($p->{name}))}=1 while $p=$sth->fetchrow_hashref; $h=&lc_rus(lc($login)); if( $L{$h} ) { $i=0; $i++ while ($L{"$h$i"}); $login="$login$i"; } $h=&Filtr_out($login); $out.=&ahref('#',$h,qq{OnClick="javascript:document.getElementById +(1).value='$h'"}).$br; } $OUT.=&MessX(&form('!'=>1,%fileds,$out.$br.&submit_a('дЮ& +#1050;ЕЕ →'))).$go_back; &Exit; } $balance=0; # === оПЕДСЯРЮМ& +#1053;БКЕММШЕ ОН +;ДЙКЧВЕМХЪ === { $newuser_opt=&sql_select_line($dbh,"SELECT * FROM newuser_opt WHERE o +pt_enabled>0 LIMIT 1",'еЯРЭ КХ &# +1054;ПЕДСЯРЮМН& +#1041;КЕММШЕ ОНД +;ЙКЧВЕМХЪ?'); $newuser_opt or last; # Б РЮПХТЕ СЙ&# +1070;ГЮМН ОПЕДС +ЯРЮМНБКЕММ +;НЕ ОНДЙКЧВ
 +45;МХЕ ХКХ ЕЦН +СЙЮГЮК ЮДЛj +1;М $Fopt=$mid? int $F{opt} : $Plan_newuser_opt[$paket] || int $F{opt}; last if !$Fopt && defined($F{opt}) && $PR{118}; # ЮДi +1;ХМС ПЮГПЕЬ +045;МН МЕ ХЯОНК +ЭГНБЮРЭ ОПh +5;ДСЯРЮМНБК
 +45;ММШЕ ОНДЙК&# +1063;ВЕМХЪ { if( !$Fopt ) { defined $F{opt} && &Message("бШ ДНК +ФМШ БШАПЮРj +9; ОПЕДСЯРЮМ +053;БКЕММНЕ ОН& +#1044;ЙКЧВЕМХЕ М +;ХФЕ",'',''); last; } $p=&sql_select_line($dbh,"SELECT * FROM newuser_opt WHERE id=$Fopt A +ND opt_enabled>0"); if( !$p ) { $Plan_newuser_opt[$paket] && &Error("нЬХА +ЙЮ Б РЮПХТМ
 +53;Л ОКЮМЕ. оПЕ +ДСЯРЮМНБКЕ +;ММНЦН ОНДЙ
 +50;ЧВЕМХЪ ╧ $Fopt М&# +1045; ЯСЫЕЯРБСЕ +Р. нАПЮРХРЕ
 +71;Э Й ЦКЮБМНЛ& +#1057; ЮДЛХМХЯРП +;ЮРНПС.",$go_back); &Message("оПЕДСЯРЮ +;МНБКЕММНЕ 
 +54;НДЙКЧВЕМХ +045; ╧ $Fopt МЕ ЯСЫЕЯ +РБСЕР КХАН 
 +52;ЕЮЙРХБМН. б& +#1064;АЕПХРЕ МСФ +;МНЕ Б ЯОХЯЙ +045; МХФЕ",'',''); $Fopt=0; last; } # дЮММШЕ БША&# +1055;ЮММНЦН ОПЕ +ДСЯРЮМНБКЕ +;ММНЦН ОНДЙ
 +50;ЧВЕМХЪ $fileds{opt}=$Fopt; ($id,$opt_time,$pay_sum,$pay_comment,$pay_reason,$opt_action,$opt_ti +me)=&Get_fields('id','opt_time','pay_sum','pay_comment','pay_reason', +'opt_action','opt_time'); $balance=$Fopt && $pay_sum? $pay_sum : 0; $pay_reason=~/^([^\$]*)\$(.*)$/ or last; # ОКЮРЕФ "ЯМЪ& +#1056;ХЕ ГЮ ОНДЙi +0;ЧВЕМХЕ" РПЕ&# +1040;СЕР НАЪГЮР +ЕКЭМНЦН ЙНi +1;ЛЕМРЮПХЪ Я +053; ЯРНПНМШ ЮД +ЛХМЮ unless( defined $F{reason} ) { $OUT.=&MessX( &form('!'=>1,%fileds, "дКЪ ОКЮРЕ +060;Ю ЯМЪРХЪ ГЮ + ОНДЙКЧВЕМj +1;Е МЕНАУНДХ +051;Н НАЪГЮРЕК& +#1069;МН СЯРЮМНБ +;ХРЭ ЙНЛЛЕМ
 +56;ЮПХИ:".$br2. &Filtr_out($1).&input_t('reason','',50,50).&Filtr_out($2).$br +2.&submit_a('дЮКЕЕ →') ) ).$go_back; &Exit; } } $Fopt && last; # ОПЕД.ОНД&# +1049;КЧВЕМХЕ БШ +АПЮМН Х НМН  +071;СЫЕЯРБСЕР # яОХЯНЙ ОПЕ +044;СЯРЮМНБКЕ&# +1052;МШУ ОНДЙКЧ +ВЕМХИ $url=$scrpt; $url.="&$_=".&URLEncode($fileds{$_}) foreach keys %fileds; # URLEncod +e МСФЕМ ДКЪ Я&# +1061;ЛБНКЮ '=' $out=''; # opt_enabled: # 0 - ОПЕДСЯРЮi +2;НБКЕММНЕ О +053;ДЙКЧВЕМХЕ & +#1043;ЮАКНЙХПНБ +ЮМН # 1 - РНКЭЙН ДК
 +66; НЯМНБМНИ Г& +#1070;ОХЯХ # 2 - РНКЭЙН ДК
 +66; ЮКХЮЯМНИ Г& +#1070;ОХЯХ $sth=&sql($dbh,"SELECT * FROM newuser_opt WHERE opt_enabled=".($mid? +2 : 1)); while( $p=$sth->fetchrow_hashref ) { ($id,$opt_time,$pay_sum)=&Get_fields('id','opt_time','pay_sum'); ($opt_name,$opt_comment)=&Get_filtr_fields('opt_name','opt_comment +'); $out.=&RRow('*','lrl',&ahref("$url&opt=$id",$opt_name),$pay_sum||' + ',$opt_comment); } $out.=&RRow('*','lll',&ahref("$url&opt=0",'оПНk +1;РН ЯНГДЮРЭ &# +1057;ВЕРМСЧ ГЮО +ХЯЭ'),'','') if $PR{118}; $OUT.=&div('message',&Table('tbg3',&RRow('tablebg','ccc','р
 +61;О ОНДЙКЧВЕ&# +1052;ХЪ',"яРНХЛНk +1;РЭ, $gr",'сЯКНБХ +066;').$out)).$go_back; &Exit; } $Ffio=&Filtr_mysql($Ffio); $sql="INSERT INTO users SET ". "mid=$mid,". "ip='$Fip',sortip=$sortip,". "fio='$Ffio',". "passwd=AES_ENCRYPT('$Fpasswd','$Passwd_Key'),". "limit_balance=".($mid? 0 : $grp_block_limit).','. "block_if_limit=".($mid? 0 : 1).','. "grp=$grp,". "state='on',". "balance=0,". "auth='no',". "contract='',". "contract_date=$Fcontract_date,". "paket=$paket,". "paket3=$paket3,". "cstate=9,". "start_day=-1,". "modify_time=$ut,". "name='$login'"; $sth=$dbh->prepare($sql); $sth->execute or &Error("бМСРПЕ +052;МЪЪ НЬХАЙЮ. + сВЕРМЮЪ ГЮ
 +54;ХЯЭ ЙКХЕМР&# +1070; МЕ ЯНГДЮМЮ +;.",$go_back); $id=$sth->{mysql_insertid} || $sth->{insertid}; $mId=$mid || $id; # id НЯМНБМi +3;И ГЮОХЯХ $OUT.=$br; &OkMess("дЮММШЕ МН
 +41;НЦН ЙКХЕМР&# +1070; БМЕЯЕМШ Б h +0;ЮГС ДЮММШУ.". +$br3.&CenterA("$scrpt0&a=user&id=$id",'пЕДЮ&# +1049;РХПНБЮРЭ Д +ЮММШЕ')); $OUT.=$br2; &ToLog("$Admin_UU яНГДЮМЮ &# +1049;КХЕМРЯЙЮЪ +СВЕРМЮЪ ГЮi +4;ХЯЭ id=$id, ip: $Fip, КНЦХ +;М: ".&commas($Flogin)); if( $balance ) { $rows=&sql_do($dbh,"UPDATE users SET balance=balance+($balance) WHE +RE id=$mId LIMIT 1"); $rows<1 && &ToLog("! оНЯКЕ Я +053;ГДЮМХЪ СВЕ& +#1056;МНИ ГЮОХЯХ +; id=$id МЕ СДЮКНЯ +069; НАМНБХРЭ А +ЮКЮМЯ, МЕНА
 +59;НДХЛЮ ЙНПП&# +1045;ЙРХПНБЙЮ А +ЮКЮМЯЮ ЙКХh +5;МРЮ id=$mId"); } &sql_do($dbh,"INSERT INTO pays (mid,cash,type,category,admin_id,admin_ +ip,office,reason,time) ". "VALUES($mId,0,50,411,$Admin_id,INET_ATON('$ip'),$Admin_office,'& +#1090;хн: $Ffio, ip: $Fip',$ut)"); $tt="$ut+1"; if( $Fopt ) { $pay_comment=&Filtr_mysql($pay_comment); $pay_reason="$1$F{reason}$2" if $pay_reason=~/^([^\$]*)\$(.*)$/; $pay_reason=&Filtr_mysql($pay_reason); $category=$pay_sum>0? 10 : 100; # 100 - НОКЮ +;РЮ ОНДЙКЧВ
 +45;МХЪ, 10 - АНМСЯ &# +1054;НДЙКЧВЕМХ& +#1066; $pay_sum && &sql_do($dbh,"INSERT INTO pays (mid,cash,type,bonus,cat +egory,admin_id,admin_ip,office,reason,coment,time) ". "VALUES($mId,$pay_sum,10,'y',$category,0,INET_ATON('$ip'),$Admin +_office,'$pay_reason','$pay_comment',$tt)"); if( $opt_action ) { # БМЕЯЕЛ Б О
 +50;ЮРЕФХ `ГЮОК& +#1070;МХПНБЮММН +Е ЯНАШРХЕ` $pay_sum && &sql_do($dbh,"INSERT INTO pays (mid,cash,type,catego +ry,admin_id,admin_ip,office,reason,coment,time) ". "VALUES($mId,0,50,430,0,INET_ATON('$ip'),$Admin_office,'$opt_a +ction:$opt_time','',$tt)"); } } 1;
In reply to Re: Whats Wrong Here?!?!
by Anonymous Monk
in thread Whats Wrong Here?!?!
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |