Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 4ab31a8f

Von Sven Schöling vor fast 13 Jahren hinzugefügt

  • ID 4ab31a8f9fb7e7be456a9cb8d9cf9d95e6998427
  • Vorgänger 7c7d58eb
  • Nachfolger 5cf44d1d

Versionen im installcheck anzeigen.

Unterschiede anzeigen:

SL/InstallationCheck.pm
51 51
  my $module  = $_[0];
52 52
  my $version = $_[1] || '' ;
53 53

  
54
  return eval "use $module $version; 1";
54
  my $got = eval "use $module $version; 1";
55

  
56
  if ($got) {
57
    return ($got, $module->VERSION);
58
  } else {
59
    return
60
  }
55 61
}
56 62

  
57 63
sub check_kpsewhich {
scripts/installation_check.pl
123 123
  my ($module, %role) = @_;
124 124

  
125 125
  my $line = "Looking for $module->{fullname}";
126
  my $res = SL::InstallationCheck::module_available($module->{"name"}, $module->{version});
127
  print_result($line, $res);
126
  my ($res, $ver) = SL::InstallationCheck::module_available($module->{"name"}, $module->{version});
127
  if ($res) {
128
    print_line($line, $ver || 'no version', 'green');
129
  } else {
130
    print_result($line, $res);
131
  }
132

  
128 133

  
129 134
  return if $res;
130 135

  
......
178 183

  
179 184
sub print_result {
180 185
  my ($test, $exit) = @_;
181
  print $test, " ", ('.' x (72 - length $test));
182
  print $exit ? '.... '. mycolor('ok', 'green') : ' '. mycolor('NOT ok', 'red');
186
  if ($exit) {
187
    print_line($test, 'ok', 'green');
188
  } else {
189
    print_line($test, 'NOT ok', 'red');
190
  }
191
}
192

  
193
sub print_line {
194
  my ($text, $res, $color) = @_;
195
  print $text, " ", ('.' x (78 - length($text) - length($res)));
196
  print mycolor($res, $color);
183 197
  print "\n";
184 198
  return;
185 199
}

Auch abrufbar als: Unified diff