#!/usr/local/bin/perl -wT
use strict;
use CGI;

if ($#ARGV==0)
{
 my $post_data=new CGI;
 my $username=$post_data->param('username');
 my $on_off=$post_data->param('on_off');
 my $message=$post_data->param('message');
}
else
{
 &Command();
}

@junk = ("authorize", "vacation.pl", $username, $on_off, $message);
$runme = join (" ",@junk);

&Header();