Benutzer:Kirmse/Surfkontrolle: Unterschied zwischen den Versionen

Aus Delixs
Zur Navigation springen Zur Suche springen
(Ergänzung der Funktionen dieses Scripts)
(kirmse)
 
(Eine dazwischenliegende Version desselben Benutzers wird nicht angezeigt)
Zeile 590: Zeile 590:


</source>
</source>
----
<div align="right">[[Benutzer:Kirmse]]</div>

Aktuelle Version vom 16. März 2012, 15:49 Uhr

Dieses Script ist eine Neuimplementation des Scripts proxy.cgi von Joachim Deckers. Es soll den Lehrern nur die Links von seinen Schülern der aktuellen Unterrichtsstunde anzeigen.

Dazu wird ein Cronjob eingerichtet, der zu Beginn der Stunde die Anzahl der Zeilen des Logfiles speichert. Ab dieser Zahl wertet das Script das Logfile aus.

Es kann konfiguriert werden, ob Lehreraccounts anonymisiert werden und wenn ja, mit welchen String. Um die Namen angezeigt zu bekommen, braucht nicht mehr konfiguriert werden, welcher Name zu der IP gehört. Diese Daten werden aus dem LDAP geholt. Voraussetzung für diese Funktion ist die Einrichtung fester IPs.

Cronjob

<source lang="perl">

  1. !/usr/bin/perl

use warnings; use strict;


my $datei = 'access.log'; my $datei2 = 'startwert';


my $zaehler = 0;

  1. wir lesen die Datei access.log ein

open DATEI, '<', $datei; while (my $zeile = <DATEI>) { 

 $zaehler++;

}

  1. wir speichern den Zaehlerstand in der Datei 'startwert'

open DATEI, '>', $datei2; print DATEI $zaehler; close DATEI;

__END__ </source>

Das eigentliche Script

<source lang="perl">

  1. !/usr/bin/perl

use warnings; use strict;

use CGI::Carp qw(fatalsToBrowser); use Net::LDAP;


  1. ========================== Konfigurationsbereich ========================

my %config = (

  1. hier wird angegeben, ob die Aufrufe fuer Lehrer angezeigt werden sollen
  2. no: ausblenden, yes: anzeigen des Lehrerlogins

TEACHER => 'yes',

  1. hier koennen weitere Logins angegeben werden, die nicht angezeigt werden sollen
  2. Format: UNVISIBLE => [ 'ffeuerstein', 'hkirmse' ];

UNVISIBLE => [ ],

  1. hier wird der String angegeben, mit dem Lehrerlogins ersetzt werden

UNVISIBLE_STRING => 'xxxxx' );


  1. hier können sie das Format fuer das Datum und die Uhrzeit angeben. Die
  2. Platzhalter %%tag%%, %%monat%%, %%jahr%%, %%stunde%%, %%minute%%, %%sekunden%%
  3. werden durch aktuellen Werte ersetzt, wobei alle Werte der Zeit zweistellig sind
  4. durch das vorgegebene Format entsteht z.B. "1.1.2008 13:41:05"

my $format = '%%tag%%.%%monat%%.%%jahr%% %%stunde%%:%%minute%%:%%sekunden%%';

  1. hier wird das Logfile angegeben

my $logfile = 'access.log';


  1. ========================== Fehlermeldungen in der Tabelle ===============

my $fehler1 = 'es liegen keine Einträge im Logfile vor'; my $fehler2 = 'es gibt keine Aufrufe aus diesem Raum';


  1. ========================== HTML-Bereich =================================
  1. Die generierte HTML-Seite wird zusammengesetzt aus dem Kopf, der (eigentlichen)
  2. Tabelle und dem Fuss. Hier wird die Variable $head als HERE-Dokument bereitgestellt.
  3. Ab der 2. Zeile, die mit: "<!doctype html ..." beginnt, ist alles reines HTML.
  4. Sie können damit ohne Perlkenntnisse das Aussehen der Seite beeinflussen.
  5. Beachten Sie, dass %%aufrufer%%, "%%rechner%%", "%%raum%% und %%datum%% durch
  6. das Script durch die aktuellen Werte ersetzt werden

my $head =<<'KOPF'; <!doctype html public "-//W3C//DTD HTML 4.0 //EN"> <html> <head> <title>Surfkontrolle</title> <meta name="author" content="Hans-Dietrich Kirmse"> <style type="text/css"> </style> </head> <body background="/online/whttxtr2.jpg" text="#000000" bgcolor="#FFFFFF" link="#0000FF" alink="#0000C0" vlink="#FF0000">

%%aufrufer%% am PC "%%rechner%%" im Raum "%%raum%%" %%datum%%

Es wurden folgende Web-Seiten aufgerufen:

KOPF
  1. die Variable $foot sollte normalerweise nicht geändert werden, da nur Copyrightvermerk.
  2. Falls dieser an irgendeiner anderen Stelle erscheint, ist dagegen natürlich nichts einzuwenden.
my $foot =<<'FUSS';
Zeit Arbeitsplatz Login URL

© <a class="link" href="mailto:hd.kirmse@gmx.de">HD. Kirmse</a>, ERG Saalfeld/Thüringen, surfcontrol Version 0.1 - Oktober 2008

</body> </html> FUSS


  1. wenn keine Anmeldungen am Fileserver vorliegen, dann wird folgende Tabelle
  2. zurueckgegeben, der Platzhalter %%fehler%% wird dann ersetzt

my $error =<<'FEHLER';

%%fehler%% FEHLER

                1. Ende des Konfigurationsbereiches #################################
  1. ========================== weitere globalen Variablen ===================

my $ldap_base; # wird z.B. zu 'dc=erg,c=de' my $ip; # IP des Lehrer-PCs my $teacher; # Login des aufrufenden Lehrers my @teacher; # die Logins der Lehrer my $room; # der Raum my %pcs; # die PCs in diesem Raum my @daten; # Daten vom Logfile my $startwert; # die Zeile des Logfiles my $date; # Datum und Zeit des Aufrufs my $table; # die Tabelle der HTML-Seite my $datei = 'startwert'; # Datei mit Startwert fuer akt. Stunde

  1. ========================== Hauptprogramm ================================
  1. wir holen uns das Login des Lehrers, von dem das Script aufgerufen wurde

$teacher = $ENV{REMOTE_USER}; defined($teacher) or die "es liegt keine Anmeldung am Apache vor, $!\n";

  1. wir holen uns die IP des Rechners, von dem das Script aufgerufen wurde

$ip = $ENV{REMOTE_ADDR}; defined($ip) or die "ein unerwarteter Fehler ist aufgetreten, $!\n";

  1. wir holen uns die Lehrer aus dem LDAP

@teacher = &get_teacher;

  1. wir holen uns den Raum und die Rechner fuer diesen Raum

($room, %pcs) = &get_pcs; # %pcs: Key ist die IP, Value der Name

  1. wir holen uns den Startwert (entspricht der Startzeit)

$startwert = &get_startwert($datei);

  1. wir lesen das Logfile ein und erzeugen dabei gleich unsere Datenstruktur
  2. Diese haben folgende Struktur: $daten[x] = \($nr, $ip, $pc, $login, $zeit, $url);

@daten = &get_data($logfile, $startwert);

  1. falls ueberhaupt keine Aufrufe am Proxy vorliegen, brechen wir hier ab

if (scalar @daten == 0) { $error =~ s/%%fehler%%/$fehler1/; $table = $error; goto AUSGABE; }

  1. wir reduzieren jetzt (anhand der IP) die Daten auf die Anmeldungen im Raum

@daten = &filtern_nach_raum(\@daten, \%pcs);

  1. falls keine Aufrufe am Proxy von diesem Raum vorliegen, brechen wir ab

if (scalar @daten == 0) { $error =~ s/%%fehler%%/$fehler2/; $table = $error; goto AUSGABE; }

  1. wir blenden die Lehrer aus

@daten = &lehrer_ausblenden(1, \@daten, \@teacher, \%config);

  1. wir bauen jetzt die eigentliche Tabelle zusammen
  2. es wird hier nur das HTML herumgestrickt (incl. URLs)

$table = &get_table( \@daten, \%config, \%pcs ); AUSGABE:

  1. wir holen uns Datum und Uhrzeit (wird im Kopf der HTML-Seite angezeigt)

$date = &datum($format);

  1. wir bearbeiten den Kopf

$head =~ s/%%aufrufer%%/$teacher/; $head =~ s/%%datum%%/$date/; $head =~ s/%%rechner%%/$pcs{$ip}/; $head =~ s/%%raum%%/$room/;

  1. wir schicken die Seite zum Apache

print "Content-type: text/html\n\n"; print $head; print $table; print $foot;

                                      1. Ende des Hauptprogramms #############################
  1. ========================== Funktionen ===================================

sub _get_ldapbase { my $ldap_base = ; # wir durchsuchen die ldap.conf mit einer Regex open DATEI, '<', '/etc/ldap.conf' or die "konnte ldap.conf nicht oeffnen, $!\n"; while (my $zeile = <DATEI>) { if ($zeile =~ m/^\s*base\s+(\w.*\w)\s*$/) { $ldap_base = $1; last; } } close DATEI; return $ldap_base; } sub get_teacher { my ($ldap_base, $ldap, $mesg, @teacher); # wir verbinden uns mit den LDAP $ldap = Net::LDAP->new('127.0.0.1',version => 3) or die "$@"; $ldap->bind or die "konnte mich nicht mit dem Server verbinden"; # wir holen uns die Suchbasis $ldap_base = &_get_ldapbase; # wir holen uns nun die Lehrer $mesg = $ldap->search( base => "ou=LEHRER,o=SCHULE,$ldap_base", filter => "gidNumber=101", attrs => [ 'uid' ], scope => "sub"); mesg->code and die $mesg->error; # wir trennen uns vom LDAP $ldap->unbind; # wir stecken die Daten aus den Entries in eine Liste @teacher = (); foreach my $entry ($mesg->entries) { push @teacher, $entry->get_value('uid'); } return @teacher; } sub get_pcs { my $ip = shift; my ($ldap_base, $ldap, $mesg, $entry, $dn, $pc, $suchbasis, %rechner, $tmp, $raum); # wir verbinden uns mit den LDAP $ldap = Net::LDAP->new('127.0.0.1',version => 3) or die "$@"; $ldap->bind or die "konnte mich nicht mit dem Server verbinden"; # wir holen uns die Suchbasis $ldap_base = &_get_ldapbase; # wir holen uns den Raum zu der IP ($ip) $mesg = $ldap->search( base => "cn=DHCP Service Config,o=DHCP,$ldap_base", filter => "dhcpStatements=fixed-address $ip", attrs => [ 'dhcpHost' ], scope => "base"); mesg->code and die $mesg->error; # wir holen uns den DN ($entry) = $mesg->entries or die "konnte keinen dhcpHost finden"; $dn = $entry->dn; # wir spalten vom DN den Rechnernamen ab, den Rest nehmen wir gleich als Suchbasis ($pc, $suchbasis) = $dn =~ /^cn=([^,]*),(.*)$/; # wir holen uns die Rechner (sind im DN) und IPs zu diesen Raum $mesg = $ldap->search( base => $suchbasis, filter => "objectClass=dhcpHost", attrs => [ 'dhcpStatements' ]); $mesg->code and die $mesg->error; # wir trennen uns vom LDAP $ldap->unbind; # wir stecken die Daten aus den Entries in einen "normalen" Hash %rechner = (); foreach my $entry ($mesg->entries) { $dn = $entry->dn; ($pc) = $dn =~ /^cn=([^,]*),/ ; # die Klammer ist der Rechnername $tmp = $entry->get_value('dhcpStatements'); ($ip) = $tmp =~ /fixed-address (.*)$/; $rechner{$ip} = $pc; } # wir holen uns noch den Raum ($raum) = $suchbasis =~ /^cn=([^,]*),/ ; # die Klammer ist der Raum return ($raum,%pc); } sub get_startwert { my $datei = shift; open DATEI, "<", $datei; my $startwert = <DATEI>; # es wird nur eine Zeile eingelesen chomp($startwert); # eventuellen Zeilenumbruch entfernen close DATEI; # wenn keine Zahl eingelsen wurde, dann setzen wir den Startwert auf 0 unless ($startwert =~ /^\d*$/) { $startwert = 0; } return $startwert; } sub get_data { my $logfile = shift; my $startwert = shift; my $zaehler = 1; # entspricht Zeilennummer my ($ip, $login, $dummy, $zeit, $dummy2, $addr, $url, $dummy3, $url_orig); open DATEI, "<", $logfile; while (my $zeile = <DATEI>) { # wir erhoehen den Zaehler $zaehler++; if ($zaehler > $startwert) { # wir splitten die Zeile beim Leerzeichen ($ip, $login, $dummy, $zeit, $dummy2, $addr, $url, $dummy3) = split (/ /,$zeile,8); # bevor wir die URL bearbeiten, erzeugen wir eine Kopie $url_orig = $url; # wir vernichten zuerst alles was nach einem Doppelkreuz steht ($url) = $url =~ /^([^#]*)/; # wir vernichten alles was nach einem Fragezeichen steht ($url) = $url =~ /^([^?]*)/; # URL wird genommen, wenn am Ende steht: # .shtm | .shtml | .htm | .html | .cgi | .jsp | .php | .php3 | .php4 | .py | .pl if (($url =~ /\.(s?html?|cgi|jsp|php.?|py|pl)$/) # es sollen auch reine Domainangaben angezeigt werden z.B. www.heise.de or ($url =~ /^http.?:\/\/[.\w]*$/) ) { # wir holen uns noch die Zeit, das Datum wird verworfen ($zeit) = $zeit =~ /:(..:..:..)$/ ; my @values = ($ip, $login, $zeit, $url, $zaehler, $url_orig); # wird anonyme Liste push @daten, \@values; } } } close DATEI; return @daten; }

  1. --------------------------------------------------------------------
  2. Funktion: es werden nur die Datensaetze aus diesem Raum zurueckgegeben
  3. Aufruf: @daten = &filtern_nach_raum(\@daten, \%pcs);
  4. Input: $daten[x] = \($ip, $login, $zeit, $url, $zaehler, $url_orig);
  5. $pcs{$ip} = $rechnername;
  6. Output: $daten[x] = \($ip, $login, $zeit, $url, $zaehler, $url_orig);
  7. Update: 20.01.2008
  8. --------------------------------------------------------------------

sub filtern_nach_raum { my $lref_daten = shift; my $href_pcs = shift; my @daten = @{$lref_daten}; my %pcs = %{$href_pcs}; my ($ip, @temp); foreach my $nr (@daten) { my @liste = @{$nr}; # wir holen uns die IP $ip = $liste[0]; # nur wenn diese IP zu den Rechnern des Raumes gehoert if (defined($pcs{$ip})) { # dann wollen wir diesen Datensatz push @temp, \@liste; } } return @temp; }

  1. @daten = &lehrer_ausblenden( LOGIN, \@daten, \@teacher, \%config);

sub lehrer_ausblenden { my $nummer = shift; # welches Listenelement das Login ist - hier "1" my $lref_daten = shift; my $lref_teacher = shift; my $href_config = shift; my @daten = @{$lref_daten}; my @teacher = @{$lref_teacher}; my %config = %{$href_config}; my @unvisible = @{$config{UNVISIBLE}}; my $unvisiblestring = $config{UNVISIBLE_STRING}; my %teacher = (); foreach my $element (@teacher) { $teacher{$element} = 1; } my ($login, $anz); if ($config{TEACHER} eq 'no') { foreach my $datum (@daten) { my @tmp = @{$datum}; # holen wir das Login $login = $tmp[$nummer]; # wir ueberpruefen, ob es ein Lehrer ist if (exists($teacher{$login})) { $tmp[1] = $unvisiblestring; # Login ersetzen $datum = \@tmp; } else { $anz = grep /$login/, @unvisible; # skalarer Kontext - grep gibt Anzahl zurueck if ($anz > 0) { $tmp[$nummer] = $unvisiblestring; # Login ersetzen $datum = \@tmp; } } } } return @daten; }

  1. --------------------------------------------------------------------
  2. Funktion: es wird die eigentliche Tabelle zusammengesetzt
  3. Aufruf: $table = &get_table(\@daten, \%config, \%pcs);
  4. Input: @daten = die bearbeiteten Daten
  5. %config = die Konfiguration
  6. Output: $tabelle = die Tabelle als ein großer String
  7. Update: 20.01.2008
  8. --------------------------------------------------------------------

sub get_table # $ip, $login, $zeit, $url, $zaehler, $url_orig { my $lref_daten = shift; my $href_config = shift; my $href_pcs = shift; my @daten = @{$lref_daten}; my %config = %{$href_config}; my %pcs = %{$href_pcs}; my $tabelle = ; my (@temp, $login, $farbe); foreach my $datum (@daten) { @temp = @{$datum}; $tabelle .= ''; # Beginn der HTML-Zeile # ---------- die 1. Spalte: "Zeit" ------------ $tabelle .= ''.$temp[2].''; 

   # -------- die 2. Spalte: "Arbeitsplatz" ------------

$tabelle .= ''.$pcs{$temp[0]}.''; # Rechnername 

   # -------- die 3. Spalte: "Login" ---------------

$tabelle .= ''.$temp[1].''; # Login 

   # -------- die 4. Spalte: "URL" ---------------

$tabelle .= '<a href="'.$temp[5].'">'.$temp[3].'</a>'; 

   # -------------------------------------------------

$tabelle .= ''."\n"; # Ende der HTML-Zeile } return $tabelle; }

  1. --------------------------------------------------------------------
  2. Funktion: Hilfsfunktion zur zweistelligen Darstellung der Zeitdaten
  3. Aufruf: $sek = &zweistellig($sek);
  4. Input: $sek oder $min oder $std
  5. Output: diese Werte, aber zweistellig
  6. Update: 1.01.2008
  7. --------------------------------------------------------------------

sub zweistellig { my $datum = shift; if ($datum < 10) { $datum = '0'.$datum } return $datum; }

  1. --------------------------------------------------------------------
  2. Funktion: liefert formatierten Datumsstring
  3. Aufruf: $date = &datum($format);
  4. Input: String fuer das Ausgabeformat
  5. Output: String mit Datum und Uhrzeit
  6. Update: 1.01.2008
  7. --------------------------------------------------------------------

sub datum { my $format = shift; my @date = localtime(); my $sek = $date[0]; my $min = $date[1]; my $std = $date[2]; my $tag = $date[3]; my $monat = $date[4] + 1; my $jahr = $date[5] + 1900; $sek = &zweistellig($sek); $min = &zweistellig($min); $std = &zweistellig($std); my $rueckgabe = $format; $rueckgabe =~ s/%%tag%%/$tag/; $rueckgabe =~ s/%%monat%%/$monat/; $rueckgabe =~ s/%%jahr%%/$jahr/; $rueckgabe =~ s/%%stunde%%/$std/; $rueckgabe =~ s/%%minute%%/$min/; $rueckgabe =~ s/%%sekunden%%/$sek/; return $rueckgabe; } __END__ </source>

Benutzer:Kirmse
Abgerufen von „https://wiki.sachsen.schule/dwiki/index.php?title=Benutzer:Kirmse/Surfkontrolle&oldid=9089“