Skip to content
Extraits de code Groupes Projets
Valider a0bf4d37 rédigé par Alexandre Morignot's avatar Alexandre Morignot
Parcourir les fichiers

download can be activated in configuration file

parent dcf7455d
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
...@@ -32,6 +32,23 @@ PlayBot est codé en Perl. Il dépend des modules suivant : ...@@ -32,6 +32,23 @@ PlayBot est codé en Perl. Il dépend des modules suivant :
Il utilise de plus la librairie Python [Weboob](http://weboob.org). Il utilise de plus la librairie Python [Weboob](http://weboob.org).
Debian :
+ libpoe-component-irc-perl
+ libpoe-component-irker-perl
+ libdbi-perl
+ libdbd-mysql-perl
+ libjson-perl
+ libmoose-perl
+ libwww-perl
+ liburi-find-perl
+ libinline-perl
+ python-dev
+ libxml2-dev
+ libxslt-dev
+ cpan :
+ Module::Reload
+ Inline::Python
+ from source : weboob
### Configuration ### Configuration
......
...@@ -3,6 +3,7 @@ package sessions::downloader; ...@@ -3,6 +3,7 @@ package sessions::downloader;
use strict; use strict;
use warnings; use warnings;
use JSON;
use POE; use POE;
use lib "$FindBin::Bin/lib/"; use lib "$FindBin::Bin/lib/";
...@@ -11,18 +12,26 @@ use sessions::downloader::ddl; ...@@ -11,18 +12,26 @@ use sessions::downloader::ddl;
my $log = Logging->new('STDOUT', 1); my $log = Logging->new('STDOUT', 1);
POE::Session->create( local $/;
inline_states => { open CONF, '<', 'playbot.conf';
_start => \&on_start, my $json = <CONF>;
ddl => \&sessions::downloader::ddl::exec, my $conf = decode_json($json);
filename => \&sessions::downloader::ddl::filename,
signal_filename => \&sessions::downloader::ddl::signal_filename, if ($conf->{download})
signal_ddl => \&sessions::downloader::ddl::signal_ddl, {
signal_move => \&sessions::downloader::ddl::signal_move, POE::Session->create(
signal_rm => \&sessions::downloader::ddl::signal_rm, inline_states => {
end_task => \&sessions::downloader::ddl::end_task, _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,
signal_rm => \&sessions::downloader::ddl::signal_rm,
end_task => \&sessions::downloader::ddl::end_task,
},
);
}
sub on_start { sub on_start {
......
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Terminez d'abord l'édition de ce message.
Veuillez vous inscrire ou vous pour commenter