DMn1c Решил написать движок сайта на perl\'e
Основные наши инструменты: PHP, PERL, JAVA, mysql
?
А где ж движок-то сам?
По новостному скрипту:
добавь -w и use strict; - сразу увидишь, что нужно исправлять...
flock - явно незнаком, как впрочем и chmod
open(PASS_FILE,">pass.crypt");
print PASS_FILE crypt("$Form{new_pass_one}", "ps");
close(PASS_FILE);
print "\\n";
print "\\n";
print "Смена пароля\\n";
print "\\n";
print "\\n";
print "\\n";
... и.т.д.
Ты уверен, что так правильно?
sub urldecode
{
local($val)=@_;
$val=~s/\\+/ /g;
$val=~s/%([0-9A-H]{2})/pack(\'C\',hex($1))/ge;
return $val;
}
local($val)=@_; - какое значение будет у $val?
Если остальной "движок" в таком же ракурсе, я бы просто побоялся бы себе ставить...