/[smeserver]/builds_bin/update_repos
ViewVC logotype

Diff of /builds_bin/update_repos

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

Revision 1.76 by slords, Fri Oct 10 14:07:52 2014 UTC Revision 1.87 by unnilennium, Thu Dec 1 17:36:44 2016 UTC
# Line 45  my $distrepo = { '8' => { active    => 1 Line 45  my $distrepo = { '8' => { active    => 1
45                            keyname   => 'SME Server 7 signing key <bugteam@contribs.org>',                            keyname   => 'SME Server 7 signing key <bugteam@contribs.org>',
46                            checksum  => 'sha256',                            checksum  => 'sha256',
47                          },                          },
48                   '10' => { active   => 0,                   '10' => { active   => 1,
49                            centos    => 7,                            centos    => 7,
50                            archs     => [ 'x86_64' ],                            archs     => [ 'x86_64' ],
51                            repo      => '/build/smeserver/repo/testing/10/',                            repo      => '/build/smeserver/repo/testing/10/',
# Line 53  my $distrepo = { '8' => { active    => 1 Line 53  my $distrepo = { '8' => { active    => 1
53                            community => '/build/builds/smeserver-10-contribs/',                            community => '/build/builds/smeserver-10-contribs/',
54                            stage     => '/build/smeserver/stage/10/',                            stage     => '/build/smeserver/stage/10/',
55                            sign      => 1,                            sign      => 1,
56                            keyname   => 'SME Server 7 signing key <bugteam@contribs.org>',                            keyname   => 'Koozali SME Server signing key (10) <bugteam@koozali.org>',
57                            checksum  => 'sha256',                            checksum  => 'sha256',
58                          },                          },
59                 };                 };
# Line 105  my $baserepo = { "~S${repotag}os/~A/" => Line 105  my $baserepo = { "~S${repotag}os/~A/" =>
105    
106  my $skippkg = { '8'  => { 'atrpms'        => { map { $_ => 1 } ( 'clamav', 'gnupg' ) },  my $skippkg = { '8'  => { 'atrpms'        => { map { $_ => 1 } ( 'clamav', 'gnupg' ) },
107                            'centos'        => { map { $_ => 1 } ( 'horde', 'imp-h3', 'ingo-h3', 'turba-h3' ) },                            'centos'        => { map { $_ => 1 } ( 'horde', 'imp-h3', 'ingo-h3', 'turba-h3' ) },
108                            'epel'          => { map { $_ => 1 } ( 'clamav', 'fping', 'html2ps', 'horde', 'libtalloc', 'libtdb', 'oidentd', 'perl-Compress-Bzip2', 'perl-Compress-Raw-Zlib', 'perl-Compress-Raw-Bzip2', 'perl-Crypt-OpenSSL-Bignum', 'perl-Crypt-OpenSSL-Random', 'perl-Crypt-OpenSSL-RSA', 'perl-Razor-Agent', 'smolt' ) },                            'epel'          => { map { $_ => 1 } ( 'clamav', 'cppunit', 'fping', 'html2ps', 'horde', 'libtalloc', 'libtdb', 'oidentd', 'perl-Compress-Bzip2', 'perl-Compress-Raw-Zlib', 'perl-Compress-Raw-Bzip2', 'perl-Crypt-OpenSSL-Bignum', 'perl-Crypt-OpenSSL-Random', 'perl-Crypt-OpenSSL-RSA', 'perl-Razor-Agent', 'smolt' ) },
109                            'rpmforge'      => { map { $_ => 1 } ( 'dovecot', 'libtalloc', 'mod_auth_tkt', 'perl-Test-Inline', 'spamassassin' ) },                            'rpmforge'      => { map { $_ => 1 } ( 'dovecot', 'libtalloc', 'mod_auth_tkt', 'perl-Test-Inline', 'spamassassin', 'lzo',  'perl-Convert-TNEF', 'perl-Mail-SPF', 'proftpd', 'erlang', 'perl-DateTime-Format-Mail', 'perl-DateTime-Format-W3CDTF', 'perl-Email-Abstract', 'perl-Email-MIME-Attachment-Stripper', 'perl-Email-Reply', 'perl-Font-AFM', 'perl-IPC-Run', 'rkhunter') },
110                          },                          },
111                  '9'  => { 'atrpms'        => { map { $_ => 1 } ( 'clamav', 'perl-Pod-Escapes', 'perl-Pod-Simple' ) },                  '9'  => { 'atrpms'        => { map { $_ => 1 } ( 'clamav', 'perl-Pod-Escapes', 'perl-Pod-Simple' ) },
112                            'epel'          => { map { $_ => 1 } ( 'oidentd', 'perl-Razor-Agent' ) },                            'epel'          => { map { $_ => 1 } ( 'oidentd', 'perl-Razor-Agent' ) },
113                            'rpmforge'      => { map { $_ => 1 } ( 'perl-CGI', 'perl-Compress-Raw-Zlib', 'perl-ExtUtils-ParseXS', 'perl-Pod-Escapes', 'perl-Pod-Simple', 'perl-Time-HiRes', 'perl-version', 'spamassassin' ) },                            'rpmforge'      => { map { $_ => 1 } ( 'perl-CGI', 'perl-Compress-Raw-Zlib', 'perl-ExtUtils-ParseXS', 'perl-Pod-Escapes', 'perl-Pod-Simple', 'perl-Time-HiRes', 'perl-version', 'spamassassin', 'portreserve', 'perl-libwww-perl' , 'lzo', 'perl-BSD-Resource', 'perl-Convert-ASN1', 'perl-Devel-StackTrace', 'perl-Digest-SHA1', 'perl-MIME-tools', 'perl-MailTools', 'perl-PPI', 'perl-URI', 'perl-XML-NamespaceSupport', 'perl-XML-Parser', 'perl-XML-SAX-Writer', 'perl-YAML-Syck', 'proftpd', 'syslinux') },
114                          },                          },
115                  '10' => {                  '10' => {
116                          },                          },
# Line 129  foreach my $ver ( sort { $a <=> $b } key Line 129  foreach my $ver ( sort { $a <=> $b } key
129      %sources = ();      %sources = ();
130      %base = ();      %base = ();
131    
132        @{$distrepo->{$ver}->{all_archs}} = ('noarch', @{$distrepo->{$ver}->{'archs'}});
133        if ( grep $_ eq 'i386', @{$distrepo->{$ver}->{'archs'}} ) {
134            push @{$distrepo->{$ver}->{all_archs}}, ('i586', 'i686');
135        }
136    
137      foreach my $dir  ( sort { $repos->{$baserepo->{$b}}->{prio} <=> $repos->{$baserepo->{$a}}->{prio} || $a cmp $b } keys %$baserepo ) {      foreach my $dir  ( sort { $repos->{$baserepo->{$b}}->{prio} <=> $repos->{$baserepo->{$a}}->{prio} || $a cmp $b } keys %$baserepo ) {
138          my $bdir = $dir;          my $bdir = $dir;
139          $bdir =~ s/~S/$distrepo->{$ver}->{repo}/;          $bdir =~ s/~S/$distrepo->{$ver}->{repo}/;
# Line 157  foreach my $ver ( sort { $a <=> $b } key Line 162  foreach my $ver ( sort { $a <=> $b } key
162              }              }
163              next unless -d $adir;              next unless -d $adir;
164              opendir DIR, $adir or next;              opendir DIR, $adir or next;
165              process_rpm("$adir$_", $ver, $baserepo->{$dir}) foreach readdir DIR;              my @txt = grep {  /\.rpm$/ && -f "$adir/$_" }  readdir DIR;
166              closedir DIR;              closedir DIR;
167                if (scalar(@txt)) {
168                   opendir DIR, $adir or next;
169                   process_rpm("$adir$_", $ver, $baserepo->{$dir})  foreach readdir DIR;
170                   closedir DIR;
171                } elsif ($baserepo->{$dir} eq 'epel') {
172                   # EPEL 7  uses a structure with subfolders of first letter of package
173                   find( { wanted => sub { process_rpm($_, $ver, $baserepo->{$dir}) if ($_ =~ m/\.rpm$/);}, no_chdir => 1, follow_fast => 1 }, $adir );
174                }
175              last unless $dir =~ m{~A};              last unless $dir =~ m{~A};
176          }          }
177      }      }
# Line 295  foreach my $ver ( sort { $a <=> $b } key Line 308  foreach my $ver ( sort { $a <=> $b } key
308                          }                          }
309                      } elsif ( $repos->{$cmp->{repo}}->{stage} ) {                      } elsif ( $repos->{$cmp->{repo}}->{stage} ) {
310                          $cmp->{delete}++;                          $cmp->{delete}++;
311                      } else {                      } elsif ( $cmp->{src} || grep $_ eq $cmp->{rpm}->arch, @{$distrepo->{$ver}->{all_archs}} ) {
312                          $srpm = $cmp if ! $srpm && $cmp->{src};                          $srpm = $cmp if ! $srpm && $cmp->{src};
313                          my $dest = $repos->{$track{repo}}->{prio} > $repos->{$devel2}->{prio} ? $track{repo} : $devel2;                          my $dest = $repos->{$track{repo}}->{prio} > $repos->{$devel2}->{prio} ? $track{repo} : $devel2;
314                          $dest = pkgdest($cmp, $devel1, $dest, $rpms->{$base}->{rpms});                          $dest = pkgdest($cmp, $devel1, $dest, $rpms->{$base}->{rpms});
# Line 448  foreach my $ver ( sort { $a <=> $b } key Line 461  foreach my $ver ( sort { $a <=> $b } key
461                          push @d, "${head}SRPMS/" . basename($pkg->{rpm}->filename);                          push @d, "${head}SRPMS/" . basename($pkg->{rpm}->filename);
462                      } elsif ( $pkg->{rpm}->arch eq 'noarch' ) {                      } elsif ( $pkg->{rpm}->arch eq 'noarch' ) {
463                          push @d, map { "${head}$_/$tail" . basename($pkg->{rpm}->filename) } @{$distrepo->{$ver}->{'archs'}};                          push @d, map { "${head}$_/$tail" . basename($pkg->{rpm}->filename) } @{$distrepo->{$ver}->{'archs'}};
464                        } elsif ($ver>=10 && $pkg->{rpm}->arch =~ m{^(i[356]86)$}  && $pkg->{arch} =~ m{^(x86_64)$}  ) {
465                           #add copy of i686 packages in x86_64 folder for SME>=10
466                           push @d, map { "${head}$_/$tail" . basename($pkg->{rpm}->filename) } @{$distrepo->{$ver}->{'archs'}};
467                      } elsif ( $pkg->{rpm}->arch =~ m{^(i[356]86)$} ) {                      } elsif ( $pkg->{rpm}->arch =~ m{^(i[356]86)$} ) {
468                          push @d, "${head}i386/$tail" . basename($pkg->{rpm}->filename);                          push @d, "${head}i386/$tail" . basename($pkg->{rpm}->filename);
469                      } else {                      } else {
# Line 522  foreach my $ver ( sort { $a <=> $b } key Line 538  foreach my $ver ( sort { $a <=> $b } key
538          }          }
539      }      }
540      unless ( $opts{t} ) {      unless ( $opts{t} ) {
541          foreach (@{$distrepo->{$ver}->{builds}})          foreach (@{$distrepo->{$ver}->{'builds'}})
542          {          {
543              finddepth(sub{rmdir}, "$_") if -d "$_";              finddepth(sub{rmdir}, "$_") if -d "$_";
544          }          }
545          finddepth(sub{rmdir}, $distrepo->{$ver}->{community}) if -d "$distrepo->{$ver}->{community}";          finddepth(sub{rmdir}, $distrepo->{$ver}->{'community'}) if -d "$distrepo->{$ver}->{'community'}";
546      }      }
547  }  }
548    


Legend:
Removed lines/characters  
Changed lines/characters
  Added lines/characters

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed