source: soft/build_system/build_system/upload/robot/trunk/check_iurt @ 1

Last change on this file since 1 was 1, checked in by fasma, 12 years ago

Initial Import from Mandriva's soft revision 224062 and package revision 45733

File size: 1.5 KB
Line 
1#!/usr/bin/perl
2
3use strict;
4use Data::Dumper;
5
6my @media = ('main', 'contrib');
7my $rep = 'cooker';
8my @arch = ('i586', 'x86_64');
9my $cache;
10my $cachefile = "/home/mandrake/tmp/check_iurt.cache";
11if (-f $cachefile) {
12        $cache = do $cachefile
13} else {
14        $cache = {}
15}
16
17my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time);
18$year += 1900;
19$mon++;
20
21foreach my $arch (@arch) {
22        my %stat;
23        foreach my $media (@media) {
24                my $d = "/mnt/BIG/dis/$rep/$arch/media/$media/release";
25                opendir my $dir, $d;
26                foreach my $p (readdir $dir) {
27                        if ($arch eq 'i586') {
28                                $p =~ /($arch|noarch).rpm/ or next
29                        } else {
30                                $p =~ /$arch.rpm/ or next
31                        }
32                        my $m = $cache->{maintainer}{"$d/$p"};
33                        if (!$m) {
34                                $m = `rpm -qp --qf "%{packager}" $d/$p`;
35                                $cache->{maintainer}{"$d/$p"} = $m
36                        }
37                        $stat{media}{$media}++;
38                        $stat{total}++;
39                        $stat{iurt}{$media}++ if $m =~ /iurt/i;
40                        $stat{total_iurt}++ if $m =~ /iurt/i
41                }
42                print "$rep $arch $media: $stat{iurt}{$media}/$stat{media}{$media}\n"
43        }
44        print "$rep $arch total: $stat{total_iurt}/$stat{total}\n";
45        printf "| %4d%02d%02d | $rep $arch| $stat{media}{main} | $stat{iurt}{main} (%d%%) | $stat{media}{contrib}  | $stat{iurt}{contrib} (%d%%) | $stat{total} | $stat{total_iurt} (%d%%) |\n", $year, $mon, $mday, int 100*($stat{iurt}{main}/$stat{media}{main}), int 100*($stat{iurt}{contrib}/$stat{media}{contrib}), int 100*($stat{total_iurt}/$stat{total}), 
46}
47
48open my $file, ">$cachefile";
49$Data::Dumper::Indent = 1;
50$Data::Dumper::Terse = 1;
51print $file Data::Dumper->Dump([ $cache ], [ "cache" ]);
52
53close $file
Note: See TracBrowser for help on using the repository browser.