Benutzer-Werkzeuge

Webseiten-Werkzeuge


 [[anwenderwiki:mail:overquota-liste]] 

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

Beide Seiten der vorigen Revision Vorhergehende Überarbeitung
anwenderwiki:mail:overquota-liste [2014/07/16 19:05]
jochen
anwenderwiki:mail:overquota-liste [2017/12/02 20:54] (aktuell)
Tobias
Zeile 1: Zeile 1:
 +{{tag> }}
 +
 +{{tag>​Mailquota mailq}} ​
 +====== Liste der Benutzer erzeugen, die mailq verstopfen======
 +
 +Dieses Perl-Script generiert eine Liste aller Benutzer im Format //Klasse, Nachname, Vorname//, deren Mailquota überschritten ist und von denen deswegen Mails die mailq verstopfen.
 +
 +<code perl mailq-nicht-verstopfen.pl>​
 +  #​!/​usr/​bin/​perl -w
 +  # Jochen Rupp
 +  # Script checkt die mailq und generiert eine Liste von Benutzern,
 +  # die ihre mailquota ueberschritten haben nach dem Muster:
 +  # Klasse, Name, Vorname
 +  #################################################################################################​
 +  system ("​clear"​);​
 +  # Wenn die Dateien bereits existieren, vorher loeschen:
 +  $file = "/​root/​mailq_output";​
 +  $file2 = "/​root/​mailq_voll_liste";​
 +  if (-e $file){
 +        qx(/bin/rm $file);
 +        }
 +  if (-e $file2){
 +        qx(/bin/rm $file2);
 +        }
 +  # Output von mailq erzeugen und filtern:
 +  qx(/​usr/​bin/​mailq | grep localhost | /​usr/​bin/​cut -f1 -d@ |sort -u > $file);
 +  print "Von folgenden Benutzern, die ihre Mailquota ueberschritten haben, haengen mails in der mailq; generiere Liste mit Namen und Klasse:​\n\n";​
 +  open (OUT,">>​$file2"​) || die "​Konnte $file2 nicht oeffnen: $!\n";
 +  foreach $a (qx(/​bin/​cat $file)) {
 +        chomp $a;
 +        # Fuehrende Leerzeilen entfernen:
 +        $a =~ s/^\s+//;
 +        # Name und Klasse generieren:
 +        chomp($vorname = qx(smbldap-usershow $a |grep gecos |cut -d : -f 2 |cut -d " " -f 2));
 +        chomp($name = qx(smbldap-usershow $a |grep gecos |cut -d : -f 2 |cut -d " " -f 3));
 +        chomp($klasse = qx(smbldap-usershow $a |grep homeDirectory |cut -d / -f 4));
 +        # Ausgabe in Datei:
 +        print "$a wird verarbeitet...\n";​
 +        print OUT "​$klasse,​ $name, $vorname\n";​
 +        }
 +  close (OUT) || die "Kann $file2 nicht schliessen: $!\n";
 +  qx(/bin/rm $file);
 +  print "​\n\nDie Liste steht nun unter $file2 bereit.\n";​
 +  exit;
 +</​code>​
 +
 +Anhand der Liste können die Klassenlehrer bzw. DV-Lehrer informiert werden, sie mögen die entsprechenden SchülerInnen auffordern, Mails zu löschen.
 +Dabei ist darauf zu achten, dass anschließend auch die gelöschten Mails im Papierkorb gelöscht werden müssen!
  
 [[anwenderwiki:mail:overquota-liste]] anwenderwiki/mail/overquota-liste.txt · Zuletzt geändert: 2017/12/02 20:54 von Tobias