Singular error at 21:31, 11 November 2016

2016-11-11T21:31:16Z

← Older revision		Revision as of 17:31, 11 November 2016
Line 1:		Line 1:
	<~~nowiki~~>#!/usr/bin/perl		<pre>#!/usr/bin/perl
	#		#
	# This script is one way to escalate ticket priorities for all queues.		# This script is one way to escalate ticket priorities for all queues.
	#		#
	# Author: Petter Reinholdtsen		# Author: Petter Reinholdtsen
	# Date: 2004-08-31		# Date: 2004-08-31
	#		#
	# Based on shell version previously on		# Based on shell version previously on
	# <URL:http://wiki.bestpractical.com/index.cgi?ConfigureEscalationExample>		# <URL:http://wiki.bestpractical.com/index.cgi?ConfigureEscalationExample>
	# and		# and
	# <URL:http://wiki.bestpractical.com/index.cgi?ConfigureEscalation>		# <URL:http://wiki.bestpractical.com/index.cgi?ConfigureEscalation>
	#		#
	# Run from cron as user rt-user, making sure rt-user is also a privileged		# Run from cron as user rt-user, making sure rt-user is also a privileged
	# RT user with 'Unix name' set to rt-user and having global permissions		# RT user with 'Unix name' set to rt-user and having global permissions
	# ShowTicket and ModifyTicket.		# ShowTicket and ModifyTicket.

	use strict;		use strict;
	use warnings;		use warnings;

	# Location of RT3's libs and scripts		# Location of RT3's libs and scripts
	use lib ("/site/rt3/lib", "/site/rt3/local/lib");		use lib ("/site/rt3/lib", "/site/rt3/local/lib");
	my $crontool = "/site/rt3/bin/rt-crontool";		my $crontool = "/site/rt3/bin/rt-crontool";

	package RT;		package RT;
	use RT::Interface::CLI qw(CleanEnv);		use RT::Interface::CLI qw(CleanEnv);

	# Clean our the environment		# Clean our the environment
	CleanEnv();		CleanEnv();

	# Load the RT configuration		# Load the RT configuration
	RT::LoadConfig();		RT::LoadConfig();

	# Initialise RT		# Initialise RT
	RT::Init();		RT::Init();

	my $queues = new RT::Queues($RT::SystemUser);		my $queues = new RT::Queues($RT::SystemUser);
	$queues->LimitToEnabled();		$queues->LimitToEnabled();

	# escalate tickets for all queues		# escalate tickets for all queues
	while (my $queue = $queues->Next) {		while (my $queue = $queues->Next) {
	my $queuename = $queue->Name;		my $queuename = $queue->Name;
	system("$crontool --search RT::Search::ActiveTicketsInQueue " .		system("$crontool --search RT::Search::ActiveTicketsInQueue " .
	"--search-arg \"$queuename\" ".		"--search-arg \"$queuename\" ".
	"--action RT::Action::EscalatePriority");		"--action RT::Action::EscalatePriority");
	}		}
	</~~nowiki~~>		</pre>

Admin: 2 revisions imported

2016-04-06T20:03:26Z

2 revisions imported

New page

<nowiki>#!/usr/bin/perl
#
# This script is one way to escalate ticket priorities for all queues.
#
# Author: Petter Reinholdtsen
# Date: 2004-08-31
#
# Based on shell version previously on
# <URL:http://wiki.bestpractical.com/index.cgi?ConfigureEscalationExample>
# and
# <URL:http://wiki.bestpractical.com/index.cgi?ConfigureEscalation>
#
# Run from cron as user rt-user, making sure rt-user is also a privileged
# RT user with 'Unix name' set to rt-user and having global permissions
# ShowTicket and ModifyTicket.

use strict;
use warnings;

# Location of RT3's libs and scripts
use lib ("/site/rt3/lib", "/site/rt3/local/lib");
my $crontool = "/site/rt3/bin/rt-crontool";

package RT;
use RT::Interface::CLI qw(CleanEnv);

# Clean our the environment
CleanEnv();

# Load the RT configuration
RT::LoadConfig();

# Initialise RT
RT::Init();

my $queues = new RT::Queues($RT::SystemUser);
$queues->LimitToEnabled();

# escalate tickets for all queues
while (my $queue = $queues->Next) {
my $queuename = $queue->Name;
system("$crontool --search RT::Search::ActiveTicketsInQueue " .
"--search-arg \"$queuename\" ".
"--action RT::Action::EscalatePriority");
}
</nowiki>

ConfigureEscalationExample - Revision history

Singular error at 21:31, 11 November 2016

Admin: 2 revisions imported