[rt-users] how add attachment to my perl file

Shahab Sharifzadeh sshguard at ymail.com
Wed Nov 5 18:00:06 EST 2014


please please  debug my code  just once...

i tried on the in code Hours...
This is very important for me

comment in ticket in create but Without attach...

#!/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.com)],
	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);





More information about the rt-users mailing list