CVS: macs/amc/home AMC_home.pl,NONE,1.1

[Mario D. S. <sa...@us...>]

Update of /cvsroot/macs/macs/amc/home
In directory sc8-pr-cvs1:/tmp/cvs-serv6126/amc/home

Added Files:
	AMC_home.pl 
Log Message:
Created Home AMC


--- NEW FILE: AMC_home.pl ---
#!/usr/bin/perl
# $ID:$
# AMC_home - home-dir MACS authorization method client daemon
package AMC_home;

# standard pragmas
use strict;
use warnings;

# sanity check on MACS_HOME
BEGIN { die("MACS_HOME invalid") if(not(-d $ENV{MACS_HOME})); }
# get the MACS libs
use lib "$ENV{MACS_HOME}/lib";
# the home-dir AMC library
use MACS::AMC::Home;

# start the daemon
MACS::AMC::Home->launch;

# this should never run
die("Unexpected return from AMC::Home");