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

[Shahab Sharifzadeh]

nobody?

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

[Shahab Sharifzadeh]

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(i...@pionfirm.com)],
);
} catch Exception::Class::Base with {
my $e = shift;
die ref($e), : , $e-message || $e-description, \n;
};

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

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

[Emmanuel Lacour]

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.
[...]

;)

-- 
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:elac...@easter-eggs.com  -   http://www.easter-eggs.com

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

[Shahab Sharifzadeh]

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(i...@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);