yudaike/openSUSE-release-tools
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

new perl script to generate reminder

Browse Source
This commit is contained in:
Stephan Kulow 2012-02-01 14:04:09 +01:00
parent d8e9da6db4
commit b4e1593ad3
2 changed files with 49 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored Normal file
View File

@ -0,0 +1 @@
*~

48
generate-reminder.pl Normal file
View File

@ -0,0 +1,48 @@
#! /usr/bin/perl
require LWP::UserAgent;
use JSON;
my $user = $ARGV[0];
my $project = "openSUSE:Factory";
sub fetch_user_infos($)
{
my ($user) = @_;
if (-f "reports/$user") {
open( my $fh, '<', "reports/$user" );
my $json_text = <$fh>;
my $st = decode_json( $json_text );
close($fh);
return $st->{mywork}, $st->{projstat};
}
my $ua = LWP::UserAgent->new;
$ua->timeout(15);
$ua->default_header("Accept" => "application/json");
$mywork = $ua->get("https://build.opensuse.org/stage/home/my_work?user=$user");
unless ($mywork->is_success) { die $mywork->status_line; }
$mywork = from_json( $mywork->decoded_content, { utf8 => 1 });
my $url = "https://build.opensuse.org/stage/project/status?project=$project&ignore_pending=0";
$url .= "&limit_to_fails=false&limit_to_old=false&include_versions=true&filter_for_user=$user";
$projstat = $ua->get($url);
die $projstat->status_line unless ($projstat->is_success);
$projstat = from_json( $projstat->decoded_content, { utf8 => 1 });
my %st = ();
$st->{'mywork'} = $mywork;
$st->{'projstat'} = $projstat;
open(my $fh, '>', "reports/$user");
print $fh to_json($st);
close $fh;
return $mywork, $projstat;
}
$mywork, $projstat = fetch_user_infos($user);
#print to_json($mywork, {pretty => 1 });
#print to_json($projstat, {pretty => 1});