#!/usr/bin/perl
# Simple wrapper to determine registry type and
# run appropriate program

$i=0;
foreach (@ARGV) {
  if(/^-f$/) {
    $fn=$ARGV[$i+1];
  }
  $i++;
}

if(!$fn) {
  print STDERR "No filename given\n";
  exit(1);
}
$type = `head -c 4 $fn`;
if($type =~ /^regf$/) {
  $type = "NT";
}
elsif($type =~ /^CREG$/) {
  $type = "9X";
}
else {
  print STDERR "Not a recognised registry file\n";
  exit(1);
}

$argstr = join " ", @ARGV;
print `./flag_reg_read_$type $argstr`;
exit($?);
