]>
Commit | Line | Data |
---|---|---|
483f59cd MT |
1 | #!/usr/bin/perl |
2 | ||
3 | require '/var/ipfire/general-functions.pl'; | |
4 | require "${General::swroot}/lang.pl"; | |
5 | require "${General::swroot}/header.pl"; | |
6 | ||
7 | &Header::showhttpheaders(); | |
8 | ||
9 | my (%asterisksettings, %checked); | |
10 | ||
11 | my %cgiparams; | |
12 | ||
13 | &Header::getcgihash(\%cgiparams); | |
14 | ||
15 | $asterisksettings{'ACTION'} = ''; | |
16 | ||
17 | $file = "/var/log/asterisk/cdr-csv/Master.csv"; | |
18 | ||
19 | open(DATEN, "$file") or die "Can't open file: $file: $!\n"; | |
20 | @datafile = <DATEN>; | |
21 | close(DATEN); | |
22 | ||
23 | &Header::openpage('asterisk', 1, ''); | |
24 | ||
25 | &Header::openbigbox('100%', 'LEFT'); | |
26 | ||
27 | if ($cgiparams{'ACTION'} eq $Lang::tr{'update'}) | |
28 | { | |
29 | $mday3 = $cgiparams{'day3'}; | |
30 | $mon3 = $cgiparams{'month3'}; | |
31 | $jahr3 = $cgiparams{'year3'}; | |
32 | $mday4 = $cgiparams{'day4'}; | |
33 | $mon4 = $cgiparams{'month4'}; | |
34 | $jahr4 = $cgiparams{'year4'}; | |
35 | } | |
36 | else | |
37 | { | |
38 | @datum3 = localtime(time()); | |
39 | ($sec3,$min3,$stunde3,$mday3,$mon3,$jahr3,$wday3,$yday3,$isdst3)=@datum3; | |
40 | $jahr3 = $jahr3 + 1900; | |
41 | $mon3 = $mon3+1; | |
42 | if ($mon3 < 10) { $mon3 = "0$mon3"; } | |
43 | if ($mday3 <10) { $mday3= "0$mday3";} | |
44 | $sec4 = $sec3; | |
45 | $min4 = $min3; | |
46 | $stunde4 = $stunde3; | |
47 | $mday4 = $mday3; | |
48 | $mon4 = $mon3; | |
49 | $jahr4 = $jahr3; | |
50 | $wday4 = $wday3; | |
51 | $isdst4 = $isdst3; | |
52 | } | |
53 | ||
54 | if ($errormessage) { | |
55 | &openbox('100%', 'LEFT', $tr{'error messages'}); | |
56 | print "<FONT CLASS='base'>$errormessage </FONT>\n"; | |
57 | &closebox(); | |
58 | } | |
59 | ||
60 | print "<FORM METHOD='POST'>\n"; | |
61 | ||
62 | &Header::openbox('100%', 'LEFT', 'Filter'); | |
63 | ||
64 | print <<END | |
65 | <center><table border=0><tr><td> </td><td width=50px>Tag:</td><td width=50px>Monat:</td><td width=50px>Jahr:</td></tr> | |
66 | <tr><td>Von: <td><input type=text name=day3 maxlength=2 size=2 value="$mday3"><td><input type=text name=month3 maxlength=2 size=2 value="$mon3"><td><input type=text name=year3 maxlength=4 size=4 value="$jahr3"> | |
67 | <tr><td>Bis: <td><input type=text name=day4 maxlength=2 size=2 value="$mday4"><td><input type=text name=month4 maxlength=2 size=2 value="$mon4"><td><input type=text name=year4 maxlength=4 size=4 value="$jahr4"> | |
68 | ||
69 | <tr><td colspan=2>Von oder zum Anrufer mit der ID/Nummer:<td colspan=2><input type=text name=number size=20 maxlength=100 value="$cgiparams{'number'}"> | |
70 | ||
71 | <tr><td align=center colspan=4><input type=submit name='ACTION' value=$Lang::tr{'update'}> | |
72 | </table> | |
73 | END | |
74 | ; | |
75 | ||
76 | &Header::closebox(); | |
77 | ||
78 | &Header::openbox('100%', 'LEFT', 'Anrufe'); | |
79 | print "<table border=0 width=100%> <tr> <td align=center><b>Anfrufer <td align=center><b>Angerufene <td align=center><b>CallerID <td align=center><b>Start des Anrufs <td align=center><b>Ende des Anrufs <td align=center><b>Dauer (in Sek.) <td align=center><b>Status"; | |
80 | print "<tr><td colspan=6> <!-- Platzhalter -->"; | |
81 | foreach $line (reverse @datafile) { | |
82 | chomp $line; | |
83 | (@spalten) = split (/,/, $line); | |
84 | $spalten[1] =~ s/"//g; | |
85 | $spalten[2] =~ s/"//g; | |
86 | $spalten[4] =~ s/"//g; | |
87 | $spalten[10]=~ s/"//g; | |
88 | $spalten[11]=~ s/"//g; | |
89 | $spalten[13]=~ s/"//g; | |
90 | $spalten[14]=~ s/"//g; | |
91 | (@zdatum) = split (/ /, $spalten[11]); | |
92 | (@datu) = split (/-/, $zdatum[0]); | |
93 | (@dzeit) = split (/:/, $zdatum[1]); | |
94 | $datum1 = $datu[0].$datu[1].$datu[2]; | |
95 | @datum2_1 = localtime(time()); | |
96 | ($sec,$min,$stunde,$mday,$mon,$jahr,$wday,$yday,$isdst)=@datum2_1; | |
97 | $jahr = $jahr + 1900; | |
98 | $mon = $mon+1; | |
99 | if ($mon < 10) { $mon = "0$mon"; } | |
100 | if ($mday <10) { $mday= "0$mday";} | |
101 | $datum2 = $jahr.$mon.$mday; | |
102 | $datum3_1 = $jahr3.$mon3.$mday3; | |
103 | $datum4_1 = $jahr4.$mon4.$mday4; | |
104 | $datum2 = $datum2-100; | |
105 | if ($datum1 ge $datum3_1 && $datum1 le $datum4_1 && ($cgiparams{'number'} eq '' || $cgiparams{'number'} eq $spalten[1] || $cgiparams{'number'} eq $spalten[2])) { | |
106 | print "<tr bgcolor=#C0C0C0> <td align=center><a target='_blank' href=$telline> $spalten[1]</a> <td align=center>$spalten[2] <td align=center>$spalten[4] <td align=center bgcolor=#339933>$spalten[10] <td align=center bgcolor=#339933>$spalten[11] <td align=center>$spalten[13] <td align=center bgcolor='#993333'><font color=white>$spalten[14]\n";} | |
107 | } | |
108 | print "</table>"; | |
109 | ||
110 | &Header::closebox(); | |
111 | ||
112 | print "</FORM>\n"; | |
113 | ||
114 | &Header::closebigbox(); | |
115 | ||
116 | &Header::closepage(); |