Quelltext von Seite Benutzer:Kirmse/flehrer01 ansehen

=== das Script ===

 <font color="#C0C0C0"><i>#!/usr/bin/perl -w</i></font>
 
 use strict;
 
 <font color="#C0C0C0"><i># ---------------- Konfigurationsbereich ----------------------</i></font>
 
 <font color="#C0C0C0"><i># Anzahl der Spalten in der Tabelle fuer die Auswahl der Klassen</i></font>
 my $anzspalten = 6;
 
 <font color="#C0C0C0"><i># das Kommando, dass an den LDAP abgesetzt wird</i></font>
 my $kommando = "ich werden den doch hoffentlich noch bekommen :)";
 
 
 <font color="#C0C0C0"><i># ---------------- Initialisierungsbereich --------------------</i></font>
 
 my ($lehrer,@daten,%schueler,$klassen,$teilnehmer,$projekte);
 my ($datei1,$datei2,$zeit,$liste1,$liste2,$formular);
 
 <font color="#C0C0C0"><i># wir basteln uns eine Zeitmarkierung z.B. 2005-11-5--9-27</i></font>
 my ($sek,$min,$st,$tag,$monat,$jahr,$wt,$tj,$sz) = localtime(time);
 $zeit = ($jahr+1900).'-'.($monat+1).'-'.$tag.'--'.$st.'-'.$min;
 
 <font color="#C0C0C0"><i># der Dateiname fuer die Zuordnung Schueler-Klasse</i></font>
 $datei1 = 'schueler.'.$zeit.'.txt';
 <font color="#C0C0C0"><i># der Dateiname fuer die Zuordnung Projektgruppe-Klasse</i></font>
 $datei2 = 'teilnehmer.'.$zeit.'.txt';
 
 
 <font color="#C0C0C0"><i># ---------------- Hauptprogramm ------------------------------</i></font>
 
 <font color="#C0C0C0"><i># es holt sich das Login des Lehrers (aus der Umgebungsvariablen REMOTE_USER)</i></font>
 $lehrer = $ENV{REMOTE_USER};
 
 <font color="#C0C0C0"><i># es setzt ein Shellkommando an den LDAP ab</i></font>
 @daten    = &hole_daten($kommando);
 
 <font color="#C0C0C0"><i># es erstellt eine Schülerliste (Login -> Klasse)</i></font>
 %schueler = &erstelle_schuelerliste(@daten);
 
 <font color="#C0C0C0"><i># diese Schülerliste wird abgespeichert</i></font>
 &speichern_schuelerliste($datei1,%schueler);
 
 <font color="#C0C0C0"><i># es erstellt eine Klassenliste (z.B. 5a, 5b, 6a, ...)</i></font>
 $liste1   = &erstelle_klassenliste(%schueler);
 
 <font color="#C0C0C0"><i># es erstellt ein Formular</i></font>
 $formular = &erstelle_formular($liste1,$anzspalten);
 print $formular;
 
 
 <font color="#C0C0C0"><i># ---------------- Prozeduren ---------------------------------</i></font>
 
 
 <font color="#C0C0C0"><i>#--------------------------------------------------------------------</i></font>
 <font color="#C0C0C0"><i># Funktion: holt mit einem Shell-Aufruf die Daten aus dem LDAP</i></font>
 <font color="#C0C0C0"><i># Aufruf:   @daten = &hole_ldif-Daten($kommando);</i></font>
 <font color="#C0C0C0"><i># Input:    der Shellaufruf als String</i></font>
 <font color="#C0C0C0"><i># Output:   quasi ein "LDIF-File" als Liste</i></font>
 <font color="#C0C0C0"><i># Bemerk.:  Shellaufruf mit eval, d.h. kein Abbruch bei Fehler</i></font>
 <font color="#C0C0C0"><i>#        :  !!! z.Zeit einfach ein passwd-Aufruf als Dummy !!!</i></font>
 <font color="#C0C0C0"><i># Update:   12.11.2005</i></font>
 <font color="#C0C0C0"><i>#--------------------------------------------------------------------</i></font>
 sub hole_daten {
   my $kommando = shift;
 
   <font color="#C0C0C0"><i># es wird hier als Dummy erstmal eine LDIF-Datei eingelesen.</i></font>
   <font color="#C0C0C0"><i># solange die nicht zur Verfügung steht, eine passwd</i></font>
 
   open (DATEI,'<passwd') or die "passwd konnte nicht geoeffnet werden";
   my @daten = <DATEI>;
   close DATEI;
 
   return @daten
 }
 
 
 <font color="#C0C0C0"><i>#--------------------------------------------------------------------</i></font>
 <font color="#C0C0C0"><i># Funktion: holt  aus dem ldif-File die Logins und die Klasse</i></font>
 <font color="#C0C0C0"><i># Aufruf:   %schueler = &erstelle_schuelerliste_aus_ldif(@daten);</i></font>
 <font color="#C0C0C0"><i># Input:    das ldif-file als Liste</i></font>
 <font color="#C0C0C0"><i># Output:   einen Hash %schueler  Login -> Klasse</i></font>
 <font color="#C0C0C0"><i># Bemerk.:  derzeit nicht eingebunden, es ist nur eine</i></font>
 <font color="#C0C0C0"><i>#           Vermutung, dass das LDIF so aussieht</i></font>
 <font color="#C0C0C0"><i># Update:   12.11.2005</i></font>
 <font color="#C0C0C0"><i>#--------------------------------------------------------------------</i></font>
 sub erstelle_schuelerliste_aus_ldif {
   my @daten = @_;
   my ($login,$klasse,%schueler);
 
   <font color="#C0C0C0"><i># fuer jede Zeile der Daten tue</i></font>
   foreach my $zeile (@daten) {
     <font color="#C0C0C0"><i># wenn die Zeile mit gecos beginnt, dann</i></font>
     if ($zeile =~ /^gecos:(.*)$/) {
       <font color="#C0C0C0"><i># zerlege den Klammerausdruck beim Komma in Login und Klasse</i></font>
       ($login,$klasse) = split ',' , $1;
       <font color="#C0C0C0"><i># erstelle die Zuordnung Login -> Klasse (Hash: %schueler)</i></font>
       $schueler{$login} = $klasse;
     }
   }
   <font color="#C0C0C0"><i># den Hash (die Zuordnung) %schueler geben wir zurueck</i></font>
   return %schueler
 }
 
 
 <font color="#C0C0C0"><i>#--------------------------------------------------------------------</i></font>
 <font color="#C0C0C0"><i># Funktion: holt aus der passwd die Logins und die Klasse</i></font>
 <font color="#C0C0C0"><i># Aufruf:   %schueler = &erstelle_schuelerliste(@daten);</i></font>
 <font color="#C0C0C0"><i># Input:    die passwd als Liste: @daten</i></font>
 <font color="#C0C0C0"><i># Output:   einen Hash %schueler  Login -> Klasse</i></font>
 <font color="#C0C0C0"><i># Bemerk.:  hat nur Dummy-funktion, da kein LDIF-file zur Verfuegung</i></font>
 <font color="#C0C0C0"><i># Update:   10.11.2005</i></font>
 <font color="#C0C0C0"><i>#--------------------------------------------------------------------</i></font>
 sub erstelle_schuelerliste {
   my @daten = @_;
   my ($login,$klasse,%schueler,@temp);
 
   <font color="#C0C0C0"><i># fuer jede Zeile der Daten tue</i></font>
   foreach my $zeile (@daten) {
     <font color="#C0C0C0"><i># wir zerlegen die Zeile</i></font>
     @temp = split ':', $zeile;
     <font color="#C0C0C0"><i># wenn die Zeile mit gecos beginnt, dann</i></font>
     if ($temp[3] == 102) {
       <font color="#C0C0C0"><i># zerlege den Klammerausdruck beim Komma in Login und Klasse</i></font>
       ($login,$klasse) = split ',' , $temp[4];
       <font color="#C0C0C0"><i># erstelle die Zuordnung Login -> Klasse (Hash: %schueler)</i></font>
       if (defined($klasse)) { $schueler{$login} = $klasse }
     }
   }
   <font color="#C0C0C0"><i># den Hash (die Zuordnung) %schueler geben wir zurueck</i></font>
   return %schueler
 }
 
 
 <font color="#C0C0C0"><i>#--------------------------------------------------------------------</i></font>
 <font color="#C0C0C0"><i># Funktion: speichert den Hash %schueler</i></font>
 <font color="#C0C0C0"><i># Aufruf:   &speichern_schuelerliste(%schueler);</i></font>
 <font color="#C0C0C0"><i># Input:    das ldif-file als Liste</i></font>
 <font color="#C0C0C0"><i># Output:   enen Hash %schueler  Login -> Klasse</i></font>
 <font color="#C0C0C0"><i># Bemerk.:  hat nur Dummy-funktion, da kein LDIF-file zur Verfuegung</i></font>
 <font color="#C0C0C0"><i># Update:   10.11.2005</i></font>
 <font color="#C0C0C0"><i>#--------------------------------------------------------------------</i></font>
 sub speichern_schuelerliste {
   my $datei = shift;
   my %schueler = @_;
 
   <font color="#C0C0C0"><i># oeffne die Datei $datei zum schreiben oder Abbruch mit Fehlermeldung</i></font>
   open (DATEI,">$datei")
     or die "die Datei $datei konnte nicht geschrieben werden.\n$!";
   <font color="#C0C0C0"><i># fuer jeden User des Hashs tue</i></font>
   foreach my $user (keys %schueler) {
     <font color="#C0C0C0"><i># schreibe in die Datei das Login ein Leerzeichen und seine Klasse</i></font>
     print DATEI $user, ' ', $schueler{$user}, "\n"
   }
   <font color="#C0C0C0"><i># schliesse die Datei</i></font>
   close DATEI;
 }
 
 
 sub erstelle_klassenliste {
   my %schueler = @_;
 
   my %klassen  = ();
   my $liste    = "";
   my $klasse   = "";
 
   <font color="#C0C0C0"><i># fuer jeden Schueler des Hashs tue</i></font>
   foreach my $user (keys %schueler) {
     <font color="#C0C0C0"><i># speichere die Klasse des Schuelers in $klasse</i></font>
     $klasse = $schueler{$user};
     <font color="#C0C0C0"><i># bringe die Klasse in den Hash %klassen (vernichte Doubletten)</i></font>
     $klassen{$klasse} = 1;
   }
 
   <font color="#C0C0C0"><i># fuer jede Klasse aus dem Hash %klassen</i></font>
   foreach my $klasse (keys %klassen) {
     <font color="#C0C0C0"><i># hänge den Schluessel (also die Klasse) und ein Komma an $liste</i></font>
     $liste .= $klasse.','
   }
   <font color="#C0C0C0"><i># das letzte Komma war zuviel, also weg</i></font>
   chop($liste);
 
   <font color="#C0C0C0"><i># gibt diesen String mit den Klassen zurueck</i></font>
   return $liste
 }
 
 
 sub erstelle_formular {
   my $liste = shift;
   my $AnzSp = shift;
 
   my $header = "Content-type: text/html\n\n";
 
   my $formular = "";
   <font color="#C0C0C0"><i># das Formular wird als HERE-Dokument definiert.</i></font>
   <font color="#C0C0C0"><i># dieses geht bis "ENDE", danach wird die Tabelle fuer die</i></font>
   <font color="#C0C0C0"><i># Klassen gebaut. Dieses HERE-Dokument ist reines HTML!</i></font>
   $formular .= <<ENDE;
 
 &lt;head&gt;
 &lt;title&gt;Webinterface für Fachlehrer - Austeilen&lt;/title&gt;
 &lt;meta name=&quot;author&quot; content=&quot;HD.Kirmse&quot;&gt;
 &lt;/head&gt;
 &lt;body background=&quot;whttxtr2.jpg&quot;&gt;
 &lt;h1&gt;&amp;nbsp;Für Fachlehrer: Austeilen von Dateien&lt;/h1&gt;
 &lt;hr noshade size=&quot;2&quot;&gt;
 
 &lt;form action=&quot;/cgi-bin/kopieren.pl&quot; method=&quot;post&quot;&gt;
 &lt;p&gt;
 &amp;nbsp; &amp;nbsp;&lt;i&gt;Geben Sie hier an, aus welchem Verzeichnis des Fachlehrers kopiert werden soll:&lt;/i&gt;&lt;br&gt;
 &amp;nbsp; &amp;nbsp;&lt;b&gt;Unterverzeichnis von u: &lt;/b&gt; &lt;input type=&quot;Text&quot; name=&quot;quelle&quot; value=&quot;austeilen&quot; size=&quot;20&quot; maxlength=&quot;80&quot;&gt;
 &lt;/p&gt;
 &lt;p&gt;
 &amp;nbsp; &amp;nbsp;&lt;i&gt;Geben Sie hier an, in welches Verzeichnis des Schülers kopiert werden soll:&lt;/i&gt;&lt;br&gt;
 &amp;nbsp; &amp;nbsp;&lt;b&gt;Unterverzeichnis von u: &lt;/b&gt; &lt;input type=&quot;Text&quot; name=&quot;ziel&quot; value=&quot;einsammeln&quot; size=&quot;20&quot; maxlength=&quot;80&quot;&gt;
 &lt;/p&gt;
 
 &lt;hr noshade size=&quot;1&quot;&gt;
 
 &lt;p&gt;
 &amp;nbsp; &amp;nbsp;&lt;i&gt;Geben Sie hier an, welche Dateitypen kopiert werden sollen (Standard ist alle):&lt;/i&gt;&lt;br&gt;
 &amp;nbsp; &amp;nbsp;&lt;b&gt;alle: &lt;/b&gt; &lt;input type=&quot;Checkbox&quot; name=&quot;alle&quot; value=&quot;v&quot;&gt; &lt;b&gt;Word: &lt;/b&gt;&lt;input type=&quot;Checkbox&quot; name=&quot;word&quot; value=&quot;v&quot;&gt; &lt;b&gt;Text: &lt;/b&gt;&lt;input type=&quot;Checkbox&quot; name=&quot;text&quot; value=&quot;v&quot;&gt;
 &lt;/p&gt;
 
 &lt;hr noshade size=&quot;1&quot;&gt;
 
 &lt;p&gt;
 &lt;table &gt;
 &lt;tr&gt;
  &lt;td width=&quot;7&quot;&gt;&amp;nbsp;&lt;/td&gt;
  &lt;td&gt;&lt;i&gt;Geben Sie hier an, wie kopiert werden soll:&lt;/i&gt;&lt;/td&gt;
  &lt;td&gt;&amp;nbsp;&lt;/td&gt;
 &lt;/tr&gt;
 &lt;tr&gt;
  &lt;td&gt;&amp;nbsp;&lt;/td&gt;
  &lt;td&gt;kopierte Dateien beim Schüler &lt;b&gt;schreibgeschützt&lt;/b&gt;: &lt;/td&gt;
  &lt;td&gt;&lt;input type=&quot;Checkbox&quot; name=&quot;readonly&quot; value=&quot;v&quot;&gt;&lt;/td&gt;
 &lt;/tr&gt;
 &lt;tr&gt;
  &lt;td&gt;&amp;nbsp;&lt;/td&gt;
  &lt;td&gt;auch aus Unterverzeichnissen (&lt;b&gt;rekursiv&lt;/b&gt;) kopieren: &lt;/td&gt;
  &lt;td&gt;&lt;input type=&quot;Checkbox&quot; name=&quot;rekursiv&quot; value=&quot;v&quot;&gt; &lt;/td&gt;
 &lt;/tr&gt;
 &lt;/table&gt;
 &lt;/p&gt;
 
 &lt;hr noshade size=&quot;1&quot;&gt;
 
 &lt;p&gt;
 &lt;table border=&quot;0&quot;&gt;
 &lt;tr&gt;
  &lt;td width=&quot;7&quot;&gt;&amp;nbsp;&lt;/td&gt;
 ENDE
 
   <font color="#C0C0C0"><i># die naechste Zeile wurde nicht ins HERE-dokument genommen, weil die</i></font>
   <font color="#C0C0C0"><i># Uebergabe der Anzahl der Spalten als Variable so sicherer erscheint</i></font>
   $formular .= &quot; &lt;td colspan=\&quot;$AnzSp\&quot;&gt;&lt;i&gt;Wählen Sie hier die Klassen aus, deren Schüler Kopien erhalten sollen:&lt;/i&gt;&lt;/td&gt;\n&quot;;
   $formular .= '&lt;/tr&gt;';
 
   <font color="#C0C0C0"><i># und jetzt geht die Konstruktion der eigentlichen Tabelle los</i></font>
   my $zelle = "";
   my $zeile = "";
 
   <font color="#C0C0C0"><i># wir holen uns ersteinmal alle Klassen</i></font>
   my @liste = split ',', $liste;
   <font color="#C0C0C0"><i># und sortieren diese alphabetisch</i></font>
   @liste = sort @liste;
 
   <font color="#C0C0C0"><i># wir bestimmen die Anzahl</i></font>
   my $anzahl = @liste;
   <font color="#C0C0C0"><i># wenn die Anzahl der Klassen durch die Anzahl der Spalten einen Rest</i></font>
   <font color="#C0C0C0"><i># ergibt, füllen wir die Liste der Klassen mit Leerzeichen als Klassen auf</i></font>
   while (($anzahl % $AnzSp) > 0) {
     push @liste, '&nbsp;';
     $anzahl = @liste;
   }
 
   <font color="#C0C0C0"><i># der Zaehler ist 0</i></font>
   my $zaehler = 0;
   <font color="#C0C0C0"><i># fuer jede unserer Klassen</i></font>
   foreach my $klasse (@liste) {
     <font color="#C0C0C0"><i># wir setzen von der Zelle die Breite und Hintergrundfarbe</i></font>
     $zelle  = '&lt;td width=&quot;100&quot; bgcolor=&quot;<font color="#C0C0C0"><i>#F0F0F0&quot;&gt;';</i></font>
     <font color="#C0C0C0"><i># wenn die Klasse kein Leerzeichen ist, dann</i></font>
     if ($klasse ne '&nbsp;') {
       <font color="#C0C0C0"><i># kommt eine Checkbox</i></font>
       $zelle .= &quot;&lt;input type=\&quot;Checkbox\&quot; name=\&quot;$klasse\&quot; value=\&quot;v\&quot;&gt; &quot;;
       $zelle .= &quot;$klasse&lt;/td&gt;\n&quot;;
     <font color="#C0C0C0"><i># sonst</i></font>
     } else {
       <font color="#C0C0C0"><i># nur ein Leerzeichen</i></font>
       $zelle .= '&amp;nbsp;&lt;/td&gt;'.&quot;\n&quot;;
     }
 
     <font color="#C0C0C0"><i># wenn der Zaehler gleich 0 ist (also die erste Spalte), dann</i></font>
     if ($zaehler == 0) {
       <font color="#C0C0C0"><i># beginnen wir mit &lt;tr&gt; und einem leeren Feld und dann die Zelle</i></font>
       $zeile .= '&lt;tr&gt;&lt;td&gt;&amp;nbsp;&lt;/td&gt;'.$zelle
     <font color="#C0C0C0"><i># wenn der Zaehler gleich Spaltenzahl-1 ist (letzte Spalte), dann</i></font>
     } elsif ($zaehler == $AnzSp-1) {
       <font color="#C0C0C0"><i># haengen wir noch ein &lt;/tr&gt; an die Zelle dran</i></font>
       $zeile .= $zelle.'&amp;lt;/tr&amp;gt;'.&amp;quot;\n&amp;quot;
     <font color="#C0C0C0"><i># sonst (wenn nicht die erste oder letzte Spalte)</i></font>
     } else {
       <font color="#C0C0C0"><i># haengen wir nur die Zelle an</i></font>
       $zeile .= $zelle
     }
     <font color="#C0C0C0"><i># Zaehler um 1 erhoehen</i></font>
     $zaehler++;
     <font color="#C0C0C0"><i># Zaehler ist der Rest bei Division durch Anzahl der Spalten,</i></font>
     <font color="#C0C0C0"><i># wobei wir bei 0 mit zaehlen beginnen</i></font>
     $zaehler = $zaehler % $AnzSp;
   }
 
   <font color="#C0C0C0"><i># wir haengen an unser formular noch diese Tabelle (Zeilen) an</i></font>
   $formular .= $zeile.'&lt;/table&gt;'.&quot;\n&quot;.'&lt;/p&gt;';
 
   <font color="#C0C0C0"><i># und haengen noch das Ende der HTML-Seite als HERE-Dokument an</i></font>
   $formular .= <<ENDE;
 
 &lt;input type=&quot;Submit&quot; name=&quot;austeilen&quot; value=&quot;kopieren&quot;&gt;
 &lt;/form&gt;
 
 &lt;br&gt;
 &lt;hr&gt;
 &lt;address&gt;&amp;copy; HD. Kirmse, 10.11.2005&lt;/address&gt;
 &lt;/body&gt;
 &lt;/html&gt;
 
 ENDE
 
   <font color="#C0C0C0"><i># wir geben das gesamte Formular als String zurueck</i></font>
   return $header.$formular
 }
 
 
 <font color="#C0C0C0"><i># ---------------- Ende das Scripts ---------------------------</i></font>


=== ein Screenshot ===

[[bild:austeilen.png]]

--[[Benutzer:Kirmse|Kirmse]] 00:32, 13. Nov 2005 (CET)