Xnom
Moderator | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Дело обстоит так, юзверь регится - к админу в ПМ идёт об этом письмо. Учётная запись юзера создаётся только после того, как админ в своём ПМ-письме нажмёт кнопку "Регить". Открываем register.cgi Код: $memberfiletitle = $inmembername; $memberfiletitle =~ y/ /_/; $filetomake = "$ikondir" . "members/$memberfiletitle.cgi"; open(FILE, ">$filetomake"); flock(FILE, 2); print FILE "$inmembername|$password|$membertitle|$membercode|$numberofposts|$emailaddress|$showemail|$ipaddress|$homepage|$aolname|$icqnumber|$location|$interests|$joineddate|$lastpostdate|$signature|$timedifference|$privateforums|$useravatar|$misc1|$misc2|$misc3"; close(FILE); | меняем на Код: $filetoopen = "$ikondir". "messages/admin" . "_msg.cgi"; #admin - Это Ваш ник!!! $filetoopen = &stripMETA($filetoopen); open (FILE, "$filetoopen"); @allmessages = <FILE>; close (FILE); open (FILE, ">$filetoopen"); flock (FILE, 2); print FILE "регистратор|no|$currenttime|к нам тут юзер новый ломится|ник - $inmembername<br>хочет пароль - $password<br>мыло - $emailaddress<br>IP - $ipaddress<br><form action=\"$messengerprog\" method=post><input type=hidden name=\"action\" value=\"register\"><input type=\"hidden\" name=\"regname\" value=\"$inmembername\"><input type=\"hidden\" name=\"regpassword\" value=\"$password\"><input type=\"hidden\" name=\"regemail\" value=\"$emailaddress\"><input type=\"hidden\" name=\"regip\" value=\"$ipaddress\"><input type=Submit value=Регить name=\"Submit\"><\/form>\n"; foreach $line (@allmessages) { chomp $line; print FILE "$line\n"; } close (FILE); | ниже, Код: $output .= qq~ <tr> <td bgcolor=$miscbacktwo valign=middle align=center><font face="$font" color=$fontcolormisc size=$dfontsize2><b>$ibtxt{'1912'} $inmembername</b></font></td></tr> <tr> <td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc size=$dfontsize1> $ibtxt{'1004'}: <ul> <li><a href="$forumsummaryprog">$ibtxt{'0323'}</a> </ul> </tr> </td> </table></td></tr></table> ~; | меняем на Код: $output .= qq~ <tr> <td bgcolor=$miscbacktwo valign=middle align=center><font face="$font" color=$fontcolormisc size=$dfontsize2>Полностью регистрация закончится после проверки введённных Вами данных администрацией конференции, о чём Вас уведомят по e-mail.</font></td></tr> </table></td></tr></table> ~; | далее, Код: <form action="$boardurl/$thisprog" method=post name="creator"> <tr> <td bgcolor=$miscbacktwo><font face="$font" color=$fontcolormisc size=$dfontsize1><b>$ibtxt{'1907'}</b><br>$ibtxt{'1926'}</td> <td bgcolor=$miscbacktwo><input type=text size=20 maxlength="20" name="inmembername"></td> </tr> $requirepass <tr> <td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc size=$dfontsize1><b>$ibtxt{'1822'}</b><br>$ibtxt{'1837'}</td> <td bgcolor=$miscbackone><input type=text size=20 name="emailaddress"></td> </tr><tr> <td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc size=$dfontsize1><b>$ibtxt{'1838'}</b><br> $ibtxt{'1839'}:</td> <td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc size=$dfontsize1><input name=\"showemail\" type=\"radio\" value=\"yes\" checked> $ibtxt{'0130'}  \; <input name=\"showemail\" type=\"radio\" value=\"no\"> $ibtxt{'0129'}</font></td> </tr><tr> <td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc size=$dfontsize1><b>$ibtxt{'1823'}</b><br>$ibtxt{'1840'}</td> <td bgcolor=$miscbackone><input type=text size=20 name="homepage" value="http://"></td> </tr><tr> <td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc size=$dfontsize1><b>$ibtxt{'1841'}</b><br>$ibtxt{'1842'}</td> <td bgcolor=$miscbackone><input type=text size=20 name="aolname"></td> </tr><tr> <td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc size=$dfontsize1><b>$ibtxt{'1825'}</b><br>$ibtxt{'1843'}</td> <td bgcolor=$miscbackone><input type=text size=20 name="icqnumber"></td> </tr><tr> <td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc size=$dfontsize1><b>$ibtxt{'1826'}</b><br>$ibtxt{'1844'}</td> <td bgcolor=$miscbackone><input type=text size=20 name="location"></td> </tr><tr> <td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc size=$dfontsize1><b>$ibtxt{'1845'}</b><br> $ibtxt{'1927'} $basetimes.<br>$ibtxt{'1847'}</td> <td bgcolor=$miscbackone><input type=text size=20 name="timedifference"></td> </tr><tr> <td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc size=$dfontsize1><b>$ibtxt{'1827'}</b><br>$ibtxt{'1848'}</td> <td bgcolor=$miscbackone><textarea size=20 name="interests" cols="40" rows="5"></textarea></td> </tr><tr> <td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc size=$dfontsize1><b>$ibtxt{'1849'}</b><br>$ibtxt{'1850'} <br>$ibtxt{'1851'}<br> $ibtxt{'1852'}</td> <td bgcolor=$miscbackone><textarea size=20 name="signature" cols="40" rows="5"></textarea></td> </tr> $avatarhtml <tr> <td colspan=2 bgcolor=$miscbacktwo align=center><input type=submit value=$ibtxt{'0039'} name=submit></td> <input type=hidden name=action value=addmember></form></tr></table></td></tr></table> | меняем на Код: <form action="$boardurl/$thisprog" method=post name="creator"> <tr> <td bgcolor=$miscbacktwo><font face="$font" color=$fontcolormisc size=$dfontsize1><b>$ibtxt{'1907'}</b><br>$ibtxt{'1926'}</td> <td bgcolor=$miscbacktwo><input type=text size=20 maxlength="20" name="inmembername"></td> </tr> $requirepass <tr> <td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc size=$dfontsize1><b>$ibtxt{'1822'}</b><br>$ibtxt{'1837'}</td> <td bgcolor=$miscbackone><input type=text size=20 name="emailaddress"></td> </tr> <tr> <td colspan=2 bgcolor=$miscbacktwo align=center><input type=submit value=$ibtxt{'0039'} name=submit></td> <input type=hidden name=action value=addmember></form></tr></table></td></tr></table> | сохраняем, закрываем... открываем messenger.cgi после Код: $inmessage = $query -> param('message'); | вставляем Код: $regname = $query -> param('regname'); $regemail = $query -> param('regemail'); $regpassword = $query -> param('regpassword'); $regip = $query -> param('regip'); | перед Код: elsif ($action eq "delete") { | вставляем Код: elsif ($action eq "register") { # $membercode = "me"; $membertitle = "$ibtxt{'0136'}"; $numberofposts = "0"; $joineddate = time; $lastpostdate = "$ibtxt{'1816'}"; # $memberfiletitle = $regname; $memberfiletitle =~ y/ /_/; $filetomake = "$ikondir" . "members/$memberfiletitle.cgi"; open(FILE, ">$filetomake"); flock(FILE, 2); print FILE "$regname|$regpassword|$membertitle|$membercode|$numberofposts|$regemail||$regip||||||$joineddate|$lastpostdate|||||||"; close(FILE); $output .= qq~ <tr> <td bgcolor=$miscbacktwo valign=middle align=center><font face="$font" color=$fontcolormisc size=1> Новый пользователь добавлен!</font></td> </tr> ~; }#end action | В красной строке не должно быть пробелов. Всё... | Всего записей: 778 | Зарегистр. 09-10-2002 | Отправлено: 05:33 14-01-2003 | Исправлено: Xnom, 08:39 14-01-2003 |
|