diff options
author | Johannes Löthberg <johannes@kyriasis.com> | 2018-02-12 16:01:00 +0100 |
---|---|---|
committer | Johannes Löthberg <johannes@kyriasis.com> | 2018-02-12 16:01:00 +0100 |
commit | a4cc90817a4613654d0e477749c27b3d3cfcdb84 (patch) | |
tree | ba42ad60fda37466dabfc8f312bf9dfeef5a533f /bin/generate-mirror-mail.pl | |
parent | 0fbbb3374ee2ab2b75b994d1b132e6a4067f0f1a (diff) | |
download | arch-mirror-tools-a4cc90817a4613654d0e477749c27b3d3cfcdb84.tar.gz arch-mirror-tools-a4cc90817a4613654d0e477749c27b3d3cfcdb84.tar.xz |
Fetch admin email from API if we have logged in
Signed-off-by: Johannes Löthberg <johannes@kyriasis.com>
Diffstat (limited to 'bin/generate-mirror-mail.pl')
-rwxr-xr-x | bin/generate-mirror-mail.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/bin/generate-mirror-mail.pl b/bin/generate-mirror-mail.pl index 302de25..f6efc44 100755 --- a/bin/generate-mirror-mail.pl +++ b/bin/generate-mirror-mail.pl @@ -1,7 +1,9 @@ #!/usr/bin/perl use warnings; use strict; +use File::Basename; use JSON; +use HTTP::Cookies; use WWW::Mechanize; use Date::Parse; use Date::Format; @@ -64,7 +66,8 @@ Florian }, ); -my $mech = WWW::Mechanize->new(cookie_jar => {}); +my $cookie_jar = HTTP::Cookies->new(file => dirname($0) . "/../cookie_jar", autosave => 1); +my $mech = WWW::Mechanize->new(cookie_jar => $cookie_jar); sub send_mail { my $to = shift; @@ -136,8 +139,7 @@ while (<STDIN>) { my @last_sync = keys %{{ map { ${$_}{time} => 1 } @out_of_sync }}; my $sent_mail = 0; - # TODO: set $to - my $to = ''; + my $to = $json->{admin_email}; if (@out_of_sync) { my %values = ( |