Skip to content
Extraits de code Groupes Projets
Sélectionner une révision Git
  • 9acf55f682e1f6087552fe92ddab3208fd0aeac2
  • master par défaut
  • cinch
  • ruby
  • gh-pages
5 résultats

downloader.pm

Blame
  • Bifurcation depuis Alexandre MORIGNOT / PlayBot
    Le projet source a une visibilité limitée.
    downloader.pm 861 o
    package sessions::downloader;
    
    use strict;
    use warnings;
    
    use POE;
    
    use lib "$FindBin::Bin/lib/";
    use utils::Logging;
    use sessions::downloader::ddl;
    
    my $log = Logging->new('STDOUT', 1);
    
    POE::Session->create(
        inline_states   => {
            _start          => \&on_start,
            ddl             => \&sessions::downloader::ddl::exec,
            filename        => \&sessions::downloader::ddl::filename,
            signal_filename => \&sessions::downloader::ddl::signal_filename,
            signal_ddl      => \&sessions::downloader::ddl::signal_ddl,
            signal_move     => \&sessions::downloader::ddl::signal_move,
            end_task        => \&sessions::downloader::ddl::end_task,
        },
    );
    
    
    sub on_start {
        my ($kernel, $heap) = @_[KERNEL, HEAP];
        $kernel->alias_set('downloader');
        $heap->{ddl}->{tasks} = [];
    
        $log->info("session started");
    }
    
    1;