#!/usr/local/bin/perl
# Usage:
#  $COMMAND [PORT] [BackupNAME]
#
#      PORT: default='7001'
#   BackupNAME: default='backup/default'


$PORT      =($ARGV[0] eq '')? 7001:$ARGV[0];
$BackupNAME=($ARGV[1] eq '')? 'backup/default':$ARGV[1];

my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)
	 = localtime(time);

#$DATE=sprintf("%04d%02d%02d.%02d.%02d.%02d",$year+1900,$mon+1,$mday,$hour,$min,$sec);

$REBOLV=sprintf("%02d",$mday);

system("$ENV{NOMOS}/bin/saveClass    $PORT $BackupNAME/$REBOLV")||die;
system("$ENV{NOMOS}/bin/saveInstance $PORT $BackupNAME/$REBOLV")||die;
system("$ENV{NOMOS}/bin/saveInstance $PORT default")||die;

#unlink ("$ENV{NOMOS}/lib/backup/current");
#symlink("$ENV{NOMOS}/lib/$BackupNAME/$DATE",
#	 "$ENV{NOMOS}/lib/backup/current");
