How add attachment to my perl file

RT Users
1

I have a perl code.
in the code add comment on ticket (rt)…
how can i add attach file to this code?
.
#!/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;

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 $ticket = RT::Client::REST::Ticket->new(
rt => $rt,
id => shift(@ARGV),
);

try {
$ticket->comment(
message => shift(@ARGV),
cc => [qw(info@pionfirm.com)],
);
} catch Exception::Class::Base with {
my $e = shift;
die ref($e), ": ", $e->message || $e->description, “\n”;
};

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

2

Le 05/11/2014 19:47, Shahab Sharifzadeh a �crit :

I have a perl code.
in the code add comment on ticket (rt)…
how can i add attach file to this code?

RTFM?

perldoc RT::Client::REST
[…]
comment (ticket_id => $id, message => $message, %opts)

Comment on a ticket with ID $id. Optionally takes arguments cc and

bcc which are references to lists of e-mail addresses and attachments
which is a list of filenames to be attached to the ticket.
[…]

:wink:

Easter-eggs Sp�cialiste GNU/Linux
44-46 rue de l’Ouest - 75014 Paris - France - M�tro Gait�
Phone: +33 (0) 1 43 35 00 37 - Fax: +33 (0) 1 43 35 00 76
mailto:elacour@easter-eggs.com - http://www.easter-eggs.com

3

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@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);

4

nobody?