blob: bd34299ac72dccc288c091be36e9bdb93ed079fc (
plain)
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
|
#!/usr/bin/perl
# This perl script creates the SGI specific Makefile.
# The BASEDIR is set to /usr/samba, MANDIR is set to /usr/share/man, and
# the lines are uncommented for the requested OS version. If no version
# is specified, IRIX 6 is used.
if (!@ARGV) {
$OSver = "6";
}
else {
$OSver = $ARGV[0];
}
open(MAKEIN,"../../source/Makefile") || die "Unable to open source Makefile\n";
open(MAKEOUT,">Makefile") || die "Unable to open Makefile for output\n";
while (<MAKEIN>) {
if (/^BASEDIR =/) {
print MAKEOUT "BASEDIR = /usr/samba\n";
}
elsif (/^MANDIR =/) {
print MAKEOUT "MANDIR = /usr/share/man\n";
}
elsif (/^# FOR SGI IRIX $OSver/) {
print MAKEOUT;
$a = <MAKEIN>;
print MAKEOUT $a;
($a = <MAKEIN>) =~ s/^# //;
print MAKEOUT $a;
($a = <MAKEIN>) =~ s/^# //;
print MAKEOUT $a;
($a = <MAKEIN>) =~ s/^# //;
print MAKEOUT $a;
}
else {
print MAKEOUT;
}
}
|
