Rt-clonequeue - Revision history

Admin: 11 revisions imported

2016-04-06T20:36:20Z

11 revisions imported

← Older revision		Revision as of 16:36, 6 April 2016
(No difference)

82.71.28.44 at 16:26, 16 December 2015

2015-12-16T16:26:21Z

← Older revision		Revision as of 12:26, 16 December 2015
Line 30:		Line 30:
	# - Remove duplicate lines, remove line number copy/paste bug, comment use lib options		# - Remove duplicate lines, remove line number copy/paste bug, comment use lib options
	# - Add missing closing brace		# - Add missing closing brace
	# v1.4 (2015/12/16) Ian Norton		# v1.4 (2015/12/16) Ian Norton (idn on freenode or irc.perl.org)
	# - Fixing indentation for wikia display (break half way down)		# - Fixing indentation for wikia display (break half way down)
	# - Replacing call to LoadQueueRoleGroup with LoadRoleGroup to remove deprecation warning		# - Replacing call to LoadQueueRoleGroup with LoadRoleGroup to remove deprecation warning

82.71.28.44 at 16:25, 16 December 2015

2015-12-16T16:25:33Z

← Older revision		Revision as of 12:25, 16 December 2015
Line 30:		Line 30:
	# - Remove duplicate lines, remove line number copy/paste bug, comment use lib options		# - Remove duplicate lines, remove line number copy/paste bug, comment use lib options
	# - Add missing closing brace		# - Add missing closing brace
			# v1.4 (2015/12/16) Ian Norton
			# - Fixing indentation for wikia display (break half way down)
			# - Replacing call to LoadQueueRoleGroup with LoadRoleGroup to remove deprecation warning
	#		#
	#No warranty		#No warranty

82.71.28.44 at 16:23, 16 December 2015

2015-12-16T16:23:15Z

← Older revision		Revision as of 12:23, 16 December 2015
Line 122:		Line 122:
	$NewQueueId = $NewQueueObj->id;		$NewQueueId = $NewQueueObj->id;
	print " * Merging mode: merging to existing queue '$newqueue' (".$NewQueueObj->id.")\n";		print " * Merging mode: merging to existing queue '$newqueue' (".$NewQueueObj->id.")\n";
	}		}
	#### assign group and user privileges from clone queue to the new queue		#### assign group and user privileges from clone queue to the new queue

Line 132:		Line 132:

	while (my $acl = $objACL->Next) {		while (my $acl = $objACL->Next) {
	$objGroup->~~LoadQueueRoleGroup~~(~~Queue~~=>$~~NewQueueId, Type=>$acl->PrincipalType~~);		$objGroup->LoadRoleGroup(Object => $NewQueueObj);
	$objACE->Create(Object=>$NewQueueObj,		$objACE->Create(Object=>$NewQueueObj,
	PrincipalId=>$objGroup->id \|\| $acl->PrincipalId,		PrincipalId=>$objGroup->id \|\| $acl->PrincipalId,

199.19.138.103: Remove duplicate lines, remove line number copy/paste bug, comment use lib options, add missing closing brace, increment version #

2013-01-15T21:33:19Z

Remove duplicate lines, remove line number copy/paste bug, comment use lib options, add missing closing brace, increment version #

← Older revision		Revision as of 17:33, 15 January 2013
Line 27:		Line 27:
	# v1.2 (2012/05/01) Haïm Dimermanas		# v1.2 (2012/05/01) Haïm Dimermanas
	# - Bug Fixes when copying scrips and custom fields		# - Bug Fixes when copying scrips and custom fields
			# v1.3 (2013/01/15) Alastair Firth
			# - Remove duplicate lines, remove line number copy/paste bug, comment use lib options
			# - Add missing closing brace
	#		#
	#No warranty		#No warranty
Line 83:		Line 86:
	my $CloneQueueId = $CloneQueueObj->id;		my $CloneQueueId = $CloneQueueObj->id;

	~~my $res = $CloneQueueObj->Load($clonequeue);~~
	~~my $CloneQueueId = $CloneQueueObj->id;~~
	if ( ! defined($res) \|\| $res eq "" ) {		if ( ! defined($res) \|\| $res eq "" ) {
	print "ERROR: Cloned queue '$clonequeue' doesn't exist... EXITING\n";		print "ERROR: Cloned queue '$clonequeue' doesn't exist... EXITING\n";
Line 121:		Line 122:
	$NewQueueId = $NewQueueObj->id;		$NewQueueId = $NewQueueObj->id;
	print " * Merging mode: merging to existing queue '$newqueue' (".$NewQueueObj->id.")\n";		print " * Merging mode: merging to existing queue '$newqueue' (".$NewQueueObj->id.")\n";
			}
	#### assign group and user privileges from clone queue to the new queue		#### assign group and user privileges from clone queue to the new queue

199.19.138.103: commented dangerous lib path, added comments

2013-01-15T17:09:30Z

commented dangerous lib path, added comments

← Older revision		Revision as of 13:09, 15 January 2013
Line 41:		Line 41:
	#		#
	use strict;		use strict;
			#specify your rt lib path (default /usr/local/rt4/lib)
	use lib '/usr/local/rt4/lib';		use lib '/usr/local/rt4/lib';
	use warnings;		use warnings;
	~~use lib '/usr/local~~/rt4/~~lib';~~		#uncomment if you install this in [...]/rt4/bin
	~~use warnings;~~		#use lib qw(../lib);
	use lib qw(../lib);
	use RT;		use RT;
	use RT::Queues;		use RT::Queues;

199.19.138.103: Fixed the error noted in the comment

2013-01-15T16:29:50Z

Fixed the error noted in the comment

← Older revision		Revision as of 12:29, 15 January 2013
Line 188:		Line 188:
	$template = $objLocalTemplate->id;		$template = $objLocalTemplate->id;
	}		}
	~~181,0-1 85%~~

	my $testScrips = RT::Scrips->new($CurrentUser);		my $testScrips = RT::Scrips->new($CurrentUser);

88.166.7.111 at 18:01, 1 May 2012

2012-05-01T18:01:06Z

← Older revision		Revision as of 14:01, 1 May 2012
Line 26:		Line 26:
	# - added "use lib" to set default RT lib path for RT4 in /opt/rt4/lib		# - added "use lib" to set default RT lib path for RT4 in /opt/rt4/lib
	# v1.2 (2012/05/01) Haïm Dimermanas		# v1.2 (2012/05/01) Haïm Dimermanas
	# - Bug Fixes when copying scrips		# - Bug Fixes when copying scrips and custom fields
	#		#
	#No warranty		#No warranty
Line 146:		Line 146:
	my $objNewCF = RT::ObjectCustomField->new($CurrentUser);		my $objNewCF = RT::ObjectCustomField->new($CurrentUser);
	while (my $cf = $objCFs->Next) {		while (my $cf = $objCFs->Next) {
	$objNewCF->Create(ObjectId=>$~~newqueue~~,SortOrder=>$cf->SortOrder,CustomField=>$cf->CustomField);		$objNewCF->Create(ObjectId=>$NewQueueId,SortOrder=>$cf->SortOrder,CustomField=>$cf->CustomField);
	print " ** Creating CustomField '".$cf->id."'\n";		print " ** Creating CustomField '".$cf->id."'\n";
	}		}

88.166.7.111 at 12:29, 1 May 2012

2012-05-01T12:29:27Z

Show changes

160.228.28.55: Small update to the script

2011-09-26T16:16:59Z

Small update to the script

← Older revision		Revision as of 12:16, 26 September 2011
Line 1:		Line 1:
	This scipt is a simple adaptation of the [[CloningQueues ]]customization.		This scipt is a simple adaptation of the [[CloningQueues ]]customization.

	If the script complains that it can't find RT.pm, don't forget to set the ~~PERL5LIB environment variable before calling rt-clonequeue:~~		If the script complains that it can't find RT.pm, don't forget to set the "use lib" line at the beginning of the script to point to your RT library directory.
	~~export PERL5LIB=/opt/rt4/~~lib

	.~~/rt-clone-queue~~


Line 26:		Line 23:
	# v1.0 (2011/09/26) Thibault Le Meur (thibault.lemeur-AT-supelec.fr)		# v1.0 (2011/09/26) Thibault Le Meur (thibault.lemeur-AT-supelec.fr)
	# - initial version: tested on RT 4.0.2		# - initial version: tested on RT 4.0.2
			# v1.1 (2011/09/26) Thibault Le Meur (thibault.lemeur-AT-supelec.fr)
			# - added subjectTag to queue creation
			# - added "use lib" to set default RT lib path for RT4 in /opt/rt4/lib
	#		#
	#No warranty		#No warranty
Line 40:		Line 40:
	#		#
	use strict;		use strict;
			use lib '/opt/rt4/lib';
	use warnings;		use warnings;
	use lib qw(../lib);		use lib qw(../lib);
Line 103:		Line 104:
	my $qdescr = <>;		my $qdescr = <>;
	chomp($qdescr);		chomp($qdescr);
			print " ** Please enter the subjectTag for queue '$newqueue':";
			my $subjecttag = <>;
			chomp($subjecttag);

	my ($queueid) = $NewQueueObj->Create(		my ($queueid) = $NewQueueObj->Create(
Line 109:		Line 113:
	CorrespondAddress => $emailcorrespond,		CorrespondAddress => $emailcorrespond,
	CommentAddress => $emailcomment,		CommentAddress => $emailcomment,
			SubjectTag => $subjecttag
	);		);
	$NewQueueId = $queueid		$NewQueueId = $queueid