html/cgi-bin/asterisk.cgi/calls

   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&nbsp;</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>&nbsp;</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>&nbsp;<!-- 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();