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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
#!perl
# Makefile.PL for urpmi
# $Id$
use strict;
use ExtUtils::MakeMaker;
# Command-line parsing.
# --without-rpm : don't use rpm to find some paths, and generate make targets
# to produce an rpm of this
# --install-po : compile .po files and install locale files
# also, install localized man pages
# --install-gui : install gurpmi
my $with_rpm = 1; $with_rpm = 0 if grep $_ eq '--without-rpm', @ARGV;
my $with_po = 0; $with_po = 1 if grep $_ eq '--install-po', @ARGV;
my $with_gui = 0; $with_gui = 1 if grep $_ eq '--install-gui', @ARGV;
# All scripts, some of them go in /usr/sbin (see DESTINSTALLSBIN below)
our @bin_scripts = qw(urpmq urpmf rpm-find-leaves urpmi.recover);
our @sbin_scripts = qw(urpmi urpme urpmi.addmedia urpmi.update urpmi.removemedia rurpmi rurpme);
if ($with_gui) {
push @bin_scripts, qw(gurpmi);
push @sbin_scripts, qw(gurpmi2);
}
# And now, add some functionality to MakeMaker.
package MY;
# Don't install gurpmi.pm if we don't install gui
sub libscan {
my ($self, $path) = @_;
if (!$with_gui && $path =~ /gurpmi/) { return '' }
return $path;
}
# Make proper sbin/man5/man8 dirs in blib
sub top_targets {
my $inherited = shift->SUPER::top_targets(@_);
$inherited =~ s/^config ::/$& \$(INST_MAN5DIR)\$(DIRFILESEP).exists \$(INST_MAN8DIR)\$(DIRFILESEP).exists \$(INST_SBIN)\$(DIRFILESEP).exists/m;
$inherited;
}
# Install sbin_scripts in sbin under blib
sub installbin {
my $self = shift;
my $inherited = $self->SUPER::installbin(@_);
my $s = join '|', map quotemeta, @sbin_scripts;
$inherited =~ s{\$\(INST_SCRIPT\)/($s)}{\$(INST_SBIN)/$1}g;
# how to create needed directories under blib
$inherited .= $self->dir_target("\$(INST_$_)") for qw(SBIN MAN5DIR MAN8DIR);
$inherited;
}
sub install {
my $inherited = shift->SUPER::install(@_);
# Take into account scripts in sbin under blib
# and new manpage sections
$inherited =~ s/\$\(INST_BIN\) \$\(DESTINSTALL(\w*)BIN\)/$& \$(INST_SBIN) \$(DESTINSTALL$1SBIN) \$(INST_MAN5DIR) \$(DESTINSTALLMAN5DIR) \$(INST_MAN8DIR) \$(DESTINSTALLMAN8DIR)/g;
# install files under /etc and /var
my $po = $with_po ? ' installpo' : '';
my $gui = $with_gui ? ' installgurpmi2' : '';
$inherited =~ s/^install ::/$& installconfigfiles installstatedir$po$gui/gm;
$inherited;
}
# Due to some hateful layout (that I can't change because the whole stuff is
# hosted in CVS (double hate)) I need to add pm_to_blib in the phonic targets.
sub special_targets {
my $inherited = shift->SUPER::special_targets(@_);
$inherited =~ s/PHONY:/$& pm_to_blib/;
$inherited;
}
sub manifypods {
my $inherited = shift->SUPER::manifypods(@_);
#- TODO repartition of man pages in sections by pod2man is incorrect
#- TODO as more languages are added adapt the following quick hack
$inherited;
}
# to generate the ChangeLog depending on the checkout layout
my $commonusername = "../common/";
-d $commonusername or do {
$commonusername = "../../common/";
-d $commonusername or do {
$commonusername = "../../../common/";
-d $commonusername or $commonusername = "";
};
};
# Additional targets
sub postamble {
<<"**MM**";
.PHONY: installconfigfiles installstatedir ChangeLog TAGS
installpo:
\$(MAKE) -C po install
installconfigfiles:
install -d \$(SYSCONFDIR)/urpmi
install -m 644 inst.list skip.list \$(SYSCONFDIR)/urpmi
installstatedir:
install -d \$(LOCALSTATEDIR)/urpmi
install -d \$(DESTDIR)/var/cache/urpmi/partial
install -d \$(DESTDIR)/var/cache/urpmi/headers
install -d \$(DESTDIR)/var/cache/urpmi/rpms
installgurpmi2: pure_install gurpmi.desktop
ln -s -f consolehelper \$(DESTINSTALLSCRIPT)/gurpmi2
ChangeLog:
svn2cl --accum --authors ${commonusername}username.xml
rm -f *.bak
TAGS:
etags *.pm */*.pm
testall:
make test
sudo make test TEST_FILES='t/superuser--*.t'
%.desktop: %.desktop.in
intltool-merge --utf8 po \$< \$@ -d -u -c intltool-merge-cache
**MM**
}
# Back to our schedule
package main;
WriteMakefile(
NAME => 'urpmi',
PREREQ_PM => {
'Locale::gettext' => '1.01',
'MDV::Packdrakeng' => '1.01',
'URPM' => '1.48',
},
VERSION_FROM => 'urpm.pm',
macro => {
DESTINSTALLSBIN => '$(DESTINSTALLBIN)/../sbin',
DESTINSTALLSITESBIN => '$(DESTINSTALLSITEBIN)/../sbin',
DESTINSTALLVENDORSBIN => '$(DESTINSTALLVENDORBIN)/../sbin',
INSTALLMAN5DIR => '$(PERLPREFIX)/share/man/man5',
DESTINSTALLMAN5DIR => '$(DESTDIR)$(INSTALLMAN5DIR)',
INSTALLMAN8DIR => '$(PERLPREFIX)/share/man/man8',
DESTINSTALLMAN8DIR => '$(DESTDIR)$(INSTALLMAN8DIR)',
INST_SBIN => 'blib/sbin',
INST_MAN5DIR => 'blib/man5',
INST_MAN8DIR => 'blib/man8',
# We could read those values from rpm macros.
SYSCONFDIR => '$(DESTDIR)/etc',
LOCALSTATEDIR => '$(DESTDIR)/var/lib',
},
EXE_FILES => [ @bin_scripts, @sbin_scripts ],
PMLIBDIRS => [ qw(urpm) ],
$with_po ? (DIR => [ 'po' ]) : (),
MAN1PODS => {
map {
my $targ = $_;
$targ =~ s{^pod/}{};
$targ =~ s/\.(\d)\.pod$//;
my $section = $1 || 1;
( $_ => "\$(INST_MAN${section}DIR)/$targ.$section" );
} <pod/*.pod>, $with_po ? <pod/*/*.pod> : ()
},
dist => { COMPRESS => "bzip2", SUFFIX => ".bz2" },
);
|
