Drop unused Asterisk CGI files

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>

config/menu/EX-asterisk.menu

@@ -1,15 +0,0 @@
-    $subipfire->{'31.asterisk'} = {'caption' => 'Asterisk Status',
-                                  'uri' => '/cgi-bin/asterisk/status.cgi',
-                                  'title' => 'Asterisk Status',
-                                  'enabled' => 1,
-                                  };
-    $subipfire->{'32.asterisk'} = {'caption' => 'Asterisk Config',
-                                  'uri' => '/cgi-bin/asterisk/conf.cgi',
-                                  'title' => 'Asterisk Config',
-                                  'enabled' => 1,
-                                  };
-    $subipfire->{'33.asterisk'} = {'caption' => 'Asterisk Calls',
-                                  'uri' => '/cgi-bin/asterisk/calls.cgi',
-                                  'title' => 'Asterisk Calls',
-                                  'enabled' => 1,
-                                  };

config/rootfiles/common/web-user-interface

@@ -1,10 +1,4 @@
 srv/web/ipfire/cgi-bin/aliases.cgi
-#srv/web/ipfire/cgi-bin/asterisk
-#srv/web/ipfire/cgi-bin/asterisk/calls.cgi
-#srv/web/ipfire/cgi-bin/asterisk/conf
-#srv/web/ipfire/cgi-bin/asterisk/conf.cgi
-#srv/web/ipfire/cgi-bin/asterisk/conf/telbook.conf
-#srv/web/ipfire/cgi-bin/asterisk/status.cgi
 srv/web/ipfire/cgi-bin/atm-status.cgi
 srv/web/ipfire/cgi-bin/backup.cgi
 #srv/web/ipfire/cgi-bin/captive

html/cgi-bin/asterisk/calls.cgi

@@ -1,132 +0,0 @@
-#!/usr/bin/perl
-
-require '/var/ipfire/general-functions.pl';
-require "${General::swroot}/lang.pl";
-require "${General::swroot}/header.pl";
-
-&Header::showhttpheaders();
-
-my (%asterisksettings, %checked);
-
-my %cgiparams;
-
-&Header::getcgihash(\%cgiparams);
-
-$asterisksettings{'ACTION'} = '';
-
-$file = "/var/log/asterisk/cdr-csv/Master.csv";
-
-open(DATEN, "$file") or die "Can't open file: $file: $!\n";
-@datafile = <DATEN>;
-close(DATEN);
-
-$file = "./conf/telbook.conf";
-open(DATEN, "$file") or die "Can't open file: $file: $!\n";
-@telbook = <DATEN>;
-close(DATEN);
-
-&Header::openpage('asterisk', 1, '');
-
-&Header::openbigbox('100%', 'LEFT');
-
-if ($cgiparams{'ACTION'} eq $Lang::tr{'update'})
-{
- $mday3     = $cgiparams{'day3'};
- $mon3	    = $cgiparams{'month3'};
- $jahr3     = $cgiparams{'year3'};
- $mday4     = $cgiparams{'day4'};
- $mon4      = $cgiparams{'month4'};
- $jahr4     = $cgiparams{'year4'};
-}
-else
-{
- @datum3    = localtime(time());
- ($sec3,$min3,$stunde3,$mday3,$mon3,$jahr3,$wday3,$yday3,$isdst3)=@datum3;
- $jahr3     = $jahr3 + 1900;
- $mon3      = $mon3+1;
- if ($mon3 < 10) { $mon3 = "0$mon3"; }
- if ($mday3 <10) { $mday3= "0$mday3";}
- $sec4      = $sec3;
- $min4      = $min3;
- $stunde4   = $stunde3;
- $mday4     = $mday3;
- $mon4      = $mon3;
- $jahr4     = $jahr3;
- $wday4     = $wday3;
- $isdst4    = $isdst3;
-}
-
-if ($errormessage) {
-	&openbox('100%', 'LEFT', $tr{'error messages'});
-	print "<FONT CLASS='base'>$errormessage&nbsp;</FONT>\n";
-	&closebox();
-}
-
-print "<FORM METHOD='POST'>\n";
-
-&Header::openbox('100%', 'LEFT', 'Filter');
-
-print <<END
-<center><table border=0><tr><td>&nbsp;</td><td width=50px>Tag:</td><td width=50px>Monat:</td><td width=50px>Jahr:</td></tr>
-<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">
-<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">
-
-<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'}">
-
-<tr><td align=center colspan=4><input type=submit name='ACTION' value='$Lang::tr{'update'}'>
-</table>
-END
-;
-
-&Header::closebox();
-
-&Header::openbox('100%', 'LEFT', 'Anrufe');
-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";
-print "<tr><td colspan=6>&nbsp;<!-- Platzhalter -->";
-foreach $line (reverse @datafile) {
-chomp $line;
-(@spalten) = split (/,/, $line);
-$spalten[1] =~ s/"//g;
-$spalten[2] =~ s/"//g;
-$spalten[4] =~ s/"//g;
-$spalten[10]=~ s/"//g;
-$spalten[11]=~ s/"//g;
-$spalten[13]=~ s/"//g;
-$spalten[14]=~ s/"//g;
-(@zdatum) = split (/ /, $spalten[11]);
-(@datu)   = split (/-/, $zdatum[0]);
-(@dzeit)  = split (/:/, $zdatum[1]);
-$datum1   = $datu[0].$datu[1].$datu[2];
-@datum2_1   = localtime(time());
-($sec,$min,$stunde,$mday,$mon,$jahr,$wday,$yday,$isdst)=@datum2_1;
-$jahr     = $jahr + 1900;
-$mon      = $mon+1;
-if ($mon < 10) { $mon = "0$mon"; }
-if ($mday <10) { $mday= "0$mday";}
-$datum2   = $jahr.$mon.$mday;
-$datum3_1 = $jahr3.$mon3.$mday3;
-$datum4_1 = $jahr4.$mon4.$mday4;
-$datum2	  = $datum2-100;
-if ($datum1 ge $datum3_1 && $datum1 le $datum4_1 && ($cgiparams{'number'} eq '' || $cgiparams{'number'} eq $spalten[1] || $cgiparams{'number'} eq $spalten[2])) {
-$telline = @telbook[0];
-$telline =~ s/\[telnr\]/$spalten[1]/g;
-$dauer_m = int($spalten[13]/60);
-$dauer_s = $spalten[13]%60;
-$dauer_h = int($spalten[13]/3600);
-$dauer_m2= $dauer_m-($dauer_h*60);
-$dauer_t = $dauer_h.":";
-if ($dauer_m2 < 10) { $dauer_t .= "0".$dauer_m2."."; }
- else { $dauer_t .= $dauer_m2."."; }
-if ($dauer_s < 10) { $dauer_t .= "0".$dauer_s; }
- else { $dauer_t .= $dauer_s; }
-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>$dauer_t		<td align=center bgcolor='#993333'><font color=white>$spalten[14]\n";}
-}
-print "</table>";
-
-&Header::closebox();
-
-print "</FORM>\n";
-
-&Header::closebigbox();
-
-&Header::closepage();

html/cgi-bin/asterisk/conf.cgi

@@ -1,161 +0,0 @@
-#!/usr/bin/perl
-
-require '/var/ipfire/general-functions.pl';
-require "${General::swroot}/lang.pl";
-require "${General::swroot}/header.pl";
-
-&Header::showhttpheaders();
-
-my %cgiparams;
-
-&Header::getcgihash(\%cgiparams);
-
-&Header::openpage('asterisk', 1, '');
-
-&Header::openbigbox('100%', 'LEFT');
-
-if ($cgiparams{'ACTION'} eq $Lang::tr{'save'})
-  {
-        $conf_file = $cgiparams{'save_path'};
-        open (FILE, ">$conf_file") or die "Kann die Datei nicht speichern: $!";
-        flock (FILE, 2);
-        print FILE "$cgiparams{'textarea'}";
-        close FILE;
-        &Header::openbox('100%', 'LEFT', 'info');
-        print "$conf_file wurde gespeichert";
-        &Header::closebox();
-  }
-
-if ($cgiparams{'ACTION'} eq Bearbeiten)
-  {
-        $conf_file = $cgiparams{'conf_file'};
-  }
-
-if ($conf_file eq '') {
-	$conf_file='/var/ipfire/asterisk/extensions.conf';
-  }
-
-if ($cgiparams{'ACTION'} eq extensions)
-  {
-       $conf_file='/var/ipfire/asterisk/extensions.conf';
-  }
-
-if ($cgiparams{'ACTION'} eq sip)
-  {
-	$conf_file='/var/ipfire/asterisk/sip.conf';
-  }
-
-if ($cgiparams{'ACTION'} eq iax)
-  {
-	$conf_file='/var/ipfire/asterisk/iax.conf';
-  }
-
-
-
-
-if ($errormessage) {
-	&Header::openbox('100%', 'LEFT', $tr{'error messages'});
-	print "<FONT CLASS='base'>$errormessage&nbsp;</FONT>\n";
-	&Header::closebox();
-}
-
-$cgiparams{'ACTION'} = '';
-
-print "<FORM METHOD='POST'>\n";
-
-if ($conf_file ne '') {
-
-&Header::openbox('100%', 'LEFT', $conf_file);
-	print <<END
-  		<center><table border=0> 
-			<tr><td><textarea name="textarea" cols="80" rows="20" wrap="VIRTUAL">
-END
-;
-system("cat $conf_file");
-print <<END
-</textarea>\n 
-
-	<tr><td align=center>
-	<p><input type=text name=save_path value=$conf_file size=25>
-	<p><input type=submit name=ACTION value='$Lang::tr{'save'}'>
-	</table>
-
-END
-;
-
-&Header::closebox();
-}
-
-&Header::openbox('100%', 'LEFT', 'Dateiauswahl');
-
-my $dir = '/var/ipfire/asterisk/';
-my @dateien;
-
-listFiles ($dir);
-
-print <<END
-<table width=100% border=0>
-<tr><td width=33% align=right>
-    <!-- Buttons -->
-	<input type=submit name=ACTION value=extensions><input type=submit name=ACTION value=sip><input type=submit name=ACTION value=iax>
-    <td width=33% align=right>
-	<center><select name=conf_file>
-END
-;
-foreach $line (sort (@dateien)) {
-$op_name =  $line;
-$op_name =~ s/$dir//g;
-print "<option value='$line'>$op_name</option>\n";
-}
-
-my $dir2 = '/home/httpd/cgi-bin/asterisk/conf/';
-my @dateien2;
-
-listFiles2 ($dir2);
-
-foreach $line2 (sort (@dateien2)) {
-$op_name2 =  $line2;
-$op_name2 =~ s/$dir2//g;
-print "<option value='$line2'>$op_name2</option>\n";
-}
-
-print "</select><input type=submit name=ACTION value=Bearbeiten></center><td width=33% align=right>&nbsp</table>";
-
-sub listFiles {
-local *DH;
-my ($item, $pfad);
-my $dir = shift;
-
-opendir (DH, $dir) or return;
-while ($item = readdir (DH)) {
-next if ( $item =~ /^\./ );
-$pfad = ( ($dir =~ /\/$/) ? ($dir . $item) : ($dir . '/'.$item) );
-push (@dateien, $pfad) if (-f $pfad);
-listFiles ($pfad) if (-d $pfad);
-}
-closedir (DH);
-}
-
-sub listFiles2 {
-local *DH2;
-my ($item2, $pfad2);
-my $dir2 = shift;
-
-opendir (DH2, $dir2) or return;
-while ($item2 = readdir (DH2)) {
-next if ( $item2 =~ /^\./ );
-$pfad2 = ( ($dir2 =~ /\/$/) ? ($dir2 . $item2) : ($dir2 . '/'.$item2) );
-push (@dateien2, $pfad2) if (-f $pfad2);
-listFiles2 ($pfad2) if (-d $pfad2);
-}
-closedir (DH2);
-}
-
-
-&Header::closebox();
-
-print "</FORM>\n";
-
-&Header::closebigbox();
-
-&Header::closepage();

html/cgi-bin/asterisk/conf/telbook.conf

@@ -1 +0,0 @@
-http://tel.search.ch/result.html?name=&misc=&strasse=&ort=&kanton=&tel=[telnr]

html/cgi-bin/asterisk/status.cgi

@@ -1,119 +0,0 @@
-#!/usr/bin/perl
-
-require '/var/ipfire/general-functions.pl';
-require "${General::swroot}/lang.pl";
-require "${General::swroot}/header.pl";
-
-&Header::showhttpheaders();
-
-#use warnings;
-#use CGI::Carp 'fatalsToBrowser';
-
-my %asterisksettings;
-
-&Header::getcgihash(\%asterisksettings);
-
-&Header::openpage('asterisk', 1, '');
-
-&Header::openbigbox('100%', 'LEFT');
-
-if ($asterisksettings{'ACTION'} eq 'Start')
-{
-	system("/etc/init.d/asterisk start >/dev/null 2>&1");
-	sleep 5;
-}
-if ($asterisksettings{'ACTION'} eq $Lang::tr{'stop'})
-{
-        system("/etc/init.d/asterisk stop >/dev/null 2>&1");
-        sleep 5;
-}
-if ($asterisksettings{'ACTION'} eq $Lang::tr{'reboot'})
-{
-        system("/etc/init.d/asterisk restart >/dev/null 2>&1");
-        sleep 5;
-}
-if ($asterisksettings{'ACTION'} eq "$Lang::tr{'reload'} EXT")
-{
-        system("/etc/init.d/asterisk remod ext >/dev/null 2>&1");
-}
-if ($asterisksettings{'ACTION'} eq "$Lang::tr{'reload'} SIP")
-{
-        system("/etc/init.d/asterisk remod sip >/dev/null 2>&1");
-}
-if ($asterisksettings{'ACTION'} eq "$Lang::tr{'reload'} IAX")
-{
-        system("/etc/init.d/asterisk remod iax >/dev/null 2>&1");
-}
-
-	my $pid = '';
-	my $testcmd = '';
-	my $exename;
-	my @memory;
-
-	if (open(FILE, "/var/run/asterisk.pid")){
-		$pid = <FILE>; chomp $pid;
-		close FILE;
-		if (open(FILE, "/proc/${pid}/status")){
-			while (<FILE>){
-				if (/^Name:\W+(.*)/) {$testcmd = $1;}
-			}
-			close FILE;
-		}
-		}
-
-if ($testcmd !~ /asterisk/) {
-	$checked{'ENABLE_AST'}{'status_s'}="<font style=\"color:white;background-color:red;\"> $Lang::tr{'not running'}</font>";
-	$checked{'ENABLE_AST'}{'status_b'}="<INPUT TYPE='submit' NAME='ACTION' VALUE='Start'>";
-} else {
-	$checked{'ENABLE_AST'}{'status_s'}="<font style=\"color:white;background-color:green;\"> $Lang::tr{'running'}</font>";
-	$checked{'ENABLE_AST'}{'status_b'}="<INPUT TYPE='submit' NAME='ACTION' VALUE='$Lang::tr{'reboot'}'><INPUT TYPE='submit' NAME='ACTION' VALUE='$Lang::tr{'stop'}'>";
-}
-
-if ($errormessage) {
-	&Header::openbox('100%', 'LEFT', $tr{'error messages'});
-	print "<FONT CLASS='base'>$errormessage&nbsp;</FONT>\n";
-	&Header::closebox();
-}
-
-if ($message) {
-	&Header::openbox('100%', 'LEFT', 'Message');
-	print "<FONT CLASS='base'>$message&nbsp;</FONT>\n";
-	&Header::closebox();
-}
-
-print "<FORM METHOD='POST'>\n";
-
-&Header::openbox('100%', 'LEFT', 'Status:');
-	print <<END
-  		<center>
-<TABLE WIDTH='100%'>
-<TR>
-	<TD WIDTH='33%' CLASS='base' ALIGN='RIGHT'>Asterisk</TD>
-	<TD WIDTH='33%' ALIGN='RIGHT'>$checked{'ENABLE_AST'}{'status_s'}</TD>
-	<TD WIDTH='33%' ALIGN='LEFT'>$checked{'ENABLE_AST'}{'status_b'}</TD>
-</TR>
-<TR>
-	<TD WIDTH='33%' CLASS='base' ALIGN='RIGHT'>Dialplan</TD>
-	<TD WIDTH='33%' ALIGN='RIGHT'></TD>
-	<TD WIDTH='33%' ALIGN='LEFT'> <INPUT TYPE='submit' NAME='ACTION' VALUE='$Lang::tr{'reload'} EXT'></TD>
-</TR>
-<TR>
-        <TD WIDTH='33%' CLASS='base' ALIGN='RIGHT'>SIP</TD>
-        <TD WIDTH='33%' ALIGN='RIGHT'></TD>
-        <TD WIDTH='33%' ALIGN='LEFT'> <INPUT TYPE='submit' NAME='ACTION' VALUE='$Lang::tr{'reload'} SIP'></TD>
-</TR>
-<TR>
-        <TD WIDTH='33%' CLASS='base' ALIGN='RIGHT'>IAX</TD>
-        <TD WIDTH='33%' ALIGN='RIGHT'></TD>
-        <TD WIDTH='33%' ALIGN='LEFT'> <INPUT TYPE='submit' NAME='ACTION' VALUE='$Lang::tr{'reload'} IAX'></TD>
-</TR>
-
-</TABLE>
-END
-;
-
-&Header::closebox();
-
-&Header::closebigbox();
-
-&Header::closepage();