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

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

system("$ENV{NOMOS}/bin/saveClass $PORT $LIBNAME")||die "saveClass:$!";
system("$ENV{NOMOS}/bin/saveInstance $PORT $LIBNAME")||die "saveInstance:$!";

