#!/usr/bin/perl
#
# $Author: rz $
# $Date: 2005/11/25 09:26:16 $
# $Header: /home/vvk/RPM/SOURCES/Project_Cherry/CVSROOT/cherry/bin/admin/cpyutil,v 2.0.0.1 2005/11/25 09:26:16 rz Exp $
# $Id: cpyutil,v 2.0.0.1 2005/11/25 09:26:16 rz Exp $
# $Locker:  $
#
# $Log: cpyutil,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/03 14:56:55  rz
# Initial revision
#

package cpy;



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

sub cpy_save {
	local($temp_cfg) = "$CFG::BASE/company.cfg";

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

	print CFG "\#\n\# Company Configuration Profile\n\#\n\n";	

	print CFG "\$COMPANY_NAME = \"$CFG::COMPANY_NAME\";\n";
	print CFG "\$COMPANY_WWW = \"$CFG::COMPANY_WWW\";\n";
	print CFG "\$COMPANY_PHONE = \"$CFG::COMPANY_PHONE\";\n";
	print CFG "\$COMPANY_ADDRESS = \"$CFG::COMPANY_ADDRESS\";\n";

	close(CFG);

	return 1;
}


1;

