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

remove work arounds

Browse Source
This commit is contained in:
Stephan Kulow 2013-07-16 14:31:01 +02:00
parent 49b3bc3fcf
commit 9b34e12d05
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
findfileconflicts
View File

@ -339,7 +339,7 @@ for my $tc (sort keys %tocheck) {
my $m = (keys(%allm))[0]; my $m = (keys(%allm))[0];
# all modes/flags are the same # all modes/flags are the same
# no conflict if all dirs or all ghosts or all links # no conflict if all dirs or all ghosts or all links
next if $modes_type[$m] == 040000 || $modes_type[$m] == 120000 || $modes_ghost[$m] == 0100; next if $modes_type[$m] == 040000 || $modes_type[$m] == 0120000 || $modes_ghost[$m] == 0100;
} else { } else {
# don't report mode mismatches for files/symlinks that are not ghosts # don't report mode mismatches for files/symlinks that are not ghosts
for my $m (keys %allm) { for my $m (keys %allm) {

14
generate-reminder.pl
View File

@ -27,14 +27,15 @@ sub fetch_user_infos($)
} }
my $ua = LWP::UserAgent->new; my $ua = LWP::UserAgent->new;
$ua->timeout(15); $ua->timeout(180);
$ua->max_size(100000000);
$ua->default_header("Accept" => "application/json"); $ua->default_header("Accept" => "application/json");
my $mywork = $ua->get("https://build.opensuse.org/home/requests?user=$user"); my $mywork = $ua->get("https://build.opensuse.org/home/requests.json?user=$user");
unless ($mywork->is_success) { die $mywork->status_line; } unless ($mywork->is_success) { die $mywork->status_line; }
$mywork = from_json( $mywork->decoded_content, { utf8 => 1 }); $mywork = from_json( $mywork->decoded_content, { utf8 => 1 });
my $url = "https://build.opensuse.org/stage/project/status?project=$tproject&ignore_pending=0"; my $url = "https://build.opensuse.org/project/status/$tproject?ignore_pending=0";
$url .= "&limit_to_fails=false&limit_to_old=false&include_versions=true&filter_for_user=$user"; $url .= "&limit_to_fails=false&limit_to_old=false&include_versions=true&filter_for_user=$user";
my $projstat = $ua->get($url); my $projstat = $ua->get($url);
die $projstat->status_line unless ($projstat->is_success); die $projstat->status_line unless ($projstat->is_success);
@ -338,8 +339,11 @@ END
my $info = XMLin($xml); my $info = XMLin($xml);
my $to = $info->{email}; my $to = $info->{email};
if (ref($info->{realname}) ne "HASH") { if (ref($info->{realname}) ne "HASH") {
my $octets = decode("iso-8859-1", $info->{realname}); my $name = $info->{realname};
my $name = encode('utf-8', $octets); #eval { my $octets = decode("iso-8859-1", $info->{realname});
# $name = encode('utf-8', $octets);
#
# };
$to = "$name <$to>"; $to = "$name <$to>";
} }
my $email = my $email =