Select Code to Download

172  'galahad_1023056445'
173  HASH(0x5cdf98)
...
   'class_type' => 'Standard (0)'
   'client' => 'galahad'
   'id' => 'CC0981'

68  212844
69  HASH(0x7eff68)
...
   'jobpid' => 17667
   'jobtype' => 'immediate'
   'kbytes' => 295857

my %images = bpimagelist('$record->{client}');
my %jobs = bpdbjobs();

sub post2Web {
  my $jRef = shift();
  my $infoformat = "%-30s %-40s\n";
...
}
</CODE<p>
What I want to do is incorporate pertinent values from <CODE> %image

#!/usr/local/bin/perl -w

...
print "client = $ref->{client}\n";
print "\tid= $ref->{id}\n";
}