perlquestion
ravi_perlmonks
<p>
hi guys - i am totally new to perl - have one script to make it work for my project purpose need urgent help - am getting 500 cant locate server_name - any ideas welcome thanks
</p>
<code>
#!/sbcimp/run/pd/csm/64-bit/perl/5.16.1/bin/perl
use strict;
use warnings;
use lib '/dir.../lib';
use MIME::Base64;
use SOAP::Lite;
use File::MimeInfo;
use File::Basename;
use Data::Dumper;
# the ServiceNow instance
my $SNC_HOST = "https://server_name:16000";
my $base64;
my $buf;
my $mime_type;
my $fname;
print "var initialised\n";
#escape certificate check
$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;
my $line = "/file_path..../vdpsloader4.jpg";
# upload and attach a file on the local disk, base 64 encode it into a string first
#while(<FILE>){
#my $line = $_;
#chomp($line);
$mime_type = mimetype($line);
$fname = basename($line);
open(SFILE, $line) or die "$!";
while (read(SFILE, $buf, 60*57)) {
$base64 .= encode_base64($buf);
print "reading file\n";
# call the sub routine to attach
attach_incident();
}
#}
sub attach_incident {
# target the ecc_queue table
my $soap = SOAP::Lite->proxy("$SNC_HOST/ecc_queue.do?SOAP");
my $method = SOAP::Data->name('insert')->attr({xmlns => 'http://www.service-now.com/'});
# set the ecc_queue parameters
my @params = (SOAP::Data->name(agent => 'AttachmentCreator'));
push(@params, SOAP::Data->name(topic => 'AttachmentCreator') );
# identify the file name and its mime type
push(@params, SOAP::Data->name(name => '$fname:application/$mime_type') );
# attach to the incident, specifying its sys_id
push(@params, SOAP::Data->name(source => 'incident:uniqueID') );
# set the payload to be the base 64 encoded string representation of the file
push(@params, SOAP::Data->name(payload => $base64) );
print "before WS invoke\n";
# invoke the web service
print "++++++++++++\n"
print "@params"
my $result = $soap->call($method => @params);
print Dumper($result);
print "after WS invoke\n";
print_fault($result);
print_result($result);
}
sub print_result {
my ($result) = @_;
if ($result->body && $result->body->{'insertResponse'}) {
my %keyHash = %{ $result->body->{'insertResponse'} };
foreach my $k (keys %keyHash) {
print "name=$k value=$keyHash{$k}\n";
}
}
}
sub print_fault {
my ($result) = @_;
if ($result->fault) {
print "faultcode=" . $result->fault->{'faultcode'} . "\n";
print "faultstring=" . $result->fault->{'faultstring'} . "\n";
print "detail=" . $result->fault->{'detail'} . "\n";
}
}
# use the itil user for basic auth credentials
sub SOAP::Transport::HTTP::Client::get_basic_credentials {
return 'user_name' => 'pswd';
}
</code>