VPF: Perl: разработка для Web

Помогите добавить функцию в патчер, для ретрекера

Stym — 2010-03-12T23:09:00-02:00

Держу в локальной сети ретрекер.. он со статистикой и патчером, был взят за основу Псевдотрекер.

Было немного сделано оформление... Но очень хочется чтобы когда юзер пропатчил торент файл, патченый файл загрузился на веб сервер, и юзеру выдало ссылку на скачку файла с сервера, ну и заодному чтобы ему сразу выдался запрос куда созхранить этот файл...

Потом хочется чтобы в статистике, нажимая на имя торента, скачивался пропатченный файл, я дуюам это можно сделать связав их названиями.. но это пустяк, я и сам могут сделать. Мне самое главное помочь сделать чтобы файлы грузились на сервер...

сервер: windows 2003, apache

Защита веб-приложений на Perl, Статья

djandrey — 2007-12-09T09:33:00-02:00

За прошедшее время статья сильно пополнилась, стала чуть ли не в два раза больше.

В текущей версии от 8 декабря 2008 уже 31 пункт и это ещё не всё, что хотелось написать. Есть ещё пункты, которые в TODO. Извиняюсь за выкладывание промежуточной версии с некоторой долей сырья под конец (да, прямо посреди текста можно обнаружить несколько TODO). Думаю, это по-любому лучше, чем старая версия с 18 пунктами.

Статья живёт по новому адресу:
http://dj-andrey.ru/articles/perl-web-application-security

Есть мысль по окончанию TODO сделать из этого аудиоверсию, эдакий подкаст чтоли. Но с такой немаленькой и очень програмерский статьёй не всё так просто. Например, одним куском или разрезать, а так же что делать с кодом и таблицами. Что скажете, стоит оно усилий по озвучиванию или это всё-таки вещь для чтения?

Написание веб сервиса

infarch — 2010-03-12T12:16:00-02:00

Становится понятнее Ну чтоже, буду экспериментировать, спасибо за содействие.

Передача даннных скриптом в фрейм, Передача даннных скриптом в фрейм

dron000 — 2010-03-11T12:59:00-02:00

Добрый день!
Есть на html форме 2 фрейма, нужно по нажатию кнопки в одном врейме вызывать перловый скрипт и печатать текст в другой фрейм.
Основная форма:

Код


<frameset rows="55%,45%"> 
<frame src="frame1.html" name="namef"> 
<frameset rows="130%,130%,*" cols="70%,70%"> 
<frame src="frame2.html" name="namef2"> 
</frameset>

Форма с кнопкой:

Код


<script >
function onPush() {
document.write("<script src='script.pl'></scr"+"ipt>");
}
</SCRIPT>

<INPUT TYPE="BUTTON" NAME="Button1" VALUE="Вызвать" onclick="onPush()">

script.pl

Код


#!c:\perl\bin\perl.exe
use CGI qw(:standard); 
my $cgi = CGI->new;
print $cgi->header(-target=>'namef2',-charset=>'Windows-1251');
print "sdfdsfdfdfdf";

Вот так не работает. Если вместо кнопки поставить href и дать прямую ссылку на perl скрипт то текст печататется тот же фрейм хотя -target=>'namef2'

удобный формат отчетов для печати, формат отчетов

myth777 — 2010-03-11T10:55:00-02:00

PDF::Reuse мне не поможет. Мне нужно как то повернуть страницу на 90 градусов или формат печати указать + должны потдерживаться таблицы и шрифты
А ни кто не знает можно ли с помощью perl как нибудь низкоуровнево отправить на печать html с указанием формата вывода - вертикально или горизонтально. Проблема так и не решена, в интернете скоко не искал четкого ответа нет.

Помогите в создании скрипта поиска по документу

dva300 — 2010-03-10T15:40:00-02:00

Цитата(Teem @ 10.3.2010, 17:40)

Ну вообще то мне нужно и сделать поиск именно по страницам из определенной директории на диске. Дело в том что я делаю справочник в электронном виде ну и для быстроты поиска определенной темы необходим поиск

вот блин

LWP::UserAgent vs HTTP::Request, скачивание файла

dva300 — 2010-03-10T13:03:00-02:00

Цитата(crang @ 10.3.2010, 15:03)

Доброго времени суток всем.
Подскажите, пожалуйста, такую вещь: Почему первая попытка скачать файл безуспешна, а вторая удачна?:
1.

Код

my $tor_file = $ua->get($t_url, ":content_file"=>$file);

Код

my $req = HTTP::Request->new(GET=>$t_url);
my $tor_file = $ua->request($req);

рискну предположить что у вас старая версия LWP в которых данная опция не поддерживается.
используйте use LWP 5.66;

вещь конечно хорошая для случает когда качаются большие файлы.

Перевести код с C# на perl

blackjackchik — 2010-03-09T12:58:00-02:00

Привет
есть код на C# а надо на перле

Код


string path = "Provider-Test.pfx";
X509Certificate2 cert = new X509Certificate2(path,"test");
RSACryptoServiceProvider rsa = (RSACryptoServiceProvider)cert.PrivateKey;

byte[] signature = rsa.SignData(Encoding.UTF8.GetBytes(data), new SHA1CryptoServiceProvider());
string result = Utilities.BytesToHex(signature);

все что смог нарыть по теме вот это
http://search.cpan.org/~iroberts/Crypt-Ope...RSA-0.22/RSA.pm
http://search.cpan.org/dist/Crypt-OpenSSL-X509/X509.pm

помогите сделать аналог приведенного кода на переле.

psgi кто-нибудь пробовал?

mvsgt — 2010-03-05T06:24:00-02:00

Цитата(dessoya @ 5.3.2010, 08:24 /findpost.gif' onclick='return getPost(2109838);' />)

Вся прелесть такого решения в том что мы не крутим апачу под каждый запрос я думаю это весьма ощутимо. В среднем процесс с апачей занимал 50-60 метров в памяти, plack есть 20.

Можно пояснить, что значит "мы не крутим апачу под каждый запрос" ?

сокет не срабатывает

vechik — 2010-03-04T12:03:00-02:00

Не могу понять, почему сокет не срабатывает.
Код SocketClient.pl

Код


#!/usr/bin/perl -w
use strict;
use CGI qw(:all);
print header;
open STDERR, ">err.txt";
use IO::Socket;

my $socket = IO::Socket::UNIX->new(Peer => "/tmp/mysock",
                                   Type      => SOCK_STREAM,
                                   TimeOut    => 10)
   or print "$@-$!-$?<br>";   

my $answer = <$socket>;
close($socket);
print "Server: $answer";

Код SocketServer.pl

Код


#!/usr/bin/perl -w
use strict;
use CGI qw(:all);
print header;
open STDERR, ">err.txt";

use IO::Socket;
use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);
unlink "/tmp/mysock";
my $server = IO::Socket::UNIX->new(Local => "/tmp/mysock",
                                   Type      => SOCK_STREAM,
                                   Listen    => 5) 
   or die "$@";   

my $flags = fcntl($server, F_GETFL,0) or die "Can't get flags for the socket: $!\n";
$flags = fcntl($server, F_SETFL, $flags | O_NONBLOCK) or die "Can't get flags for the socket: $!\n";

while (my $client = $server->accept()) {
       print $server "Server work!";
};
sleep 5;
close($server);

Сначала запускаю сервер, затем клиента.
У клиента $socket неопределена, $anser =''
Что бы это значило?

Предупреждение при парсинге страниц, Parsing of undecoded UTF-8 will give gar

dva300 — 2010-03-04T05:32:00-02:00

Цитата

Parsing of undecoded UTF-8 will give garbage when decoding entities
    (W) The first chunk parsed appears to contain undecoded UTF-8 and one or more argspecs that decode entities are used for the callback handlers.
    The result of decoding will be a mix of encoded and decoded characters for any entities that expand to characters with code above 127. This is not a good thing.
    The solution is to use the Encode::encode_utf8() on the data before feeding it to the $p->parse(). For $p->parse_file() pass a file that has been opened in ":utf8" mode.
    The parser can process raw undecoded UTF-8 sanely if the utf8_mode is enabled or if the "attr", "@attr" or "dtext" argspecs is avoided.

более подробно тут

для LWP::Simple

use LWP::Simple;
my $uri = 'htttp://somesite';
my $content = get($uri);

а для LWP::UserAgent;

use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
my $response = $ua->get($uri);
my $content = $response->content();
my $data = decode_utf8($content);

Содержимое файла из переданного zip-архива

shamber — 2010-03-03T16:03:00-02:00

Paher, у меня прекрасно отработал, посмотрите версию модулей

Проблема с ошибкой 500 решена !?...

dva300 — 2010-02-18T20:46:00-02:00

да блин... а потом весь этот рак надо переписывать....
автору респект учите матчасть.

P.S. боюсь даже представить что будет на ТРЕТЬЮ неделю ждемс...