anwenderwiki:mail:overquota-liste [CommunityWiki]

Diese Seite ist nicht editierbar. Sie können den Quelltext sehen, jedoch nicht verändern. Kontaktieren Sie den Administrator, wenn Sie glauben, dass hier ein Fehler vorliegt.

{{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!

Benutzer-Werkzeuge

Webseiten-Werkzeuge

Seiten-Werkzeuge