+++ /dev/null
- $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,
- };
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
+++ /dev/null
-#!/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 </FONT>\n";
- &closebox();
-}
-
-print "<FORM METHOD='POST'>\n";
-
-&Header::openbox('100%', 'LEFT', 'Filter');
-
-print <<END
-<center><table border=0><tr><td> </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> <!-- 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();
+++ /dev/null
-#!/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 </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> </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();
+++ /dev/null
-http://tel.search.ch/result.html?name=&misc=&strasse=&ort=&kanton=&tel=[telnr]
+++ /dev/null
-#!/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 </FONT>\n";
- &Header::closebox();
-}
-
-if ($message) {
- &Header::openbox('100%', 'LEFT', 'Message');
- print "<FONT CLASS='base'>$message </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();
projects / people / pmueller / ipfire-2.x.git / commitdiff
