[+ 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; +]