daniell/pcurse
1
0
Fork 0
Code Issues 2 Pull Requests Packages Projects Releases Wiki Activity

Added logging of the last run + moved use IO::Socket::SSL earlier in pcurse.pm to avoid warnings about prototype mismatch

Browse Source
This commit is contained in:
Daniel Lysfjord
2019-07-13 15:28:54 +02:00
parent 17a3fe2a31
commit bd6339a2a4
2 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
pcurse
View File

@@ -1,12 +1,17 @@
#!/usr/bin/env perl #!/usr/bin/env perl
use strict; use strict;
no warnings 'all'; no warnings 'all';
use feature ':5.10';
use IO::Tee;
use lib '.'; use lib '.';
use pcurse; use pcurse;
use feature ':5.10';
select(STDOUT); my $logfile = $ENV{'HOME'}.'/.pcurse/lastrun.log';
$| = 1; open my $lf, '>', $logfile or die 'Cannot write to logfile '.$logfile.': '.$!;
select STDOUT;
$| = 1;
my $tee = IO::Tee->new(\*STDOUT, $lf);
select $tee;
my $ret; my $ret;
my $msg; my $msg;
@@ -125,3 +130,4 @@ foreach my $unpacking(keys %tounpack) {
($ret,$msg) = pcurse::save_config($conf->{'addons'},$addons); ($ret,$msg) = pcurse::save_config($conf->{'addons'},$addons);
print $msg."\n" unless($ret); print $msg."\n" unless($ret);
close $lf;

4
pcurse.pm
View File

@@ -2,13 +2,13 @@
package pcurse; package pcurse;
use strict; use strict;
no warnings 'all'; no warnings 'all';
use IO::Socket::SSL;
use Getopt::Long; use Getopt::Long;
use Archive::Extract; use Archive::Extract;
use Thread::Pool; use Thread::Pool;
use JSON; use JSON;
use LWP::UserAgent; use LWP::UserAgent;
use HTML::HTML5::Parser; use HTML::HTML5::Parser;
use IO::Socket::SSL;
use feature ':5.10'; use feature ':5.10';
sub merge_opts { sub merge_opts {
@@ -35,7 +35,7 @@ sub parse_arguments {
"baseuri=s" => \$toret->{'baseuri'}, "baseuri=s" => \$toret->{'baseuri'},
"config=s" => \$toret->{'config'}, "config=s" => \$toret->{'config'},
"test" => \$toret->{'test'}, "test" => \$toret->{'test'},
"workers" => \$toret->{'workers'}, "workers=i" => \$toret->{'workers'},
"debug" => \$toret->{'debug'}, "debug" => \$toret->{'debug'},
"add=s" => \$toret->{'add'}, "add=s" => \$toret->{'add'},
"name=s" => \$toret->{'name'}, "name=s" => \$toret->{'name'},