#!/usr/bin/perl

# Copyright (C) 2000 NEC Corporation
# All Rights Reserved.

# RCS: $Id: wbmc_remote_cmd,v 1.1 2006/12/22 05:33:58 shodai Exp $

#
# リモートコマンド
#
# usage: wbmc_remote_cmd image
#        image     処理
#
# 戻り値: 成功:0
#         失敗:1
#

require "/opt/nec/wbmc/lib/wbmc.pl";
require "/opt/nec/wbmc/adm/service/01httpd/server.pl";

require "/opt/nec/wbmc/domain/lib/wbmc.pl";
require "/opt/nec/wbmc/domain/adm/httpd/server.pl";
require "/opt/nec/wbmc/domain/adm/httpd/rotate.pl";		## wbmc03-B23

require "/opt/nec/wbmc/adm/domain/domain.pl";
require "/opt/nec/wbmc/adm/system/cluster/cluster.pl";

{
	$subr = $ARGV[0];
	for ($i = 1;$i < @ARGV;$i++) {
		push(@_,$ARGV[$i]);
	}
	print &$subr;
	print "\n";
	exit(0);
}


sub group_quota_remote{
	$ENV{'EDITOR'}          = @_[0];
	$ENV{'WBMC_QUOTA_FS'}   = @_[1];
	$ENV{'WBMC_QUOTA_SIZE'} = @_[2];
	$groupname              = @_[3]; 
&writeLog("remote function 1 @_[0] @_[1] @_[2]", "wbmc_cluster", "/var/log/wbmc_cluster"); 
	system("/usr/sbin/edquota -g $groupname");
}

sub user_quota_remote{
	$ENV{'EDITOR'}          = @_[0];
	$ENV{'WBMC_QUOTA_HOME'} = @_[1];
	$user_name_arg          = @_[2];
&writeLog("remote function 1 @_[0] @_[1] @_[2] ", "wbmc_cluster", "/var/log/wbmc_cluster"); 
	
	system("/usr/sbin/edquota -u $user_name_arg");
}
1;

