1#!/usr/local/bin/perl 2# list_received.cgi 3# Display a list of received voicemail messages 4 5require './vgetty-lib.pl'; 6&ui_print_header(undef, $text{'received_title'}, ""); 7 8@conf = &get_config(); 9$dir = &receive_dir(\@conf); 10opendir(DIR, $dir); 11while($f = readdir(DIR)) { 12 if ($f =~ /\.rmd$/) { 13 local $info = &rmd_file_info("$dir/$f"); 14 push(@received, $info) if ($info); 15 } 16 } 17closedir(DIR); 18 19if (@received) { 20 print "$text{'recieved_desc'}<p>\n"; 21 print "<form action=delete.cgi method=post>\n"; 22 print "<input type=hidden name=mode value=0>\n"; 23 print &select_all_link("del", 0, $text{'received_all'})," \n"; 24 print &select_invert_link("del", 0, $text{'received_invert'}),"\n"; 25 print "<table border width=100%>\n"; 26 print "<tr $tb> <td><br></td> ", 27 "<td><b>$text{'received_date'}</b></td> ", 28 "<td><b>$text{'received_size'}</b></td> ", 29 "<td><b>$text{'received_speed'}</b></td> ", 30 "<td><b>$text{'received_type'}</b></td> </tr>\n"; 31 foreach $r (sort { $b->{'date'} <=> $a->{'date'} } @received) { 32 print "<tr $cb>\n"; 33 print "<td><input type=checkbox name=del ", 34 "value='$r->{'file'}'></td>\n"; 35 print "<td><a href='listen.cgi/voicemail.wav?file=", 36 &urlize($r->{'file'}),"&mode=0'>", 37 scalar(localtime($r->{'date'})),"</a></td>\n"; 38 print "<td>",int($r->{'size'}/1024)." kB","</td>\n"; 39 print "<td>$r->{'speed'}</td>\n"; 40 print "<td>",&text('pvfdesc', $r->{'type'}, $r->{'bits'}), 41 "</td>\n"; 42 print "</tr>\n"; 43 } 44 print "</table>\n"; 45 print &select_all_link("del", 0, $text{'received_all'})," \n"; 46 print &select_invert_link("del", 0, $text{'received_invert'}),"<p>\n"; 47 print "<input type=submit value='$text{'received_delete'}'> \n"; 48 print "<input type=submit name=move ", 49 "value='$text{'received_move'}'></form>\n"; 50 } 51else { 52 print "<p><b>$text{'received_none'}</b> <p>\n"; 53 } 54 55&ui_print_footer("", $text{'index_return'}); 56 57