Просмотр сообщений
1
PHP / передача переменной из PHP в Perl
« : 09 Июля 2007, 16:54:19 »
есть форма которой пользователи расходятся по страницам статистики. дело в том, что модуль статистики не один, а отправлять я всех хочу с одной формы, ну чтобы не делать несеолько форма на разные формы статистики.
выглядит этотак:
форма:
принимаю это скриптом, призванным разбросать по скриптам входа. Здесь вся штука в том, что один из них написан на PHP и с ним проблем нет:
if (ereg ("([0-9]{4})", $login)) {
header(\'Location: ./main.php?UserName=\'.$login.\'&PWDD=\'.$pass.\'\');
}
перекидывает куда надо и передает логин с паролем отлично все.
а второй на Перле написан. И скрипт без расширения:
else {
header(\'Location:./cgi-bin/login?USER=\'.$login.\'&PSWD=\'.$pass.\'\');
}
собсно сам Перл скрипт:
в#!/usr/bin/perl
use DBI;
use CGI qw/:standard/;
use CGI::Cookie;
use MD5;
use Sys::Syslog;
$CGI::POST_MAX=1024 * 10; # max 10K posts
$CGI::DISABLE_UPLOADS = 1; # no uploads
$Apache::DBI::DEBUG = 2;
$USER = param(\'USER\');
$USER =~ s/(!((\\w)||(-)))||(\\s)//gx;
$PWD = MD5->hexhash(param(\'PSWD\'));
ну и дальше бла бла, запросы и обработки....
выглядит этотак:
форма:
Код: [Выделить]
принимаю это скриптом, призванным разбросать по скриптам входа. Здесь вся штука в том, что один из них написан на PHP и с ним проблем нет:
if (ereg ("([0-9]{4})", $login)) {
header(\'Location: ./main.php?UserName=\'.$login.\'&PWDD=\'.$pass.\'\');
}
перекидывает куда надо и передает логин с паролем отлично все.
а второй на Перле написан. И скрипт без расширения:
else {
header(\'Location:./cgi-bin/login?USER=\'.$login.\'&PSWD=\'.$pass.\'\');
}
собсно сам Перл скрипт:
в#!/usr/bin/perl
use DBI;
use CGI qw/:standard/;
use CGI::Cookie;
use MD5;
use Sys::Syslog;
$CGI::POST_MAX=1024 * 10; # max 10K posts
$CGI::DISABLE_UPLOADS = 1; # no uploads
$Apache::DBI::DEBUG = 2;
$USER = param(\'USER\');
$USER =~ s/(!((\\w)||(-)))||(\\s)//gx;
$PWD = MD5->hexhash(param(\'PSWD\'));
ну и дальше бла бла, запросы и обработки....