makerpm.pl

   1 #!/usr/local/bin/perl
   2 # Build an RPM package of Webmin
   3
   4 if (-r "/usr/src/OpenLinux") {
   5         $base_dir = "/usr/src/OpenLinux";
   6         }
   7 else {
   8         $base_dir = "/usr/src/redhat";
   9         }
  10 $spec_dir = "$base_dir/SPECS";
  11 $source_dir = "$base_dir/SOURCES";
  12 $rpms_dir = "$base_dir/RPMS/noarch";
  13 $srpms_dir = "$base_dir/SRPMS";
  14
  15 $< && die "makerpm.pl must be run as root";
  16
  17 if ($ARGV[0] eq "--nosign" || $ARGV[0] eq "-nosign") {
  18         $nosign = 1;
  19         shift(@ARGV);
  20         }
  21 $ver = $ARGV[0] || die "usage: makerpm.pl <version> [release]";
  22 $rel = $ARGV[1] || "1";
  23
  24 $oscheck = <<EOF;
  25 if (-r "/etc/.issue") {
  26         \$etc_issue = `cat /etc/.issue`;
  27         }
  28 elsif (-r "/etc/issue") {
  29         \$etc_issue = `cat /etc/issue`;
  30         }
  31 \$uname = `uname -a`;
  32 EOF
  33 open(OS, "os_list.txt");
  34 while(<OS>) {
  35         chop;
  36         if (/^([^\t]+)\t+([^\t]+)\t+([^\t]+)\t+([^\t]+)\t*(.*)$/ && $5) {
  37                 $if = $count++ == 0 ? "if" : "elsif";
  38                 $oscheck .= "$if ($5) {\n".
  39                             "   print \"oscheck='$1'\\n\";\n".
  40                             "   }\n";
  41                 }
  42         }
  43 close(OS);
  44 $oscheck =~ s/\\/\\\\/g;
  45 $oscheck =~ s/`/\\`/g;
  46 $oscheck =~ s/\$/\\\$/g;
  47
  48 open(TEMP, "maketemp.pl");
  49 while(<TEMP>) {
  50         $maketemp .= $_;
  51         }
  52 close(TEMP);
  53 $maketemp =~ s/\\/\\\\/g;
  54 $maketemp =~ s/`/\\`/g;
  55 $maketemp =~ s/\$/\\\$/g;
  56
  57 system("cp tarballs/webmin-$ver.tar.gz $source_dir");
  58 open(SPEC, ">$spec_dir/webmin-$ver.spec");
  59 print SPEC <<EOF;
  60 #%define BuildRoot /tmp/%{name}-%{version}
  61 %define __spec_install_post %{nil}
  62
  63 Summary: A web-based administration interface for Unix systems.
  64 Name: webmin
  65 Version: $ver
  66 Release: $rel
  67 Provides: %{name}-%{version}
  68 PreReq: /bin/sh /usr/bin/perl /bin/rm
  69 Requires: /bin/sh /usr/bin/perl /bin/rm
  70 AutoReq: 0
  71 License: Freeware
  72 Group: System/Tools
  73 Source: http://www.webmin.com/download/%{name}-%{version}.tar.gz
  74 Vendor: Jamie Cameron
  75 BuildRoot: /tmp/%{name}-%{version}
  76 BuildArchitectures: noarch
  77 %description
  78 A web-based administration interface for Unix systems. Using Webmin you can
  79 configure DNS, Samba, NFS, local/remote filesystems and more using your
  80 web browser.
  81
  82 After installation, enter the URL http://localhost:10000/ into your
  83 browser and login as root with your root password.
  84
  85 %prep
  86 %setup -q
  87
  88 %build
  89 (find . -name '*.cgi' ; find . -name '*.pl') | perl perlpath.pl /usr/bin/perl -
  90 rm -f mount/freebsd-mounts*
  91 rm -f mount/openbsd-mounts*
  92 rm -f mount/macos-mounts*
  93 rm -f webmin-gentoo-init
  94 rm -rf format bsdexports hpuxexports sgiexports zones rbac
  95 chmod -R og-w .
  96
  97 %install
  98 mkdir -p %{buildroot}/usr/libexec/webmin
  99 mkdir -p %{buildroot}/etc/sysconfig/daemons
 100 mkdir -p %{buildroot}/etc/rc.d/{rc0.d,rc1.d,rc2.d,rc3.d,rc5.d,rc6.d}
 101 mkdir -p %{buildroot}/etc/init.d
 102 mkdir -p %{buildroot}/etc/pam.d
 103 cp -rp * %{buildroot}/usr/libexec/webmin
 104 cp webmin-daemon %{buildroot}/etc/sysconfig/daemons/webmin
 105 cp webmin-init %{buildroot}/etc/init.d/webmin
 106 cp webmin-pam %{buildroot}/etc/pam.d/webmin
 107 ln -s /etc/init.d/webmin %{buildroot}/etc/rc.d/rc2.d/S99webmin
 108 ln -s /etc/init.d/webmin %{buildroot}/etc/rc.d/rc3.d/S99webmin
 109 ln -s /etc/init.d/webmin %{buildroot}/etc/rc.d/rc5.d/S99webmin
 110 ln -s /etc/init.d/webmin %{buildroot}/etc/rc.d/rc0.d/K10webmin
 111 ln -s /etc/init.d/webmin %{buildroot}/etc/rc.d/rc1.d/K10webmin
 112 ln -s /etc/init.d/webmin %{buildroot}/etc/rc.d/rc6.d/K10webmin
 113 echo rpm >%{buildroot}/usr/libexec/webmin/install-type
 114
 115 %clean
 116 #%{rmDESTDIR}
 117 [ "%{buildroot}" != "/" ] && rm -rf %{buildroot}
 118
 119 %files
 120 %defattr(-,root,root)
 121 /usr/libexec/webmin
 122 %config /etc/sysconfig/daemons/webmin
 123 /etc/init.d/webmin
 124 /etc/rc.d/rc2.d/S99webmin
 125 /etc/rc.d/rc3.d/S99webmin
 126 /etc/rc.d/rc5.d/S99webmin
 127 /etc/rc.d/rc0.d/K10webmin
 128 /etc/rc.d/rc1.d/K10webmin
 129 /etc/rc.d/rc6.d/K10webmin
 130 %config /etc/pam.d/webmin
 131
 132 %pre
 133 perl <<EOD;
 134 $maketemp
 135 EOD
 136 if [ "\$?" != "0" ]; then
 137         echo "Failed to create or check temp files directory /tmp/.webmin"
 138         exit 1
 139 fi
 140 if [ "\$tempdir" = "" ]; then
 141         tempdir=/tmp/.webmin
 142 fi
 143 perl >$tempdir/\$\$.check <<EOD;
 144 $oscheck
 145 EOD
 146 . $tempdir/\$\$.check
 147 rm -f $tempdir/\$\$.check
 148 if [ ! -r /etc/webmin/config ]; then
 149         if [ "\$oscheck" = "" ]; then
 150                 echo Unable to identify operating system
 151                 exit 2
 152         fi
 153         echo Operating system is \$oscheck
 154         if [ "\$WEBMIN_PORT\" != \"\" ]; then
 155                 port=\$WEBMIN_PORT
 156         else
 157                 port=10000
 158         fi
 159         perl -e 'use Socket; socket(FOO, PF_INET, SOCK_STREAM, getprotobyname("tcp")); setsockopt(FOO, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)); bind(FOO, pack_sockaddr_in(\$ARGV[0], INADDR_ANY)) || exit(1); exit(0);' \$port
 160         if [ "\$?" != "0" ]; then
 161                 echo Port \$port is already in use
 162                 exit 2
 163         fi
 164 fi
 165 # Save /etc/webmin in case the upgrade trashes it
 166 if [ "\$1" != 1 ]; then
 167         rm -rf /etc/.webmin-backup
 168         cp -r /etc/webmin /etc/.webmin-backup
 169 fi
 170 /bin/true
 171
 172 %post
 173 inetd=`grep "^inetd=" /etc/webmin/miniserv.conf 2>/dev/null | sed -e 's/inetd=//g'`
 174 if [ "\$1" != 1 ]; then
 175         # Upgrading the RPM, so stop the old webmin properly
 176         if [ "\$inetd" != "1" ]; then
 177                 /etc/init.d/webmin stop >/dev/null 2>&1 </dev/null
 178         fi
 179 fi
 180 cd /usr/libexec/webmin
 181 config_dir=/etc/webmin
 182 var_dir=/var/webmin
 183 perl=/usr/bin/perl
 184 autoos=3
 185 if [ "\$WEBMIN_PORT\" != \"\" ]; then
 186         port=\$WEBMIN_PORT
 187 else
 188         port=10000
 189 fi
 190 login=root
 191 if [ -r /etc/shadow ]; then
 192         #crypt=`grep "^root:" /etc/shadow | cut -f 2 -d :`
 193         crypt=x
 194 else
 195         crypt=`grep "^root:" /etc/passwd | cut -f 2 -d :`
 196 fi
 197 host=`hostname`
 198 ssl=1
 199 atboot=1
 200 nochown=1
 201 autothird=1
 202 noperlpath=1
 203 nouninstall=1
 204 nostart=1
 205 if [ "\$tempdir" = "" ]; then
 206         tempdir=/tmp/.webmin
 207 fi
 208 export config_dir var_dir perl autoos port login crypt host ssl nochown autothird noperlpath nouninstall nostart allow atboot
 209 ./setup.sh >$tempdir/webmin-setup.out 2>&1
 210 rm -f /var/lock/subsys/webmin
 211 if [ "$inetd" != "1" ]; then
 212         /etc/init.d/webmin start >/dev/null 2>&1 </dev/null
 213 fi
 214 cat >/etc/webmin/uninstall.sh <<EOFF
 215 #!/bin/sh
 216 printf "Are you sure you want to uninstall Webmin? (y/n) : "
 217 read answer
 218 printf "\\n"
 219 if [ "\\\$answer" = "y" ]; then
 220         echo "Removing webmin RPM .."
 221         rpm -e --nodeps webmin
 222         echo "Done!"
 223 fi
 224 EOFF
 225 chmod +x /etc/webmin/uninstall.sh
 226 port=`grep "^port=" /etc/webmin/miniserv.conf | sed -e 's/port=//g'`
 227 perl -e 'use Net::SSLeay' >/dev/null 2>/dev/null
 228 sslmode=0
 229 if [ "\$?" = "0" ]; then
 230         grep ssl=1 /etc/webmin/miniserv.conf >/dev/null 2>/dev/null
 231         if [ "\$?" = "0" ]; then
 232                 sslmode=1
 233         fi
 234 fi
 235 musthost=`grep musthost= /etc/webmin/miniserv.conf | sed -e 's/musthost=//'`
 236 if [ "$musthost" != "" ]; then
 237         host=$musthost
 238 fi
 239 if [ "\$sslmode" = "1" ]; then
 240         echo "Webmin install complete. You can now login to https://\$host:\$port/"
 241 else
 242         echo "Webmin install complete. You can now login to http://\$host:\$port/"
 243 fi
 244 echo "as root with your root password."
 245 /bin/true
 246
 247 %preun
 248 if [ "\$1" = 0 ]; then
 249         grep root=/usr/libexec/webmin /etc/webmin/miniserv.conf >/dev/null 2>&1
 250         if [ "\$?" = 0 ]; then
 251                 # RPM is being removed, and no new version of webmin
 252                 # has taken it's place. Run uninstalls and stop the server
 253                 echo "Running uninstall scripts .."
 254                 (cd /usr/libexec/webmin ; WEBMIN_CONFIG=/etc/webmin WEBMIN_VAR=/var/webmin LANG= /usr/libexec/webmin/run-uninstalls.pl)
 255                 /etc/init.d/webmin stop >/dev/null 2>&1 </dev/null
 256                 /etc/webmin/stop >/dev/null 2>&1 </dev/null
 257         fi
 258 fi
 259 /bin/true
 260
 261 %postun
 262 if [ "\$1" = 0 ]; then
 263         grep root=/usr/libexec/webmin /etc/webmin/miniserv.conf >/dev/null 2>&1
 264         if [ "\$?" = 0 ]; then
 265                 # RPM is being removed, and no new version of webmin
 266                 # has taken it's place. Delete the config files
 267                 rm -rf /etc/webmin /var/webmin
 268         fi
 269 fi
 270 /bin/true
 271
 272 %triggerpostun -- webmin
 273 if [ ! -d /var/webmin -a "\$1" = 2 ]; then
 274         echo Re-creating /var/webmin directory
 275         mkdir /var/webmin
 276 fi
 277 if [ ! -r /etc/webmin/miniserv.conf -a -d /etc/.webmin-backup -a "\$1" = 2 ]; then
 278         echo Recovering /etc/webmin directory
 279         rm -rf /etc/.webmin-broken
 280         mv /etc/webmin /etc/.webmin-broken
 281         mv /etc/.webmin-backup /etc/webmin
 282         /etc/init.d/webmin stop >/dev/null 2>&1 </dev/null
 283         /etc/init.d/webmin start >/dev/null 2>&1 </dev/null
 284 else
 285         rm -rf /etc/.webmin-backup
 286 fi
 287 /bin/true
 288
 289 EOF
 290 close(SPEC);
 291
 292 $cmd = -x "/usr/bin/rpmbuild" ? "rpmbuild" : "rpm";
 293 system("$cmd -ba --target=noarch $spec_dir/webmin-$ver.spec") && exit;
 294 if (-d "rpm") {
 295         system("mv $rpms_dir/webmin-$ver-$rel.noarch.rpm rpm/webmin-$ver-$rel.noarch.rpm");
 296         print "Moved to rpm/webmin-$ver-$rel.noarch.rpm\n";
 297         system("mv $srpms_dir/webmin-$ver-$rel.src.rpm rpm/webmin-$ver-$rel.src.rpm");
 298         print "Moved to rpm/webmin-$ver-$rel.src.rpm\n";
 299         system("chown jcameron: rpm/webmin-$ver-$rel.noarch.rpm rpm/webmin-$ver-$rel.src.rpm");
 300         if (!$nosign) {
 301                 system("rpm --resign rpm/webmin-$ver-$rel.noarch.rpm rpm/webmin-$ver-$rel.src.rpm");
 302                 }
 303         }
 304
 305