#!/usr/bin/perl
#
#  Group Configuration Profile Utilities
#
#
# $Author: rz $
# $Date: 2005/11/25 09:26:16 $
# $Header: /home/vvk/RPM/SOURCES/Project_Cherry/CVSROOT/cherry/bin/admin/grputil,v 2.0.0.1 2005/11/25 09:26:16 rz Exp $
# $Id: grputil,v 2.0.0.1 2005/11/25 09:26:16 rz Exp $
# $Locker:  $
#
# $Log: grputil,v $
# Revision 2.0.0.1  2005/11/25 09:26:16  rz
# Project Cherry release 2.0
#
# Revision 1.1.1.1  2003/07/30 08:31:28  rz
# Project CHerry: imported from RCS
#
# Revision 1.1  2002/10/05 16:04:10  rz
# Initial revision
#
#

package groups;


sub grp_tr {
	local($str) = shift @_;
	$str =~ s/\"/\\\"/g;
	$str =~ s/\@/\\\@/g;
	$str =~ s/\$/\\\$/g;
	return $str;
}

sub grp_save {
	local($flag)     = shift @_;
	local($temp_cfg) = "$CFG::BASE/groups.cfg";

	open(CFG, ">$temp_cfg") || return 0;

	print CFG "\#\n\# Group Configuration Profile\n\#\n\n";	
	print CFG "package groups;\n\n";

	foreach $group ( sort keys %groups::name ) {
		print CFG "\@name{'$group'}	= \"".&grp_tr(@groups::name{$group})."\";\n";
		print CFG "\@action{'$group'}	= \"".&grp_tr(@groups::action{$group})."\";\n";
		print CFG "\#\n\n";
	}

	print CFG "\n1;\n\n";

	close(CFG);

	return 1;
}


1;

