sub post2Web {
  my $jRef = shift();
  my $infoformat = "%-30s %-40s\n";

  ### Base directory of Web database

  my $base = '/usr/openv/netbackup/jobs/db';

  ### Job ID index directory
  my $jidbase = '/usr/openv/netbackup/jobs/byJobID';

  ### make today's client directory if ! exist

  my $bkup_date = strftime "%Y%m%d", localtime($jRef->{started});
  my $wkdir = "$bkup_date/TEST/$jRef->{client}";
  mkpath("$base/$wkdir", 0, 0755) unless -d "$base/$wkdir";

    ### make directory to hold class/schedule/jobid info

  my $csdir = "$jRef->{class}/$jRef->{schedule}/$jRef->{jobid}";
mkpath("$base/$wkdir/$csdir", 0, 0755) unless -d "$base/$wkdir/$csdir";

symlink "../db/$wkdir/$csdir", "$jidbase/$jRef->{jobid}"|| die "$!";

  open(INFO, ">$base/$wkdir/$csdir/info") || die "Unable to open/write $base/$wkdir/csdir/info, $!";
  printf INFO $infoformat, "jobid", $jRef->{jobid};
  printf INFO $infoformat, "jobtype", $jRef->{jobtype};
  printf INFO $infoformat, "state", $jRef->{state};
  printf INFO $infoformat, "status", $jRef->{status};
  printf INFO $infoformat, "client", $jRef->{client};
  printf INFO $infoformat, "server", $jRef->{server};
  printf INFO $infoformat, "stunit", $jRef->{stunit};
  printf INFO $infoformat, "started", $jRef->{started};
  printf INFO $infoformat, "elapsed", $jRef->{elapsed};
  printf INFO $infoformat, "ended", $jRef->{ended};
  printf INFO $infoformat, "files", $jRef->{files};
  printf INFO $infoformat, "Mbytes", $jRef->{Kbytes};
  printf INFO $infoformat, "kbytes last written", 
  close INFO;
}
</CODE<p>
What I want to do is incorporate pertinent values from <CODE> %image