#!/usr/bin/perl -w
use strict;
use ARS;
die 'Usage is get_flds.pl "username" "password" "server" and optionall
+y "schema"\n' unless $ARGV[2];
my $user=$ARGV[0];
my $pass=$ARGV[1];
my $server=$ARGV[2];
my $schema =$ARGV[3];
print "Logging on to $server\n";
my $ctrl=ars_Login(
$server,
$user,
$pass
) || die "Doh! Could not login to server!";
my %fields;
(%fields=ars_GetFieldTable($ctrl,$schema)) || die "Whoops: $ars_errstr
+"; #This gets the fields from the schema
print $_ . "\t\t:\t\t" . $fields{$_} . "\n" foreach sort keys (%fields
+);
And some more - this is HTMLized display of the "work log" field of a particual ticket, the work log is a diary field, which are stored as a hash with timestamp, userid, and comments as the info.
#!/usr/bin/perl -w
use strict;
use ARS;
use CGI;
###############################################
# First bit is pure perl code - set some vars
# and make the Remedy request
#
###############################################
my $page=CGI->new();
my $user ="USERNAME";
my $pass ="USERNAME";
my $server ="servername";
my $ticket = $page->param("TicketNumber"); #get the passed ticket n
+umber
my $schema ="HPD:HelpDesk"; #this is the schema to query
my $ctrl=ars_Login( #login to the server
$server, # .
$user, # .
$pass # .
) || die "Doh: $ars_errstr"; #or print the error
my %tick_inf;
(%tick_inf = ars_GetEntry($ctrl,$schema,$ticket)); #this function grab
+s the whole ticket
##################################################
# Now - to create the page this is more or less
# HTML ;-)
#
##################################################
print $page->header();
print $page->start_html(
-title => "Work log"
);
#table the results:
print '<blockquote>';
print '<div align="justify">';
print '<center>';
print '<table border="2" width="80%" cellpadding="3">';
foreach (@{ $tick_inf{"240000008"} }){ #OUR work log is field number 2
+40000008 on this schema
print '<tr>';
print qq(<td width="20%" height="20"><strong><span style="font-var
+iant: small-caps">$_->{user}</span></strong></td>);;
print qq(<td width="70%" height="19">$_->{"value"}</td>);
print '<tr>';
}
print '</tr>';
print '</table>';
print '</center>';
print '</div>';
print '</blockquote>';
print $page->end_html();
|