Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sub localmirrors {
- my @mlist;
- open CONFIG, "<".$ENV{'TOPDIR'}."/.config" and do {
- while (<CONFIG>) {
- /^CONFIG_LOCALMIRROR="(.+)"/ and do {
- chomp;
- my @local_mirrors = split(/;/, $1);
- push @mlist, @local_mirrors;
- };
- }
- close CONFIG;
- };
- open LM, "$scriptdir/localmirrors" or
- open LM, "$scriptdir/localmirrors.default" or
- return @mlist;
- while (<LM>) {
- chomp $_;
- push @mlist, $_ if $_;
- print STDERR "$_\n";
- }
- close LM;
- return @mlist;
- }
Add Comment
Please, Sign In to add comment