#!/usr/bin/perl

# vmestat
# Set VME Status
# Apr 1, 2003  H.Baba

$inst = '/usr/nbbq/vmestat/';

$CMDVME = '/usr/nbbq/bin/cmdvme';
$STAFILE = '';

opendir(DIR,"$inst");
@dir = readdir(DIR);
closedir(DIR);

foreach $file (@dir){
  if($file =~ /.pm$/){
    require "$inst/$file";
    $file =~ s/.pm//;
    $file =~ tr/[a-z]/[A-Z]/;
    push(@name,$file);
    push(@module,new $file);
  }
}

my ($val);

if($#ARGV < 0){
  print "vmestat FILENAME\n";
  exit(0);
}

open(IN,"< $ARGV[0]");
@data = <IN>;
close(IN);

foreach $line (@data){
  @val = '';

  $i = 0;
  foreach $mod (@name){
    if($line =~ /^$mod/){
      @val = $module[$i]->com($line);
    }
    $i++;
  }

  foreach $vc (@val){
    &cmevme($vc);
  }
}

sub cmevme{
    $com = sprintf("$CMDVME $_[0]");
    print "$com\n";
    system($com);
}
