die gute Einwahl- und Abrechnungsverwaltung fuer wg-netze
This commit is contained in:
parent
a8998763b3
commit
4c9a86a6d0
24 changed files with 2350 additions and 0 deletions
9
wg-dialer/data/nutzer.liste
Normal file
9
wg-dialer/data/nutzer.liste
Normal file
|
@ -0,0 +1,9 @@
|
|||
Kathrin 192.168.23.20
|
||||
Lars 192.168.23.21
|
||||
Christoph 192.168.23.22
|
||||
Aldo 192.168.23.23
|
||||
Anya 192.168.23.24
|
||||
Stefan 192.168.23.25
|
||||
Bakunin 192.168.23.26
|
||||
Carlos 192.168.23.27
|
||||
Eindringling 192.168.23.158
|
1
wg-dialer/homepage/.htaccess
Normal file
1
wg-dialer/homepage/.htaccess
Normal file
|
@ -0,0 +1 @@
|
|||
DirectoryIndex index.php
|
43
wg-dialer/homepage/aktionen.php
Normal file
43
wg-dialer/homepage/aktionen.php
Normal file
|
@ -0,0 +1,43 @@
|
|||
<BR>
|
||||
<DIV ALIGN="CENTER">
|
||||
|
||||
|
||||
<?PHP
|
||||
$nutzer=holeNutzerDerIP($IP);
|
||||
$status=holeNutzerStatus($nutzer);
|
||||
$prefixFett='<H1><DIV ALIGN="CENTER">';
|
||||
$suffixFett='</DIV></H1>';
|
||||
$prefixNormal='<H2><DIV ALIGN="CENTER">';
|
||||
$suffixNormal='</DIV></H2>';
|
||||
$linkVerbindung='<A HREF="verbindeNutzer.php">verbinden</A>';
|
||||
$linkTrennung='<A HREF="trenneNutzer.php">trenne Verbindung</A>';
|
||||
|
||||
if ($status == "getrennt")
|
||||
{
|
||||
print $prefixFett . $linkVerbindung . $suffixFett;
|
||||
print $prefixNormal . $linkTrennung . $prefixNormal;
|
||||
}
|
||||
elseif (($status == "bei der Einwahl") || ($status == "verbunden"))
|
||||
{
|
||||
print $prefixNormal . $linkVerbindung . $suffixNormal;
|
||||
print $prefixFett . $linkTrennung . $prefixFett;
|
||||
}
|
||||
else print '<H2><DIV ALIGN="CENTER">Zugriff verweigert</DIV></H2>';
|
||||
|
||||
print "</TR><TABLE>";
|
||||
|
||||
?>
|
||||
|
||||
<HR><BR>
|
||||
|
||||
<TABLE BORDER="0">
|
||||
<COLGROUP WIDTH="180" SPAN="4"></COLGROUP>
|
||||
<TR>
|
||||
<TD><DIV ALIGN="CENTER"><A HREF="zeigeKosten.php">Kostenaufstellung</A></DIV></TD>
|
||||
<TD><DIV ALIGN="CENTER"><A HREF="zeigeProtokoll.php">Protokoll anzeigen</A></DIV></TD>
|
||||
<TD><DIV ALIGN="CENTER"><A HREF="http://io.wg">io-Startseite</A></DIV></TD>
|
||||
<TD><DIV ALIGN="CENTER"><A HREF="ausschalten.php">io abschalten</A></DIV></TD>
|
||||
</TR>
|
||||
</TABLE>
|
||||
</DIV>
|
||||
<BR>
|
10
wg-dialer/homepage/aktiveNutzer.php
Normal file
10
wg-dialer/homepage/aktiveNutzer.php
Normal file
|
@ -0,0 +1,10 @@
|
|||
<?PHP
|
||||
|
||||
print "<DIV ALIGN=\"CENTER\"><BR>";
|
||||
$namen = holeAktiveNutzer();
|
||||
|
||||
print "<B>offene Verbindungen:</B> $namen";
|
||||
|
||||
print "<BR><BR></DIV>";
|
||||
|
||||
?>
|
22
wg-dialer/homepage/ausschalten.php
Normal file
22
wg-dialer/homepage/ausschalten.php
Normal file
|
@ -0,0 +1,22 @@
|
|||
<?PHP require_once("definitionen.php"); ?>
|
||||
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>io wird heruntergefahren</TITLE>
|
||||
</HEAD>
|
||||
|
||||
<BODY>
|
||||
|
||||
<?PHP io_ausschalten(); ?>
|
||||
|
||||
<H2><DIV ALIGN="CENTER"><BR><BR><BR><BR>
|
||||
io wird heruntergefahren ...
|
||||
<BR><BR></DIV></H3>
|
||||
|
||||
<DIV ALIGN="CENTER">
|
||||
(der Strom kann in etwa zwei Minuten abgeschaltet werden)
|
||||
</DIV>
|
||||
|
||||
</BODY>
|
||||
</HTML>
|
||||
|
144
wg-dialer/homepage/definitionen.php
Normal file
144
wg-dialer/homepage/definitionen.php
Normal file
|
@ -0,0 +1,144 @@
|
|||
<?PHP
|
||||
|
||||
error_reporting(E_ALL);
|
||||
session_cache_limiter("no-cache");
|
||||
|
||||
$DialSkript="sudo -u wgdialer /home/WGDialer/scripts/WGDialer.sh";
|
||||
$TarifWahl="sudo -u root /home/WGDialer/scripts/waehleISDN-Tarif.sh";
|
||||
$IP=$HTTP_SERVER_VARS["REMOTE_ADDR"];
|
||||
$NUTZER=holeNutzerDerIP($IP);
|
||||
|
||||
exec("$DialSkript alle-nutzer",$ALLENUTZER);
|
||||
|
||||
|
||||
function StatusMeldung($text)
|
||||
{
|
||||
global $StatusText;
|
||||
$StatusText=$text;
|
||||
}
|
||||
|
||||
|
||||
function zeigeStatusMeldung()
|
||||
{
|
||||
global $StatusText;
|
||||
if (isset($StatusText))
|
||||
{
|
||||
print '<H3><DIV ALIGN="CENTER">Statusmeldung: ';
|
||||
print $StatusText;
|
||||
print '</DIV></H3>';
|
||||
unset($StatusText);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
function holeIPdesNutzers($name)
|
||||
{
|
||||
global $DialSkript;
|
||||
return exec("$DialSkript nutzer2ip $name");
|
||||
}
|
||||
|
||||
|
||||
function holeNutzerDerIP($ip)
|
||||
{
|
||||
global $DialSkript;
|
||||
return exec("$DialSkript ip2nutzer $ip");
|
||||
}
|
||||
|
||||
|
||||
function holeAktiveNutzer()
|
||||
{
|
||||
global $DialSkript;
|
||||
return exec("$DialSkript alle-aktiven-nutzer");
|
||||
}
|
||||
|
||||
|
||||
function holeVerbindungsStatus()
|
||||
{
|
||||
global $DialSkript;
|
||||
return exec("$DialSkript status-verbindung");
|
||||
}
|
||||
|
||||
|
||||
function holeNutzerStatus($nutzer)
|
||||
{
|
||||
global $DialSkript;
|
||||
return exec("$DialSkript status-nutzer $nutzer");
|
||||
}
|
||||
|
||||
|
||||
function verbindeNutzer($nutzer)
|
||||
{
|
||||
global $DialSkript;
|
||||
return exec("$DialSkript verbinde $nutzer");
|
||||
}
|
||||
|
||||
|
||||
function trenneNutzer($nutzer)
|
||||
{
|
||||
global $DialSkript;
|
||||
return exec("$DialSkript trenne $nutzer");
|
||||
}
|
||||
|
||||
|
||||
function notTrennung()
|
||||
{
|
||||
global $DialSkript;
|
||||
return exec("$DialSkript not-aus");
|
||||
}
|
||||
|
||||
|
||||
function holeKostenDesNutzers($nutzer, $von, $bis)
|
||||
{
|
||||
global $DialSkript;
|
||||
return exec("$DialSkript kosten $nutzer $von $bis");
|
||||
}
|
||||
|
||||
|
||||
function zeigeNutzerLog($nutzer)
|
||||
{
|
||||
global $DialSkript;
|
||||
exec("$DialSkript nutzer-log $nutzer | cut -f 1,3-6 --output-delimiter=\"</TD><TD>\"",$out);
|
||||
if (count($out) > 1)
|
||||
{
|
||||
$kopf = str_replace("</TD><TD>","</TH><TH>",array_shift($out));
|
||||
$gesamt='<DIV ALIGN="CENTER"><TABLE BORDER="1"><TR><TH>' . $kopf . '</TH></TR>';
|
||||
foreach ($out as $z)
|
||||
$gesamt.='<TR><TD>' . $z . '</TD></TR>';
|
||||
$gesamt.='</TABLE></DIV>';
|
||||
} else $gesamt='<BR><DIV ALIGN="CENTER">keine Einträge</DIV>';
|
||||
return $gesamt;
|
||||
}
|
||||
|
||||
|
||||
function zeigeProtokoll($protokoll) // meldungen, fehler, dialer, script
|
||||
{
|
||||
global $DialSkript;
|
||||
exec("$DialSkript protokoll $protokoll",$out);
|
||||
$gesamt="";
|
||||
foreach ($out as $z)
|
||||
$gesamt=$gesamt . $z . '<BR>';
|
||||
if (count($out)<=1) $gesamt='<BR><DIV ALIGN="CENTER">keine Einträge</DIV>';
|
||||
return $gesamt;
|
||||
}
|
||||
|
||||
|
||||
function holeTarif()
|
||||
{
|
||||
global $TarifWahl;
|
||||
return exec("$TarifWahl tarif");
|
||||
}
|
||||
|
||||
|
||||
function setzeTarif($tarif)
|
||||
{
|
||||
global $TarifWahl;
|
||||
exec("$TarifWahl $tarif");
|
||||
}
|
||||
|
||||
|
||||
function io_ausschalten()
|
||||
{
|
||||
exec("/sbin/shutdown -h now");
|
||||
}
|
||||
|
||||
?>
|
35
wg-dialer/homepage/index.php
Normal file
35
wg-dialer/homepage/index.php
Normal file
|
@ -0,0 +1,35 @@
|
|||
<?PHP require_once("definitionen.php"); ?>
|
||||
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<HTTP-EQUIV="refresh" CONTENT="5; URL=http://io/index.php">
|
||||
<META HTTP-EQUIV="expires" content="0">
|
||||
<META HTTP-EQUIV="cache-control" content="no-cache">
|
||||
<TITLE>WG-Netzverwaltung</TITLE>
|
||||
</HEAD>
|
||||
|
||||
<BODY>
|
||||
|
||||
<?PHP
|
||||
|
||||
error_reporting(E_ALL);
|
||||
|
||||
include("verbindungsStatus.php");
|
||||
print "<HR>";
|
||||
|
||||
//include("nutzerStatus.php");
|
||||
//print "<HR>";
|
||||
|
||||
include("aktiveNutzer.php");
|
||||
print "<HR>";
|
||||
|
||||
include("aktionen.php");
|
||||
print "<HR>";
|
||||
|
||||
zeigeStatusMeldung();
|
||||
|
||||
?>
|
||||
|
||||
|
||||
</BODY>
|
||||
</HTML>
|
9
wg-dialer/homepage/not_aus.php
Normal file
9
wg-dialer/homepage/not_aus.php
Normal file
|
@ -0,0 +1,9 @@
|
|||
<?PHP
|
||||
|
||||
require_once("definitionen.php");
|
||||
|
||||
trenneVerbindung();
|
||||
|
||||
include_once("index.php");
|
||||
|
||||
?>
|
27
wg-dialer/homepage/nutzerStatus.php
Normal file
27
wg-dialer/homepage/nutzerStatus.php
Normal file
|
@ -0,0 +1,27 @@
|
|||
<BR>
|
||||
|
||||
<DIV ALIGN="CENTER">
|
||||
|
||||
<TABLE BORDER="0">
|
||||
|
||||
<TR><TH>Name</TH>
|
||||
<TH>IP</TH>
|
||||
<TH>Status</TH></TR>
|
||||
|
||||
<?PHP
|
||||
|
||||
foreach($ALLENUTZER as $nutzer)
|
||||
{
|
||||
$ip=holeIPdesNutzers($nutzer);
|
||||
$status=holeNutzerStatus($nutzer);
|
||||
print "<TR><TD>$nutzer</TD>";
|
||||
print "<TD>$ip</TD>";
|
||||
print "<TD>$status</TD></TR>";
|
||||
}
|
||||
|
||||
?>
|
||||
|
||||
</TABLE>
|
||||
|
||||
</DIV>
|
||||
<BR>
|
13
wg-dialer/homepage/tarifWechsel.php
Normal file
13
wg-dialer/homepage/tarifWechsel.php
Normal file
|
@ -0,0 +1,13 @@
|
|||
<?PHP
|
||||
|
||||
require_once("definitionen.php");
|
||||
|
||||
$tarif=holeTarif();
|
||||
|
||||
if (substr_count($tarif,"XXL") > 0)
|
||||
setzeTarif("normal");
|
||||
else setzeTarif("xxl");
|
||||
|
||||
include("index.php");
|
||||
|
||||
?>
|
13
wg-dialer/homepage/trenneNutzer.php
Normal file
13
wg-dialer/homepage/trenneNutzer.php
Normal file
|
@ -0,0 +1,13 @@
|
|||
<?PHP
|
||||
|
||||
require_once("definitionen.php");
|
||||
|
||||
$nutzer=holeNutzerDerIP($IP);
|
||||
|
||||
if (holeNutzerStatus($nutzer) != "getrennt")
|
||||
StatusMeldung(trenneNutzer($nutzer));
|
||||
else StatusMeldung("Nutzer $nutzer war nicht verbunden!");
|
||||
|
||||
include("index.php");
|
||||
|
||||
?>
|
13
wg-dialer/homepage/verbindeNutzer.php
Normal file
13
wg-dialer/homepage/verbindeNutzer.php
Normal file
|
@ -0,0 +1,13 @@
|
|||
<?PHP
|
||||
|
||||
require_once("definitionen.php");
|
||||
|
||||
$nutzer=holeNutzerDerIP($IP);
|
||||
|
||||
if (holeNutzerStatus($nutzer) == "getrennt")
|
||||
StatusMeldung(verbindeNutzer($nutzer));
|
||||
else StatusMeldung("Nutzer $nutzer bereits verbunden!");
|
||||
|
||||
include("index.php");
|
||||
|
||||
?>
|
20
wg-dialer/homepage/verbindungsStatus.php
Normal file
20
wg-dialer/homepage/verbindungsStatus.php
Normal file
|
@ -0,0 +1,20 @@
|
|||
<?PHP
|
||||
|
||||
print '<BR><H1><DIV ALIGN="CENTER">';
|
||||
print '<A HREF="index.php">';
|
||||
print 'Status aktualisieren: ';
|
||||
print '</A>';
|
||||
print holeVerbindungsStatus();
|
||||
print '</DIV></H1>';
|
||||
print '<DIV ALIGN="CENTER">';
|
||||
$tarif=holeTarif();
|
||||
print "Aktueller Tarif: $tarif";
|
||||
print '<BR>';
|
||||
print '<TT>Vorsicht:</TT><BR>achte unbedingt darauf, dass der angezeigte Tarif <BR>';
|
||||
print 'zum heutigen Wochentag passt - ansonsten klicke ';
|
||||
print '<A HREF="tarifWechsel.php">hier</A> um den anderen Tarif zu aktivieren!<BR>';
|
||||
|
||||
print '</DIV>';
|
||||
|
||||
|
||||
?>
|
31
wg-dialer/homepage/zeigeKosten.php
Normal file
31
wg-dialer/homepage/zeigeKosten.php
Normal file
|
@ -0,0 +1,31 @@
|
|||
<?PHP require_once("definitionen.php"); ?>
|
||||
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>Kostenübersicht</TITLE>
|
||||
</HEAD>
|
||||
|
||||
<BODY>
|
||||
|
||||
<BR><H2><DIV ALIGN="CENTER"><A HREF="index.php">zurück zur Startseite</A></DIV></H2><BR>
|
||||
<HR><BR>
|
||||
<DIV ALIGN="CENTER">
|
||||
|
||||
<?PHP
|
||||
|
||||
include("zeigeKostenFormular.php");
|
||||
if (isset($HTTP_POST_VARS["Anzeige"]))
|
||||
{
|
||||
$von=$HTTP_POST_VARS["vJahr"]*10000+$HTTP_POST_VARS["vMonat"]*100+$HTTP_POST_VARS["vTag"];
|
||||
$bis=$HTTP_POST_VARS["bJahr"]*10000+$HTTP_POST_VARS["bMonat"]*100+$HTTP_POST_VARS["bTag"];
|
||||
print '<BR><HR><BR>';
|
||||
include("zeigeKostenListe.php");
|
||||
}
|
||||
|
||||
?>
|
||||
|
||||
</DIV>
|
||||
|
||||
|
||||
</BODY>
|
||||
</HTML>
|
111
wg-dialer/homepage/zeigeKostenFormular.php
Normal file
111
wg-dialer/homepage/zeigeKostenFormular.php
Normal file
|
@ -0,0 +1,111 @@
|
|||
<FORM NAME="zeitraum" ACTION="zeigeKosten.php" METHOD="POST">
|
||||
von <SELECT NAME="vTag">
|
||||
<OPTION>1</OPTION>
|
||||
<OPTION>2</OPTION>
|
||||
<OPTION>3</OPTION>
|
||||
<OPTION>4</OPTION>
|
||||
<OPTION>5</OPTION>
|
||||
<OPTION>6</OPTION>
|
||||
<OPTION>7</OPTION>
|
||||
<OPTION>8</OPTION>
|
||||
<OPTION>9</OPTION>
|
||||
<OPTION>10</OPTION>
|
||||
<OPTION>11</OPTION>
|
||||
<OPTION>12</OPTION>
|
||||
<OPTION>13</OPTION>
|
||||
<OPTION>14</OPTION>
|
||||
<OPTION>15</OPTION>
|
||||
<OPTION>16</OPTION>
|
||||
<OPTION>17</OPTION>
|
||||
<OPTION>18</OPTION>
|
||||
<OPTION>19</OPTION>
|
||||
<OPTION>20</OPTION>
|
||||
<OPTION>21</OPTION>
|
||||
<OPTION>22</OPTION>
|
||||
<OPTION>23</OPTION>
|
||||
<OPTION>24</OPTION>
|
||||
<OPTION>25</OPTION>
|
||||
<OPTION>26</OPTION>
|
||||
<OPTION>27</OPTION>
|
||||
<OPTION>28</OPTION>
|
||||
<OPTION>29</OPTION>
|
||||
<OPTION>30</OPTION>
|
||||
<OPTION>31</OPTION>
|
||||
</SELECT>
|
||||
<SELECT NAME="vMonat">
|
||||
<OPTION VALUE="1">Januar</OPTION>
|
||||
<OPTION VALUE="2">Februar</OPTION>
|
||||
<OPTION VALUE="3">März</OPTION>
|
||||
<OPTION VALUE="4">April</OPTION>
|
||||
<OPTION VALUE="5">Mai</OPTION>
|
||||
<OPTION VALUE="6">Juni</OPTION>
|
||||
<OPTION VALUE="7">Juli</OPTION>
|
||||
<OPTION VALUE="8">August</OPTION>
|
||||
<OPTION VALUE="9">September</OPTION>
|
||||
<OPTION VALUE="10">Oktober</OPTION>
|
||||
<OPTION VALUE="11">November</OPTION>
|
||||
<OPTION VALUE="12">Dezember</OPTION>
|
||||
</SELECT>
|
||||
<SELECT NAME="vJahr">
|
||||
<OPTION>2003</OPTION>
|
||||
<OPTION>2004</OPTION>
|
||||
<OPTION>2005</OPTION>
|
||||
<OPTION>2006</OPTION>
|
||||
<OPTION>2007</OPTION>
|
||||
</SELECT>
|
||||
bis <SELECT NAME="bTag">
|
||||
<OPTION>1</OPTION>
|
||||
<OPTION>2</OPTION>
|
||||
<OPTION>3</OPTION>
|
||||
<OPTION>4</OPTION>
|
||||
<OPTION>5</OPTION>
|
||||
<OPTION>6</OPTION>
|
||||
<OPTION>7</OPTION>
|
||||
<OPTION>8</OPTION>
|
||||
<OPTION>9</OPTION>
|
||||
<OPTION>10</OPTION>
|
||||
<OPTION>11</OPTION>
|
||||
<OPTION>12</OPTION>
|
||||
<OPTION>13</OPTION>
|
||||
<OPTION>14</OPTION>
|
||||
<OPTION>15</OPTION>
|
||||
<OPTION>16</OPTION>
|
||||
<OPTION>17</OPTION>
|
||||
<OPTION>18</OPTION>
|
||||
<OPTION>19</OPTION>
|
||||
<OPTION>20</OPTION>
|
||||
<OPTION>21</OPTION>
|
||||
<OPTION>22</OPTION>
|
||||
<OPTION>23</OPTION>
|
||||
<OPTION>24</OPTION>
|
||||
<OPTION>25</OPTION>
|
||||
<OPTION>26</OPTION>
|
||||
<OPTION>27</OPTION>
|
||||
<OPTION>28</OPTION>
|
||||
<OPTION>29</OPTION>
|
||||
<OPTION>30</OPTION>
|
||||
<OPTION>31</OPTION>
|
||||
</SELECT>
|
||||
<SELECT NAME="bMonat">
|
||||
<OPTION VALUE="1">Januar</OPTION>
|
||||
<OPTION VALUE="2">Februar</OPTION>
|
||||
<OPTION VALUE="3">März</OPTION>
|
||||
<OPTION VALUE="4">April</OPTION>
|
||||
<OPTION VALUE="5">Mai</OPTION>
|
||||
<OPTION VALUE="6">Juni</OPTION>
|
||||
<OPTION VALUE="7">Juli</OPTION>
|
||||
<OPTION VALUE="8">August</OPTION>
|
||||
<OPTION VALUE="9">September</OPTION>
|
||||
<OPTION VALUE="10">Oktober</OPTION>
|
||||
<OPTION VALUE="11">November</OPTION>
|
||||
<OPTION VALUE="12">Dezember</OPTION>
|
||||
</SELECT>
|
||||
<SELECT NAME="bJahr">
|
||||
<OPTION>2003</OPTION>
|
||||
<OPTION>2004</OPTION>
|
||||
<OPTION>2005</OPTION>
|
||||
<OPTION>2006</OPTION>
|
||||
<OPTION>2007</OPTION>
|
||||
</SELECT>
|
||||
<INPUT TYPE="SUBMIT" NAME="Anzeige" VALUE="zeigen">
|
||||
</FORM>
|
22
wg-dialer/homepage/zeigeKostenListe.php
Normal file
22
wg-dialer/homepage/zeigeKostenListe.php
Normal file
|
@ -0,0 +1,22 @@
|
|||
<?PHP // erfordert $von und $bis in Form von 20041231 ?>
|
||||
|
||||
<TABLE BORDER="1">
|
||||
<TR><TH>wer?</TH><TH>wieviel?</TH></TR>
|
||||
|
||||
<?PHP
|
||||
|
||||
foreach ($ALLENUTZER as $nutzer)
|
||||
{
|
||||
print '<TR><TD>' . $nutzer . '</TD><TD><DIV ALIGN="CENTER">';
|
||||
$erg = holeKostenDesNutzers($nutzer, $von, $bis);
|
||||
$cent = $erg % 100;
|
||||
if ($cent<10) $cent="0$cent";
|
||||
$euro = $erg/100;
|
||||
settype($euro,"integer");
|
||||
print $euro . ',' . $cent;
|
||||
print "</DIV></TD></TR>";
|
||||
}
|
||||
|
||||
?>
|
||||
|
||||
</TABLE>
|
42
wg-dialer/homepage/zeigeProtokoll.php
Normal file
42
wg-dialer/homepage/zeigeProtokoll.php
Normal file
|
@ -0,0 +1,42 @@
|
|||
<?PHP require_once("definitionen.php"); ?>
|
||||
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>WG-Netzverwaltung - Protokolle</TITLE>
|
||||
<META HTTP-EQUIV="expires" content="0">
|
||||
<META HTTP-EQUIV="cache-control" content="no-cache">
|
||||
</HEAD>
|
||||
|
||||
<BODY>
|
||||
|
||||
<BR><H2><DIV ALIGN="CENTER"><A HREF="index.php">zurück zur Startseite</A></DIV></H2><BR>
|
||||
<HR><BR>
|
||||
<DIV ALIGN="CENTER">
|
||||
<TABLE BORDER="0"><COLGROUP WIDTH="15%" SPAN="5"></COLGROUP>
|
||||
|
||||
<TR><TD><DIV ALIGN="CENTER"><A HREF="<?PHP print $PHP_SELF; ?>?prot=nutzer">persönlich</A></DIV></TD>
|
||||
<TD><DIV ALIGN="CENTER"><A HREF="<?PHP print $PHP_SELF; ?>?prot=meldungen">Meldungen</A></DIV></TD>
|
||||
<TD><DIV ALIGN="CENTER"><A HREF="<?PHP print $PHP_SELF; ?>?prot=fehler">Fehler</A></DIV></TD>
|
||||
<TD><DIV ALIGN="CENTER"><A HREF="<?PHP print $PHP_SELF; ?>?prot=dialer">Einwahlprogramm</A></DIV></TD>
|
||||
<TD><DIV ALIGN="CENTER"><A HREF="<?PHP print $PHP_SELF; ?>?prot=script">Programmausgabe</A></DIV></TD></TR>
|
||||
|
||||
</TABLE>
|
||||
</DIV>
|
||||
|
||||
<?PHP
|
||||
|
||||
if (isset($HTTP_GET_VARS["prot"]))
|
||||
{
|
||||
$prot=$HTTP_GET_VARS["prot"];
|
||||
print '<BR><HR><BR>';
|
||||
if ($prot=="nutzer") print zeigeNutzerLog($NUTZER);
|
||||
else print zeigeProtokoll($prot);
|
||||
}
|
||||
|
||||
?>
|
||||
|
||||
</BODY>
|
||||
</HTML>
|
||||
|
||||
|
||||
|
685
wg-dialer/scripts/WGDialer.neu.sh
Executable file
685
wg-dialer/scripts/WGDialer.neu.sh
Executable file
|
@ -0,0 +1,685 @@
|
|||
#!/bin/sh
|
||||
|
||||
|
||||
# Beginn des Scripts
|
||||
HOMEDIR="/home/WGDialer/"
|
||||
PIDDatei=${HOMEDIR}data/WGDialer.pid
|
||||
WarteSekunden=2
|
||||
WarteSchleifen=10
|
||||
ScriptLog=${HOMEDIR}data/WGDialer.log
|
||||
WGET="/usr/bin/wget --spider http://www.freenet.de &>${HOMEDIR}data/wget.log &"
|
||||
IPTABLES="/usr/sbin/iptables"
|
||||
SitzungsPrefix=${HOMEDIR}data/sitzung/
|
||||
NutzerLogPrefix=${HOMEDIR}data/nutzer/
|
||||
AdminFehlerLog=${HOMEDIR}data/fehler.log
|
||||
AdminLog=${HOMEDIR}data/meldungen.log
|
||||
NutzerListenDatei=${HOMEDIR}data/nutzer.liste
|
||||
VerbindungsWunschDatei=${HOMEDIR}data/verbindungs.anforderung
|
||||
EinwahlSkript=${HOMEDIR}scripts/einwahl.sh
|
||||
|
||||
# Format der Nutzerdateien:
|
||||
# "Datum (lesbar)" "Datum (auswertbar)" "Kostensatz" "Anzahl der Teilnehmer" "Kosten der Teilverbindung" "Dauer"
|
||||
# Format der Sitzungsdateien:
|
||||
# "Beginn der/s Verbindung(-sabschnitts) in Sek. seit 1970" /
|
||||
# "lesbares Datum"
|
||||
|
||||
|
||||
# Format der Nutzerlistendatei:
|
||||
# "Nutzername" "IP"
|
||||
|
||||
|
||||
############ Protokollierung ##################
|
||||
|
||||
function aktiviereSkriptLog()
|
||||
{
|
||||
exec 2>>$ScriptLog
|
||||
echo -e "\n\nSitzungsbeginn:" `date` >> ${HOMEDIR}data/WGDialer.log
|
||||
|
||||
set -xu
|
||||
#set -u
|
||||
}
|
||||
|
||||
function AdminNachricht() # Para: Text
|
||||
{
|
||||
echo -e "`date` - $1" >>$AdminLog
|
||||
}
|
||||
|
||||
|
||||
function AdminFehler() # Para: Text
|
||||
{
|
||||
AdminNachricht "Fehler: $1"
|
||||
echo -e "`date` - $1" >>$AdminFehlerLog
|
||||
}
|
||||
|
||||
|
||||
################ Konsistenz ################
|
||||
|
||||
function pruefeStatus()
|
||||
{
|
||||
holeAktiveNutzer
|
||||
local nutzer=$ERG
|
||||
holeAnzahlNutzer
|
||||
local AnzahlNutzer=$ERG
|
||||
local t=
|
||||
test -e $VerbindungsWunschDatei && (istDialerGestartet || (t="? Verbindungswuensche ohne gestarteten Dialer" && rm $VerbindungsWunschDatei))
|
||||
if test 0 -lt $AnzahlNutzer; then
|
||||
istDialerGestartet || (t="? Nutzer ($nutzer) ohne Verbindung -> Trennung" && trenneAlleVerbindungen)
|
||||
fi
|
||||
test 0 -eq $AnzahlNutzer -a ! -e $VerbindungsWunschDatei && istDialerGestartet && (beendeDialer; t="? Verbindung ohne Nutzer")
|
||||
test -e $NutzerListenDatei || t="? keine Nutzerlistendatei vorhanden!"
|
||||
test -n "$t" && AdminFehler "$t"
|
||||
test -z "$t"
|
||||
}
|
||||
|
||||
|
||||
# pruefe, ob Skript bereits aktiv, falls ja, dann bis zu sechs Sekunden auf
|
||||
# Ende des Parallelprozesses warten, sonst Abbruch
|
||||
function pruefeWeitereInstanz()
|
||||
{
|
||||
local count=0
|
||||
local PID
|
||||
local COMMAND
|
||||
while test "$1" != "reset" -a -e $PIDDatei -a $WarteSchleifen -gt $count; do
|
||||
PID=`cat $PIDDatei`
|
||||
if test -z "$PID"; then
|
||||
rm $PIDDatei
|
||||
else
|
||||
COMMAND=`ps -p $PID -o comm |tail -1`
|
||||
if test `echo $0 | grep $COMMAND | wc -l` -eq 0; then
|
||||
test -e $PIDDatei && rm $PIDDatei
|
||||
else
|
||||
let count=count+1
|
||||
sleep $WarteSekunden
|
||||
fi
|
||||
fi
|
||||
done
|
||||
|
||||
test -e $PIDDatei && AdminFehler "p-w-I: Wartezeit ueberschritten" && exit 1
|
||||
trap "rm $PIDDatei" 0
|
||||
echo $$ > $PIDDatei
|
||||
}
|
||||
|
||||
|
||||
################### Sitzungsverwaltung ####################
|
||||
|
||||
# sollte nur von "aktualisiereAlleSitzungen" aufgerufen werden
|
||||
function verarbeiteSitzungsDatei() # Para: Nutzername
|
||||
{
|
||||
function holeSitzungsDauer() # Para: Nutzername
|
||||
{
|
||||
local jetzt=`date +%s`
|
||||
local beginn=`tail -1 $SitzungsPrefix$1 | cut -f 1`
|
||||
let ERG=jetzt-beginn
|
||||
}
|
||||
# liefert die Pro-Minute-Kosten der atuell gewaehlten Verbindung
|
||||
function holeAktuellenKostenSatz()
|
||||
{
|
||||
ERG="`$EinwahlSkript hole-kosten-satz`"
|
||||
test -n "X"
|
||||
}
|
||||
|
||||
|
||||
function holeSitzungsKosten() # Para: Nutzername
|
||||
{
|
||||
holeAktuellenKostenSatz
|
||||
local pro=$ERG
|
||||
holeSitzungsDauer $1
|
||||
local dauer
|
||||
local gesamtKosten
|
||||
let dauer=ERG+45
|
||||
# "45" als Korrektur wegen der Minutenabrechnung
|
||||
let gesamtKosten=pro*dauer/60
|
||||
holeAnzahlNutzer
|
||||
local anz=$ERG
|
||||
let ERG=gesamtKosten/anz
|
||||
test 0 -eq $ERG && AdminFehler "hSK: kostenfrei ($pro/$dauer/$anz)?"
|
||||
test -n "X"
|
||||
}
|
||||
|
||||
holeSitzungsKosten $1
|
||||
local kosten=$ERG
|
||||
holeSitzungsDauer $1
|
||||
local dauer=$ERG
|
||||
holeAnzahlNutzer
|
||||
local anz=$ERG
|
||||
holeAktuellenKostenSatz
|
||||
local kostenSatz
|
||||
let kostenSatz=ERG/anz
|
||||
echo -e "`date`\t`date +%Y%m%d`\t$kostenSatz\t$anz\t$kosten\t$dauer" >>$NutzerLogPrefix$1
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
function aktualisiereAlleSitzungen()
|
||||
{
|
||||
local SITZUNG
|
||||
holeAktiveNutzer
|
||||
local aktiveNutzer="$ERG"
|
||||
if test -n "$aktiveNutzer"; then
|
||||
for SITZUNG in $aktiveNutzer; do
|
||||
verarbeiteSitzungsDatei $SITZUNG
|
||||
erstelleSitzungsDatei $SITZUNG
|
||||
done
|
||||
fi
|
||||
test -n "X"
|
||||
}
|
||||
|
||||
|
||||
function loescheSitzungsDatei() # Para: Nutzername
|
||||
{
|
||||
rm $SitzungsPrefix$1
|
||||
}
|
||||
|
||||
|
||||
function erstelleSitzungsDatei() # Para: Nutzername
|
||||
{
|
||||
echo -e "`date +%s`" >$SitzungsPrefix$1
|
||||
}
|
||||
|
||||
|
||||
################# Nutzerverwaltung ####################
|
||||
|
||||
function holeAktiveNutzer()
|
||||
{
|
||||
ERG=`ls $SitzungsPrefix`
|
||||
}
|
||||
|
||||
|
||||
function holeAnzahlNutzer()
|
||||
{
|
||||
ERG=`ls $SitzungsPrefix|wc -l`
|
||||
local aN=`ls $SitzungsPrefix`
|
||||
test -z "$aN" && ERG=0
|
||||
test -n "X"
|
||||
}
|
||||
|
||||
|
||||
function verbindeNutzer() # Parameter: Nutzername
|
||||
{
|
||||
holeAnzahlNutzer
|
||||
local anz=$ERG
|
||||
if test 0 -eq $anz; then
|
||||
meldeVerbindungsWunschAn $1
|
||||
istDialerGestartet || starteDialer
|
||||
elif istNutzerAktiv $1; then
|
||||
AdminFehler "$1 versucht sich mehrfach anzumelden"
|
||||
else
|
||||
test 0 -lt $anz && NutzerVerbindungenHergestellt $1
|
||||
fi
|
||||
}
|
||||
|
||||
|
||||
function NutzerVerbindungenHergestellt() # Para: Nutzernamen
|
||||
{
|
||||
holeAnzahlNutzer
|
||||
test 0 -lt $ERG && aktualisiereAlleSitzungen
|
||||
local nutzer
|
||||
for nutzer in $1; do
|
||||
if istNutzerOK "$nutzer"; then
|
||||
AdminNachricht "$nutzer oeffnet die Verbindung"
|
||||
erstelleSitzungsDatei $nutzer
|
||||
else
|
||||
AdminFehler "ungueltiger Nutzer: $nutzer"
|
||||
fi
|
||||
done
|
||||
aktualisiereWeiterleitungen
|
||||
}
|
||||
|
||||
|
||||
function holeVerbindungsStatus()
|
||||
{
|
||||
local zustand="unzulaessiger Status"
|
||||
holeAnzahlNutzer
|
||||
local anz=$ERG
|
||||
test 0 -lt $anz && zustand="verbunden"
|
||||
istDialerGestartet || zustand="getrennt"
|
||||
test -e $VerbindungsWunschDatei && zustand="Waehlvorgang"
|
||||
ERG=$zustand
|
||||
}
|
||||
|
||||
|
||||
function holeNutzerStatus() # Para: Nutzername
|
||||
{
|
||||
local status="unbekannter Nutzer"
|
||||
istNutzerOK $1 && status="getrennt"
|
||||
istNutzerAktiv $1 && status="verbunden"
|
||||
istNutzerBeiEinwahl $1 && status="bei der Einwahl"
|
||||
ERG=$status
|
||||
}
|
||||
|
||||
|
||||
function holeIPdesNutzers() # Para: Nutzername
|
||||
{
|
||||
local aNutzer="`cat $NutzerListenDatei`"
|
||||
local ip="unbekannt"
|
||||
local nutzer
|
||||
local tName
|
||||
local tIP
|
||||
for nutzer in $aNutzer; do
|
||||
if test -z "$tName"; then
|
||||
tName="`echo $nutzer|cut -f 1`"
|
||||
else
|
||||
tIP="`echo $nutzer|cut -f 1`"
|
||||
test "$1" = "$tName" && ip=$tIP
|
||||
tName=
|
||||
fi
|
||||
done
|
||||
ERG=$ip
|
||||
test "$ip" != "unbekannt"
|
||||
}
|
||||
|
||||
|
||||
function holeNutzerDerIP() # Para: IP
|
||||
{
|
||||
local a5Nutzer="`cat $NutzerListenDatei`"
|
||||
local name="unbekannt"
|
||||
local nutzer
|
||||
local tName
|
||||
local tIP
|
||||
for nutzer in $a5Nutzer; do
|
||||
if test -z "$tName"; then
|
||||
tName="`echo $nutzer|cut -f 1`"
|
||||
else
|
||||
tIP="`echo $nutzer|cut -f 1`"
|
||||
test "$1" = "$tIP" && name=$tName
|
||||
tName=
|
||||
fi
|
||||
done
|
||||
ERG=$name
|
||||
}
|
||||
|
||||
|
||||
function istNutzerAktiv() # Para: Nutzername
|
||||
{
|
||||
local gefunden=nein
|
||||
holeAktiveNutzer
|
||||
local a2Nutzer="$ERG"
|
||||
local nutzer
|
||||
for nutzer in $a2Nutzer; do
|
||||
test "$nutzer" = "$1" && gefunden=ja
|
||||
done
|
||||
test "$gefunden" = "ja"
|
||||
}
|
||||
|
||||
|
||||
function istNutzerOK() # Para: Nutzername
|
||||
{
|
||||
local a3Nutzer="`cat $NutzerListenDatei|cut -f 1`"
|
||||
local gefunden="nein"
|
||||
local name
|
||||
for name in $a3Nutzer; do
|
||||
test "$name" = "$1" && gefunden="ja"
|
||||
done
|
||||
test "$gefunden" = "ja"
|
||||
}
|
||||
|
||||
|
||||
function istNutzerBeiEinwahl() # Para: Nutzername
|
||||
{
|
||||
local gefunden=nein
|
||||
if test -e "$VerbindungsWunschDatei"; then
|
||||
local nutzer
|
||||
for nutzer in `cat $VerbindungsWunschDatei`; do
|
||||
test "$nutzer" = "$1" && gefunden=ja
|
||||
done
|
||||
fi
|
||||
test "$gefunden" = "ja"
|
||||
}
|
||||
|
||||
|
||||
function meldeVerbindungsWunschAn() # Para: Nutzername
|
||||
{
|
||||
echo $1 >>$VerbindungsWunschDatei
|
||||
AdminNachricht "$1 meldet Verbindungswunsch an"
|
||||
}
|
||||
|
||||
|
||||
function holeAnzahlVerbindungsWuensche()
|
||||
{
|
||||
local anz=0
|
||||
test -s "$VerbindungsWunschDatei" && anz=`cat $VerbindungsWunschDatei|wc -l`
|
||||
# "test -s" -> pruefe ob Datei groesser Null ist
|
||||
test $anz -le 0 && AdminFehler "hAVW: ungueltige Anzahl von Verbindungswuenschen ($anz)!"
|
||||
test -s "$VerbindungsWunschDatei" || AdminFehler "hAVW: fehlende (oder leere) Verbindungswunschdatei!"
|
||||
ERG=$anz
|
||||
|
||||
}
|
||||
|
||||
|
||||
function erfuelleVerbindungsWuensche()
|
||||
{
|
||||
if test -f "$VerbindungsWunschDatei"; then
|
||||
local wuensche="`cat $VerbindungsWunschDatei`"
|
||||
NutzerVerbindungenHergestellt "$wuensche"
|
||||
rm "$VerbindungsWunschDatei"
|
||||
else
|
||||
AdminFehler "keine Verbindungswuensche vorhanden!"
|
||||
fi
|
||||
}
|
||||
|
||||
|
||||
function entferneNutzerAusWunschDatei() # Para: Nutzername
|
||||
{
|
||||
local alle="`cat $VerbindungsWunschDatei`"
|
||||
rm $VerbindungsWunschDatei
|
||||
local einer
|
||||
for einer in $alle; do
|
||||
test "$einer" != "$1" && echo $einer >>$VerbindungsWunschDatei
|
||||
done
|
||||
test -e "$VerbindungsWunschDatei" || beendeDialer && AdminNachricht "Nutzer $1 trennt vor Verbindungsaufbau"
|
||||
}
|
||||
|
||||
|
||||
function trenneNutzer() # Para: Nutzername
|
||||
{
|
||||
if istNutzerBeiEinwahl $1; then
|
||||
entferneNutzerAusWunschDatei $1
|
||||
if istNutzerBeiEinwahl $1; then
|
||||
AdminFehler "Nutzer konnte nicht aus Wunschdatei entfernt werden: $1"
|
||||
test -z "X"
|
||||
else AdminNachricht "Nutzer widerruft Verbindungswunsch: $1"
|
||||
test -n "X"
|
||||
fi
|
||||
elif istNutzerAktiv $1; then
|
||||
aktualisiereAlleSitzungen
|
||||
loescheSitzungsDatei $1
|
||||
aktualisiereWeiterleitungen
|
||||
istNutzerAktiv $1 || AdminNachricht "$1 trennt die Verbindung"
|
||||
holeAnzahlNutzer
|
||||
test $ERG -eq 0 && beendeDialer && AdminNachricht "keine weiteren Nutzer nach $1 - Trennung"
|
||||
if istNutzerAktiv $1; then
|
||||
test -z "X"
|
||||
else test -n "X"
|
||||
fi
|
||||
else
|
||||
AdminFehler "trenneNutzer: Nutzer $1 nicht verbunden"
|
||||
test -z "X"
|
||||
fi
|
||||
}
|
||||
|
||||
|
||||
function trenneAlleVerbindungen()
|
||||
{
|
||||
local nutzer
|
||||
holeAktiveNutzer
|
||||
local a4Nutzer=$ERG
|
||||
if test -n "$a4Nutzer"; then
|
||||
aktualisiereAlleSitzungen
|
||||
for nutzer in "$a4Nutzer"; do
|
||||
loescheSitzungsDatei $nutzer
|
||||
done
|
||||
fi
|
||||
verbieteAlleWeiterleitungen
|
||||
holeAnzahlNutzer
|
||||
local anz=$ERG
|
||||
holeAktiveNutzer
|
||||
local namen=$ERG
|
||||
test $anz -gt 0 && AdminFehler "Verbindungstrennung: offene Verbindungen entdeckt ($namen)"
|
||||
holeAnzahlNutzer
|
||||
test $ERG -eq 0
|
||||
}
|
||||
|
||||
|
||||
############### Kostenermittlung ######################
|
||||
|
||||
function ermittleKosten() # Para: Nutzer, von, bis (jeweils in Form von "20041231")
|
||||
{
|
||||
local datumKosten
|
||||
test -e $NutzerLogPrefix$1 && datumKosten=`cat $NutzerLogPrefix$1 | cut -f 2,5`
|
||||
if test -n "$datumKosten"; then
|
||||
local t
|
||||
local was="datum"
|
||||
local gesamt=0
|
||||
local neuGesamt
|
||||
local datum
|
||||
local preis
|
||||
for t in $datumKosten; do
|
||||
if test "$was" = "datum"; then
|
||||
datum=$t
|
||||
was="preis"
|
||||
else
|
||||
preis=$t
|
||||
test "$datum" -ge "$2" -a "$datum" -le "$3" && let neuGesamt=gesamt+preis
|
||||
gesamt=$neuGesamt
|
||||
was="datum"
|
||||
fi
|
||||
done
|
||||
let ERG=gesamt/100
|
||||
# Ergebnis in Cent
|
||||
else
|
||||
ERG=0;
|
||||
fi
|
||||
}
|
||||
|
||||
|
||||
############### Weiterleitungskontrolle ###############
|
||||
|
||||
function aktualisiereWeiterleitungen()
|
||||
{
|
||||
holeAktiveNutzer
|
||||
local alle=$ERG
|
||||
local n
|
||||
$IPTABLES -F FORWARD # die Forward-Regeln loeschen
|
||||
if test -n "$alle"; then
|
||||
for n in $alle; do
|
||||
holeIPdesNutzers $n && $IPTABLES -A FORWARD -i $OUTDEV -o eth0 -d $ERG -m state --state ESTABLISHED,RELATED -j ACCEPT && $IPTABLES -A FORWARD -i eth0 -o $OUTDEV -s $ERG -j ACCEPT
|
||||
done
|
||||
fi
|
||||
}
|
||||
|
||||
|
||||
function erlaubeAlleWeiterleitungen()
|
||||
{
|
||||
$IPTABLES -A FORWARD -i $OUTDEV -o eth0 -m state --state ESTABLISHED,RELATED -j ACCEPT
|
||||
$IPTABLES -A FORWARD -i eth0 -o $OUTDEV -j ACCEPT
|
||||
}
|
||||
|
||||
|
||||
function verbieteAlleWeiterleitungen()
|
||||
{
|
||||
$IPTABLES -F FORWARD
|
||||
}
|
||||
|
||||
|
||||
function entschaerfeProvider()
|
||||
{
|
||||
$IPTABLES -A OUTPUT -o $OUTDEV --protocol tcp --dport 80 -j ACCEPT
|
||||
$IPTABLES -A INPUT -i $OUTDEV --protocol tcp --sport 80 -m state --state ESTABLISHED,RELATED -j ACCEPT
|
||||
$WGET
|
||||
sleep 2
|
||||
kill $!
|
||||
# beende WGET, damit keine Firewall-Logs auftauchen
|
||||
$IPTABLES -D OUTPUT -o $OUTDEV --protocol tcp --dport 80 -j ACCEPT
|
||||
$IPTABLES -D INPUT -i $OUTDEV --protocol tcp --sport 80 -m state --state ESTABLISHED,RELATED -j ACCEPT
|
||||
}
|
||||
|
||||
################## main ############################
|
||||
|
||||
|
||||
pruefeWeitereInstanz # sorgt dafuer, dass nur eine Instanz laeuft
|
||||
|
||||
aktiviereSkriptLog # aktiviert die Log-Datei
|
||||
|
||||
|
||||
set +u # wegen "unbound"-Warnungen notwendig
|
||||
|
||||
case "$1" in
|
||||
verbinde ) # ein Nutzer moechte die Verbindung nutzen
|
||||
pruefeStatus
|
||||
if istNutzerOK $2; then
|
||||
if verbindeNutzer $2; then
|
||||
echo "Verbindungsaufbau gestartet"
|
||||
else echo "Verbindungsaufbau fehlgeschlagen"
|
||||
fi
|
||||
else AdminFehler "$2 - versuchte Anmeldung"
|
||||
echo "unzulaessiger Nutzer"
|
||||
fi
|
||||
;;
|
||||
ip-up ) # der Dialer hat die Verbindung hergestellt
|
||||
# wird von "if-up" aufgerufen
|
||||
pruefeStatus
|
||||
erfuelleVerbindungsWuensche
|
||||
entschaerfeProvider
|
||||
;;
|
||||
ip-down ) # Verbindung beendet (regulaer? / Wuensche zurueckziehen?)
|
||||
pruefeStatus
|
||||
holeAktiveNutzer
|
||||
dieANutzer=$ERG
|
||||
if test -n "$dieANutzer"; then
|
||||
AdminNachricht "Zeitueberschreitung der Verbindung fuer: $dieANutzer"
|
||||
trenneAlleVerbindungen
|
||||
fi
|
||||
# der Dialer sollte sich gerade selbst beenden
|
||||
$EinwahlSkript einwahl-ist-beendet
|
||||
;;
|
||||
trenne ) # Nutzer moechte Verbindung fuer sich beenden
|
||||
pruefeStatus
|
||||
if istNutzerOK $2;then
|
||||
if trenneNutzer $2; then echo "Nutzer getrennt"
|
||||
else echo "Trennung fehlerhaft"
|
||||
fi
|
||||
else echo "unzulaessiger Nutzer"
|
||||
fi
|
||||
;;
|
||||
status-verbindung ) # offen/waehlen/getrennt
|
||||
pruefeStatus
|
||||
holeVerbindungsStatus
|
||||
echo -e "$ERG"
|
||||
;;
|
||||
status-nutzer ) # Verbindungsstatus fuer einen Nutzer
|
||||
pruefeStatus
|
||||
istNutzerOK $2 || AdminFehler "s-n: unbekannter Nutzer: $2"
|
||||
holeNutzerStatus $2
|
||||
echo -e "$ERG"
|
||||
;;
|
||||
alle-nutzer ) # Namen der Nutzer
|
||||
pruefeStatus
|
||||
cat $NutzerListenDatei | cut -f 1
|
||||
;;
|
||||
alle-aktiven-nutzer ) # Namen aller aktiven Nutzer
|
||||
holeAktiveNutzer
|
||||
if test -z "$ERG";
|
||||
then echo "kein aktiver Nutzer"
|
||||
else echo $ERG
|
||||
fi
|
||||
;;
|
||||
status ) # Gesamtuebersicht
|
||||
pruefeStatus
|
||||
holeVerbindungsStatus
|
||||
echo -e "Verbindungsstatus:\t$ERG"
|
||||
for n in `cat $NutzerListenDatei | cut -f 1`; do
|
||||
holeIPdesNutzers $n
|
||||
echo -en "$ERG\t\t"
|
||||
holeNutzerStatus $n
|
||||
echo -e "$ERG\t$n"
|
||||
done
|
||||
;;
|
||||
kosten ) # Kosten fuer einen Nutzer in bestimmtem Zeitraum
|
||||
t=""
|
||||
istNutzerOK $2 || t1="kosten: ungueltiger Nutzer ($2)"
|
||||
test -n "$3" -a -n "$4" -a $3 -le $4 || t2="ungueltiger Datumsbereich ($3/$4)"
|
||||
test -z "$t1" && t=$t2;
|
||||
test -z "$t2" && t=$t1;
|
||||
test -n "$t1" -a -n "$t2" && t="$t1 / $t2";
|
||||
if test -z "$t"; then
|
||||
ermittleKosten $2 $3 $4
|
||||
echo $ERG
|
||||
else
|
||||
AdminFehler $t
|
||||
echo $t
|
||||
fi
|
||||
;;
|
||||
nutzer2ip ) #
|
||||
if istNutzerOK $2; then
|
||||
holeIPdesNutzers $2
|
||||
echo $ERG
|
||||
else
|
||||
AdminFehler "n2i: unbekannter Nutzer: $2"
|
||||
fi
|
||||
;;
|
||||
ip2nutzer ) # ermittle Nutzernamen fuer IP
|
||||
holeNutzerDerIP $2
|
||||
echo $ERG
|
||||
;;
|
||||
nutzer-log ) # zeigt das Verbindungsprotokoll des Nutzers
|
||||
if istNutzerOK $2; then
|
||||
if test -s $NutzerLogPrefix$2; then
|
||||
echo -e "Datum\tDatum (Comp)\tPreis je min\tAnzahl der Nutzer\tVerbindungskosten\tDauer (in Sek.)"
|
||||
cat $NutzerLogPrefix$2
|
||||
else
|
||||
echo "keine Eintraege"
|
||||
fi
|
||||
else
|
||||
AdminFehler "n-l: unbekannter Nutzer: $2"
|
||||
echo "ungueltiger Nutzername"
|
||||
fi
|
||||
;;
|
||||
protokoll ) # zeigt eine Log-Datei an
|
||||
datei=
|
||||
case $2 in
|
||||
fehler )
|
||||
datei=$AdminFehlerLog
|
||||
prog="cat"
|
||||
;;
|
||||
meldungen )
|
||||
datei=$AdminLog
|
||||
prog="tail -200"
|
||||
;;
|
||||
script )
|
||||
datei=$ScriptLog
|
||||
prog="tail -300"
|
||||
;;
|
||||
dialer )
|
||||
datei=$DialerLog
|
||||
prog="tail -70"
|
||||
;;
|
||||
* )
|
||||
echo "ungueltige Auswahl der Protokoll-Datei"
|
||||
;;
|
||||
esac
|
||||
if test -n "$datei"; then
|
||||
if test -s $datei; then
|
||||
$prog $datei
|
||||
else
|
||||
echo "keine Eintraege"
|
||||
fi
|
||||
fi
|
||||
;;
|
||||
reset )
|
||||
trenneAlleVerbindungen
|
||||
# beenden geht leider nicht, wegen PID
|
||||
if test -e $DialPIDDatei; then
|
||||
ERG1=`cat $DialPIDDatei`
|
||||
ERG2=`ps --pid $ERG1 -o comm | tail -1`
|
||||
ERG3=`echo $0 | grep $ERG2`
|
||||
test -n "$ERG3" && kill $ERG1
|
||||
# beim Beenden sollte die PID-Datei geloescht werden, aber:
|
||||
test -e "$DialPIDDatei" && rm $DialPIDDatei
|
||||
fi
|
||||
test -n "`ls $SitzungsPrefix`" && rm $SitzungsPrefix*
|
||||
test -e $DialerStatus && rm $DialerStatus
|
||||
test -e $VerbindungsWunschDatei && rm $VerbindungsWunschDatei
|
||||
# unnoetig die PIDDatei zu loeschen, da trap dies tut
|
||||
verbieteAlleWeiterleitungen
|
||||
AdminNachricht "Reset ausgeloest"
|
||||
;;
|
||||
* ) # Hilfe
|
||||
echo -e "Parameter:"
|
||||
echo -e "\t verbinde X\t\t- oeffne Verbindung fuer X"
|
||||
echo -e "\t trenne X\t\t- trenne die Verbindung fuer X"
|
||||
echo -e "\t status\t\t\t- allgemeine Informationen"
|
||||
echo -e "\t status-verbindung\t- Ausgabe der Info"
|
||||
echo -e "\t status-nutzer X\t- Ausgabe der Info"
|
||||
echo -e "\t alle-nutzer\t\t- Ausgabe aller Nutzernamen"
|
||||
echo -e "\t alle-aktiven-nutzer\t- Ausgabe der derzeit verbundenen Nutzer"
|
||||
echo -e "\t ip2nutzer X\t\t- liefert den Nutzernamen fuer eine IP"
|
||||
echo -e "\t nutzer2ip X\t\t- liefert die IP des Nutzers"
|
||||
echo -e "\t kosten X Y Z\t\t- Kosten fuer X von Y bis Z (z.B.: 20041231)"
|
||||
echo -e "\t nutzer-log X\t\t- Verbindungsprotokoll des Nutzers X"
|
||||
echo -e "\t protokoll X\t\t- Log-Datei (fehler,meldungen,script,dialer)"
|
||||
;;
|
||||
esac
|
||||
|
||||
|
||||
|
818
wg-dialer/scripts/WGDialer.sh
Executable file
818
wg-dialer/scripts/WGDialer.sh
Executable file
|
@ -0,0 +1,818 @@
|
|||
#!/bin/sh
|
||||
|
||||
|
||||
# Beginn des Scripts
|
||||
HOMEDIR="/home/WGDialer/"
|
||||
PIDDatei=${HOMEDIR}data/WGDialer.pid
|
||||
WarteSekunden=2
|
||||
WarteSchleifen=10
|
||||
OUTDEV="ippp0"
|
||||
ScriptLog=${HOMEDIR}data/WGDialer.log
|
||||
WGET="/usr/bin/wget --spider http://www.freenet.de &>${HOMEDIR}data/wget.log &"
|
||||
IPTABLES="/usr/sbin/iptables"
|
||||
DialerModem="/usr/bin/wvdial"
|
||||
DialerISDN="/usr/sbin/isdnctrl"
|
||||
DialPIDDatei=${HOMEDIR}data/dialer.pid
|
||||
SitzungsPrefix=${HOMEDIR}data/sitzung/
|
||||
NutzerLogPrefix=${HOMEDIR}data/nutzer/
|
||||
AdminFehlerLog=${HOMEDIR}data/fehler.log
|
||||
AdminLog=${HOMEDIR}data/meldungen.log
|
||||
DialerStatus=${HOMEDIR}data/dialer.info
|
||||
# enthaelt Namen des Verbindungsaufbauenden / Einwahltarif
|
||||
DialerLog=${HOMEDIR}data/dialer.log
|
||||
NutzerListenDatei=${HOMEDIR}data/nutzer.liste
|
||||
VerbindungsWunschDatei=${HOMEDIR}data/verbindungs.anforderung
|
||||
|
||||
# Format der Nutzerdateien:
|
||||
# "Datum (lesbar)" "Datum (auswertbar)" "Kostensatz" "Anzahl der Teilnehmer" "Kosten der Teilverbindung" "Dauer"
|
||||
# Format der Sitzungsdateien:
|
||||
# "Beginn der/s Verbindung(-sabschnitts) in Sek. seit 1970" /
|
||||
# "lesbares Datum"
|
||||
|
||||
|
||||
# Format der Nutzerlistendatei:
|
||||
# "Nutzername" "IP"
|
||||
|
||||
# Format der Dialer-Status-Datei:
|
||||
# "Kosten" folgende Zeilen: "Name der/s Einwaehlenden"
|
||||
|
||||
################## der Dialer ############################
|
||||
|
||||
function istDialerGestartet()
|
||||
{
|
||||
local istGestartet
|
||||
istGestartet="falsch"
|
||||
if test $OUTDEV = "ppp0"; then
|
||||
if test -e "$DialPIDDatei"; then
|
||||
local dialPID=`cat $DialPIDDatei`
|
||||
local t=`ps -p $dialPID -h -o cmd|cut -f 1 -d " "`
|
||||
if test "$DialerModem" != "$t"; then
|
||||
AdminFehler "Dial-PID-Datei enthaelt fehlerhaften Verweis"
|
||||
rm $DialPIDDatei
|
||||
fi
|
||||
fi
|
||||
test -e "$DialPIDDatei" && istGestartet="wahr"
|
||||
else
|
||||
test -n `${DialerISDN} status $OUTDEV | grep "not connected"` && istGestartet="wahr"
|
||||
fi
|
||||
test $istGestartet = "wahr"
|
||||
}
|
||||
|
||||
|
||||
function beendeDialer()
|
||||
{
|
||||
if istDialerGestartet; then
|
||||
AdminNachricht "Der Dialer wird beendet ..."
|
||||
if test "$OUTDEV" = "ppp0"; then
|
||||
kill `cat $DialPIDDatei`
|
||||
else
|
||||
$DialerISDN hangup $OUTDEV
|
||||
fi
|
||||
# jetzt sollte die Aufraeumaktion gestartet werden
|
||||
test -e $DialPIDDatei && rm $DialerStatus
|
||||
DialerIstBeendet
|
||||
test -n "X"
|
||||
else
|
||||
AdminFehler "beendeDialer: nicht gestartet"
|
||||
test -z "X"
|
||||
fi
|
||||
}
|
||||
|
||||
|
||||
function starteDialer()
|
||||
{
|
||||
if istDialerGestartet; then
|
||||
AdminFehler "Dialer lief bereits ohne aktive Nutzer!"
|
||||
test -n "X"
|
||||
fi
|
||||
holeProviderInfo Preis
|
||||
local preis=$ERG
|
||||
test 0 -gt $preis && AdminFehler "sD: Kostenlose Verbindung?"
|
||||
holeProviderInfo Name
|
||||
local name=$ERG
|
||||
AdminNachricht "Aufbau der Verbindung"
|
||||
echo -e "$preis\t$name" >$DialerStatus
|
||||
if test -e $VerbindungsWunschDatei; then
|
||||
cat $VerbindungsWunschDatei >>$DialerStatus
|
||||
test -n "X"
|
||||
else
|
||||
AdminFehler "sD: keine Verb.-Anforderungen!"
|
||||
test -z "X"
|
||||
fi
|
||||
echo -e "\n`date` - ######## Start des Waehlprogramms #########" >>$DialerLog
|
||||
if test $OUTDEV = "ppp0"; then
|
||||
$DialerModem $name >>$DialerLog 2>>$DialerLog &
|
||||
local pid=$!
|
||||
echo $pid >$DialPIDDatei
|
||||
else
|
||||
# die Auswahl des Tarifs erfolgt extern per cron
|
||||
$DialerISDN dial $OUTDEV
|
||||
fi
|
||||
istDialerGestartet
|
||||
# damit der Rueckgabestatus stimmt
|
||||
}
|
||||
|
||||
|
||||
# Aufraeumarbeiten
|
||||
function DialerIstBeendet()
|
||||
{
|
||||
holeAnzahlNutzer
|
||||
local anz=$ERG
|
||||
test $anz -gt 0 && AdminFehler "Dialer beendet trotz aktiver Nutzer"
|
||||
trenneAlleVerbindungen
|
||||
test $OUTDEV = "ppp0" -a -e "$DialPIDDatei" && rm $DialPIDDatei
|
||||
test -e "$DialerStatus" && rm $DialerStatus
|
||||
test -e "$VerbindungsWunschDatei" && rm $VerbindungsWunschDatei
|
||||
test $anz -eq 0
|
||||
}
|
||||
|
||||
|
||||
############ Protokollierung ##################
|
||||
|
||||
function aktiviereSkriptLog()
|
||||
{
|
||||
exec 2>>$ScriptLog
|
||||
echo -e "\n\nSitzungsbeginn:" `date` >> ${HOMEDIR}data/WGDialer.log
|
||||
|
||||
set -xu
|
||||
#set -u
|
||||
}
|
||||
|
||||
function AdminNachricht() # Para: Text
|
||||
{
|
||||
echo -e "`date` - $1" >>$AdminLog
|
||||
}
|
||||
|
||||
|
||||
function AdminFehler() # Para: Text
|
||||
{
|
||||
AdminNachricht "Fehler: $1"
|
||||
echo -e "`date` - $1" >>$AdminFehlerLog
|
||||
}
|
||||
|
||||
|
||||
################ Konsistenz ################
|
||||
|
||||
function pruefeStatus()
|
||||
{
|
||||
holeAktiveNutzer
|
||||
local nutzer=$ERG
|
||||
holeAnzahlNutzer
|
||||
local AnzahlNutzer=$ERG
|
||||
local t=
|
||||
test -e $VerbindungsWunschDatei && (istDialerGestartet || (t="? Verbindungswuensche ohne gestarteten Dialer" && rm $VerbindungsWunschDatei))
|
||||
if test 0 -lt $AnzahlNutzer; then
|
||||
istDialerGestartet || (t="? Nutzer ($nutzer) ohne Verbindung -> Trennung" && trenneAlleVerbindungen)
|
||||
fi
|
||||
test 0 -eq $AnzahlNutzer -a ! -e $VerbindungsWunschDatei && istDialerGestartet && (beendeDialer; t="? Verbindung ohne Nutzer")
|
||||
test -e $NutzerListenDatei || t="? keine Nutzerlistendatei vorhanden!"
|
||||
test -n "$t" && AdminFehler "$t"
|
||||
test -z "$t"
|
||||
}
|
||||
|
||||
|
||||
# pruefe, ob Skript bereits aktiv, falls ja, dann bis zu sechs Sekunden auf
|
||||
# Ende des Parallelprozesses warten, sonst Abbruch
|
||||
function pruefeWeitereInstanz()
|
||||
{
|
||||
local count=0
|
||||
local PID
|
||||
local COMMAND
|
||||
while test "$1" != "reset" -a -e $PIDDatei -a $WarteSchleifen -gt $count; do
|
||||
PID=`cat $PIDDatei`
|
||||
if test -z "$PID"; then
|
||||
rm $PIDDatei
|
||||
else
|
||||
COMMAND=`ps -p $PID -o comm |tail -1`
|
||||
if test `echo $0 | grep $COMMAND | wc -l` -eq 0; then
|
||||
test -e $PIDDatei && rm $PIDDatei
|
||||
else
|
||||
let count=count+1
|
||||
sleep $WarteSekunden
|
||||
fi
|
||||
fi
|
||||
done
|
||||
|
||||
test -e $PIDDatei && AdminFehler "p-w-I: Wartezeit ueberschritten" && exit 1
|
||||
trap "rm $PIDDatei" 0
|
||||
echo $$ > $PIDDatei
|
||||
}
|
||||
|
||||
|
||||
################### Sitzungsverwaltung ####################
|
||||
|
||||
# sollte nur von "aktualisiereAlleSitzungen" aufgerufen werden
|
||||
function verarbeiteSitzungsDatei() # Para: Nutzername
|
||||
{
|
||||
function holeSitzungsDauer() # Para: Nutzername
|
||||
{
|
||||
local jetzt=`date +%s`
|
||||
local beginn=`tail -1 $SitzungsPrefix$1 | cut -f 1`
|
||||
let ERG=jetzt-beginn
|
||||
}
|
||||
# liefert die Pro-Minute-Kosten der atuell gewaehlten Verbindung
|
||||
function holeAktuellenKostenSatz()
|
||||
{
|
||||
ERG="`head -1 $DialerStatus|cut -f 1`"
|
||||
test -n "X"
|
||||
}
|
||||
|
||||
|
||||
function holeSitzungsKosten() # Para: Nutzername
|
||||
{
|
||||
holeAktuellenKostenSatz
|
||||
local pro=$ERG
|
||||
holeSitzungsDauer $1
|
||||
local dauer
|
||||
local gesamtKosten
|
||||
let dauer=ERG+45
|
||||
# "45" als Korrektur wegen der Minutenabrechnung
|
||||
let gesamtKosten=pro*dauer/60
|
||||
holeAnzahlNutzer
|
||||
local anz=$ERG
|
||||
let ERG=gesamtKosten/anz
|
||||
#test 0 -eq $ERG && AdminFehler "hSK: kostenfrei ($pro/$dauer/$anz)?"
|
||||
test -n "X"
|
||||
}
|
||||
|
||||
holeSitzungsKosten $1
|
||||
local kosten=$ERG
|
||||
holeSitzungsDauer $1
|
||||
local dauer=$ERG
|
||||
holeAnzahlNutzer
|
||||
local anz=$ERG
|
||||
holeAktuellenKostenSatz
|
||||
local kostenSatz
|
||||
let kostenSatz=ERG/anz
|
||||
echo -e "`date`\t`date +%Y%m%d`\t$kostenSatz\t$anz\t$kosten\t$dauer" >>$NutzerLogPrefix$1
|
||||
}
|
||||
|
||||
|
||||
# liefert "Preis" oder "Name (Dialer-Parameter)"
|
||||
function holeProviderInfo() # gewuenschte Information
|
||||
# WICHTIG: Aenderung, damit angewaehlter Tarif bezahlt wird
|
||||
{
|
||||
# Provider: 0 - Freenet-Super (Nebenzeit)
|
||||
# 1 - Freenet-Super (Hauptzeit)
|
||||
# 2 - Freenet-XXL (Sonntags)
|
||||
local prov
|
||||
local jetzt="`date +%H%M`" # liefert die aktuelle Stunde
|
||||
if test $jetzt -lt 730; then
|
||||
prov=0
|
||||
elif test $jetzt -lt 1730; then
|
||||
prov=1
|
||||
elif test $jetzt -lt 2130; then
|
||||
prov=0
|
||||
else
|
||||
prov=0
|
||||
fi
|
||||
local tag="`date +%w`"
|
||||
test $tag -eq 0 -o $tag -eq 6 && prov=0
|
||||
test $tag -eq 0 && prov=2
|
||||
local preis
|
||||
local name
|
||||
case $prov in
|
||||
0 ) preis=99; name="FreeNet-Super";;
|
||||
1 ) preis=145; name="FreeNet-Super";;
|
||||
2 ) preis=0; name="FreeNet-XXL";;
|
||||
esac
|
||||
if test "$1" = "Preis"; then ERG=$preis
|
||||
elif test "$1" = "Name"; then ERG= |