#!/usr/bin/perl -w

if (! -f "version.h") {
  system("/home/rob/bin/makever");
}

open (VERF,"grep VERSION version.h|") or die "unable to grep version.h\n";

while (<VERF>) {
  if (/define VERSION \"(\d+)\.(\d+).(\d+)\"/) {
    $maj = $1;
    $min = $2;
    $bld = $3;
  }
}

close VERF;

my $v = "Version: $maj.$min.$bld";

open (CTL,"control") or die "unable to open control file for edit-in-place\n";

while (<CTL>) {
  if (/Version: \S+/) {
    print "$v\n";
  } else {
    print "$_";
  }
}

close CTL;


