Dont do this directly to the DB, use some RT Rest functions.<br><br>Try this both files:<br><br>--<br>#!/usr/bin/perl<br>use strict;<br>use warnings;<br><br>BEGIN { die "You must define \$RT_HOME\n"<br>          unless exists $ENV{RT_HOME} };
<br>use lib "$ENV{RT_HOME}/lib";<br><br>use RT;<br>RT::LoadConfig();<br>RT::Init();<br><br>use RT::Interface::CLI qw(GetCurrentUser loc);<br>use RT::Tickets;<br><br>my $CurrentUser = GetCurrentUser();<br>die loc("No RT user found.\n") unless ($CurrentUser->Id);
<br>die "We need Arguments like Queuename, Description and Mail Address\n" unless ($#ARGV==2);<br>my $Queuename=shift @ARGV;<br>my $Queuedescription=shift @ARGV;<br>my $Queuemail=shift @ARGV;<br>my $Queue = RT::Queue->new($CurrentUser);
<br>my ($id,$Message)=$Queue->Create(Name=>$Queuename,Description=>$Queuedescription,CorrespondAddress=>$Queuemail);<br>if ($id){<br>        print $Message."\n";<br>        }<br>        else{<br>                print"This is a error!\n$Message\n";
<br>                }<br>--<br>called from a shell script:<br><br>--<br>#!/bin/bash<br>P1=/opt/rt3/local/bin/<br>U1=/opt/rt3/local/bin/queuelist<br><br>while read zeile; do<br>        set -- $zeile<br>        echo "Bearbeite Queue: "$1 $2 $3
<br>        /usr/bin/perl ${P1}createqueue.pl $1 $2 $3<br>done<$U1<br>--<br><br>Try it, its much more secure.<br><br><div><span class="gmail_quote">2007/10/24, José de Paula Eufrásio Júnior <<a href="mailto:jose.junior@mds.gov.br">
jose.junior@mds.gov.br</a>>:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Is it possible? I have 30+ queues to create, is it possible to create
<br>the queues directly on the database or using a script?<br><br>Thanks.<br><br>[]s<br><br>_______________________________________________<br><a href="http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users">http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users
</a><br><br>SAVE THOUSANDS OF DOLLARS ON RT SUPPORT:<br><br>If you sign up for a new RT support contract before December 31, we'll take<br>up to 20 percent off the price. This sale won't last long, so get in touch today.
<br>    Email us at <a href="mailto:sales@bestpractical.com">sales@bestpractical.com</a> or call us at +1 617 812 0745.<br><br><br>Community help: <a href="http://wiki.bestpractical.com">http://wiki.bestpractical.com</a><br>
Commercial support: <a href="mailto:sales@bestpractical.com">sales@bestpractical.com</a><br><br><br>Discover RT's hidden secrets with RT Essentials from O'Reilly Media.<br>Buy a copy at <a href="http://rtbook.bestpractical.com">
http://rtbook.bestpractical.com</a><br></blockquote></div><br><br clear="all"><br>-- <br>MFG<br><br>Torsten Brumm<br><br><a href="http://www.torsten-brumm.de">http://www.torsten-brumm.de</a>