NAS test based on PHP/Perl
 

Доброго времени суток всем.

Для работы очень нужен скрипт, который должен уметь:
подключаться к NAS (Network Access Server интернет провайдера, с которого осуществляется доступ в интернет для удалённых юзверей, т.е. клиентов. Оборудование - Cisco) с аутентикацией user/password по telnet/ssh. После подключения скрипт должен делать коротенькую проверку download/upload с указанного места, telnet на 80-й порт наружу. После этого скрипт отрубается и выдаёт результаты в HTML (этот момент самый важный, т.к. без html-output'a всё это можно сделать через обычный batch файл).
Сам скрипт нужно разместить на linux-workstation, так что он должен быть на Perl или PHP.

Дело весьма срочное, так что бью челом всем, кто может подсобить или хотя бы подсказать.
Заранее благодарен!

from http://www.php.net/fsockopen

To make a telnet connection with a Cisco router:

$cfgServer = "192.168.0.10"; //IP of your router
$cfgPort = 23; //port, 22 if SSH
$cfgTimeOut = 10;

$usenet = fsockopen($cfgServer, $cfgPort, &$errno, &$errstr, $cfgTimeOut);

if(!$usenet)
{
echo "Connexion failed\n";
exit();
}
else
{
echo "Connected\n<BR>";
fputs ($usenet, "toto\r\n");
fputs ($usenet, "en\r\n");
fputs ($usenet, "tutu\r\n");
fputs ($usenet, "exit\r\n");
while (!feof($usenet))
{
echo ". ".fgets($usenet, 128)."<BR>\n";
}
}

Then you will have:
Connected
. ��
������
.
. User Access Verification
.
. Password:
. testXB>en
. Password:
. testXB#exit
.

может поможет.... надеюсь... там же чисто работа с сокетами

Спасибо за отклик! Конечно поможет, для первого этапа - подключения. Осталось только внутри telnet session на раутер (NAS) сделать download/upload тест и
telnet [hostname] 80
с результатами в HTML. А вот как..

телнет на порт 80 делается по аналогии

$www = fsockopen(gethostbyname("www.mail.ru"), 80, &$errno, &$errstr, 5);
...

или ещё прощё

$handle = fopen("http://www.mail.ru/", "r");
while (!feof($handle)) {
echo fgets($handle, 4096);
}
fclose ($handle);


даунлоад тест делается примерно так:

$time_start = microtime();
$handle = fopen ("http://www.mail.ru/file.zip", "r");
while (!feof($handle)) {
$buffer .= fgets($handle, 4096);
}
fclose ($handle);
$time_end = microtime();
$time = $time_end - $time_start;
$kbs = (strlen($buffer)/1024)/($time*1000);

помоему так (там в ПХП 5 нововведения какие-то) Ж)
с аплоадом.. тебе по ftp надо? можно и килобайт по POST послать