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'}),"&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	}
51else {
52	print "<p><b>$text{'received_none'}</b> <p>\n";
53	}
54
55&ui_print_footer("", $text{'index_return'});
56
57