die gute Einwahl- und Abrechnungsverwaltung fuer wg-netze

This commit is contained in:
io 2005-02-11 00:06:43 +00:00
parent a8998763b3
commit 4c9a86a6d0
24 changed files with 2350 additions and 0 deletions

View 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

View file

@ -0,0 +1 @@
DirectoryIndex index.php

View 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>

View file

@ -0,0 +1,10 @@
<?PHP
print "<DIV ALIGN=\"CENTER\"><BR>";
$namen = holeAktiveNutzer();
print "<B>offene Verbindungen:</B> $namen";
print "<BR><BR></DIV>";
?>

View 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>

View 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&auml;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&auml;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");
}
?>

View 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>

View file

@ -0,0 +1,9 @@
<?PHP
require_once("definitionen.php");
trenneVerbindung();
include_once("index.php");
?>

View 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>

View 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");
?>

View 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");
?>

View 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");
?>

View 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>';
?>

View file

@ -0,0 +1,31 @@
<?PHP require_once("definitionen.php"); ?>
<HTML>
<HEAD>
<TITLE>Kosten&uuml;bersicht</TITLE>
</HEAD>
<BODY>
<BR><H2><DIV ALIGN="CENTER"><A HREF="index.php">zur&uuml;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>

View 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&auml;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&auml;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>

View 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>

View 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&uuml;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&ouml;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
View 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
View 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=