home *** CD-ROM | disk | FTP | other *** search
/ Caldera Network Desktop 1.0 / caldera-network-desktop-1.0.bin / images / rescue.img / usr / bin / rpm < prev   
Text File  |  1995-09-05  |  5KB  |  167 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.  
  45. sub sigint_handler {
  46.     &error("SIGINT received - aborted");
  47. }
  48. $SIG{"INT"} = 'sigint_handler';
  49.  
  50. &setmessagelevel(1);
  51. @args = ();
  52. $mode = 0;
  53.  
  54. $rpm{"options"} = join(' ', @ARGV);
  55. @rest = &rpm_getopts("ab:cdfhiUlpqsuyVFPv", @ARGV);
  56.  
  57. $bigmode = "none";
  58. $lopt_y && ($bigmode = "verify");
  59. $lopt_V && ($bigmode = "verify");
  60. $lopt_q && ($bigmode = "query");
  61. $lopt_U && ($bigmode = "install") && ($rpm{"upgrade"} = 1);
  62. $lopt_i && ($bigmode ne "query") && ($bigmode = "install");
  63. $lopt_i && ($bigmode eq "query") && ($querymode{"info"} = 1);
  64. $lopt_u && ($bigmode = "uninstall");
  65. $lopt_a && ($querywhat = "all");
  66. $lopt_f && ($querywhat = "whence");
  67. $lopt_F && ($querywhat = "Whence");
  68. $lopt_p && ($querywhat = "package");
  69. $lopt_P && ($querywhat = "Package");
  70. $lopt_c && ($rpm{"clean"} = 1, $querymode{"list"} = 1, $querymode{config} = 1);
  71. $lopt_l && ($querymode{"list"} = 1);
  72. $lopt_d && ($querymode{"list"} = 1, $querymode{"doc"} = 1);
  73. $lopt_s && ($querymode{"state"} = 1, $querymode{"list"} = 1);
  74. $lopt_h && ($rpm{"marker"} = "hash");
  75.  
  76. if ($lopt_v == 1) {
  77.     &setmessageverbose();
  78. } elsif ($lopt_v >= 2) {
  79.     &setmessagedebug();
  80. }
  81.  
  82. # Now we can process the long arguments
  83. foreach $_ (@rest) {
  84.     ($rpm{"root"} == 1) && ($rpm{"root"} = $_, $rpm{"rootspec"} = $_, next);
  85.     ($rpm{"timecheck"} == -1) && ($rpm{"timecheck"} = $_, next);
  86.     /^--upgrade$/ && ($bigmode = "install") && ($rpm{"upgrade"} = 1, next);
  87.     /^--root$/ && ($rpm{"root"} = 1, next);
  88.     /^--short-circuit$/ && ($rpm{"short_circuit"} = 1, next);
  89.     /^--clean$/ && ($rpm{"clean"} = 1, next);
  90.     /^--time-check$/ && ($rpm{"timecheck"} = -1, next);
  91.     /^--test$/ && ($rpm{"test"} = 1, $rpm{"keeptemps"} = 1, next);
  92.     /^--quiet$/ && (&setmessagequiet(), next);
  93.     /^--percent$/ && ($rpm{"marker"} = "percent", next);
  94.     /^--hash$/ && ($rpm{"marker"} = "hash", next);
  95.     /^--force$/ && ($rpm{"force"} = 1, next);
  96.     /^--query$/ && ($bigmode = "query", next);
  97.     /^--verify$/ && ($bigmode = "verify", next);
  98.     /^--keep-temp/ && ($rpm{"keeptemps"} = 1, next);
  99.     /^--verbose$/ && (&setmessageverbose(), next);
  100.     /^--install$/ && ($bigmode ne "query") && ($bigmode = "install");
  101.     /^--uninstall$/ && ($bigmode = "uninstall");
  102.     /^--debug$/ && (&setmessagedebug(), next);
  103.     /^--help$/ && ($bigmode = "help", next);
  104.     /^-/ && (&error("Unrecognized option: $_"));
  105.     push(@args, $_);
  106. }
  107. ($rpm{"root"} == 1) && &error("--root requires argument");
  108.  
  109. if ($lopt_b) {
  110.     $_ = $lopt_b;
  111.     $bigmode = "build";
  112.     /^p$/ && ($mode = $DO_PREP);
  113.     /^l$/ && ($mode = $DO_LIST_CHECK);
  114.     /^b$/ && ($mode = $DO_PREP | $DO_BUILD | $DO_INSTALL | $DO_BINARY | $DO_CLEAN);
  115.     /^a$/ && ($mode = $DO_PREP | $DO_BUILD | $DO_INSTALL | $DO_BINARY | $DO_SOURCE | $DO_CLEAN);
  116.     if ($rpm{"short_circuit"}) {
  117.     /^c$/ && ($mode = $DO_BUILD);
  118.     /^i$/ && ($mode = $DO_INSTALL);
  119.     } else {
  120.     /^c$/ && ($mode = $DO_PREP | $DO_BUILD);
  121.     /^i$/ && ($mode = $DO_PREP | $DO_BUILD | $DO_INSTALL);
  122.     }
  123. }
  124.  
  125. ## All options are processed!
  126.  
  127. if ($bigmode ne "build") {
  128.     $rpm{"require_vendor"} = 0;
  129.     $rpm{"require_distribution"} = 0;
  130.     $rpm{"require_group"} = 0;
  131.     $rpm{"require_icon"} = 0;
  132. }
  133.  
  134. if ($bigmode eq "build") {
  135.     $h = `hostname`;
  136.     if ($h =~ /redhat\.com/) {
  137.     if (! ($rpm{"require_vendor"} &&
  138.            $rpm{"require_distribution"} &&
  139.            $rpm{"require_group"})) {
  140.         error("Bad /etc/rpmrc for redhat.com");
  141.     }
  142.     }
  143.     require "build.pl";
  144.     &do_build($mode, *args);
  145. } elsif ($bigmode eq "uninstall") {
  146.     require "uninstall.pl";
  147.     &uninstallpackages($rpm{"force"}, $rpm{"test"}, $rpm{"nosub"}, @args);
  148. } elsif ($bigmode eq "verify") {
  149.     require "verify.pl";
  150.     &doverify($querywhat, @args);
  151. } elsif ($bigmode eq "install") {
  152.     require "install.pl";
  153.     &installpackages($rpm{"force"}, $rpm{"test"}, $rpm{"marker"}, 
  154.             $rpm{"upgrade"}, @args);
  155. } elsif ($bigmode eq "query") {
  156.     require "query.pl";
  157.     &doquery($querywhat, *querymode, @args);
  158. } else {
  159.     require "help.pl";
  160.     &usage();
  161. }
  162.  
  163. if (! $rpm{"keeptemps"}) {
  164.     &remove_temps;
  165. }
  166. exit (0);
  167.