]>
git.ipfire.org Git - ipfire-2.x.git/blob - html/cgi-bin/asterisk.cgi/calls
3 require '/var/ipfire/general-functions.pl' ;
4 require "${General::swroot}/lang.pl" ;
5 require "${General::swroot}/header.pl" ;
7 & Header
:: showhttpheaders
();
9 my ( %asterisksettings , %checked );
13 & Header
:: getcgihash
( \
%cgiparams );
15 $asterisksettings { 'ACTION' } = '' ;
17 $file = "/var/log/asterisk/cdr-csv/Master.csv" ;
19 open ( DATEN
, " $file " ) or die "Can't open file: $file : $! \n " ;
23 & Header
:: openpage
( 'asterisk' , 1 , '' );
25 & Header
:: openbigbox
( '100%' , 'LEFT' );
27 if ( $cgiparams { 'ACTION' } eq $Lang :: tr
{ 'update' })
29 $mday3 = $cgiparams { 'day3' };
30 $mon3 = $cgiparams { 'month3' };
31 $jahr3 = $cgiparams { 'year3' };
32 $mday4 = $cgiparams { 'day4' };
33 $mon4 = $cgiparams { 'month4' };
34 $jahr4 = $cgiparams { 'year4' };
38 @datum3 = localtime ( time ());
39 ( $sec3 , $min3 , $stunde3 , $mday3 , $mon3 , $jahr3 , $wday3 , $yday3 , $isdst3 )= @datum3 ;
40 $jahr3 = $jahr3 + 1900 ;
42 if ( $mon3 < 10 ) { $mon3 = "0 $mon3 " ; }
43 if ( $mday3 < 10 ) { $mday3 = "0 $mday3 " ;}
55 & openbox
( '100%' , 'LEFT' , $tr { 'error messages' });
56 print "<FONT CLASS='base'> $errormessage </FONT> \n " ;
60 print "<FORM METHOD='POST'> \n " ;
62 & Header
:: openbox
( '100%' , 'LEFT' , 'Filter' );
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 ">
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'}">
71 <tr><td align=center colspan=4><input type=submit name='ACTION' value= $Lang ::tr{'update'}>
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 ) {
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 ;
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 " ;}
114 & Header
:: closebigbox
();
116 & Header
:: closepage
();