From: Michael Tremer Date: Sun, 3 Jan 2021 11:17:28 +0000 (+0000) Subject: Drop unused Asterisk CGI files X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=86bd9ccc951473f4e9ec3df7748a89b954beda1c;p=people%2Fmfischer%2Fipfire-2.x.git Drop unused Asterisk CGI files Signed-off-by: Michael Tremer --- diff --git a/config/menu/EX-asterisk.menu b/config/menu/EX-asterisk.menu deleted file mode 100644 index 506fb6d2f5..0000000000 --- a/config/menu/EX-asterisk.menu +++ /dev/null @@ -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, - }; diff --git a/config/rootfiles/common/web-user-interface b/config/rootfiles/common/web-user-interface index 0aef4a0c22..9b26676761 100644 --- a/config/rootfiles/common/web-user-interface +++ b/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 diff --git a/html/cgi-bin/asterisk/calls.cgi b/html/cgi-bin/asterisk/calls.cgi deleted file mode 100644 index a7635f2ec9..0000000000 --- a/html/cgi-bin/asterisk/calls.cgi +++ /dev/null @@ -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 = ; -close(DATEN); - -$file = "./conf/telbook.conf"; -open(DATEN, "$file") or die "Can't open file: $file: $!\n"; -@telbook = ; -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 "$errormessage \n"; - &closebox(); -} - -print "
\n"; - -&Header::openbox('100%', 'LEFT', 'Filter'); - -print < -
 Tag:Monat:Jahr:
Von: -
Bis: - -
Von oder zum Anrufer mit der ID/Nummer: - -
-
-END -; - -&Header::closebox(); - -&Header::openbox('100%', 'LEFT', 'Anrufe'); -print "
Anfrufer Angerufene CallerID Start des Anrufs Ende des Anrufs Dauer (in Sek.) Status"; -print "
 "; -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 "
$spalten[1] $spalten[2] $spalten[4] $spalten[10] $spalten[11] $dauer_t $spalten[14]\n";} -} -print "
"; - -&Header::closebox(); - -print "\n"; - -&Header::closebigbox(); - -&Header::closepage(); diff --git a/html/cgi-bin/asterisk/conf.cgi b/html/cgi-bin/asterisk/conf.cgi deleted file mode 100644 index ab5011f21e..0000000000 --- a/html/cgi-bin/asterisk/conf.cgi +++ /dev/null @@ -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 "$errormessage \n"; - &Header::closebox(); -} - -$cgiparams{'ACTION'} = ''; - -print "
\n"; - -if ($conf_file ne '') { - -&Header::openbox('100%', 'LEFT', $conf_file); - print < -
\n - -
-

-

-

- -END -; - -&Header::closebox(); -} - -&Header::openbox('100%', 'LEFT', 'Dateiauswahl'); - -my $dir = '/var/ipfire/asterisk/'; -my @dateien; - -listFiles ($dir); - -print < - - - - -
 "; - -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 "\n"; - -&Header::closebigbox(); - -&Header::closepage(); diff --git a/html/cgi-bin/asterisk/conf/telbook.conf b/html/cgi-bin/asterisk/conf/telbook.conf deleted file mode 100644 index b2a1d6a976..0000000000 --- a/html/cgi-bin/asterisk/conf/telbook.conf +++ /dev/null @@ -1 +0,0 @@ -http://tel.search.ch/result.html?name=&misc=&strasse=&ort=&kanton=&tel=[telnr] diff --git a/html/cgi-bin/asterisk/status.cgi b/html/cgi-bin/asterisk/status.cgi deleted file mode 100644 index adfceb1db8..0000000000 --- a/html/cgi-bin/asterisk/status.cgi +++ /dev/null @@ -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 = ; chomp $pid; - close FILE; - if (open(FILE, "/proc/${pid}/status")){ - while (){ - if (/^Name:\W+(.*)/) {$testcmd = $1;} - } - close FILE; - } - } - -if ($testcmd !~ /asterisk/) { - $checked{'ENABLE_AST'}{'status_s'}=" $Lang::tr{'not running'}"; - $checked{'ENABLE_AST'}{'status_b'}=""; -} else { - $checked{'ENABLE_AST'}{'status_s'}=" $Lang::tr{'running'}"; - $checked{'ENABLE_AST'}{'status_b'}=""; -} - -if ($errormessage) { - &Header::openbox('100%', 'LEFT', $tr{'error messages'}); - print "$errormessage \n"; - &Header::closebox(); -} - -if ($message) { - &Header::openbox('100%', 'LEFT', 'Message'); - print "$message \n"; - &Header::closebox(); -} - -print "
\n"; - -&Header::openbox('100%', 'LEFT', 'Status:'); - print < - - - - - - - - - - - - - - - - - - - - - - -
Asterisk$checked{'ENABLE_AST'}{'status_s'}$checked{'ENABLE_AST'}{'status_b'}
Dialplan
SIP
IAX
-END -; - -&Header::closebox(); - -&Header::closebigbox(); - -&Header::closepage();