Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.

Темы - 09h

Страницы: [1] 2

Perl / глюк с печатью в файл

« : 30 Октября 2010, 13:16:52 »

проблема вот в чем.. есть 8 скриптов работающих постоянно в бесконечном цикле... и есть 20 тхт файлов ... некоторые скрипты каждые пару сек переписывают данные тхт файлов а другие каждые 1-5 сек тянут данные из этих файлов. заметил что сохраняемые в эти тхт файлы данные через несколько часов работы (иногда и несколько дней) заменяются каким то мусором.. причем мусор этот не мог быть сгенерирован скриптами при их правильной работе.. пробовал даже тупо $aaa = "qwert"; и сразу печать $aaa в файл.. 1 раз обнаружил в тхт файле список запущеных процессов в винде ) бывает попадают пути к различным файлам винды или просто непонятный мусор.. еще 1 раз заметил что данные(но не в полном объеме и с добавлением мусора) которые предназначались для одного тхт попали в другой с такимже именем но в другой папке. в error.log ошибок нет

изза чего может такое происходить? может быть это изза неописаных переменных?

такое ощущение что иногда при печати в файл вместо того что должно печатает какой то кусок из памяти.
код слишком огромный чтоб експерименты проводить.. если эту "систему" из 8 скриптов тестить отдельными кусками то глюков не наблюдается. но в сумме все скрипты иногда сходят с ума (общего у них только эти тхт файлы)

ЗЫ winxp_sp3, denwer 3

Корзина / Как настроить параметр $script_url

« : 18 Октября 2010, 14:40:58 »

Но ведь всё, что идет после слэша http://сайт.ру/... должно находится именно в той папке, где расположен сам сайт. Как можно с помощью http://сайт.ру/... сослаться на какой-то файл в другом месте сервера?

Веб-технологии / звук в браузере на телефоне

« : 17 Октября 2010, 11:08:36 »

1) как можно заставить мобильный браузер например opera mini проиграть .mid файл ну или вобще хоть как нибудь заставить издать звук?

embed и bgsound на смартфоне в браузере под операционку звук идет а на телефонах походу не знает браузер чем проиграть файл, и сам не умеет..

2) может встречался кому jar браузер умеющий звуки издавать (хотяб при ошибке на странице может пиканье какое или при предложении файл сохранить)?

ЗЫ чтото мне подсказывает что придется яву учить ))

Perl / use CGI::Session;

« : 09 Октября 2009, 18:51:09 »

никогда не интересовался сессиями .. а вот ща излазил сотни страниц .. так и не понял с чем их есть))

в теории везде красиво расписано что типа зашел чел на сайт.. ввел свой пароль.. получил ID .. лазит по страницам сайта а браузер передает ID и скрипт чела узнает.. закрыл браузер и до свидания..

вот с реализацией не совсем красиво получаеца )

Код: [Выделить]

#!/usr/bin/perl -wT

use lib (\'./1/lib\');
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use CGI::Session;

my $session = new CGI::Session("driver:File;serializer:Storable;id:MD5", undef, {Directory=>\'sessions\'});
$session->param("user_name", "09h");
$session->flush();
$sess_ID = $session->id();

print "Location: [url]http://session.ru/cgi/8.cgi?id=[/url]$sess_ID\\n\\n";

это 8.cgi

Код: [Выделить]

#!/usr/bin/perl -wT

use lib (\'./1/lib\');
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use CGI::Session;
use CGI \':standard\';

print "Content-type: text/html;charset=windows-1251;\\n\\n";

my $sess_ID = param(\'id\');

my $session = new CGI::Session("driver:File;serializer:Storable;id:MD5", $sess_ID, {Directory=>\'sessions\'});

my $sh=$session->param_hashref();
my %hsh=%{$sh};

print "hello $hsh{user_name}";

сессия создаеца .. в папке sessions файл появляеца.. 8.cgi пишет hello 09h.. тока вот хде смысл ? ) файл с записью user_name=09h и без CGI::Session сделать мона ) эти созданые файлы висят в папке по миллиону лет потом.. браузер закрываю.. открываю .. лезу в http://session.ru/cgi/8.cgi?id=$sess_ID и пишет hello 09h )) с другова компа залажу тоже здаровкаеца ) и как тада использовать сессии+куки чтоб юзернейм и пароль хранить пока чел по сайту лазит? с такимже успехом мона тупо в куках пароль и хранить..

JavaScript & JScript / pasteHTML в Opera ?

« : 30 Января 2009, 04:14:34 »

не работает строка
oSelTxt.pasteHTML(oTag+sSelTxt+cTag);
опера вобще понимает pasteHTML? аналоги есть?

Код: [Выделить]

 



[B]   
[I]   
[U]

с textarea работает .. oSelTxt.text = oTag+sSelTxt+cTag; с фреймом траблы (

Всё о Html / теги в textarea и input type=text

« : 08 Марта 2008, 18:17:26 »

делаю движек сайта .. вот появилась идея когда юзер редактирует какуюнить часть страницы которая отображается в textarea скрыть от него теги..

вопрос как заставить работать тэги в textarea чтоб отображалось например aaabbbaaa а не aaabbbaaa ? ну или не заставить а любым другим способом добица чтоб в textarea было aaabbbaaa

JavaScript & JScript / div onclick как игнорировать ссылки внутри дива?

« : 23 Февраля 2008, 07:59:59 »

воть..

http://yandex.ru\';">
http://google.com">zzzzzzzxxxxxxx

тыкаю на xxxxxxx срабатывает onclick а если на zzzzzzz кидает на гугл ) как игнорировать содержимое дива и всегда при клике на него выполнять parent.document.location.href=\'http://yandex.ru\'; ?

Всё о Html / проблема с таблицой

« : 27 Января 2008, 12:54:07 »

воть пример головоломки )

Код: [Выделить]
















A

B

открываю ie6.0 все красиво, меняю в строке почему от содержимого

меняеца другая строка? и почему када вторую букву добавляю опять меняеца? какая связь между ячейкой с буквой B и той в которую вставлена таблица? :insane:

JavaScript & JScript / получить инфу с машины юзера

« : 13 Сентября 2007, 21:43:18 »

=> вот тут <= описан способ по которому с машины юзера скриптом собираеца инфа и дальше ...
все бы хорошо ) только непонятно ничего в этой куче символов...
что это например {7790769C-0471-11D2-AF11-00C04FA35D02} ?
знает кто где почитать про это? ну или хотяб пару слов на тему сбора инфы с компа скриптом... может другие еще способы есть? поделитесь опытом плз

"Как видим, в скрипте перебираются установленные компоненты системы (около 30 штук) и определяется их версия" эта куча символов как понимаю 1 из этих 30 компонентов ... хорошо бы гденить прочитать про них какие вобще бывают и тд

Perl / Image::Magick линии можно рисовать?

« : 04 Октября 2006, 09:02:12 »

на хостинге нет модуля GD ... в Image::Magick есть функция чтоб линии рисовать или придется велосипед изобретать?

Perl / системы нелинейных алгебраических уравнений :)

« : 08 Июля 2006, 19:46:45 »

есть модули для перла с которыми мона решать системы нелинейных алгебраических уравнений?
или может есть у кого скрипт в котором это уже реализовано?

Perl / проблема с sendmail

« : 01 Июня 2006, 17:35:55 »

бред какойто ... много раз пользовался sendmail`ом никогда проблем не возникало... вот небольшой скрипт для теста который все время работал и перестал

Код: [Выделить]

#!/usr/bin/perl

my $from = "09h\\@mail.ru";
my $from_name = "09h";
my $to = "admin\\@iron26.ru";
my $to_name = "Your";
my $subject = "aaaaaa";
my $text = "aaaaaaaaaaaaaaaaaaa";

open (MAIL, "|/usr/sbin/sendmail -t");
print MAIL "From: $from_name <$from>\\n";
print MAIL "To: $to_name <$to>\\n";
print MAIL "Content-Type: text/html; charset=\\"Windows-1251\\"\\n";
print MAIL "Subject: $subject\\n\\n";
print MAIL "$text";
close (MAIL);

print "Content-type: text/html\\n\\n";
print "send to $to !";

1. не выдает никаких ошибок
2. не отправляет с машины вообще ничего (снифером смотрел)
пробовал запускать на работе, дома и еще на 2-х хостах дома и на работе стоит винхр, денвер... раньше на тока поставленной винде и денвере все работало а ща не хотит...
Что за мистика такая??? че делать? я в ужасе

Обсуждение сайтов / критикуем дизайн сайта :)

« : 21 Мая 2006, 03:44:47 »

ну вот такой вот сайтик еще не законченый
http://iron26.ru
в прошлой версии были проблемы с яркостью на посаженых мониторах, вроде добавил яркости... но на новеньком лсд теперь немного засвечено кажется ...
у каво как смотрится на мониторах (слишком темно\\светло)?
PS вес сайта немного большеват ) про это не напоминайте )... делаю сайт для того чтоб клиентам показывать типа как свою работу, чтоб знали что с анимацией дружу чуть почуть, да и многие клиенты не понимают что такое скрипты ... и что они бывают плохими или хорошими и смотрят только на внешний вид ))
есть идеи что добавить\\убрать?

Perl / проблема с сокетами

« : 19 Мая 2006, 01:16:44 »

Код: [Выделить]

use Socket;

socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname(\'tcp\'));

$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);

$msg = "\\x05\\x01\\x00";
send (SOCK, "$msg", 0);
sysread(SOCK,$answer_data,1024);
print_data($answer_data);

$msg = "\\x05\\x02\\x00\\x01\\xcd\\xbc\\x93\\x2e\\x09\\xf2";
send (SOCK, "$msg", 0);
sysread(SOCK,$answer_data,1024);
print_data($answer_data);


#FUNCTIONS

sub print_data() { # выводим данные в hex

my ($data)=@_;
my $i=0;

foreach(split(//,$data)) {
print unpack(\'H8\',$_)." ";
$i++;
if ($i eq 16) {
print "
\\n";
$i=0;
}

}

print "
\\n";

}

проблема: если делаю send (SOCK, "$msg", 0); больше 2-х раз скрипт вешается или оооочень долго думает.
как подольше пообщатся с сервером? запустил прогу которая через прокси сокс5 работает и снифером выдернул весь разговор
запрос - ответ:
05 01 00 - 05 00
05 02 00 01 cd bc 93 2e 09 f2 - 05 00 00 01 45 2f 67 8b 0e 40
05 02 00 02 - 05 00
05 01 00 03 0d 6c 6f 67 69 6e 2e 69 63 71 2e 63 6f 6d 14 46 - 05 00 00 01 45 2f 67 8b 0e 4d
... - ...
как этот разговор клиент-сервер реализовать?

Perl / socks5 прокси...

« : 09 Мая 2006, 20:20:24 »

народ караул... выручайте, уже месяц разобратся не могу

подключаюсь к прокси, пишу ему 05 01 00, он отвечает 05 00, потом пихаю это 05 01 00 01 сd bc 99 79 35 31 39 30, отвечает 05 00 00 01 30 28 99 02 35 31 и сразу после этого еще 2a 01 73 10 00 04 00 00 00 01 (это приветствие от сервера к которому и надо подключатся через проксю), а вот дальше не пойму... подключится подключился а как чтонить ($data) теперь отправить ? пробовал по всякому и даже никакого ответа не приходило

Код: [Выделить]

#!/usr/bin/perl -wT

use Socket;

$host = "69.47.103.139"; #прокси
$port = "58";

print "Content-type: text/html\\n\\n";

socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname(\'tcp\'));

$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);

$msg =
"\\x05".
"\\x01".
"\\x00";

send (SOCK, "$msg", 0);

sysread(SOCK,$answer_data,1024); # читаем ответ от сервера

print_data($answer_data); # печатаем ответ от сервера

$msg =
"\\x05".
"\\x01".
"\\x00".
"\\x01".
"\\xcd\\xbc\\x99\\x79". # ip
"\\x35\\x31\\x39\\x30"; # port

send (SOCK, "$msg", 0);

sysread(SOCK,$answer_data,1024); # читаем ответ от сервера
# тут отвечает прокси сервер

print "
";
print_data($answer_data); # печатаем ответ от сервера

sysread(SOCK,$answer_data,1024); # читаем ответ от сервера
# а тут приходит приветствие от сервера icq с которым мне и надо пообщатся через проксю

print "
";
print_data($answer_data); # печатаем ответ от сервера

close(SOCK);

#FUNCTIONS

sub print_data() { # выводим данные в hex

my ($data)=@_;
my $i=0;

foreach(split(//,$data)) {
print unpack(\'H8\',$_)." ";
$i++;
if ($i eq 16) {
print "\\n";
$i=0;
}

}

}

Вот это надо отправить через проксю серверу icq который со мной здаровается:

\\x00\\x2a\\x01\\x13\\x5a\\x00\\x7c\\x00\\x00\\x00\\x01\\x00\\x01\\x00\\x09\\x32\\x34\\x37\\x32\\x37\\x32\\x39\\x35\\x34\\x00\\x02\\x00\\x05\\xc0\\x14\\xb0\\xf2\\x0e\\x00\\x03\\x00\\x2c\\x46\\x61\\x6b\\x65\\x20\\x69\\x63\\x71\\x2d\\x63\\x6c\\x69\\x65\\x6e\\x74\\x20\\x73\\x70\\x65
\\x63\\x69\\x61\\x6c\\x20\\x66\\x6f\\x72\\x20\\x70\\x6f\\x69\\x7a\\x6f\\x6e\\x2e\\x6e\\x65\\x74\\x2e\\x72\\x75\\x20\\x3d\\x29\\x00\\x16\\x00\\x02\\x01\\x0a\\x00\\x17\\x00\\x02\\x00\\x04\\x00\\x18\\x00\\x02\\x00\\x41\\x00\\x19\\x00\\x02\\x00\\x01\\x00\\x1a\\x00\\x02\\x0c\\xd1\\x00
\\x14\\x00\\x04\\x00\\x00\\x00\\x55\\x00\\x0f\\x00\\x02\\x65\\x6e\\x00\\x0e\\x00\\x02\\x75\\x73

без прокси с icq сервером общаюсь нормально
никак не могу догнать как отправить эти данные
описание протокола

или подскажите как сделать это через IO::Socket::Socks

Код: [Выделить]

#!/usr/bin/perl -wT

use IO::Socket::Socks;

my $socks = new IO::Socket::Socks(ProxyAddr=>"69.47.103.139", ProxyPort=>"58", ConnectAddr=>"login.icq.com", ConnectPort=>"5190", );

$socks->close();

получить главную страницу гугла получается и послушать приветствие от сервера аськи тоже, но вот отправить эти данные (\\x00\\x2a\\x01\\x13\\x5a\\x00\\x7c\\x00\\x00\\x00\\x01\\x00\\x01\\.......) серверу аськи не получается

Страницы: [1] 2

Страница сгенерирована за 0.063 секунд. Запросов: 13.

Новости: