[+
use strict;
use Proxmox::ConfigServer;
use Proxmox::HTMLTable;
my $out = "";
my @cellwidth = ( '100px', '600px');
my @header = (
'1', '100px', 'Attribute',
'1', '600px', 'Value'
);
my $table = Proxmox::HTMLTable->new (\@cellwidth);
$table->add_headline (\@header);
my $url = $req_rec->uri;
my $conn = Proxmox::ConfigClient::connect ();
my $resp = $conn->showqueue('deferred');
my @listings = @{$resp->result};
$out .= "
Message Info
";
foreach my $rec (@listings) {
next if $rec->{'qid'} ne $fdat{qid};
# print description for every listing
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime ($rec->{'time'});
$mon++;
$year+= 1900;
my $atime = sprintf ("%02d.%02d.%04d %02d:%02d", $mday, $mon, $year,
$hour, $min);
my $rvrs = join (', ', @{$rec->{'receivers'}});
$table->add_row ('', 'Subject' , $rec->{'subject'});
$table->add_row ('', 'MessageID' , $rec->{'messageid'});
$table->add_row ('', 'Sender' , $rec->{'sender'});
$table->add_row ('', 'Receivers' , $rvrs);
$table->add_row ('', 'Arrival Time' , $atime);
$table->add_row ('', 'Status' , 'deferred');
}
$out .= $table->out_table('700px');
$out;
+]