home *** CD-ROM | disk | FTP | other *** search
/ Caldera Network Desktop 1.0 / caldera-network-desktop-1.0.bin / images / ramdisk2.img / usr / bin / rpm < prev   
Text File  |  1995-10-24  |  6KB  |  194 lines
  1. #!/usr/bin/perl
  2.  
  3. # RPM Package Management System
  4. # Copyright (C) 1995 Red Hat, Inc
  5. #
  6. # This program is free software; you can redistribute it and/or modify
  7. # it under the terms of the GNU General Public License as published by
  8. # the Free Software Foundation; either version 2 of the License, or
  9. # (at your option) any later version.
  10. # 
  11. # This program is distributed in the hope that it will be useful,
  12. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. # GNU General Public License for more details.
  15. # 
  16. # You should have received a copy of the GNU General Public License
  17. # along with this program; if not, write to the Free Software
  18. # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  
  20. # rpm - we can rebuild it
  21. #       we have the technology
  22. #       better, stronger, faster
  23.  
  24. # Copyright (C) 1995 - Red Hat Software
  25.  
  26. unshift(@INC, "/usr/lib/rhs/rpm");
  27.  
  28. require "rpmgetopts.pl";
  29. require "message.pl";
  30. require "misc.pl";
  31. require "opts.pl";
  32.  
  33. $DO_PREP       = 1;
  34. $DO_BUILD      = 2;
  35. $DO_INSTALL    = 4;
  36. $DO_SOURCE     = 8;
  37. $DO_BINARY     = 16;
  38. $DO_TEST       = 32;
  39. $DO_LIST_CHECK = 64;
  40. $DO_CLEAN      = 128;
  41.  
  42. $ENV{'PATH'} = $rpm{'PATH'};
  43. $ENV{'PWD'} = `pwd`;
  44. chop $ENV{'PWD'};
  45.  
  46. sub sigint_handler {
  47.     &error("SIGINT received - aborted");
  48. }
  49. $SIG{"INT"} = 'sigint_handler';
  50.  
  51. &setmessagelevel(1);
  52. @args = ();
  53. $mode = 0;
  54.  
  55. $rpm{"options"} = join(' ', @ARGV);
  56. @rest = &rpm_getopts("ab:cdfhiUlpqsSuyVwFPv", @ARGV);
  57.  
  58. $bigmode = "none";
  59. $lopt_y && ($bigmode = "verify");
  60. $lopt_V && ($bigmode = "verify");
  61. $lopt_q && ($bigmode = "query");
  62. $lopt_U && ($bigmode = "install") && ($rpm{"upgrade"} = 1);
  63. $lopt_i && ($bigmode ne "query") && ($bigmode = "install");
  64. $lopt_i && ($bigmode eq "query") && ($querymode{"info"} = 1);
  65. $lopt_u && ($bigmode = "uninstall");
  66. $lopt_a && ($querywhat = "all");
  67. $lopt_f && ($querywhat = "whence");
  68. $lopt_F && ($querywhat = "Whence");
  69. $lopt_p && ($querywhat = "package");
  70. $lopt_P && ($querywhat = "Package");
  71. $lopt_c && ($rpm{"clean"} = 1, $querymode{"list"} = 1, $querymode{config} = 1);
  72. $lopt_l && ($querymode{"list"} = 1);
  73. $lopt_S && ($rpm{'search'} = 1);
  74. $lopt_w && ($bigmode = "install") && ($rpm{'where'} = 1);
  75. $lopt_d && ($querymode{"list"} = 1, $querymode{"doc"} = 1);
  76. $lopt_s && ($querymode{"state"} = 1, $querymode{"list"} = 1);
  77. $lopt_h && ($rpm{"marker"} = "hash");
  78.  
  79. if ($lopt_v == 1) {
  80.     &setmessageverbose();
  81. } elsif ($lopt_v >= 2) {
  82.     &setmessagedebug();
  83. }
  84.  
  85. # Now we can process the long arguments
  86. foreach $_ (@rest) {
  87.     ($rpm{"root"} == 1) && ($rpm{"root"} = $_, $rpm{"rootspec"} = $_, next);
  88.     ($rpm{"timecheck"} == -1) && ($rpm{"timecheck"} = $_, next);
  89.     /^--upgrade$/ && ($bigmode = "install") && ($rpm{"upgrade"} = 1, next);
  90.     /^--where$/ && ($bigmode = "install") && ($rpm{"where"} = 1, next);
  91.     /^--rebuild$/ && ($bigmode = "build") && ($rpm{"rebuild"} = 1, next);
  92.     /^--root$/ && ($rpm{"root"} = 1, next);
  93.     /^--short-circuit$/ && ($rpm{"short_circuit"} = 1, next);
  94.     /^--clean$/ && ($rpm{"clean"} = 1, next);
  95.     /^--time-check$/ && ($rpm{"timecheck"} = -1, next);
  96.     /^--test$/ && ($rpm{"test"} = 1, $rpm{"keeptemps"} = 1, next);
  97.     /^--quiet$/ && (&setmessagequiet(), next);
  98.     /^--percent$/ && ($rpm{"marker"} = "percent", next);
  99.     /^--hash$/ && ($rpm{"marker"} = "hash", next);
  100.     /^--force$/ && ($rpm{"force"} = 1, next);
  101.     /^--query$/ && ($bigmode = "query", next);
  102.     /^--verify$/ && ($bigmode = "verify", next);
  103.     /^--keep-temp/ && ($rpm{"keeptemps"} = 1, next);
  104.     /^--verbose$/ && (&setmessageverbose(), next);
  105.     /^--install$/ && ($bigmode ne "query") && ($bigmode = "install") && next;
  106.     /^--uninstall$/ && ($bigmode = "uninstall") && next;
  107.     /^--search$/ && ($rpm{'search'} = 1, next);
  108.     /^--debug$/ && (&setmessagedebug(), next);
  109.     /^--version$/ && ($bigmode = "version", next);
  110.     /^--help$/ && ($bigmode = "help", next);
  111.     /^-/ && (&error("Unrecognized option: $_"));
  112.     push(@args, $_);
  113. }
  114. ($rpm{"root"} == 1) && &error("--root requires argument");
  115.  
  116. if ($rpm{"rebuild"}) {
  117.     require "install.pl";
  118.     $mode = $DO_PREP | $DO_BUILD | $DO_INSTALL | $DO_BINARY | $DO_CLEAN;
  119.     $rpm{"clean"} = 1;
  120.     if ($rpm{"messagelevel"} == 1) {
  121.     # verbose by default
  122.     &setmessageverbose();
  123.     }
  124. }
  125.  
  126. if ($lopt_b) {
  127.     if ($rpm{"messagelevel"} == 1) {
  128.     # verbose by default
  129.     &setmessageverbose();
  130.     }
  131.     $_ = $lopt_b;
  132.     $bigmode = "build";
  133.     /^p$/ && ($mode = $DO_PREP);
  134.     /^l$/ && ($mode = $DO_LIST_CHECK);
  135.     /^b$/ && ($mode = $DO_PREP | $DO_BUILD | $DO_INSTALL | $DO_BINARY | $DO_CLEAN);
  136.     /^a$/ && ($mode = $DO_PREP | $DO_BUILD | $DO_INSTALL | $DO_BINARY | $DO_SOURCE | $DO_CLEAN);
  137.     if ($rpm{"short_circuit"}) {
  138.     /^c$/ && ($mode = $DO_BUILD);
  139.     /^i$/ && ($mode = $DO_INSTALL);
  140.     } else {
  141.     /^c$/ && ($mode = $DO_PREP | $DO_BUILD);
  142.     /^i$/ && ($mode = $DO_PREP | $DO_BUILD | $DO_INSTALL);
  143.     }
  144. }
  145.  
  146. ## All options are processed!
  147.  
  148. if ($bigmode ne "build") {
  149.     $rpm{"require_vendor"} = 0;
  150.     $rpm{"require_distribution"} = 0;
  151.     $rpm{"require_group"} = 0;
  152.     $rpm{"require_icon"} = 0;
  153. }
  154.  
  155. if ($bigmode eq "build") {
  156.     $h = `hostname`;
  157.     if ($h =~ /redhat\.com/) {
  158.     if (! ($rpm{"require_vendor"} &&
  159.            $rpm{"require_distribution"} &&
  160.            $rpm{"require_group"})) {
  161.         error("Bad /etc/rpmrc for redhat.com");
  162.     }
  163.     }
  164.     require "build.pl";
  165.     &do_build($mode, *args);
  166. } elsif ($bigmode eq "uninstall") {
  167.     require "uninstall.pl";
  168.     &uninstallpackages($rpm{"force"}, $rpm{"test"}, $rpm{"nosub"}, @args);
  169. } elsif ($bigmode eq "verify") {
  170.     require "verify.pl";
  171.     &doverify($querywhat, @args);
  172. } elsif ($bigmode eq "install") {
  173.     require "install.pl";
  174.     &installpackages($rpm{"force"}, $rpm{"test"}, $rpm{"marker"}, 
  175.             $rpm{"upgrade"}, @args);
  176. } elsif ($bigmode eq "query") {
  177.     require "query.pl";
  178.     &doquery($querywhat, *querymode, @args);
  179. } elsif ($bigmode eq "version") {
  180.     print "rpm version $rpm{'version'}\n";
  181. } else {
  182.     require "help.pl";
  183.     if ($bigmode eq "help") {
  184.     &help();
  185.     } else {
  186.     &usage();
  187.     }
  188. }
  189.  
  190. if (! $rpm{"keeptemps"}) {
  191.     &remove_temps;
  192. }
  193. exit (0);
  194.