/[fai]/trunk/bin/install_packages
ViewVC logotype

Diff of /trunk/bin/install_packages

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3337 by lange, Mon Mar 27 09:11:42 2006 UTC revision 3338 by lange, Tue Mar 28 15:17:40 2006 UTC
# Line 25  Line 25 
25  # MA 02111-1307, USA.  # MA 02111-1307, USA.
26  #*********************************************************************  #*********************************************************************
27    
28  my $version = "Version 3.0, 27-march-2006";  my $version = "Version 3.1, 28-march-2006";
29  $0=~ s#.+/##; # remove path from program name  $0=~ s#.+/##; # remove path from program name
30    
31  # import variables: $verbose, $MAXPACKAGES, $classes, $FAI, $FAI_ROOT  # import variables: $verbose, $MAXPACKAGES, $classes, $FAI, $FAI_ROOT
# Line 131  foreach my $entry (@preloadlist,@preload Line 131  foreach my $entry (@preloadlist,@preload
131  # call apt-get or tasksel for each type of command whith the list of packages  # call apt-get or tasksel for each type of command whith the list of packages
132  foreach $atype (@commands) {  foreach $atype (@commands) {
133    
   if ($atype eq "urpmi") { # use this so clean is not called  
     execute("$rootcmd $command{urpmi}") unless $listonly;  
     next;  
   }  
   
134    if ($atype eq "clean") {    if ($atype eq "clean") {
135      execute("$rootcmd $command{clean}") unless $listonly;      execute("$rootcmd $command{clean}") unless $listonly;
136      next;      next;
# Line 151  foreach $atype (@commands) { Line 146  foreach $atype (@commands) {
146    
147    my $packlist = join(' ',@{$list{$atype}});    my $packlist = join(' ',@{$list{$atype}});
148    
149      if ($atype eq "urpmi") { # use this so clean is not called
150        execute("$rootcmd $command{urpmi}") if $packlist;
151        next;
152      }
153    
154    if ($atype eq "hold") {    if ($atype eq "hold") {
155      my $hold = join " hold\n", @{$list{hold}};      my $hold = join " hold\n", @{$list{hold}};
156      $hold .= " hold\n";      $hold .= " hold\n";
Legend:
Removed from v.3337  
changed lines
  Added in v.3338
  ViewVC Help
Powered by ViewVC 1.1.5