rtyug

вот многие файловые архивы используют скрипт:

http://sibsoft.net/xfilesharing.html

можешь на этом форуме посмотреть в разделе парнерских программ

http://www.filesonic.com/

http://oron.com/

http://kilofile.com

http://keepfile.com/

http://cityhost.mk.ua

и я выпонял не однократно заказы по этому скрипту :)

(скрипт правда очень сильно кривой, но это никого не волнует :))

rtyug добавил 19.10.2010 в 00:41

в Америке, ищи тарифы на VPS которые ориентированные на размер HDD

md5crypt

perl -le 'print crypt ($ARGV[0],$ARGV[1])' 'test' '$1$testtest$'

$1$testtest$SpO/FHIMn8I1fYKuRHVWW1

http://www.usenix.org/events/usenix99/provos/provos_html/node10.html

можно еще примерно так, только переделать и оптимизировать:

(читать в дескриптор <$sock> и с него сразу отправлять данные в $socket туда куда отправляем...)

use IO::Socket;

use strict;

use warnings;

use HTTP::Headers;

use HTTP::Message;

use HTTP::Request;

use HTTP::Response;





$sock = IO::Socket::INET->new(PeerAddr => 'www.perl.ru', 

  PeerPort => 80, 

  Proto => 'tcp' 

         Type => SOCK_STREAM); 

# Или так 

# $sock = IO::Socket::INET->new(PeerAddr => 'www.perl.ru:80'); 

# $sock = IO::Socket::INET->new("XXX.XXX.XXX.XXX:80"); 

# Параметры метода new() помогают ввести дополнительные опции 

# подключения, например Timeout.



if($sock){ 

         print $sock $request; 

         while(<$sock>){ 

                 push(@response,$_); 

         } 

} 









my $f_header = HTTP::Headers->new;

$f_header->header('Content-Disposition' => 'form-data; name="<i>file</i>"; filename="<i>somefile.bin</i>');

$f_header->header('Content-Type' => '<i>application/octet-stream</i>');

$f_header = $boundary."\n".$f_header->as_string."\n";

# Прибаляем к длинне запроса

$length += length $f_header;

$length += $size;

# Собственно, процедура ниже только лишь для случаев, когда фалов много.

# Тогда, нам сначала нужно посчитать длинну контента, ибо она (длинна) будет указываться в основном заголовке

push @{$files}, {header => $f_header, file => $file};

# ... И так далее, для каждого файла ...



# Итак у нас все готово

$length += length $boundary.'--'; # Концевую строку тоже считаем

# Открываем сокет

my $socket = IO::Socket::INET->new($domain.':'.$port) || die $!;

# К основному заголовку длинну

$head .= "\nContent-Length: ".$length;

# Отправляем в сокет заголовок и первую (текстовую) часть контента

print $socket $head;

print $socket "\n\n";

print $socket $content;





    print $socket $file->{header};



    print $socket $_ while <$sock>;

    print $socket "\n";

    close($sock);





# Отсылаем сокету конец файла

print $socket $boundary.'--'; 

# Отсылаем сокету конец файла

shutdown($socket, 1);

# Получаем из сокета ответ и разбираем его

my $response = HTTP::Response->parse( join ('', <$socket>) );

if ($response->is_success) {

    print $response->content

} else {

    die $response->status_line

}

rtyug добавил 17.10.2010 в 12:52

вместо red5 я бы попробовал бы вот эту штуку православную использовать:

http://search.cpan.org/~typester/Kamaitachi-0.03/lib/Kamaitachi.pm

Kamaitachi - perl flash media server

SYNOPSIS ^



    use Kamaitachi;

    

    my $kamaitachi = Kamaitachi->new( port => 1935 );

    

    $kamaitachi->register_services(

        'servive1' => 'Your::Service::Class1',

        'servive2' => 'Your::Service::Class2',

    );

    $kamaitachi->run;



DESCRIPTION ^



Kamaitachi is perl implementation of Adobe's RTMP(Real Time Messaging Protocol).



Now kamaitachi supports Remoting and MediaStreaming via RTMP. SharedObject is not implemented yet.



This 0.x is development *alpha* version. API Interface and design are stil fluid.



If you want to use kamaitachi, look at example directory. it contains both server script and client swf.

тут можно использовать событийно ориентированное программирование

sub run {

    my $self = shift;



    Danga::Socket->AddTimer(

        0,

        sub {

            my $poll

                = $Danga::Socket::HaveKQueue ? 'kqueue'

                : $Danga::Socket::HaveEpoll  ? 'epoll'

                :                              'poll';

            $self->logger->debug(

                "started kamaitachi port $self->{port} with $poll"

            );

        }

    );



    Danga::Socket->EventLoop;

}

можете посмотреть решения на perl:

http://search.cpan.org/search?query=find+file&mode=all

technomaster, думаю - нет, максимум можно NDA (договор)

gif? .

а где ваш программист, с вами?

все коммерческие канторы подписывают договор NDA и некоторые еще подписывают через нотариус, если не удаленный программер...

но на это можно забить... конечно...

!!!!1111

если прогарммист отдаст кому-то и тот будет продавать, как ты докажешь, кто именно у тебя его "украл"??

сделай лучше лицензию на подобе GNU GPL

тот кто будет покупать найдет код в гугле и увидет что именно код бесплатный :)

!!!111

если вы пытаетесь загрузить на хостинге и нет возможности редактирования файла php.ini, то можете загрузить, например, скриптом на perl

поисковик не отвичал... http://www.google.com.ua/search?hl=ru&source=hp&q=%D0%BA%D0%B8%D0%B5%D0%B2%D1%81%D0%BA%D0%BE%D0%B5+%D0%B2%D1%80%D0%B5%D0%BC%D1%8F+%D0%BE%D1%82%D0%BD%D0%BE%D1%81%D0%B8%D1%82%D0%B5%D0%BB%D1%8C%D0%BD%D0%BE+USA&aq=f&aqi=&aql=&oq=&gs_rfai=

на счет CST - понятно, спасибо, сейчас посмотрим..

UPD:

как узнать то что я спрашивал??

rtyug добавил 14.10.2010 в 20:45

тут увидел:

http://timezoneguide.com/America/Chicago-90-GMT-452.php?time=14-10-2010-19-21-42

получается 5 часов...?

можно попробовать поискать http://search.cpan.org/search?m=all&q=+access%2Elog&s=1