vgetty/list_received.cgi

   1 #!/usr/local/bin/perl
   2 # list_received.cgi
   3 # Display a list of received voicemail messages
   4
   5 require './vgetty-lib.pl';
   6 &ui_print_header(undef, $text{'received_title'}, "");
   7
   8 @conf = &get_config();
   9 $dir = &receive_dir(\@conf);
  10 opendir(DIR, $dir);
  11 while($f = readdir(DIR)) {
  12         if ($f =~ /\.rmd$/) {
  13                 local $info = &rmd_file_info("$dir/$f");
  14                 push(@received, $info) if ($info);
  15                 }
  16         }
  17 closedir(DIR);
  18
  19 if (@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'}),"&nbsp;\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'}),"&nbsp;\n";
  46         print &select_invert_link("del", 0, $text{'received_invert'}),"<p>\n";
  47         print "<input type=submit value='$text{'received_delete'}'>&nbsp;\n";
  48         print "<input type=submit name=move ",
  49               "value='$text{'received_move'}'></form>\n";
  50         }
  51 else {
  52         print "<p><b>$text{'received_none'}</b> <p>\n";
  53         }
  54
  55 &ui_print_footer("", $text{'index_return'});
  56