paste.org.ru Wed Nov  5 23:24:48 2014 : Anonymous : perl : 19289 wide : parent [ 11 years ]
cookies:
name:

scheme:

custom css:


tools:
custom css sample
paste bash script
more coming soon
or not soon...
last:

- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
  1. #!/usr/bin/perl -w
  3. =pod
  5. =head1 NAME
  7. apt-mirror - apt sources mirroring tool
  9. =head1 SYNOPSIS
  11. apt-mirror [configfile]
  13. =head1 DESCRIPTION
  15. A small and efficient tool that lets you mirror a part of or
  16. the whole Debian GNU/Linux distribution or any other apt sources.
  18. Main features:
  19. * It uses a config similar to apts F<sources.list>
  20. * It's fully pool comply
  21. * It supports multithreaded downloading
  22. * It supports multiple architectures at the same time
  23. * It can automatically remove unneeded files
  24. * It works well on overloaded channel to internet
  25. * It never produces an inconsistent mirror including while mirroring
  26. * It works on all POSIX compliant systems with perl and wget
  28. =head1 COMMENTS
  30. apt-mirror uses F</etc/apt/mirror.list> as a configuration file.
  31. By default it is tuned to official Debian or Ubuntu mirrors. Change
  32. it for your needs.
  34. After you setup the configuration file you may run as root:
  36. # su - apt-mirror -c apt-mirror
  38. Or uncomment line in F</etc/cron.d/apt-mirror> to enable daily mirror updates.
  40. =head1 FILES
  42. F</etc/apt/mirror.list>
  43. Main configuration file
  45. F</etc/cron.d/apt-mirror>
  46. Cron configuration template
  48. F</var/spool/apt-mirror/mirror>
  49. Mirror places here
  51. F</var/spool/apt-mirror/skel>
  52. Place for temporarily downloaded indexes
  54. F</var/spool/apt-mirror/var>
  55. Log files placed here. URLs and MD5 summs also here.
  57. =head1 CONFIGURATION EXAMPLES
  59. The mirror.list configuration supports many options, the file is well commented explinging each option.
  60. here are some sample mirror configuration lines showing the various supported ways :
  62. Normal:
  63. deb http://example.com/debian stable main contrib non-free
  65. Arch Specific: ( many other arch's are supported )
  66. deb-powerpc http://example.com/debian stable main contrib non-free
  68. HTTP and FTP Auth or non-standard port:
  69. deb http://user:pass@example.com:8080/debian stable main contrib non-free
  71. Source Mirroring:
  72. deb-src http://example.com/debian stable main contrib non-free
  74. =head1 ORIGINAL AUTHOR
  76. Dmitry N. Hramtsov E<lt>hdn@nsu.ruE<gt>
  78. =head1 MAINTAINERS
  80. Dmitry N. Hramtsov E<lt>hdn@nsu.ruE<gt>
  81. Brandon Holtsclaw E<lt>brandon@imbrandon.comE<gt>
  83. =cut
  85. use strict;
  86. use File::Copy;
  87. use File::Path;
  88. use File::Basename;
  90. my $config_file;
  92. my %config_variables = (
  93. "defaultarch" => `dpkg --print-installation-architecture 2>/dev/null` || 'i386',
  94. "nthreads" => 20,
  95. "base_path" => '/var/spool/apt-mirror',
  96. "mirror_path" => '$base_path/mirror',
  97. "skel_path" => '$base_path/skel',
  98. "var_path" => '$base_path/var',
  99. "cleanscript" => '$var_path/clean.sh',
  100. "_contents" => 1,
  101. "_autoclean" => 0,
  102. "_tilde" => 0,
  103. "limit_rate" => '100m',
  104. "run_postmirror" => 1,
  105. "postmirror_script" => '$var_path/postmirror.sh'
  106. );
  108. my @config_binaries = ();
  109. my @config_sources = ();
  111. my @index_urls;
  112. my @childrens = ();
  113. my %skipclean = ();
  114. my %clean_directory = ();
  117. ######################################################################################
  118. ## Setting up $config_file variable
  120. $config_file = "/etc/apt/mirror.list"; # Default value
  121. if($_ = shift) {
  122. die("apt-mirror: invalid config file specified") unless -f $_;
  123. $config_file = $_;
  124. }
  126. chomp $config_variables{"defaultarch"};
  128. ######################################################################################
  129. ## Common subroutines
  131. sub round_number
  132. {
  133. my $n = shift;
  134. my $minus = $n < 0 ? '-' : '';
  135. $n = abs($n);
  136. $n = int(($n + .05) * 10) / 10;
  137. $n .= '.0' unless $n =~ /\./;
  138. $n .= '0' if substr($n,(length($n) - 1),1) eq '.';
  139. chop $n if $n =~ /\.\d\d0$/;
  140. return "$minus$n";
  141. }
  143. sub format_bytes {
  144. my $bytes = shift;
  145. my $bytes_out = '0';
  146. my $size_name = 'bytes';
  147. my $KiB = 1024;
  148. my $MiB = 1024 * 1024;
  149. my $GiB = 1024 * 1024 * 1024;
  151. if ($bytes >= $KiB) {
  152. $bytes_out = $bytes / $KiB;
  153. $size_name = 'KiB';
  154. if ($bytes >= $MiB) {
  155. $bytes_out = $bytes / $MiB;
  156. $size_name = 'MiB';
  157. if ($bytes >= $GiB) {
  158. $bytes_out = $bytes / $GiB;
  159. $size_name = 'GiB';
  160. }
  161. }
  162. } else {
  163. $bytes_out = $bytes;
  164. $size_name = 'bytes';
  165. }
  167. $bytes_out = round_number($bytes_out);
  168. return "$bytes_out $size_name";
  169. }
  171. sub get_variable {
  172. my $value = $config_variables{shift @_};
  173. my $count = 16;
  174. while($value =~ s/\$(\w+)/$config_variables{$1}/xg) {
  175. die("apt-mirror: too many substitution while evaluating variable") if ($count --) < 0;
  176. }
  177. return $value;
  178. }
  180. sub lock_aptmirror {
  181. system ("touch " . get_variable("var_path") . "/apt-mirror.lock");
  182. }
  184. sub check_lock {
  185. if(-e get_variable("var_path") . "/apt-mirror.lock")
  186. {
  187. die("apt-mirror is already running, exiting");
  188. }
  189. }
  191. sub unlock_aptmirror {
  192. unlink(get_variable("var_path") . "/apt-mirror.lock");
  193. }
  195. sub download_urls {
  196. my $stage = shift;
  197. my @urls;
  198. my $i = 0;
  199. my $pid;
  200. my $nthreads = get_variable("nthreads");
  201. local $| = 1;
  203. @urls = @_;
  204. $nthreads = @urls if @urls < $nthreads;
  206. print "Downloading " . scalar(@urls) . " $stage files using $nthreads threads...\n";
  208. while(scalar @urls) {
  209. my @part = splice(@urls, 0, int(@urls / $nthreads));
  210. open URLS, ">" . get_variable("var_path") . "/$stage-urls.$i" or die("apt-mirror: can't write to intermediate file ($stage-urls.$i)");
  211. foreach (@part) { print URLS "$_\n"; }
  212. close URLS or die("apt-mirror: can't close intermediate file ($stage-urls.$i)");
  214. $pid = fork();
  216. die("apt-mirror: can't do fork in download_urls") if $pid < 0;
  218. if($pid == 0) {
  219. # print " * Running wget $i...\n";
  220. exec 'wget', '--limit-rate='.get_variable("limit_rate"), '-t', '0', '-r', '-N', '-l', 'inf', '-o', get_variable("var_path") . "/$stage-log.$i", '-i', get_variable("var_path") . "/$stage-urls.$i";
  221. # print " * Can't exec $i...\n";
  222. # unlink get_variable("var_path") . "/URLS.$i";
  223. # unlink get_variable("var_path") . "/wget-log.$i";
  224. # exit 1;
  225. }
  227. push @childrens, $pid;
  228. $i++; $nthreads--;
  229. }
  231. print "Begin time: " . localtime() . "\n[" . scalar(@childrens) . "]... ";
  232. while(scalar @childrens) {
  233. my $dead = wait();
  234. @childrens = grep { $_ != $dead } @childrens;
  235. print "[" . scalar(@childrens) . "]... ";
  236. }
  237. print "\nEnd time: " . localtime() . "\n\n";
  238. }
  240. ######################################################################################
  241. ## Create the 3 needed directories if they don't exist yet
  242. my @needed_directories = (get_variable("mirror_path"), get_variable("skel_path"), get_variable("var_path"));
  243. foreach my $needed_directory (@needed_directories) {
  244. unless (-d $needed_directory) {
  245. mkdir($needed_directory) or die("apt-mirror: can't create $needed_directory directory");
  246. }
  247. }
  249. ######################################################################################
  250. ## Parse config
  252. open CONFIG, "<$config_file" or die("apt-mirror: can't open config file ($config_file)");
  253. while(<CONFIG>) {
  254. next if /^\s*#/;
  255. next unless /\S/;
  256. my @config_line = split;
  257. my $config_line = shift @config_line;
  259. if($config_line eq "set") {
  260. $config_variables{$config_line[0]} = $config_line[1];
  261. next;
  262. }
  264. if($config_line eq "deb") {
  265. push @config_binaries, [get_variable("defaultarch"), @config_line];
  266. next;
  267. }
  269. if($config_line =~ /deb-(alpha|amd64|armel|arm|hppa|hurd-i386|i386|ia64|lpia|m68k|mipsel|mips|powerpc|s390|sh|sparc)/) {
  270. push @config_binaries, [$1, @config_line];
  271. next;
  272. }
  274. if($config_line eq "deb-src") {
  275. push @config_sources, [@config_line];
  276. next;
  277. }
  279. if($config_line eq "skip-clean") {
  280. $config_line[0] =~ s[^(\w+)://][];
  281. $config_line[0] =~ s[/$][];
  282. $config_line[0] =~ s[~][%7E]g if get_variable("_tilde");
  283. $skipclean{$config_line[0]} = 1;
  284. next;
  285. }
  287. if($config_line eq "clean") {
  288. $config_line[0] =~ s[^(\w+)://][];
  289. $config_line[0] =~ s[/$][];
  290. $config_line[0] =~ s[~][%7E]g if get_variable("_tilde");
  291. $clean_directory{$config_line[0]} = 1;
  292. next;
  293. }
  295. die("apt-mirror: invalid line in config file ($.: $config_line ...)");
  296. }
  297. close CONFIG;
  299. die("Please explicitly specify 'defaultarch' in mirror.list") unless get_variable("defaultarch");
  301. check_lock();
  303. $SIG{INT} = "unlock_aptmirror";
  304. $SIG{HUP} = "unlock_aptmirror";
  305. $SIG{TERM} = "unlock_aptmirror";
  307. lock_aptmirror();
  310. ######################################################################################
  311. ## Skel download
  313. my %urls_to_download = ();
  314. my ($url, $arch);
  316. sub remove_double_slashes {
  317. local $_ = shift;
  318. while(s[/\./][/]g) {}
  319. while(s[(?<!:)//][/]g) {}
  320. while(s[(?<!:/)/[^/]+/\.\./][/]g) {}
  321. s/~/\%7E/g if get_variable("_tilde");
  322. return $_;
  323. }
  325. sub add_url_to_download {
  326. my $url = remove_double_slashes(shift);
  327. $urls_to_download{$url} = shift;
  328. }
  330. foreach (@config_sources) {
  331. my ($uri, $distribution, @components) = @{$_};
  333. if(@components) {
  334. $url = $uri . "/dists/" . $distribution . "/";
  336. add_url_to_download($url . "Release");
  337. add_url_to_download($url . "Release.gpg");
  338. foreach (@components) {
  339. add_url_to_download($url . $_ . "/source/Release");
  340. add_url_to_download($url . $_ . "/source/Sources.gz");
  341. add_url_to_download($url . $_ . "/source/Sources.bz2");
  342. }
  343. } else {
  344. add_url_to_download($uri . "/$distribution/Sources.gz");
  345. add_url_to_download($uri . "/$distribution/Sources.bz2");
  346. }
  347. }
  349. foreach (@config_binaries) {
  350. my ($arch, $uri, $distribution, @components) = @{$_};
  352. if(@components) {
  353. $url = $uri . "/dists/" . $distribution . "/";
  355. add_url_to_download($url . "Release");
  356. add_url_to_download($url . "Release.gpg");
  357. if (get_variable("_contents")) {
  358. add_url_to_download($url . "Contents-" . $arch . ".gz");
  359. add_url_to_download($url . "Contents-" . $arch . ".bz2");
  360. }
  361. foreach (@components) {
  362. add_url_to_download($url . $_ . "/binary-" . $arch . "/Release");
  363. add_url_to_download($url . $_ . "/binary-" . $arch . "/Packages.gz");
  364. add_url_to_download($url . $_ . "/binary-" . $arch . "/Packages.bz2");
  365. }
  366. } else {
  367. add_url_to_download($uri . "/$distribution/Packages.gz");
  368. add_url_to_download($uri . "/$distribution/Packages.bz2");
  369. }
  370. }
  372. chdir get_variable("skel_path") or die("apt-mirror: can't chdir to skel");
  373. @index_urls = sort keys %urls_to_download;
  374. download_urls("index", @index_urls);
  376. foreach (keys %urls_to_download) {
  377. s[^(\w+)://][];
  378. s[~][%7E]g if get_variable("_tilde");
  379. $skipclean{$_} = 1;
  380. $skipclean{$_} = 1 if s[\.gz$][];
  381. $skipclean{$_} = 1 if s[\.bz2$][];
  382. }
  384. ######################################################################################
  385. ## Main download prepair
  387. %urls_to_download = ();
  389. open FILES_ALL, ">" . get_variable("var_path") . "/ALL" or die("apt-mirror: can't write to intermediate file (ALL)");
  390. open FILES_NEW, ">" . get_variable("var_path") . "/NEW" or die("apt-mirror: can't write to intermediate file (NEW)");
  391. open FILES_MD5, ">" . get_variable("var_path") . "/MD5" or die("apt-mirror: can't write to intermediate file (MD5)");
  393. my %stat_cache = ();
  395. sub _stat {
  396. my ($filename) = shift;
  397. return @{$stat_cache{$filename}} if exists $stat_cache{$filename};
  398. my @res = stat($filename);
  399. $stat_cache{$filename} = \@res;
  400. return @res;
  401. }
  403. sub clear_stat_cache {
  404. %stat_cache = ();
  405. }
  407. sub need_update {
  408. my $filename = shift;
  409. my $size_on_server = shift;
  411. my (undef, undef, undef, undef, undef, undef, undef, $size) = _stat($filename);
  413. return 1 unless($size);
  414. return 0 if $size_on_server == $size;
  415. return 1;
  416. }
  418. sub remove_spaces($) {
  419. my $hashref = shift;
  420. foreach (keys %{$hashref}) {
  421. while(substr($hashref->{$_}, 0, 1) eq ' ') {
  422. substr($hashref->{$_}, 0, 1) = '';
  423. }
  424. }
  425. }
  427. sub sanitise_uri {
  428. my $uri = shift;
  429. $uri =~ s[^(\w+)://][];
  430. $uri =~ s/^([^@]+)?@?// if $uri =~ /@/;
  431. $uri =~ s&:\d+/&/&; # and port information
  432. $uri =~ s/~/\%7E/g if get_variable("_tilde");
  433. return $uri;
  434. }
  436. sub proceed_index_gz {
  437. my $uri = shift;
  438. my $index = shift;
  439. my ($path, $package, $mirror, $files) = '';
  441. $path = sanitise_uri($uri);
  442. local $/ = "\n\n";
  443. $mirror = get_variable("mirror_path") . "/" . $path;
  445. if($index =~ s/\.gz$//) {
  446. system("gunzip < $path/$index.gz > $path/$index");
  447. }
  449. open STREAM, "<$path/$index" or die("apt-mirror: can't open index in proceed_index_gz");
  451. while($package = <STREAM>) {
  452. local $/ = "\n";
  453. chomp $package;
  454. my (undef, %lines) = split(/^([\w\-]+:)/m, $package);
  456. chomp(%lines);
  457. remove_spaces(\%lines);
  459. if(exists $lines{"Filename:"}) { # Packages index
  460. $skipclean{remove_double_slashes($path . "/" . $lines{"Filename:"})} = 1;
  461. print FILES_ALL remove_double_slashes($path . "/" . $lines{"Filename:"}) . "\n";
  462. print FILES_MD5 $lines{"MD5sum:"} . " " . remove_double_slashes($path . "/" . $lines{"Filename:"}) . "\n";
  463. if(need_update($mirror . "/" . $lines{"Filename:"}, $lines{"Size:"})) {
  464. print FILES_NEW remove_double_slashes($uri . "/" . $lines{"Filename:"}) . "\n";
  465. add_url_to_download($uri . "/" . $lines{"Filename:"}, $lines{"Size:"});
  466. }
  467. } else { # Sources index
  468. foreach (split(/\n/, $lines{"Files:"})) {
  469. next if $_ eq '';
  470. my @file = split;
  471. die("apt-mirror: invalid Sources format") if @file != 3;
  472. $skipclean{remove_double_slashes($path . "/" . $lines{"Directory:"} . "/" . $file[2])} = 1;
  473. print FILES_ALL remove_double_slashes($path . "/" . $lines{"Directory:"} . "/" . $file[2]) . "\n";
  474. print FILES_MD5 $file[0] . " " . remove_double_slashes($path . "/" . $lines{"Directory:"} . "/" . $file[2]) . "\n";
  475. if(need_update($mirror . "/" . $lines{"Directory:"} . "/" . $file[2], $file[1])) {
  476. print FILES_NEW remove_double_slashes($uri . "/" . $lines{"Directory:"} . "/" . $file[2]) . "\n";
  477. add_url_to_download($uri . "/" . $lines{"Directory:"} . "/" . $file[2], $file[1]);
  478. }
  479. }
  480. }
  481. }
  483. close STREAM;
  484. }
  486. print "Proceed indexes: [";
  488. foreach (@config_sources) {
  489. my ($uri, $distribution, @components) = @{$_};
  490. print "S";
  491. if(@components) {
  492. my $component;
  493. foreach $component (@components) {
  494. proceed_index_gz($uri, "/dists/$distribution/$component/source/Sources.gz");
  495. }
  496. } else {
  497. proceed_index_gz($uri, "/$distribution/Sources.gz");
  498. }
  499. }
  501. foreach (@config_binaries) {
  502. my ($arch, $uri, $distribution, @components) = @{$_};
  503. print "P";
  504. if(@components) {
  505. my $component;
  506. foreach $component (@components) {
  507. proceed_index_gz($uri, "/dists/$distribution/$component/binary-$arch/Packages.gz");
  508. }
  509. } else {
  510. proceed_index_gz($uri, "/$distribution/Packages.gz");
  511. }
  512. }
  514. clear_stat_cache();
  516. print "]\n\n";
  518. close FILES_ALL;
  519. close FILES_NEW;
  520. close FILES_MD5;
  523. ######################################################################################
  524. ## Main download
  526. chdir get_variable("mirror_path") or die("apt-mirror: can't chdir to mirror");
  528. my $need_bytes = 0;
  529. foreach (values %urls_to_download) {
  530. $need_bytes += $_;
  531. }
  533. my $size_output = format_bytes($need_bytes);
  535. print "$size_output will be downloaded into archive.\n";
  537. download_urls("archive", sort keys %urls_to_download);
  540. ######################################################################################
  541. ## Copy skel to main archive
  543. sub copy_file {
  544. my ($from, $to) = @_;
  545. my $dir = dirname($to);
  546. return unless -f $from;
  547. mkpath($dir) unless -d $dir;
  548. unless(copy($from, $to)) {
  549. warn("apt-mirror: can't copy $from to $to");
  550. return;
  551. }
  552. my ($atime,$mtime) = ( stat($from) ) [8, 9];
  553. utime($atime, $mtime, $to) or die("apt-mirror: can't utime $to");
  554. }
  556. foreach (@index_urls) {
  557. die("apt-mirror: invalid url in index_urls") unless s[^(\w+)://][];
  558. copy_file(get_variable("skel_path") . "/" . sanitise_uri("$_"), get_variable("mirror_path") . "/" . sanitise_uri("$_"));
  559. copy_file(get_variable("skel_path") . "/" . sanitise_uri("$_"), get_variable("mirror_path") . "/" . sanitise_uri("$_")) if(s/\.gz$//);
  560. copy_file(get_variable("skel_path") . "/" . sanitise_uri("$_"), get_variable("mirror_path") . "/" . sanitise_uri("$_")) if(s/\.bz2$//);
  561. }
  564. ######################################################################################
  565. ## Make cleaning script
  567. my (@rm_dirs, @rm_files) = ();
  568. my $unnecessary_bytes = 0;
  570. sub process_symlink {
  571. return 1; # symlinks are always needed
  572. }
  574. sub process_file {
  575. my $file = shift;
  576. $file =~ s[~][%7E]g if get_variable("_tilde");
  577. return 1 if $skipclean{$file};
  578. push @rm_files, sanitise_uri($file);
  579. my (undef, undef, undef, undef, undef, undef, undef, $size, undef, undef, undef, undef, $blocks) = stat($file);
  580. $unnecessary_bytes += $blocks * 512;
  581. return 0;
  582. }
  584. sub process_directory {
  585. my $dir = shift;
  586. my $is_needed = 0;
  587. return 1 if $skipclean{$dir};
  588. opendir(my $dir_h, $dir) or die "apt-mirror: can't opendir $dir: $!";
  589. foreach (grep { !/^\.$/ && !/^\.\.$/ } readdir($dir_h)) {
  590. my $item = $dir . "/". $_;
  591. $is_needed |= process_directory($item) if -d $item && ! -l $item;
  592. $is_needed |= process_file($item) if -f $item;
  593. $is_needed |= process_symlink($item) if -l $item;
  594. }
  595. closedir $dir_h;
  596. push @rm_dirs, $dir unless $is_needed;
  597. return $is_needed;
  598. }
  600. chdir get_variable("mirror_path") or die("apt-mirror: can't chdir to mirror");
  602. foreach (keys %clean_directory) {
  603. process_directory($_) if -d $_ && ! -l $_;
  604. }
  606. open CLEAN, ">" . get_variable("cleanscript") or die("apt-mirror: can't open clean script file");
  608. my ($i, $total) = (0, scalar @rm_files);
  610. if(get_variable("_autoclean")) {
  612. my $size_output = format_bytes($unnecessary_bytes);
  613. print "$size_output in $total files and " . scalar(@rm_dirs) . " directories will be freed...";
  615. chdir get_variable("mirror_path") or die("apt-mirror: can't chdir to mirror");
  617. foreach (@rm_files) { unlink $_; }
  618. foreach (@rm_dirs) { rmdir $_; }
  620. } else {
  622. my $size_output = format_bytes($unnecessary_bytes);
  623. print "$size_output in $total files and " . scalar(@rm_dirs) . " directories can be freed.\n";
  624. print "Run " . get_variable("cleanscript") . " for this purpose.\n\n";
  626. print CLEAN "cd " . get_variable("mirror_path") . " || exit 1\n\n";
  627. print CLEAN "echo 'Removing $total unnecessary files [$unnecessary_bytes bytes]...'\n";
  628. foreach (@rm_files) {
  629. print CLEAN "rm -f '$_'\n";
  630. print CLEAN "echo -n '[" . int(100 * $i/$total) . "\%]'\n" unless $i % 500;
  631. print CLEAN "echo -n .\n" unless $i % 10;
  632. $i ++;
  633. }
  634. print CLEAN "echo 'done.'\n";
  635. print CLEAN "echo\n\n";
  637. $i = 0; $total = scalar @rm_dirs;
  638. print CLEAN "echo 'Removing $total unnecessary directories...'\n";
  639. foreach (@rm_dirs) {
  640. print CLEAN "rmdir '$_'\n";
  641. print CLEAN "echo -n '[" . int(100 * $i/$total) . "\%]'\n" unless $i % 50;
  642. print CLEAN "echo -n .\n";
  643. $i ++;
  644. }
  645. print CLEAN "echo 'done.'\n";
  646. print CLEAN "echo\n";
  648. close CLEAN;
  650. }
  652. if(get_variable("run_postmirror")) {
  653. print "Running the Post Mirror script ...\n";
  654. print "(" . get_variable("postmirror_script") . ")\n\n";
  655. if(-x get_variable("postmirror_script")){
  656. system (get_variable("postmirror_script"));
  657. } else {
  658. system ('/bin/sh ' . get_variable("postmirror_script"));
  659. }
  660. print "\nPost Mirror script has completed. See above output for any possible errors.\n\n";
  661. }
  663. unlock_aptmirror();


viewable in any browser valid css valid html 4.01 powered by lighttpd colored by colorer written in perl hosted by stavcom