File: debsplit.pl

package info (click to toggle)
apt-cacher-ng 0.7.27-1~bpo70+1
  • links: PTS
  • area: main
  • in suites: wheezy-backports
  • size: 1,740 kB
  • sloc: cpp: 13,987; sh: 519; perl: 442; ansic: 414; makefile: 77
file content (81 lines) | stat: -rw-r--r-- 1,587 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
#!/usr/bin/perl
#

use strict;
my %fddset;
my %fdvset;
# temp values within one data set
my @hosts;
my @pathsdeb;
my @pathsvol;

while(<>)
{
   chomp;
   s/^\s+//;
   s/\s+$//;
   next if /^#/;
   if(/(\S+)\s*:\s*(\S+)/)
   {
      my $key=$1;
      my $value=$2;

      if($key eq "Site" || $key eq "Includes")
      {
         push(@hosts, split(/\s/, $value));
      }
      if($key eq "Archive-http")
      {
         push(@pathsdeb, $value);
      }
      if($key eq "Volatile-http")
      {
         push(@pathsvol, $value);
      }
   }
   elsif(@hosts)
   {
      foreach my $h (@hosts)
      {
         $fddset{"$h$_"}=1 foreach @pathsdeb;
         $fdvset{"$h$_"}=1 foreach @pathsvol;
      }
      undef @hosts;
      undef @pathsdeb;
      undef @pathsvol;
   }

}

sub dumpUrls
{
   my $setref=shift;
   my $output=shift;
   my $checkRelease=shift;

   open(fdd, ">$output") || die;

   foreach (sort(keys %$setref))
   {
      my $url="http://$_";
      if($checkRelease)
      {
         $ENV{url}=$url; # let the shell get it right & safe
         if(system("wget -q -t1 -O- --timeout=15 \"\$url/dists/stable/Release\" | grep -q Suite:"))
         {
            print STDERR "Failed mirror URL: $url\n";
            next;
         }
      }
      print fdd "$url\n";
   }
   close(fdd) || die;
   print "$output created\n";
}

dumpUrls(\%fddset, "conf/deb_mirrors", 1);
dumpUrls(\%fdvset, "conf/debvol_mirrors", 0);

# XXX Use Getopt::Long to parse known options, add options for output
# directory, checked/unchecked, with/without Aliases, with/without disabled
# paths