Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 39 lines (32 sloc) 0.706 kB
5550c3a @perusionmike Initial import of changed Challenger with UI instead of Minimate.
perusionmike authored
1 #!/usr/bin/perl
2
3 package mvhints;
4
5 sub get_hints {
6 my @out;
7
8 my $condition;
9 my $routine;
10
b31a690 @jonjensen Move DEV_4_7_0 development branch to repository trunk.
jonjensen authored
11 $condition = sub { $^O =~ /nolongernecessary/i };
5550c3a @perusionmike Initial import of changed Challenger with UI instead of Minimate.
perusionmike authored
12 $routine = sub {
76e6918 @perusionmike Fixed problem with reference to "minivend.cfg" for BSD.
perusionmike authored
13 my $fn = 'interchange.cfg.dist';
5550c3a @perusionmike Initial import of changed Challenger with UI instead of Minimate.
perusionmike authored
14 rename $fn, "$fn.bak";
15 open HINTIN, "$fn.bak"
16 or die "cannot open $fn.bak: $!\n";
17 open HINTOUT, ">$fn"
18 or die "cannot write $fn: $!\n";
19 while(<HINTIN>) {
20 s/
21 ^\s*Housekeeping\s+\d+.*$
4eb332a @perusionmike * Added check for not being able to determine current directory
perusionmike authored
22 /# Changed for $^O, no safe signals\nHousekeeping 1/xig;
5550c3a @perusionmike Initial import of changed Challenger with UI instead of Minimate.
perusionmike authored
23 s/
24 ^\s*MaxServers\s+\d+.*$
4eb332a @perusionmike * Added check for not being able to determine current directory
perusionmike authored
25 /# Changed for $^O, no safe signals\nMaxServers 0/xig;
5550c3a @perusionmike Initial import of changed Challenger with UI instead of Minimate.
perusionmike authored
26 print HINTOUT $_;
27 }
28 close HINTIN;
29 close HINTOUT;
30 unlink "$fn.bak";
31 return 1;
32 };
33 push @out, [ $condition, $routine ];
34
35 return @out;
36 }
37
38 1;
Something went wrong with that request. Please try again.