yumlocal.pl


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

#!/usr/bin/perl

use warnings;
use strict;

my $localserver = "prometheus.epoch.ncsc.mil/";
my $remoteserver = "download.fedoraproject.org/pub/";

foreach my $file (@ARGV) {
    print STDERR "Processing '$file'...";
    open(FH, '<', $file) or die "Failed to open '$file': $!\n";
    my @lines = <FH>;
    close(FH);

    for (@lines) {
	# Set up local server
	s|$remoteserver|$localserver|g;

	# Turn off mirrorlists
	s|^mirrorlist|\#mirrorlist|;

	# Turn on baseurl
	s|^\#baseurl|baseurl|;
    }

    open(FH, '>', $file) or die "Failed to open '$file' for writing: $!\n";
    print FH @lines;
    close(FH) or warn "Failed to close '$file' after writing.\n";
    print STDERR "done\n";
}