#!/usr/bin/perl -w

# nerxscode
# Time-stamp: <2001-07-10 16:34:53 nik@nerxs.com>
# nerxvim
# editor to create and change nerxssites

use POSIX qw{strftime};
use Tie::IxHash;

if ($ARGV[0]) {
  $file = $ARGV[0];
} 

else {
  $file = "/home/nik/makenerxs/Config/skeleton.txt";
}

  open(FH, "< $file") or die "could not open $file: $!.";
  open(TEMP, "> $file.tmp") or die "could not open $file.tmp: $!.";

  while(<FH>) {

    foreach ($_) {
      tie %site, "Tie::IxHash";
      ($key, $val) = /^(\w+):\s*(.*)$/;
      $site{$key} = $val;

      if ($key eq "CTIME" && $val eq "") {
	$site{'CTIME'} = strftime "%Y%m%d%H%M%S", localtime;
      }

      if ($key eq "MTIME") {
	$site{'MTIME'} = strftime "%Y-%m-%d %H:%M:%S", localtime;
	$site{'MTIME'} .= " " . $ENV{'USER'};
      }
    }

    foreach $k (keys %site) {
      print TEMP "$k:\t$site{$k} \n";
    }
  }
  close(TEMP);

if ($file eq "/home/nik/makenerxs/Config/skeleton.txt") {
  system("vim -R $file.tmp")
}

else {
  system("mv $file.tmp $file");
  system("vim $file");
}