29 lines
728 B
Perl
Executable File
29 lines
728 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
while ($_ = shift @ARGV) {
|
|
if ($_ eq "-a"){
|
|
qx(./gsbstart s-infra);
|
|
qx(./gsbstart s-spec);
|
|
qx(./gsbstart s-proxy);
|
|
qx(./gsbstart s-mon);
|
|
qx(./gsbstart s-mess);
|
|
qx(./gsbstart s-itil);
|
|
qx(./gsbstart s-backup);
|
|
qx(./gsbstart s-appli);
|
|
qx(./gsbstart r-vp1);
|
|
qx(./gsbstart r-vp2);
|
|
qx(./gsbstart r-int);
|
|
qx(./gsbstart r-ext);
|
|
qx(./gsbstart s-lb);
|
|
qx(./gsbstart s-lb-web-1);
|
|
qx(./gsbstart s-lb-web-2);
|
|
qx(./gsbstart s-lb-bd);
|
|
|
|
}else{
|
|
qx(./gsbstart $_);
|
|
}
|
|
}
|