[rt-users] rt & asterisk

[Shahab Sharifzadeh]

ok thanks.
in perl:
comment in ticket in create but Without attach... 
What to Do?

#!/usr/bin/perl 
# 
# comment_on_ticket.pl -- add comment to an RT ticket. 

use strict; 
use warnings; 
use RT::Client::REST::Ticket; 
use Error qw(:try); 
use RT::Client::REST; 
use RT::Client::REST::Ticket; 
use MIME::Entity; 
use MIME::Lite; 



unless (@ARGV >= 4) { 
die "Usage: $0 username password ticket_id comment\n"; 
} 

my $rt = RT::Client::REST->new( 
server => ($ENV{RTSERVER} || 'http://192.168.1.201/rt'), 
); 
$rt->login( 
username=> shift(@ARGV), 
password=> shift(@ARGV), 
); 

my $attachments_1 = MIME::Lite->new(Type =>'application/octet-stream'); 
$attachments_1->attach(Type => 'application/octet-stream', 
Path => '/pasokh.gsm', 
Filename => 'pasokh.gsm', 
Disposition => 'attachment' 
); 

my $ticket = RT::Client::REST::Ticket->new( 
rt => $rt, 
id => shift(@ARGV), 
); 


try { 
$ticket->comment( 
message => shift(@ARGV), 
cc => [qw(info [at] pionfirm)], 
attachments_1 => $attachments_1 
); 
} 


catch Exception::Class::Base with { 
my $e = shift; 
die ref($e), ": ", $e->message || $e->description, "\n"; 
}; 

use Data::Dumper; 
print Dumper($ticket);



On Wednesday, November 5, 2014 10:01 PM, Shahab Sharifzadeh <sshguard at ymail.com> wrote:
 


very thankssss...

nobody help me?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.bestpractical.com/pipermail/rt-users/attachments/20141106/4ed89b25/attachment.htm>