Eine neue Gruppe können Sie über die Einstellungen im oberen Teil spezifizieren und über den Button Gruppe anlegen angelegen. Die Erläuterungen zu den einzelnen Feldern erhalten sie weiter unten. Über den Button Zurücksetzen können Sie alle Formularfelder auf ihren Ursprungswert zurücksetzen.
Die nachfolgenden Tabellen zeigen alle im System vorhandenen Gruppen. Hierbei werden die Benutzer in zwei Kategorien eingeteilt: Normal und System. Die Funktionalität ist genauso wie im Benutzermanager implementiert worden. Über das Anklicken eines Gruppennamens gelangen Sie auf eine Seite, wo sie detailierte Gruppeninformationen erhalten sowie diese verändern können. Möchten Sie Gruppen aus dem System entfernen, markieren Sie die Checkboxen rechts neben dem Gruppennamen. Erst wenn Sie den Button Gruppen löschen drücken, werden die Gruppen aus dem System entfernt (über den Button Zurücksetzen werden alle Checkboxen demarkiert).
Derzeit besteht noch nicht die Möglichkeit, eventuell vorhandene Gruppenverzeichnisse zu löschen.
Der Name, unter der die Gruppe im System bekannt gegeben werden soll.
Hier ist die Möglichkeit gegeben, ein Gruppenverzeichnis anzulegen. Ist das Kontrollkästchen aktiviert (Standard), wird ein Gruppenverzeichnis angelegt. Der Pfad wird über das Drop-Down Menü Gruppenverzeichnis angegeben.
Für den Ort des Gruppenverzeichnisses stehen 3 Möglichkeiten offen:
Dabei werden die Zugriffsrechte des Gruppenverzeichnisses auf den Wert eingestellt, der in der Konfiguration zum Benutzer- und Gruppenmanager eingetragen wurden. Das Gruppenverzeichnis darf nicht existieren.
Das Programm zur automatischen Anlegung von Benutzern gibt während der gesamten Laufzeit Statusinformationen über den Stand der Arbeit sowie einige Übersichten zum Abschluß aus. Zuerst wird geprüft, ob alle benötigten Gruppen vorhanden sind und über diese Prüfung eine Meldung ausgegeben. Während des Anlegens der einzelnen Benutzer wird der Name des aktuell bearbeiteten Benutzers, der generierte Account-Name, die zugeordnete primäre Gruppe sowie eine Bearbeitungsmeldung ausgegeben.
Nachdem alle Benutzer angelegt wurden, wird eine Gruppenübersicht erstellt mit allen Gruppen und wieviele Benutzer diesen Gruppen zugeordnet wurden. Anschließend wird die Gesamtzahl der angelegten Accounts und Samba-Accounts aufgelistet. Bei einer komplett erfolgreichen Anlegung sollten diese beiden Zahlen gleich sein.
Zum Abschluß wird noch der Pfad und Dateiname zur Datei mit den generierten Benutzerdaten sowie Laufzeitdaten ausgegeben.
technomgr/help/groupmod.html 0100744 0000764 0000764 00000011717 07247215036 015377 0 ustar f5soh f5sohDieses Modul zeigt Detail-Informationen zu einer Gruppe und ermöglicht die Modifizierung der sekundären Mitglieder der Gruppe. Dabei gliedert sich diese Seite in 3 Teile:
Hier wird der Status der Gruppenmodifizierung mit eventuellen Fehlermeldungen ausgegeben. Dieser Teil wird nur angezeigt, wenn die Gruppendaten modifiziert werden.
Neben dem Gruppennamen und der Gruppen ID (GID) werden die primären und sekundären Gruppenmitglieder ausgegeben. Bei den Gruppenmitgliedern wird sowohl der Name als auch in Klammern die UID angezeigt..
Im dritten Teil haben Sie die Möglichkeit, der Gruppe sekundäre Mitglieder hinzuzufügen oder zu entfernen. Die Unterstützung von Quota ist (noch) nicht implementiert, hier ist das Modul "Festplatten-Quota" zu verwenden.
Alle Werte des Formulars sind standardmäßig auf die aktuellen Gruppenwerte gesetzt. Sollte der Button Gruppe ändern gedrückt werden, ohne daß Veränderungen in den sekundären Mitgliedern der Gruppe vorgenommen wurden, werden keine Änderungen durchgeführt. Der Button Zurücksetzen setzt die Werte auf die aktuellen Werte zurück.
Der Gruppenname, wie er im System verwendet wird.
Die Gruppen ID (GID) ist eine eindeutige Nummer im System, die die Gruppe identifiziert. Intern werden die Gruppenzugehörigkeiten von Dateien und Verzeichnissen nicht mit ihrem Namen sondern mit der GID gespeichert. Hieraus ergibt sich, daß Dateien, die einer Gruppe gehören und die Gruppe anschließend gelöscht wird, immer noch der GID der Gruppe gehören. Wird eine neue Gruppe mit der GID der gelöschten Gruppe angelegt, gehören alle Dateien und Verzeichnisse der gelöschten Gruppe der neuen Gruppe.
GIDs unter 100 sind typischerweise für spezielle System-Gruppen reserviert (z.B. bin, modem, named ...). Die Gruppe mit der GID 0 ist immer die Systemadministratorgruppe (root), die mit der GID 65534 ist immer "nogroup". Insgesamt stehen 65535 GIDs für Gruppen zur Verfügung, für normale Gruppen bleiben 65434 UIDs.
Unter Unix-Betriebssystemen besteht ein Gruppenzwang, das heißt, das jeder Benutzer mindestens einer Gruppe zugeordnet werden muß. Die Hauptgruppe eines Benutzers, womit er bei der Anmeldung initialisiert wird, wird primäre oder Initial-Gruppe genannt. Alle Dateien, die der Benutzer anlegt, werden dieser Gruppe zugeordnet. Natürlich können mehrere Benutzer ein und die selbe Gruppe als primäre Gruppe nutzen.
Primäre Gruppenmitglieder können mit diesem Modul nicht verändert werden, dazu müssen Sie die Benutzereinstellungen im Benutzermanager modifizieren.
Die Benutzer, die in dieser Gruppe zusätzlich zur ihrer primären Gruppe als Mitglied eingetragen sind. Hiermit können zusätzlich Gruppen zu den Hauptgruppen gebildet werden, die gemeinsame Rechte besitzen.
Die Liste enthält alle Benutzer mit der UID in Klammern, die in dieser Gruppe sekundäres Mitglied sind. Möchten Sie sekundäre Mitglieder aus dieser Gruppen löschen, markieren Sie bitte diese Benutzer. Eine Mehrfachauswahl ist möglich.
Bitte beachten Sie, daß, wenn sie sehr viele Mitglieder markieren, es vorkommen kann, daß nicht alle sekundären Mitglieder der Gruppen gelöscht werden. Wenn dieser Fall auftritt, wiederholen sie bitte die Modifizierung der Zugehörigkeit zu der Gruppe.
Die Liste enthält alle Benutzer mit der UID in Klammern, die in dieser Gruppe sekundäres Mitglied werden können. Möchten Sie der Gruppe weiteren sekundären Mitglieder hinzufügen, markieren Sie bitte die entsprechenden Benutzer. Eine Mehrfachauswahl ist möglich.
Bitte beachten Sie, daß, wenn sie sehr viele Benutzer markieren, es vorkommen kann, daß nicht alle der Gruppe als sekundäres Mitglieder hinzugefügt werden. Wenn dieser Fall auftritt, wiederholen sie bitte die Modifizierung der Zugehörigkeit zu der Gruppe.
Dieses Modul zeigt Detail-Informationen zu einem Account und ermöglicht die Modifizierung einiger Einstellungen für den Benutzer. Dabei gliedert sich diese Seite in 3 Teile:
Alle Werte des Formulars sind standardmäßig auf die aktuellen Benutzerwerte bzw. auf keine Änderung gesetzt. Sollte der Button Benutzer ändern gedrückt werden, ohne daß Veränderungen in den Benutzer-Daten vorgenommen wurden, werden keine Änderungen durchgeführt. Der Button Zurücksetzen setzt die Werte auf die aktuellen Benutzerdaten zurück.
Bitte beachten Sie, daß die Gruppenzugehörigkeiten von Dateien und Verzeichnissen (vor allem im Heimatverzeichnis) nicht verändert werden sowie das Heimatverzeichnis nicht verschoben wird.
Der Anmeldename des Benutzers, wird auch für Netzwerkdienste wie Samba, FTP, Mail ... benötigt.
Die Benutzer ID (UID) ist eine eindeutige Nummer im System, die den Benutzer identifiziert. Intern werden die Besitzer von Dateien und Verzeichnissen nicht mit ihrem Namen sondern mit der UID gespeichert. Hieraus ergibt sich, daß Dateien, die von einem User angelegt wurden und der User anschließend gelöscht wird, immer noch der UID des anlegenden Benutzers gehören. Wird ein neuer User mit der UID des gelöschten Users angelegt, gehören ihm alle Dateien des gelöschten Benutzers.
UIDs unter 100 sind typischerweise für spezielle System-Benutzer reserviert (z.B. bin, mysql, named ...). Der Benutzer mit der UID 0 ist immer der Systemadministrator (root), der mit der UID 65534 immer "nobody". Insgesamt stehen 65535 UIDs für Accounts zur Verfügung, für normale Accounts bleiben 65434 UIDs.
Der Vor- und Nachname des Benutzers, dem dieser Account gehört. Bei System-Accounts wird hier häufig eine Beschreibung der Funktion des Accounts angegeben.
Unter Unix-Betriebssystemen besteht ein Gruppenzwang, das heißt, daß jeder Benutzer mindestens einer Gruppe zugeordnet werden muß. Die Hauptgruppe eines Benutzers, womit er bei der Anmeldung initialisiert wird, wird primäre oder Initial-Gruppe genannt. Alle Dateien, die der Benutzer anlegt, werden dieser Gruppe zugeordnet. Der Benutzer kann Dateien, die ihm selbst gehören, anderen Gruppen zuordnen, falls er Mitglied der anderen Gruppe ist, jedoch kann zu jeder Datei oder Verzeichnis nur eine Gruppe zugeordnet werden.
Die Gruppen, in denen der Benutzer zusätzlich zur primären Gruppe Mitglied ist.
Der Pfad zum Heimatverzeichnis des Benutzers.
Die Shell, die dem Benutzer für die Anmeldung zugewiesen wurde. Reale Shells (z.B. /bin/bash) sind nur für Benutzer notwendig, die sich direkt oder per Telnet / SSH an dieser Maschine anmelden sollen. Für Benutzer, die nur einen Account auf dieser Maschine benötigen, um Netzwerkdienste zu benutzen (z.B. Samba, Mail, FTP ...), sollte die Shell "/bin/false" zugewiesen werden, da damit eine direkte Anmeldung oder eine Anmeldung per Telnet / SSH nicht ermöglicht wird.
Über diesen Punkt kann erreicht werden, daß das System-Paßwort geändert wird (nicht das Samba-Paßwort). Um unterschiedliche Paßwörter zu vermeiden, sollte bei Änderung des System-Paßwort auch das Samba-Paßwort geändert werden (siehe Samba-Account). Das neue Paßwort wird über die Felder Paßwort und Paßwortwiederholung angegeben.
Hier kann das neue Paßwort des Benutzers eingegeben werden, das maximal 14 Zeichen betragen kann. Zur Validierung muß im Feld Paßwortwiederholung das gleiche Paßwort eingetragen werden. Das neue Paßwort wird nur gesetzt, wenn die beiden angegebenen Paßwörter identisch sind sowie Paßwort ändern auf "ja" und/oder Samba-Account auf "Paßwort ändern" oder "anlegen und aktivieren" gesetzt sind.
Hier kann die primäre Gruppe des Benutzers verändert werden. Standardmäßig steht hier die aktuelle primäre Gruppe. Sollten Sie die primäre Gruppe ändern, achten Sie bitte darauf, daß diese im System vorhanden sein muß.
Über den Button neben dem Eingabefeld erhalten Sie ein Fenster mit allen im System vorhandenen Gruppen. Klicken Sie eine der Gruppen an, wird dieser Gruppenname in das Feld für die primäre Gruppe übernommen.Bitte beachten Sie, daß die Gruppenzugehörigkeiten von Dateien und Verzeichnissen (vor allem im Heimatverzeichnis) nicht verändert werden sowie das Heimatverzeichnis nicht verschoben wird.
Die Liste enthält alle Gruppen mit der GID in Klammern, in denen der Benutzer sekundäres Mitglied ist. Möchten Sie den Benutzer aus den sekundären Gruppen löschen, markieren Sie bitte diese Gruppen. Eine Mehrfachauswahl ist möglich.
Bitte beachten Sie, daß, wenn sie sehr viele Gruppen markieren, es vorkommen kann, daß der Benutzer nicht aus allen sekundären Gruppen gelöscht wird. Wenn dieser Fall auftritt, wiederholen sie bitte die Modifizierung der Zugehörigkeit zu den sekundären Gruppen.
Die Liste enthält alle Gruppen mit der GID in Klammern, in denen der Benutzer sekundäres Mitglied werden kann. Möchten Sie den Benutzer zu weiteren sekundären Gruppen hinzufügen, markieren Sie bitte die entsprechenden Gruppen. Eine Mehrfachauswahl ist möglich.
Bitte beachten Sie, daß, wenn sie sehr viele Gruppen markieren, es vorkommen kann, daß der Benutzer nicht zu allen sekundären Gruppen hinzugefügt wird. Wenn dieser Fall auftritt, wiederholen sie bitte die Modifizierung der Zugehörigkeit zu den sekundären Gruppen.
Die Eigenschaften des Samba-Accounts können für den aktuellen Benutzer hier verändert werden. Dabei stehen die folgenden Möglichkeiten zur Verfügung:
Es werden keine Änderungen am Samba-Account vorgenommen.
Für den Benutzer wird ein neuer Samba-Account mit dem angegebenen Paßwort eingerichtet. Sollte der Benutzer schon vorhanden sein, wird der Account aktiviert und auf das neue Paßwort gesetzt.
Hiermit kann ein gesperrter Samba-Account wieder aktiviert werden. Account-Name und Paßwort bleiben erhalten.
Den Samba-Account des Benutzers sperren. Dabei bleibt der Account-Name und das Paßwort erhalten, Authentifizierungen gegenüber dem Samba-Server werden zurückgewiesen.
Das Paßwort für den Samba-Account ändern (siehe Paßwort und Paßwortwiederholung).
Löschen des Samba-Accounts, der Account muß vorhanden sein.
Das Drop-Down-Feld zeigt die Shells, die dem Benutzer zugewiesen werden können. Standardmäßig enthält die Liste nur zwei Shells: "/bin/false" und die in der Konfiguration des Benutzer- und Gruppenmanagers angegebene "Standardshell". Sollte der Benutzer derzeit eine andere Shell benutzen, wird diese Shell der Liste hinzugefügt.
Der Benutzer- und Gruppenmanager soll vielleicht nicht als Ersatz, sondern als Zusatz zum schon vorhandenen WebMin-Modul Benutzer und Gruppen betrachtet werden. Bei der Auswahl der Funktionalität wurde versucht, diesen Manager auf das Notwendigste zu reduzieren, um Benutzer und Gruppen zu verwalten. Andererseits wurden Funktionen der Benutzerverwaltung, die sonst über das Modul Windows Dateifreigabe verfügbar sind, mit in das vorliegende Modul aufgenommen, um einfach und in einem Schritt sowohl die System-Benutzer sowie die Samba-Benutzer verwalten zu können. Es soll vor allem in den Schulen Einsatz finden, wo häufig größere Benutzermengen angelegt werden müssen und Samba als Fileserver eingesetzt wird. Aus diesem Grund sind einige der Bezeichnungen auch an Begriffe aus der Schule angelehnt.
Für das Ausführen dieses Moduls müssen folgende Programme auf dem System installiert und über den Suchpfad erreichbar sein (wird beim Starten dieses Moduls überprüft):
Nachfolgend werden die einzelnen Parameter, die in der Konfiguration eingestellt werden können, erläutert.
Nach der Überprüfung der eingegebenen Werte wird die Gruppe angelegt und die Gruppeneinstellungen ausgegeben.
Bei Fehlern in der Eingabe wird eine entsprechende Warnmeldung ausgegeben und die Gruppe nicht angelegt. Über den Zurück-Button des Browsers können Sie auf die vorherige Seite zurückwechseln und nach Veränderung der Gruppeneinstellungen den Vorgang des Anlegens einer neuen Gruppe neu initiieren.
Bitte beachten Sie, daß das Gruppenverzeichnis nicht vorhanden sein darf wenn es neu angelegt werden soll, ansonsten kommt es zu einer Fehlermeldung.
technomgr/help/groupdel.html 0100744 0000764 0000764 00000001454 07247215052 015357 0 ustar f5soh f5sohDie Gruppen, die im Gruppenmanager zum Löschen markiert wurden, werden jetzt gelöscht. Hierbei wird für jede Gruppe der Status der Gruppenentfernung angezeigt. Die möglichen Rückgabewerte sind:
Sollten Fehler beim Löschen von Gruppen auftreten, wird eine entsprechende Meldung mit der Gesamtzahl der Fehler ausgegeben. Zum Abschluß werden noch Laufzeit-Daten über die Scriptausführung wiedergegeben.
technomgr/help/useradd.html 0100744 0000764 0000764 00000002400 07247213324 015155 0 ustar f5soh f5sohSollten Sie bei der Eingabe der Benutzerdaten die automatische Paßwortgenerierung abgeschaltet haben, werden Sie nach einem Paßwort gefragt und erst nach dem Abschicken des Formulars wird der Benutzer angelegt.
Nach der Überprüfung der eingegebenen Werte wird der Benutzer angelegt und die Benutzereinstellungen ausgegeben. Wird das Paßwort automatisch generiert, wird dieses hier mit ausgegeben.
Bei Fehlern in der Eingabe wird eine entsprechende Warnmeldung ausgegeben und der Benutzer nicht angelegt. Über den Zurück-Button des Browsers können Sie auf die vorherige Seite zurückwechseln und nach Veränderung der Benutzereinstellungen den Vorgang des Anlegens eines neuen Benutzers neu initiieren.
Bitte beachten Sie, daß das Heimatverzeichnis nicht vorhanden sein darf wenn es neu angelegt werden soll, ansonsten kommt es zu einer Fehlermeldung. Das Heimatverzeichnis wird für Schüler in HOMEDIR_SCHULER/Gruppe/Account-Name angelegt, für Lehrer in HOMEDIR_LEHRER/Account-Name. Die Einstellungen für HOMEDIR_SCHUELER und HOMEDIR_LEHRER können Sie in der Konfiguration zum Modul Benutzer- und Gruppenmanager vornehmen.
technomgr/help/userdel.html 0100744 0000764 0000764 00000005027 07247214350 015201 0 ustar f5soh f5sohDie Benutzer, die im Benutzermanager zum Löschen markiert wurden, werden jetzt gelöscht. Hierbei wird für jeden Benutzer der Status der Accountentfernung angezeigt. Der Status setzt sich aus drei Werten zusammen:
Das Heimatverzeichnis eines Accounts wird nur gelöscht, wenn im Benutzermanager das entsprechende Optionsfeld eingeschaltet ist (Standard) und es sich nicht um einen System-Account handelt. Desweiteren versucht dieses Modul auf jedem Fall, den Samba-Account zu löschen, da eine Anmeldung über Samba ohne entsprechenden Unix/Linux im Normalfall nicht möglich ist und somit Inkonsistenzen in den Benutzerdatenbanken vermieden werden können.
Sollten Fehler beim Löschen von Accounts auftreten, wird eine entsprechende Meldung mit der Gesamtzahl der Fehler ausgegeben. Zum Abschluß werden noch Laufzeit-Daten über die Scriptausführung wiedergegeben.
technomgr/help/user.html 0100744 0000764 0000764 00000013521 07247213224 014511 0 ustar f5soh f5sohEin neuer Benutzer können Sie über die Einstellungen im oberen Teil spezifizieren und über den Button Benutzer anlegen angelegen. Die Erläuterungen zu den einzelnen Feldern erhalten Sie weiter unten. Über den Button Zurücksetzen können Sie alle Formularfelder auf ihren Ursprungswert zurücksetzen.
Die nachfolgenden Tabellen zeigen alle im System vorhandenen Benutzer. Hierbei werden die Benutzer in zwei Kategorien eingeteilt: Normal und System. Über das Anklicken eines Benutzernamens gelangen Sie auf eine Seite, wo sie detailierte Benutzerinformationen erhalten sowie diese verändern können. Möchten Sie Benutzer aus dem System entfernen, markieren Sie die Checkboxen rechts neben dem Benutzernamen. Erst wenn Sie den Button Benutzer löschen drücken, werden die Benutzer aus dem System entfernt (über den Button Zurücksetzen werden alle Checkboxen demarkiert).
Für normale Benutzer kann über das Optionsfeld, welches sich unter der Tabelle für normale Benutzer befindet, ausgewählt werden, ob die Heimatverzeichnisse mit gelöscht werden sollen (s.u.).
Der Anmeldename des Benutzers, wird auch für Netzwerkdienste wie Samba, FTP, Mail ... benötigt.
Der Vor- und Nachname des Benutzers, dem dieser Account gehört. Bei System-Accounts wird hier häufig eine Beschreibung der Funktion des Accounts angegeben.
Unter Unix-Betriebssystemen besteht ein Gruppenzwang, das heißt, das jeder Benutzer mindestens einer Gruppe zugeordnet werden muß. Die Hauptgruppe eines Benutzers, mit der er bei der Anmeldung initialisiert wird, wird primäre oder Initial-Gruppe genannt. Alle Dateien, die der Benutzer anlegt, werden dieser Gruppe zugeordnet. Der Benutzer kann Dateien, die ihm selbst gehören, anderen Gruppen zuordnen, falls er Mitglied der anderen Gruppe ist. Jedoch kann zu jeder Datei oder Verzeichnis nur eine Gruppe zugeordnet werden.
Wird hier ja ausgewählt, generiert das System automatisch ein Paßwort aus 8 Zeichen, ansonsten erfolgt vor der Anlegung des Benutzers eine Abfrage des Paßwortes.
Der Typ des Benutzers gibt den Ort des Heimatverzeichnisses an. Sollte hier Schüler ausgewählt worden sein, wird der Pfad zum Heimatverzeichnis aus HOMEDIR_SCHUELER, primäre Gruppe und Account-Namen gebildet, für Lehrer aus HOMEDIR_LEHRER und Account-Namen. Die Einstellungen für HOMEDIR_SCHUELER und HOMEDIR_LEHRER können Sie in der Konfiguration zum Benutzer- und Gruppenmanager vornehmen.
Diese Option gibt an, ob es dem Benutzer erlaubt werden soll, sich direkt oder mittels Telnet/SSH auf dem Rechner anzumelden. Standardmäßig ist die Anmeldung direkt auf dem Server deaktiviert, da normale Benutzer die Dienste des Servers nur über diverse Netzwerkdienste benutzen sollen (z.B. Samba, Mail, FTP ...).
Hiermit wird festgelegt, ob für den Account auch ein Samba-Account eingerichtet und aktiviert werden soll. Standardmäßig ist dieses eingeschaltet.
Für jeden Benutzer sollte ein Heimatverzeichnis auf dem Server bestehen. Sollte es Gründe geben, daß für den Benutzer kein neues Heimatverzeichnis erstellt werden soll, kann dieses Feature hier deaktiviert werden. Soll ein neues Heimatverzeichnis erstellt werden, wird ein Grundprofil in das Heimatverzeichnis kopiert. Der Ort dieses Grundprofils wird in der Konfiguration über "Pfad zu Profildateien" angegeben. Je nach Einstellung von "Anmeldung direkt auf Server" werden unterschiedliche Profildateien kopiert.
Beim Löschen normaler Benutzer können die Heimatverzeichnisse mit gelöscht werden. Da das normalerweise sinnvoll ist, ist diese Eigenschaft standardmäßig aktiviert. Möchten Sie mehrere Benutzer löschen, wobei bei einigen das Heimatverzeichnis nicht gelöscht werden soll, müssen Sie dies in zwei Schritten tun, eine expliziete Auswahl, von wem die Heimatverzeichnisse gelöscht werden, ist nicht vorgesehen.
Sollten Sie System-Benutzer löschen, wird hier nicht automatisch das Heimatverzeichnis gelöscht, da sich diese teilweise im normalen Dateisystem befinden und nicht gelöscht werden können, ohne das wichtige Teile des Betriebssystems beschädigt würden. Um mögliche Systemausfälle zu vermeiden, wurde deshalb dieses Feature nicht implementiert.
Les scripts Netlogon sont générés automatiquement
puis déposés dans le répertoire correspondant au dossier
partagé \\serveur\netlogon.
chaque élève dispose d'un script nommé nom_utilisateur.bat
qui appele le script du groupe classe :
@echo off
REM Script netlogon de l'élève Joel Dupond
NET TIME \\argiatechno /SET /YES
CALL \\argiatechno\netlogon\classe3A.bat
Script du groupe classe :
@echo off
REM Script netlogon du groupe classe3A
NET USE T: \\argiatechno\homes
NET USE P: \\argiatechno\classe
NET USE F: \\argiatechno\appli
NET USE S: \\argiatechno\Pdf_Service
NET USE O: \\argiatechno\cdrom
if not exist c:\windows\Mozilla\recup.bat goto fin
CALL C:\windows\Mozilla\recup.bat
:fin
A la fin de ce script le fichier c:\windows\Mozilla\recup.bat est lancé à condition qu'il existe sur
le poste client, ce script récupère le fichier user.js qui est enregistré dans le dossier .Mozilla du répertoire personnel. Le fichier user.js modifie la configuration de Mozilla pour indiquer les comptes de messagerie, la page de démarrage, le nom de l'utilisateur... etc.
Ce fichier est à créer sur chaque poste client si vous souhaiter que chaque utilisateur dispose d'une boîte aux lettres configurée dans Mozilla.
Exemple de fichier 'recup.bat' à placer dans c:\windows\Mozilla\, le chemin est à modifier en fonction de la configuration locale de Mozilla. Il n'existe en fait qu'un seul profil sur le poste client (ex.defaut), pour effacer les profils existants et repartir avec une config 'propre', procéder comme suit :
Exemple de fichier recup.bat placé dans c:\windows\Mozilla
REM Script local de récuperation fichier user.js
REM dans répertoire perso sur serveur.
REM Le fichier est créé sur chaque machine.
copy \\argiatechno\homes\.Mozilla\user.js c:\windows\Mozilla\Profiles\default\qv4lshry.slt\user.js
? ? ? 83m K^u r t p fv > oU4;? 9,i K[t g p cv =xa> > ? ;1e KXs c l n f| <߈t39= :5a ?Yx g h j [s ;pW5<=o ] x*c Uq QdyCSe;_C7<<Op axu:O36;;]uUwq3H[Ki` :|v>Wma 4B2MaJV ?P=L`Jn
I]GJ_HI[BCT=!
, / 0 H*\ȰÇ#JHŋ3j8G ` !~,`cʄ = 8@ ,ȀA6 ClUSoL<ؑ/8Z(L V7>mİ(INX"6cJz.yMhQ * 2-K}wW \n";
#############################################################################
#Beginn Formular
#Aufrufscript: groupadd.cgi
#Method: post
#Felder: txt_groupname
# chk_groupdir
# pop_dir
#
print " \n";
print " \n";
print " \n";
#############################################################################
#nderung der Gruppenmitglieder
#
if (defined $in{pop_useradd} or defined $in{pop_userdel}){
print " \n";
#############################################################################
#Prfung der Konfigurationseinstellungen
if ($config{homedir_schueler} eq ""
or not -d $config{homedir_schueler}){
print text(index1, $text{index2}) . " \n";
print "
EOP
print " Le mot de passe de dpart est le login, l'utilisateur le modifie la premire connexion. Les profils utilisateurs de Mozilla sont stocks dans un rpertoire nomm '.Mozilla/techno64.slt' dans le lecteur home, une fois effectue la cration des utilisateurs il faut indiquer Mozilla ce profil par dfaut. Chaque utilisateur dispose d'un compte de messagerie, les options ne sont pas configurables ici mais dans le module de configuration de Techno-Manager. Il est possible par la suite de modifier des paramtres pour un utilisateur ou une classe entire. (page de dmarrage par exemple).
\n";
#############################################################################
#Benutzerdaten ndern
if ($change == 1){
print " \n";
print "y7os3AJwt4gP}[1<ޫHsI NugL'u*OhJjcL0dRD;nQ<4m ~oɬrzp,XV G %{jK X66Ě$c*RHFJ+$PR9 틝g_ ̬Pj˒B,jtSցs)^6ê 3bP`eAUk CJ3i_.곺 2 wv\ 9WԪخJ|Қy5vNHd 7*;|UmP #HI@0gSn,{Y5F(Exg S|\7:شu$E,bk I^OICfvp
2cAhꖰDyOhVʋ.ܸeM£tb:~,|j jL`:9er)d[M[V"\"WmfRcwۭ-;vH d~;{_UMbu ʶ &ik3ayybP䤜ZP"(S{y7H&j`¨:btLm>>ݪ.K
Yl1E
8Y)lnrXUM5V0{C(ZJ]1($qJ}ǍPA0 !߷2h A_DtEY@ 2cްiv:s[cw b@6h=#6,k[84Bx9#+3 _BG =-|^;aܸ/6RZ1/)V?M .z!*`-m&^/pH[3w9@+p=owt^ h9{ݼ m?H{z!-ǔŮ 0 v`3 \IoLM?U`кiXx1-8ծN8
Y(cHb6~
|71t{zYj\3ʕ<~}^YD_f,I ^bM&QzZ*hGGgF cSY}/o 6a1@Z0O~G2bEFҭړ4j.Kr 6ƉTfֆf}=Wd
9vg0 tBq) %}a |(ؼQee:DpYJg ቈ Hg!zF~㵃qyLh~Xagqkfa)Ð]2s`|ӭ)>H&r;!O/F|=mr%==]\";lc:I11 <ƭf_pр4//}iO>zz{i˪$ȒKf66҅E =l Jn]z6{`9U
7'?)ӬDb*KsM iqI`>"μO|.tE М ]_1{? UZHLAY)=%477"
kF"BZLR!C Ix3Iq' C nD rvD$([7['8vd-% x\ڪ`V)eMrww
ZpWɘOoo*0 $J]
I`!DQ0 44#yW 1[4X$Nmf(îg{]al _sHk{@ Ί-Ȁ~j yAS ,,H; q`ZlDG"* /!< e#Hʗ!H4bBG!8D&MMdZ)ڐrFHgpm- lDc
N|C>^pOI5ߧ]η#! $?\EӐ~TB\k3KkmEHC{; hk`F輸7Ŭx#&F"Ҙ/Cynpz t p.Ag{>:u/ԒXFF#uO,fo:@ZO3 9҄ъ~']Ӧ
D#Ic#%و䩓UL =zlJ"u)a\⧇ ~I?4*iyߗs]ĮO(xޮsy`vjR&`\Fmd,dx Aۇ>!eI I# 04-:]E ~&x (bD }yFӺ.jϦ $wdkfLA )_xJ,a{ ku(2^{s+ oP$O{e6)kvI@f >Ā!]W>Cd
f5`^'Cb@ ^kǎ _/In`H1!DžtI- \0G,)m5)\-Xm5>>;MZ~ ~
<)Yj]C߮oзhNH4گ0%I
LK^QI4Am#Lr&T8 \6bIGgi"z^$ƧAY ,> < 8 !AFz$v4\nZ얛r
%ƿ6J ʆ~wG ) JxiD$zQ~q$fa Vvc- > p?l x*9*]/gd 9!)IU YofXe2 {0^).@gg:::dV pK;ȳ ,1SǗG:>eOTvz4FDA*8" kk\.;t/'~$Yurc^/'%\~cmyO7ZdɊOs&K*_]<P8جI^aaaVOOO/ XVp^nIrQSQ ? x
Account
usermod12=keine nderung
usermod13=anlegen und aktivieren
usermod14=aktivieren
usermod15=deaktivieren
usermod16=lschen
usermod17=Pawort
usermod18=Pawort-
wiederholung
usermod19=Shell
usermod20=Benutzer-Daten werden gendert
usermod21=Samba-Daten werden gendert
usermod22=Rckmeldung der Benutzermodifizierung von $1
usermod23=zu sekundren
Gruppen hinzufgen
usermod24=aus sekundren
Gruppen lschen
userauto1=Einstellungen fr die automatische Benutzeranlegung
userauto2=Datei mit den Benutzerdaten (mit Pfad)
userauto3=Pfad fr die Datei mit den generierten Benutzerdaten
userauto4=Typ der Benutzer
userauto5=Trennzeichen in Benutzerdaten
userauto6=Format der Benutzerdaten
userauto7=Format der generierten Benutzerdaten
userauto8=Schler
userauto9=Lehrer
userauto10=Prefix fr Gruppen
userauto21=berprfung, ob alle Gruppen vorhanden sind
userauto22=Die Import-Datei liegt nicht im richtigen Format vor oder sie haben ein verkehrtes Feldtrennzeichen angegeben
userauto23=Erfolgreich abgeschlossen
userauto24=Gruppe $1 nicht vorhanden $2
userauto25=nicht angelegt
userauto26=Samba-Benutzer nicht angelegt
userauto27=angelegt
userauto28=Gruppenbersicht
userauto29=Gruppe $1: $2 Mitglied(er) hinzugefgt.
userauto30=bersicht der angelegten Benutzer
userauto31=$1 Accounts wurden auf dem Server eingerichtet.
userauto32=$1 Accounts wurden fr den Samba-Server eingerichtet.
userauto33=Benutzer werden angelegt
userauto34=Gruppe
userauto35=Export-Datei
userauto36=Name/Pfad der Export-Datei
time1=Laufzeit
time2=Das Script bentigte $1 CPU-Sekunden.
time3=Das System belegte dabei $1 CPU-Sekunden.
time4=Die Child-Prozesse bentigten $1 CPU-Sekunden.
time5=Das System belegte dabei $1 CPU-Sekunden.
group1=Neue Gruppe anlegen
group2=Gruppenname
group3=Gruppenverzeichnis anlegen
group4=Gruppenverzeichnis
group5=Vorhandene Benutzergruppen
group6=Vorhandene Systemgruppen
group7=Gruppen
group8=Lschen
groupadd1=Gruppe $1 wird angelegt
groupadd2=Gruppenverzeichnis wird angelegt
groupadd3=Zugriffsrechte setzen
groupdel1=Beachten Sie bitte, da die eventuell vorhandenen Gruppenverzeichnisse nicht gelscht werden
groupdel2=Angegebene Gruppen werden gelscht
groupdel3=Gruppe $1 wird gelscht
groupdel4=Es konnten $1 Gruppen nicht gelscht werden.
groupmod1=Gruppen-Details fr $1
groupmod2=Gruppenname
groupmod3=Gruppen-ID (gid)
groupmod4=primre Gruppenmitglieder
groupmod5=sekundre Gruppenmitglieder
groupmod6=Sekundre Gruppenmitglieder fr $1 ndern
groupmod7=Gruppenmitglied(er) entfernen
groupmod8=Gruppenmitglied(er) hinzufgen
groupmod9=Rckmeldung der Gruppenmodifizierung von $1
groupmod10=Benutzer $1 wird aus Gruppe $2 entfernt
groupmod11=Benutzer $1 wird der Gruppe $2 hinzugefgt
tabuser1=Benutzer
tabuser2=Lschen
submitg1=Gruppe anlegen
submitg2=Gruppen lschen
submitg3=Gruppe ndern
submitu1=Benutzer anlegen
submitu2=Benutzer lschen
submitu3=Benutzer ndern
submitua1=Abschicken
submitau1=Benutzer anlegen
reset=Zurcksetzen
fehlerga1=Sie haben keinen oder einen ungltigen Gruppennamen eingegeben.
fehlerga2=Die angegebene Gruppe ist schon vorhanden.
fehlerga31=Eine Datei/Verzeichnis mit dem Namen
fehlerga32=existiert bereits.
Bitte geben Sie ein anderes Gruppenverzeichnis an oder lschen / verschieben Sie die Datei / das Verzeichnis.
fehlerua1=Sie haben keinen oder einen ungltigen Benutzernamen eingegeben
fehlerua2=Sie mssen eine primre Gruppe auswhlen.
fehlerua3=Fr den Benutzer wurde als Heimatverzeichnis $1 angegeben. Eine Datei/Verzeichnis mit diesem Namen existiert bereits.
Bitte geben Sie einen anderen Benutzernamen/Gruppe an oder lschen / verschieben Sie die Datei / das Verzeichnis.
fehlerum1=Die beiden angegebenen Pawrter sind nicht identisch.
fehlerum2=Sie haben eine nicht existierende primre Gruppe angegeben
fehlerau1=Sie keine oder eine falsche Import-Datei gewhlt.
fehlerau2=Sie haben kein oder ein nicht existierendes Export-Verzeichnis ausgewhlt.
fehlerau3=Fehler beim Kopieren der Import-Datei ins TMP-Verzeichnis
fehlerau4=Fehler beim Konvertieren der Import-Datei
version=0.3.1
technomgr/lang/en 0100644 0000764 0000764 00000015536 07704537225 013202 0 ustar f5soh f5soh titel=User/Groupmanager
titelg1=Groupmanager
titelg2=Add group
titelg3=Modify group
titelg4=Delete group
titelu1=Usermanager
titelu2=Add user
titelu3=Modify user
titelu4=Delete user
titela1=Create multiple users
titela2=Create multiple users
image1=Usermanager
image2=Groupmanager
image3=Create multiple users
image5=Mozilla profiles
image6=Internet
imgalt1=User
imgalt2=Group
imgalt3=Multiple users
return1=done
return2=failed
return3=skip
auswahl1=yes
auswahl2=no
back1=Overview
back2=Groupmanager
back3=Usermanager
back4=Create multiple users - configuration
index1=You have no or a not exist path to $1 specified.
index2=Pupil-Homedirectories
index3=Teacher-Homedirectories
index4=Groupdirectories
index5=Profilefiles for new users, which get a shell,
index6=Profilefiles for new users, which don't get a shell,
index7=Permissions for new Homedirectories are wrong, valid values are 700,750,755,770,775 and 777.
index8=Permissions for new Groupdirectories are wrong, valid values are 770, 775 and 777.
index9=The number of columns for the user-table must be greater than 0.
index10=The number of columns for the group-table must be greater than 0.
index11=You have no or a not executable file as standard-shell specified.
index12=Systemprogram $1 was not found in the search path.
index13=There are $1 errors in the modul configurationen. $2 Please re-configurate this module $3.
index14=There are $1 needed systemprogramms, which were not found in the search path. Please check your system.
index15=Search path: $1
index16=Configuration error
user1=Local users
user2=Local system users
user3=Add new user
user4=Account name
user5=Real name
user6=Typ of user
user7=Pupil
user8=Teacher
user9=Direct login on the server
user10=deny
user11=allow (standard shell:
user12=Add samba account
user13=yes
user14=no
user15=Create Homedirectory
user16=Generate password automatically
user17=Primary group
user18=Delete Homedirectory
user19=User
user20=Delete all group members
user21=Local maschine accounts
user23=Primary groupmembers from:
useradd1=Generate password
useradd2=The generated password is
useradd3=The both specified passwords are not equal. Please repeat your input.
useradd4=User $1 will be create
useradd5=The primary group is
useradd6=The homedirectory is under
useradd7=Samba account will be create
useradd8=New password
useradd9=Re-enter new password
userdel1=Selected users will be delete
userdel2=User $1:
userdel3=delete from system=$1
userdel4=delete Homedirectory=$1
userdel5=delete samba accout=$1
userdel6=don't exists
userdel7=There are $1 errors by deleting.
usermod1=User details for $1
usermod2=Accountname
usermod3=User ID (uid)
usermod4=Real name
usermod5=Primary group
usermod6=Homedirectory
usermod7=secundary groups
usermod8=Shell
usermod9=Modify user data for $1
usermod10=Change password
usermod11=Samba
account
usermod12=no change
usermod13=add and enable
usermod14=enable
usermod15=disable
usermod16=delete
usermod17=new password
usermod18=re-enter new password
usermod19=Shell
usermod20=User data will be modify
usermod21=Samba account will be modify
usermod22=Feedback of alter user data for $1,
usermod23=add to
secondary group
usermod24=delete from
secondary groups
userauto1=Settings for create multiple users
userauto2=File for the source file (with path)
userauto3=Path for the output log file
userauto4=User type
userauto5=Seperator character in user data
userauto6=Format of the source file
userauto7=Format of the output log file
userauto8=Pupils
userauto9=Teachers
userauto10=Prefix for groups
userauto21=Verify, if all groups are exists
userauto22=The import file is not in the right format or you have specifiy a wrong seperator character
userauto23=Successful
userauto24=Group $1 doesn't exist $2
userauto25=not create
userauto26=Samba account not create
userauto27=create
userauto28=Group overview
userauto29=Group $1: $2 member(s) add.
userauto30=Created users - overview
userauto31=$1 accounts are created on the server.
userauto32=$1 samba accounts are created on the server.
userauto33=User will be created
userauto34=Group
userauto35=Export file
userauto36=Name/path of the export file
userauto37=Input file format
time1=Runtime overview
time2=The script needs $1 CPU seconds.
time3=The system needs hereof $1 CPU seconds.
time4=The child processes needs $1 CPU seconds.
time5=The system needs hereof $1 CPU seconds.
group1=Create new group
group2=Group name
group3=Create group directory
group4=Group directory
group5=Local user-groups
group6=Local system-groups
group7=Group
group8=Delete
groupadd1=Group $1 will be create
groupadd2=Group directory will be create
groupadd3=Set file permissions
groupdel1=Please notice, that present group directorys will not be deleted
groupdel2=Selected groups will be deleted
groupdel3=Group $1 will be deleted
groupdel4=$1 groups could not be deleted
groupmod1=Group detail for $1
groupmod2=Group name
groupmod3=Group ID (gid)
groupmod4=primary group members
groupmod5=secundary group members
groupmod6=Change secundary group members for $1
groupmod7=Delete group member(s)
groupmod8=Add group member(s)
groupmod9=Feedback of alter group data for $1
groupmod10=User $1 will be deleted from group $2
groupmod11=User $1 will be added to group $2
tabuser1=User
tabuser2=Delete
submitg1=Add group
submitg2=Delete group
submitg3=Modify group
submitu1=Add user
submitu2=Delete user
submitu3=Modify user
submitua1=Submit
submitau1=Add user
reset=Reset
fehlerga1=You have not specify a groupname or the groupname is invalid.
fehlerga2=This groups exists.
fehlerga31=A file / directory with the name
fehlerga32=exists.
Please specify a other group directory or delete / move the file / directory.
fehlerua1=You have not specify a username or the username is invalid.
fehlerua2=You must select a primary group.
fehlerua3=A file / directory with the name $1 exists.
Please specify a other home directory or delete / move the file /directory.
fehlerum1=The both entered passwords are not equal.
fehlerum2=You have a not exist group as primary group specified
fehlerau1=You have non or a wrong import file entered.
fehlerau2=You have non or a wrong export file entered.
fehlerau3=Error by copy import file into the TMP directory
fehlerau4=Error by convert import file
version=0.2
title=Samba Login Scripts
authors=Homepage
Feedback
prompt=User-Selection
selectuser=Select a user
using_user=User-Setttings found, using existing User-settings
using_default=No User-Settings found, using default settings
missing_username=No Username specified
missing_file=There is no file
select_shares=Select Shares to be mounted
select_active=Active
select_command=Command
deleted=deleted
technomgr/lang/fr 0100644 0000764 0000764 00000025611 07722451352 013176 0 ustar f5soh f5soh version=0.2beta
titel=Gestion des utilisateurs/groupes
titelg1=Gestion de groupe
titelg2=Ajouter un groupe
titelg3=Modifier un groupe
titelg4=Supprimer un groupe
titelu1=Gestion des utilisateurs
titelu2=Ajouter un utilisateur
titelu3=Modifier un utilisateur
titelu4=Supprimer un utilisateur
titelu5=Gestion des profils Mozilla
titelu6=Gestion des profils Mozilla
titela1=Création automatique
titela2=Création multiples d'utilisateurs
image1=Gestion des utilisateurs
image2=Gestion des groupes
image3=Création multiple d'utilisateurs
image4=Scripts Netlogon
image5=Profils Mozilla
image6=Accs Internet
imgalt1=Utilisateur
imgalt2=Groupes
imgalt3=Utilisateurs multiples
imgalt4=Netlogon
imgalt5=Mozilla
imgalt6=Acc&eagrave;s Internet
return1=fait
return2=échec
return3=passé
auswahl1=oui
auswahl2=non
back1=l'index de Techno-Manager
back2=la gestion des groupes
back3=la gestion des utilisateurs
back4=Création multiple des utilisateurs - configuration
back5=la gestion des profils Mozilla
index1=Le chemin vers $1 est introuvable.
index2=Répertoire maison des élèves
index3=Répertoire maison des professeurs
index4=Répertoire des groupes
index5=Fichier de profil des nouveaux utilisateurs ayant un shell,
index6=Fichier de profil des nouveaux utilisateurs n'ayant pas de shell,
index7=Les permissions des nouveaux répertoires maison des utilisateurs sont invalides, les valeurs acceptables sont 700,750,755,770,775 et 777.
index8=Les permissions des nouveaux répertoires maison des groupes sont invalides, les valeurs acceptables sont 770, 775 and 777.
index9=Le nombre de colonnes du tableau des utilisateurs doit être supérieur a 0.
index10=Le nombre de colonnes du tableau des groupes doit être supérieur a 0.
index11=Le shell spécifié est introuvable ou n'est pas exécutable.
index12=Le programme système $1 n'a pas été trouvé dans le path.
index13=Il y a les erreurs suivantes dans la configuration du module : $1. $2 Veuillez reconfigurer ce module $3.
index14=Les programmes système suivants sont nécessaires mais n'ont pas été trouvés dans le path : $1. Merci de vérifier la configuration du système.
index15=Chemin de recherche : $1
index16=Erreur de configuration
user1=Utilisateurs locaux
user2=Utilisateurs système locaux
user3=Ajouter un nouvel utilisateur
user4=Nom du compte
user5=Nom réel
user6=Type d'utilisateur
user7=Elève
user8=Professeur
user9=Connexion directe au serveur
user10=interdit
user11=autorisé
(shell standard :
;$text{'user20'}
user12=Ajouter un compte Samba
user13=oui
user14=non
user15=Creer un répertoire maison
user16=Générer le mot de passe automatiquement
user17=Groupe principal
user18=Supprimer le répertoire maison
user19=Utilisateur(s)
user20=Supprimer tous les membres du groupe
user21=Compte locaux
user23=Numéroter les numéros de groupe à partir de :
user_add=Ajouter
user_system=Systme
user_other=Autre
useradd1=Générer le mot de passe
useradd2=Le mot de passe généré est:
useradd3=Les mots de passe specifiés ne sont pas identiques. Merci de revérifier.
useradd4=L'utilisateur $1 va etre crée.
useradd5=Le groupe principal est
useradd6=Le répertoire maison est
>
Samba
usermod12=pas de changement
usermod13=ajouter et activer
usermod14=activer
usermod15=désactiver
usermod16=supprimer
usermod17=nouveau mot de passe
usermod18=confirmez le mot de passe
usermod19=Shell
usermod20=L'utilisateur va être modifié
usermod21=Le compte Samba va être modifié
usermod22=Résultat de la modification de l'utilisateur $1,
usermod23=ajouter au
groupe secondaire
usermod24=supprimer du
groupe secondaire
userauto1=Configuration pour la création de plusieurs utilisateurs
userauto2=Fichier Gep (F_ELE.DBF)
userauto3=Chemin pour le fichier journal des utilisateurs générés
userauto4=Type d'utilisateur
userauto5=Caractère de séparation pour les données des utilisateurs
userauto6=Format du fichier contenant les données des utilisateurs
userauto7=Format du fichier journal des utilisateurs generés
userauto8=Elèves
userauto9=Professeurs
userauto10=Préfixes pour les groupes
userauto11=Scripts Netlogon
userauto12=Serveur
userauto13=Synchronisation horloge
userauto14=Lecteurs partagés
userauto15=Partage
userauto16=Utilisateur
userauto17=Groupe
userauto_file=Fichier
userauto_share=Partages
userauto_viewdbf=Voir Base
userauto_help=Aide
userauto21=Vérifier si tous les groupes existent
userauto22=Le fichier d'importation n'est pas au bon format, ou vous avez specifié un mauvais caractère de séparation
userauto23=Succès
userauto24=Le groupe $1 n'existe pas $2
userauto25=non créé
userauto26=Compte Samba non créé
userauto27=création
userauto271=Compte Samba existe
userauto272=Création groupe
userauto273=Modif groupe
userauto274=Compte Samba cr
userauto28=Liste des groupes
userauto29=Groupe $1: ajout de $2.
userauto30=Utilisateurs créés - Récapitulatif
userauto31=Les comptes suivants sont crées sur le serveur : $1.
userauto32=Les comptes Samba suivants sont crées sur le serveur : $1.
userauto33=L'utilisateur va etre créé
userauto34=Groupe
userauto35=Fichier d'export
userauto36=Nom/chemin du fichier d'export
userauto37=Formatage des données
userautocomment2=Sélectionnez les partages et indiquez la lettre du lecteur correspondant.
time1=Récapitulatif du travail
time2=Le script s'est executé en $1 secondes de CPU.
time3=Le système a eu besoin de $1 secondes de CPU.
time4=Le processus fils s'est executé en $1 secondes de CPU.
time5=Le système a eu besoin de $1 secondes de CPU.
group1=Créer un nouveau groupe
group2=Nom du groupe
group3=Créer un répertoire pour le groupe
group4=Répertoire du groupe
group5=Utilisateurs locaux du groupe
group6=Utilisateurs système du groupe
group7=Groupe(s)
group8=Supprimer
groupadd1=Le groupe $1 va être créé
groupadd2=Le répertoire du groupe va être créé
groupadd3=Configuration des permissions
groupdel1=Veuillez prendre note que le répertoire du groupe actuel ne sera pas supprimé.
groupdel2=Les groupes selectionnés seront supprimés
groupdel3=Le groupe $1 va être supprimé
groupdel4=Les groupes $1 n'ont pas pu être supprimés
groupmod1=Détails du groupe $1
groupmod2=Nom du groupe
groupmod3=Group ID (gid)
groupmod4=Membres primaires du groupe
groupmod5=Membres secondaires du groupe
groupmod6=Changer les membres secondaires du groupe pour $1
groupmod7=Supprimer le(s) membre(s) du groupe
groupmod8=Ajouter le(s) membre(s) au groupe
groupmod9=Rêsultats de la modification du groupe $1
groupmod10=L'utilisateur $1 sera supprimé du groupe $2
groupmod11=L'utilisateur $1 sera ajouté au groupe $2
tabuser1=Utilisateur
tabuser2=Supprimer
submitg1=Ajouter un groupe
submitg2=Supprimer un groupe
submitg3=Modifier un groupe
submitu1=Ajouter un utilisateur
submitu2=Supprimer un utilisateur
submitu3=Modifier un utilisateur
submitua1=Valider
submitau1=Ajouter un utilisateur
reset=Remise à zéro
fehlerga1=Vous avez specifié un nom de groupe invalide.
fehlerga2=Ce groupe existe.
fehlerga31=Un fichier / répertoire avec le nom
fehlerga32=existe deja.
Merci de spécifier un autre répertoire ou supprimez / déplacez le fichier / répertoire existant.
fehlerua1=Vous avez specifié un nom d'utilisateur invalide.
fehlerua2=Vous devez specifier un groupe principal.
fehlerua3=Un fichier / répertoire avec le nom $1 existe déjà.
Veuillez recommencer.
fehlerum1=Les deux mots de passe saisis ne correspondent pas.
fehlerum2=Le groupe principal n'existe pas.
fehlerau1=Le fichier d'import est invalide.
fehlerau2=Le fichier d'export est invalide.
fehlerau3=Erreur lors de la copie du fichier d'export dans le répertoire temporaire.
fehlerau4=Erreur de conversion du fichier d'import.
title=Scripts Netlogon
authors=Homepage
Contact
prompt=la sélection d'utilisateur
selectuser=Sélectionner un utilisateur
add_edit=Ajouter/Editer
delete=Effacer
save=Sauver
cancel=Annuler
output_file=Fichier texte généré
using_user=Paramètres d'utilisateur trouvés, je les utilise...
using_default=Pas de paramètres utilisateur trouvés, j'utilise le script par défaut.
missing_username=Il faut donner un nom d'utilisateur
missing_file=Il n'y a pas de fichier
select_shares=Sélectionner les partages devant tre montés
select_active=Actif
select_command=Commande
deleted=effacé
mozilla_title=Profils Mozilla
mozilla_edit_group=Modifier profil
mozilla_edit1=Profil de $1
mozilla_edit2=Modifier le profil
mozilla_Nav=Navigateur
mozilla_Edit=Composeur
mozilla_Mail=Messagerie
mozilla_edit_urlstart=Page de démarrage
mozilla_edit_bytecache=Taille du cache (Ko)
mozilla_edit_auteurM=Nom de l'utilisateur (Mail)
mozilla_edit_auteurE=Nom de l'utilisateur (Composeur)
mozilla_edit_usecss=Dans le code HTML, utiliser les feuilles de style ? (CSS)
mozilla_edit_email=Adresse Email
mozilla_edit_username=Nom de compte
mozilla_edit_org=Organisation
mozilla_edit_popserver=Serveur Pop3 (Réception)
mozilla_edit_smtpserver=Serveur SMTP (Envoi)
mozilla_edit_loginstart=Récupération du courrier au démarrage
moz_used=A déjà utilisé Mozilla
moz_noused=N'a pas encore utilisé Mozilla
technomgr/acl_security.pl 0100644 0000764 0000764 00000000561 07000420647 014733 0 ustar f5soh f5soh
# acl_security_form(&options)
# Output HTML for editing security options for the apache module
sub acl_security_form
{
## Here you have to fill in the code for output
}
# acl_security_save(&options)
# Parse the form for security options for the apache module
sub acl_security_save
{
## here you have to fill in the handling code for the saving the ACL
}
### END. technomgr/config 0100644 0000764 0000764 00000002245 07722172303 013105 0 ustar f5soh f5soh grouprow=3
groupdir_perms=770
groupdir=/home/classe
homedir_schueler=/home/eleve
netlogon_default=defaut.bat
stdshell=/bin/bash
userrow=2
homedir_lehrer=/home/prof
DEBUG=0
usercomment=1
usernamelength=8
homedir_perms=700
passsystem=1
passlenght=8
netlogon_path=/home/samba/netlogon
skelshell=/etc/skel
skelnoshell=/etc/skel
def_lectperso=T:
def_lectgroup=P:
def_lectappli=F:
def_lectcdrom=O:
def_shareperso=homes
def_shareappli=appli
def_sharegroup=classe
def_sharecdrom=cdrom
def_smtp=techno.argia
def_pop3=techno.argia
def_email=techno.argia
def_http_init=http://techno.argia/index.php
sort_mode=0
text_lists=0
samba_confdir=/etc/samba
samba_status_program=/usr/bin/smbstatus
start_cmd=/etc/rc.d/init.d/smb start
run_from_inetd=0
sync_change=1
smb_passwd=/etc/samba/smbpasswd
dont_convert=root bin daemon adm lp sync shutdown halt mail news uucp operator games gopher ftp nobody postgres apache named xfs rpcuser rpc mailnull squid
sync_delete=1
stop_cmd=/etc/rc.d/init.d/smb stop
samba_password_program=/usr/bin/smbpasswd
samba_server=/usr/sbin/smbd
list_printers_command=lpc status | grep "[A-z0-9]:" | sed -e 's/://g'
swat_path=/usr/sbin/swat
sync_add=1
name_server=/usr/sbin/nmbd
technomgr/config.info 0100644 0000764 0000764 00000004003 07722172151 014032 0 ustar f5soh f5soh samba_confdir=Rpertoire de configuration Samba,7
homedir_schueler=Chemin des répertoires Elèves,8
homedir_lehrer=Chemin des répertoires Professeurs,8
groupdir=Chemin des répertoires de groupe,8
skelshell=Path to profile files (with shell-use),8
skelnoshell=Path to profile files (without shell-use),8
prefixe_groupe=Préfixe des groupes classe,0
homedir_perms=Masque de création des nouveaux répertoires personnels,1,700-700,750-750,755-755,770-770,775-775,777-777
groupdir_perms=Masque de création des nouveaux répertoires de Groupe,1,770-770,775-775,777-777
userrow=Nombre de colonnes pour le listage des utilisateurs,1,1-1,2-2,3-3,4-4
grouprow=Nombre de colonnes pour le listage des groupes,1,1-1,2-2,3-3,4-4
stdshell=Chemin/Nom du shell standard,8
passlenght=Longueur du mot de passe,1,4-4,5-5,6-6,7-7,8-8
passsystem=Type de générateur de mot de passe,1,1-Standard,2-Valeur numerique,3-Lettres seules
,4-Lettres et majuscules,5-Lettres et chiffres
usernamelength=Longueur maximale pour le nom d'utilisateur,1,6-6,7-7,8-8,9-9,10-10,11-11,12-12
usercomment=Formatage pour le commentaire d'utilisateur,1,1-Nom Prnom,2-Prnom Nom
netlogon_path=Chemin vers le répertoire netlogon,7
netlogon_default=Script Netlogon par défaut,0
DEBUG=Sortie bavarde,1,0-Non,1-Oui
def_lectperso=Lecteur réseau du répertoire perso ,0
def_shareperso=Nom de partage répertoire perso ,0
def_lectappli=Lecteur réseau des applications,0
def_shareappli=Nom de partage des applications,0
def_lectgroup=Lecteur réseau du groupe,0
def_sharegroup=Nom de partage du groupe
(sans le nom du groupe),0
def_lectcdrom=Lecteur réseau Cdrom serveur,0
def_sharecdrom=Nom de partage du Cdrom serveur,0
def_smtp=Serveur SMTP par défaut (IP/nom DNS),0
def_pop3=Serveur Pop3 par défaut (IP/nom DNS),0
def_email=Adresse email
(ex. eleve@techno.argia entrer techno.argia),0
def_http_init=Page de démarrage de Mozilla,0
technomgr/config.info.fr 0100644 0000764 0000764 00000004003 07722171555 014447 0 ustar f5soh f5soh samba_confdir=Rpertoire de configuration Samba,7
homedir_schueler=Chemin des répertoires Elèves,8
homedir_lehrer=Chemin des répertoires Professeurs,8
groupdir=Chemin des répertoires de groupe,8
skelshell=Path to profile files (with shell-use),8
skelnoshell=Path to profile files (without shell-use),8
prefixe_groupe=Préfixe des groupes classe,0
homedir_perms=Masque de création des nouveaux répertoires personnels,1,700-700,750-750,755-755,770-770,775-775,777-777
groupdir_perms=Masque de création des nouveaux répertoires de Groupe,1,770-770,775-775,777-777
userrow=Nombre de colonnes pour le listage des utilisateurs,1,1-1,2-2,3-3,4-4
grouprow=Nombre de colonnes pour le listage des groupes,1,1-1,2-2,3-3,4-4
stdshell=Chemin/Nom du shell standard,8
passlenght=Longueur du mot de passe,1,4-4,5-5,6-6,7-7,8-8
passsystem=Type de générateur de mot de passe,1,1-Standard,2-Valeur numerique,3-Lettres seules
,4-Lettres et majuscules,5-Lettres et chiffres
usernamelength=Longueur maximale pour le nom d'utilisateur,1,6-6,7-7,8-8,9-9,10-10,11-11,12-12
usercomment=Formatage pour le commentaire d'utilisateur,1,1-Nom Prnom,2-Prnom Nom
netlogon_path=Chemin vers le répertoire netlogon,7
netlogon_default=Script Netlogon par défaut,0
DEBUG=Sortie bavarde,1,0-Non,1-Oui
def_lectperso=Lecteur réseau du répertoire perso ,0
def_shareperso=Nom de partage répertoire perso ,0
def_lectappli=Lecteur réseau des applications,0
def_shareappli=Nom de partage des applications,0
def_lectgroup=Lecteur réseau du groupe,0
def_sharegroup=Nom de partage du groupe
(sans le nom du groupe),0
def_lectcdrom=Lecteur réseau Cdrom serveur,0
def_sharecdrom=Nom de partage du Cdrom serveur,0
def_smtp=Serveur SMTP par défaut (IP/nom DNS),0
def_pop3=Serveur Pop3 par défaut (IP/nom DNS),0
def_email=Adresse email
(ex. eleve@techno.argia entrer techno.argia),0
def_http_init=Page de démarrage de Mozilla,0
technomgr/edit_shares.cgi 0100755 0000764 0000764 00000007366 07704530216 014710 0 ustar f5soh f5soh #!/usr/bin/perl
#
# smblogin
# Copyright (C) 2000 by bernhard minks, stefan rink
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# This module inherited from the Webmin Module Template 0.79.1 by tn
#
# Created 15.11.2000
######################################################################
#Modifi par Laurent Lalanne
\n";
# print "".$text{'title'}."
\n";
if ($DEBUG)
{
foreach( keys %config)
{
print "config: $_ = " . $config{"$_"} . "
\n";
}
}
$netlogon_file = "$config{'netlogon_path'}/$in{'user'}.bat";
if (-e $netlogon_file )
{
my (@netlogon);
print "$netlogon_path exist
\n" if $DEBUG;
open FILE, "$config{'netlogon_path'}/$in{'user'}.bat";
print $text{'using_user'}."
\n";
}
else
{
my (@netlogon);
print "$netlogon_file not exist
\n" if $DEBUG;
open FILE, "$config{'netlogon_path'}/$config{'netlogon_default'}";
print $text{'using_default'}."
\n";
}
while (
\n" if $DEBUG;
push @netlogon, $_;
}
close FILE;
@user_info=getpwnam($in{'user'});
print "$user_info[6]";
print "\n";
print "
";
print " ";
print "".$text{'select_shares'}." ";
print "
";
print " ";
print " ";
print "";
print "";
print "
\n";
}
else # delete
{
$netlogon_file = "$config{'netlogon_path'}/$in{'user'}.bat";
if (-e $netlogon_file )
{
&header($text{'title'}, "", undef, 1, 1, undef, $text{'authors'});
print "
\n";
print "".$text{'title'}."
\n";
unlink ($netlogon_file);
print "$netlogon_file ".$text{'deleted'}."
\n";
print "
\n";
}
else
{
$whatfailed = $text{'title'}
&error($text{'missing_file'}." $netlogon_file");
}
}
}
&footer("smblogin.cgi", $text{'prompt'});
### END of edit_shares.cgi ###.
technomgr/group.cgi 0100755 0000764 0000764 00000011707 07704534527 013555 0 ustar f5soh f5soh #!/usr/bin/perl
#############################################################################
# Script: group.cgi
# Funktion: Zeigt alle vorhandenen Gruppen
# Geschrieben von: Tobias Brinkert
# letzte nderung: 12. Januar 2002
# Version: 0.3.0
#############################################################################
#Modifi par Laurent Lalanne \n";
print "
\n";
return();
}
#############################################################################
#Start der HTML-Ausgabe
#
&header($text{titelg1},"","group",undef, undef,undef, "Version $text{version}\n";
print " \n";
foreach (sort keys %group){
print " $anzahl $text{'group7'} \n";
print " \n" if ($i == 1);
print " \n";
$i = 1;
}
else {
++$i;
}
}
if ($i != 1){
for ($i..$config{'grouprow'}){
print " $_ \n";
if ($i == $config{'grouprow'}){
print " \n";
}
print " \n";
}
print "
\n";
print "
EOP
#Formular- und Tabellenende
#############################################################################
#############################################################################
#Beginn Formular
#Aufrufscript: groupdel.cgi
#Method: post
#Felder: chk_* (Gruppenname)
#
#Aufrufscript: groupmod.cgi (per Link)
#Methode: get
#Felder: group (Gruppenname)
#
print "
EOP
#
#Formular- und Tabellenende
#############################################################################
&footer("/$module_name", $text{back1});
technomgr/groupadd.cgi 0100755 0000764 0000764 00000010522 07704271433 014212 0 ustar f5soh f5soh #!/usr/bin/perl
#############################################################################
#Script: groupadd.cgi
#Funktion: Legt eine neue Gruppe an
#Aufgerufen von: group.cgi
# Werte: txt_groupname (Gruppenname)
# chk_groupdir ("on" wenn Gruppenverzeichnis
# angelegt werden soll)
# pop_dir (Angabe, wo das Gruppenverzeichnis
# liegen soll)
#Konfigurations-
#variablen: groupdir_perms (Zugriffsrechte fr Gruppenverzeichnis)
# groupdir (Pfad zu Gruppenverzeichnis)
# homedir_schueler (Pfad zu Schlerheimatverzeichnissen)
# homedir_lehrer (Pfad zu Lehrerheimatverzeichnissen)
#Geschrieben von: Tobias Brinkert
#letzte nderung: 28.02.2001
#############################################################################
#############################################################################
#Verwendete Variablen (local)
#
my %groups=(); #alle vorhandenen Gruppen; Group -> GID
my ($temp1, #Pfad fr Gruppenverzeichnis
$return #Variable fr Rckgabewerte von Systemaufrufen
)=0;
#
#############################################################################
#############################################################################
#Bibliotheken einbinden
#
do '../web-lib.pl';
do './usermgr-lib.pl';
&init_config();
&ReadParse();
#############################################################################
#berprfung, ob ein gltiger Gruppenname bergeben wurde
if ($in{txt_groupname}!~ /^\w+$/){
error($text{fehlerga1});
exit;
}
#############################################################################
#Erzeugung des String, der das Gruppenverzeichnis beinhaltet und
#berprfung, ob das Gruppenverzeichnis angelegt werden kann
if ($in{chk_groupdir} eq "on"){
if ($in{pop_dir} == 1){
$temp1 = $config{groupdir} . "/" . $in{txt_groupname};
}
elsif ($in{pop_dir} == 3){
$temp1 = $config{homedir_lehrer} . "/" . $in{txt_groupname};
}
else {
$temp1 = $config{homedir_schueler} . "/" . $in{txt_groupname} .
"/" . $in{txt_groupname};
}
if (-e $temp1){
error($text{fehlerga31} . " $temp3 " . $text{fehlerga32});
exit;
}
}
#############################################################################
#berprfung, ob die bergebene Gruppe schon vorhanden ist
%groups=getgroups();
foreach (keys %groups){
if ($in{txt_groupname} eq $_){
error($text{fehlerga2});
exit;}
}
#############################################################################
#Start der HTML-Ausgabe
#
&header($text{titelg2},"","groupadd",undef, undef,undef, "Version $text{version}
\n";
print "\n";
print text(groupadd1, $in{txt_groupname}) . ": ";
#############################################################################
#Anlegen der Gruppe
$return = system("groupadd $in{txt_groupname} >/dev/null 2>&1") / 256;
if ($return == 0){
print "$text{return1}\n";
}
else {
print "$text{return2} [" .
hlink("RC = $return", "systemprogs#ga$return") . "]\n";
}
#############################################################################
#Anlegen des Gruppenverzeichnisses
if ($in{chk_groupdir} eq "on" and $return == 0){
print "$text{groupadd2}: ";
$return = system("mkdir -p -m $config{groupdir_perms} $temp1 >/dev/null 2>&1") / 256;
if ($return == 0){
print "$text{return1} ($temp1)\n";
print "$text{groupadd3}: ";
$return = system("chown .$in{txt_groupname} $temp1 >/dev/null 2>&1") / 256;
if ($return == 0){
print "$text{return1}\n";
}
else {
print "$text{return2} [".
hlink("RC = $return" ,"systemprogs#cw$return") . "]\n";
}
}
else {
print "$text{groupadd3} [" .
hlink("RC = $return", "systemprogs#mk$return") . "] ($temp3)\n";
print "$text{groupadd3}: $text{return3}\n";
}
}
elsif ($in{chk_groupdir}) {
print "$text{groupadd2}: $text{return3}\n";
print "$text{groupadd3}: $text{return3}\n";
}
print "\n";
print "
\n";
&footer("/$module_name/group.cgi", $text{back2});
technomgr/groupdel.cgi 0100755 0000764 0000764 00000005026 07704271433 014231 0 ustar f5soh f5soh #!/usr/bin/perl
#############################################################################
#Script: groupdel.cgi
#Funktion: Lscht Gruppen
#Aufgerufen von: group.cgi
# Werte: chk_* (Gruppenname)
#Geschrieben von: Tobias Brinkert
#letzte nderung: 28.02.2001
#############################################################################
#############################################################################
#Verwendete Variablen (local)
#
my ($schluessel, #Zwischenspeichervariable fr foreach-Schleife
$return, #Variable fr Rckgabewert von Systemaufrufen
$fehler #Zhler fr Fehler
)=0;
my @starttime=times; #Startzeitwerte speichern
my @endtime=(); #Array fr Endzeitwerte
#
#############################################################################
#############################################################################
#Bibliotheken einbinden
#
do '../web-lib.pl';
&init_config();
ReadParse();
#############################################################################
#Start der HTML-Ausgabe
#
&header($text{titelg4},"","groupdel",undef, undef,undef, "Version $text{version}
\n";
print "$text{groupdel1}
\n";
print "
\n";
print "$text{groupdel2}
\n";
print "\n";
#############################################################################
#Lschen der Gruppen
#
foreach $schluessel (keys %in){
print text(groupdel3, $in{$schluessel}) . ": ";
$return = system("groupdel $in{$schluessel} >/dev/null 2>&1") / 256;
if ($return == 0){
print "$text{return1}\n";
}
else {
$fehler++;
print "$text{return2} [" . hlink("RC = $return","systemprogs#gd$return") . "]\n";
}
}
print "\n";
print "
\n";
#############################################################################
#Ausgabe von Fehleranzahl
#
if ($fehler){
print "" . text(groupdel4, $fehler) . "
\n";
print "
\n";
}
#############################################################################
#Ausgabe von Laufzeitdaten
#
print "$text{time1}
\n";
print "";
@endtime=times;
print text(time2, $endtime[0]-$starttime[0]) . "\n";
print text(time3, $endtime[1]-$starttime[1]) . "\n";
print text(time4, $endtime[2]-$starttime[2]) . "\n";
print text(time5, $endtime[3]-$starttime[3]) . "\n";
print "
\n";
#
#############################################################################
print "
\n";
&footer("/$module_name/group.cgi", $text{back2});
technomgr/groupmod.cgi 0100755 0000764 0000764 00000020753 07704271433 014250 0 ustar f5soh f5soh #!/usr/bin/perl
#############################################################################
#Script: groupmod.cgi
#Funktion: Zeigt Gruppen-Details und
# modifiziert sekundre Gruppenmitglieder
#Aufgerufen von: group.cgi
# Werte: group (Gruppenname)
# groupmod.cgi
# Werte: pop_useradd (Liste der User, die zur Gruppe
# hinzugefgt werden sollen)
# pop_userdel (Liste der User, die aus der Gruppe
# entfernt werden sollen)
# group (Gruppenname)
#Geschrieben von: Tobias Brinkert
#letzte nderung: 28.02.2001
#############################################################################
#############################################################################
#Verwendete Variablen (local)
#
my (%alluser, #alle vorhandenen User; User -> UID
%secuser, #alle sekundre Mitglieder der Gruppe; User -> UID
%primuser, #alle primren Mitglieder der Gruppe; User -> UID
%groups #alle sekundren Gruppen eines Users; Group -> GID
) = ();
my (@deluser, #alle Mitglieder, die aus der Gruppe entfernt werden sollen
@adduser #alle Mitglieder, die zur Gruppe hinzugefgt werden sollen
) = ();
my ($schluessel, #Zwischenspeichervariable fr foreach-Schleifen
$str_usermod, #String fr "usermod -G"
$temp1 #Zwischenspeichervariable
) = "";
my $return = 0; #Variable fr Rckgabewerte von Systemaufrufen
#
#############################################################################
#############################################################################
#Bibliotheken einbinden
#
do '../web-lib.pl';
do './usermgr-lib.pl';
&init_config();
ReadParse();
#############################################################################
#Start der HTML-Ausgabe
#
&header($text{titelg3},"","groupmod",undef,undef,undef, "
\n";
print "" . text(groupmod9, $in{group}) . "
";
#########################################################################
#Mitglieder aus Gruppe entfernen
if (defined $in{pop_userdel}){
print "\n";
@deluser=readpopmultiple($in{pop_userdel});
foreach $temp1 (@deluser){
print text(groupmod10,$temp1,$in{group}) . ": ";
%groups= getusergroups($temp1);
foreach (keys %groups){
next if ($_ eq $in{group});
$str_usermod.="$_,";
}
chop $str_usermod;
$return = system("usermod -G \"$str_usermod\" $temp1 >/dev/null 2>&1") / 256;
if ($return == 0){
print "$text{return1}\n";
}
else {
print "$text{return2} [" .
hlink("RC = $return","systemprogs#um$return") . "]\n";
}
undef $str_usermod;
undef %groups;
}
print "\n";
}
#
#########################################################################
#########################################################################
#Benutzer zur Gruppe hinzufgen
if (defined $in{pop_useradd}){
print "\n";
@adduser=readpopmultiple($in{pop_useradd});
foreach $temp1 (@adduser){
print text(groupmod11,$temp1,$in{group}) . ": ";
%groups=getusergroups($temp1);
$str_usermod=join ',', keys %groups, $in{group};
$return = system("usermod -G \"$str_usermod\" $temp1 >/dev/null 2>&1") / 256;
if ($return == 0){
print "$text{return1}\n";
}
else {
print "$text{return2} [" .
hlink("RC = $return","systemprogs#um$return") . "]\n";
}
undef %groups;
}
print "\n";
}
print "
\n";
#
#########################################################################
}
#
#############################################################################
#############################################################################
#Tabelle mit Gruppen-Details ausgeben
print "" . text(groupmod1, $in{group}) . "
\n";
print "\n";
print "
\n";
#Tabellenende
#############################################################################
#############################################################################
#Beginn Formular
#Aufrufscript: groupmod.cgi
#Method: post
#Felder: pop_useradd (Liste der User, die zur Gruppe
# hinzugefgt werden sollen)
# pop_userdel (Liste der User, die aus der Gruppe
# entfernt werden sollen)
# group (Gruppenname) [hidden]
#
print "\n";
#
#Formularende
#############################################################################
print "\n";
print " \n";
print "" . hlink($text{groupmod2},"groupmod#1") .
": \n";
print "$in{group} \n";
print "" . hlink($text{groupmod3}, "groupmod#2") .
": \n";
print "" . getgrnam($in{group}) . " \n";
print "\n";
print " \n";
print "" . hlink($text{groupmod4}, "groupmod#3") .
": \n";
print "\n";
#############################################################################
#Primre Gruppenmitglieder ausgeben
%primuser=getgroupprimuser($in{group});
foreach $schluessel (sort keys %primuser){
print "$schluessel ($primuser{$schluessel}), \n";
}
print " \n";
print "" . hlink($text{groupmod5}, "groupmod#4") .
": \n";
print " \n";
#############################################################################
#Sekundre Gruppenmitglieder ausgeben
%secuser=getgroupsecuser($in{group});
foreach $schluessel (sort keys %secuser){
print "$schluessel ($secuser{$schluessel}), \n";
}
print " \n";
print "
\n";
&footer("/$module_name/group.cgi", $text{back2});
technomgr/index.cgi 0100755 0000764 0000764 00000013772 07704543605 013531 0 ustar f5soh f5soh #!/usr/bin/perl
#############################################################################
#Script: index.cgi
#Funktion: Startseite fr Benutzer/Gruppenmanager generieren
# Prfung der Konfigurationseinstellungen
#Aufgerufen von: WebMin-Men
# user.cgi
# group.cgi
# userauto.cgi
# netlogon.cgi
#Konfigurations-
#variablen: homedir_schueler (Pfad zu Schlerheimatverzeichnissen)
# homedir_lehrer (Pfad zu Lehrerheimatverzeichnissen)
# groupdir (Pfad zu Gruppenverzeichnissen)
# skelshell (Pfad zu Profildateien [mit Shell])
# skelnoshell (Pfad zu Profildateien [ohne Shell])
# homedir_perms (Zugriffsrechte eines neuen Heimatverz.)
# groupdir_perms (Zugriffsrechte eines neuen Gruppenverz.)
# userrow (Spaltenanzahl der Benutzerlisten)
# grouprow (Spaltenanzahl der Gruppenlisten)
# stdshell (Pfad/Dateiname zur Standardshell)
#Geschrieben von: Tobias Brinkert
#letzte nderung: 06.08.2001
#############################################################################
#Modifi par Laurent Lalanne
$text{authors}
Version $text{version}
\n";
print "
\n";
$fehler++;
}
if ($config{homedir_lehrer} eq ""
or not -d $config{homedir_lehrer}){
print text(index1, $text{index3}) . "
\n";
$fehler++;
}
if ($config{groupdir} eq ""
or not -d $config{groupdir}){
print text(index1, $text{index4}) . "
\n";
$fehler++;
}
if ($config{skelshell} eq ""
or not -d $config{skelshell}){
print text(index1, $text{index5}) . "
\n";
$fehler++;
}
if ($config{skelnoshell} eq ""
or not -d $config{skelnoshell}){
print text(index1, $text{index6}) . "
\n";
$fehler++;
}
if ($config{homedir_perms} eq ""
or $config{homedir_perms} !~ /^7[0|5|7]{2}/){
print "$text{index7}
\n";
$fehler++;
}
if ($config{groupdir_perms} eq ""
or $config{groupdir_perms} !~ /^77[0|5|7]$/){
print "$text{index8}
\n";
$fehler++;
}
if ($config{userrow} !~ /^\d+$/ or $config{userrow} < 1
or $config{userrow} > 10){
print "$text{index9}
\n";
$fehler++;
}
if ($config{grouprow} !~ /^\d+$/ or $config{grouprow} < 1
or $config{grouprow} > 10){
print "$text{index10}
\n";
$fehler++;
}
if ($config{stdshell} eq "" or not -x $config{stdshell}){
print "$text{index11}
\n";
$fehler++;
}
if ($config{'passlenght'} eq "" or $config{'passlenght'} < 4 or $config{'passlenght'} > 8){
print "$text{index12}
\n";
$fehler++;
}
if ($config{'passsystem'} eq "" or $config{'passsystem'} < 1 or $config{'passsystem'} > 5){
print "$text{index16}
\n";
$fehler++;
}
if ($config{'usernamelength'} eq "" or $config{'usernamelength'} < 1 or $config{'usernamelength'} > 12){
print "$text{index16}
\n";
$fehler++;
}
if ($config{'usercomment'} eq "" or $config{'usercomment'} < 1 or $config{'usercomment'} > 2){
print "$text{index16}
\n";
$print++;
}
#############################################################################
#berprfung, ob alle bentigten Systemprogramme ausgefhrt werden knnen
foreach (@programms){
unless (has_command($_)){
print text(index12, $_) . "
\n";
$progfehler++;
}
}
#############################################################################
#Ausgabe des Mens, falls Konfiguration korrekt und alle Systemprogramme
#vorhanden sind,
#andernfalls die Anzahl der Fehler und Hinweis auf die Konfiguration
if ($fehler == 0 and $progfehler == 0){
@titles=($text{image1},$text{image2},$text{image3},$text{image4},$text{image5},$text{image6}) ;
icons_table(\@links, \@titles, \@icons, 3);
}
else {
if ($fehler){
print "
\n";
print "" . text(index13, $fehler,
"", "") . "
";
}
elsif ($progfehler){
print "
\n";
print "" . text(index14, $progfehler) . "
";
print text(index15, $gconfig{path});
}
}
print "
\n";
&footer("/", "Webmin index");
technomgr/module.info 0100644 0000764 0000764 00000000300 07704523770 014055 0 ustar f5soh f5soh name=Techno-Manager
desc=Techno-Manager
os_support=slackware-linux redhat-linux mandrake-linux debian-linux suse-linux open-linux turbo-linux corel-linux cobalt-linux msc-linux
category=other
technomgr/save_shares.cgi 0100755 0000764 0000764 00000005252 07704530641 014713 0 ustar f5soh f5soh #!/usr/bin/perl
#
# smblogin
# Copyright (C) 2000 by bernhard minks, stefan rink
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# This module inherited from the Webmin Module Template 0.79.1 by tn
#
# Created 15.11.2000
########################################################################
#Modifi par Laurent Lalanne
\n";
#print "".$text{'title'}."
\n";
print "action $in{'action'}
" if $DEBUG;
foreach ( keys %in )
{
print ">> $_ = ". $in{$_} ."
\n" if $DEBUG;
}
$netlogon_file = "$config{'netlogon_path'}/$in{'user'}.bat";
if (-e $netlogon_file )
{
my (@netlogon);
print "$netlogon_file exist
\n" if $DEBUG;
open FILE, "$netlogon_file";
print $text{'using_user'}."
\n";
}
else
{
my (@netlogon);
print "$netlogon_file not exist
\n" if $DEBUG;
open FILE, "$config{'netlogon_path'}/$config{'netlogon_default'}";
print $text{'using_default'}."
\n";
}
while (
\n" if $DEBUG;
push @netlogon, $_;
}
close FILE;
my (@netlogon2save);
foreach (@netlogon)
{
s/__USERNAME__/$in{'user'}/gi;
s/\r//g;
chomp;
if(m/^\s*$/ || m/echo Login/i || m/ECHO OFF/i)
{
push @netlogon2save, "$_\r\n";
}
else
{
s/^REM//gi;
s/^\s*//g;
$i++;
if ($in{"use$i"} eq "on")
{
$checked = "";
}
else
{
$checked = "REM ";
}
push @netlogon2save, "$checked$_\r\n";
}
}
open FILE, ">$netlogon_file" or die "could not open $netlogon_file to write";
print FILE @netlogon2save;
close FILE;
print "\n";
print "
";
print " ";
print "$text{output_file} ";
print "
\n";
&footer("smblogin.cgi", $text{'prompt'});
### END of save_shares.cgi ###.
technomgr/smblogin.cgi 0100755 0000764 0000764 00000002750 07704530763 014227 0 ustar f5soh f5soh #!/usr/bin/perl
#
# smblogin
# Copyright (C) 2000 by bernhard minks, stefan rink
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# This module inherited from the Webmin Module Template 0.79.1 by tn
# Created 15.11.2000
#
#################################################################
#Modifi par Laurent Lalanne
\n";
#print "".$text{'title'}."
\n";
print "\n";
print "
\n";
&footer("/technomgr", "$text{back1}");
### END of index.cgi ###.
technomgr/user.cgi 0100755 0000764 0000764 00000036230 07722452075 013372 0 ustar f5soh f5soh #!/usr/bin/perl
#############################################################################
#Script: user.cgi
#
#d'aprs script de Tobias Brinkert
#############################################################################
#############################################################################
#Laurent Lalanne
EOP
print " \n \n \n";
#
#Bas de page
#
print <\n";
print " \n $text{user2}
\n";
print "
";
print "\n";
print "
\n";
print "\n";
print " \n";
foreach (sort keys %user){
print " \n";
print " $anzahl $text{user19} \n";
print " \n" if ($i == 1);
print " \n";
$i = 1;
}
else {
++$i;
}
}
if ($i != 1) {
for ($i..$config{userrow}){
print " $_ \n";
if ($i == $config{userrow}){
print " \n";
}
print " \n";
}
print "
";
#############################################################################
#
# Ajout d'un nouvel utilisateur
#
sub user_add {
my $tab_content = "contents" . $n; # Content => content1, content2, etc....
print "\n \n \n \n";
#delete_home;
#page_bas;
page_pied;
technomgr/useradd.cgi 0100755 0000764 0000764 00000014734 07704271433 014045 0 ustar f5soh f5soh #!/usr/bin/perl
#############################################################################
# Script: useradd.cgi
# Funktion: Legt neuen Benutzer an
# Geschrieben von: Tobias Brinkert
# letzte nderung: 12. Januar 2002
# Version: 0.3.0
#############################################################################
#############################################################################
#Verwendete Variablen (local)
#
my ($return)=0; #Rckgabewert von Systemaufrufen
my ($passwd, #Pawort
$passwdvalid, #Pawortvalidierung
$crypt, #Verschlsseltes Pawort
)="";
#
#############################################################################
#############################################################################
#Bibliotheken einbinden
#
do '../web-lib.pl';
do './usermgr-lib.pl';
&init_config();
&ReadParse();
#############################################################################
#Funktion: passwdpart()
#bergabewert: keine
#Rckgabewert: keine
#Beschreibung: Liefert HTML-Code fr die Eingabe eines Pawortes
#Aufrufscript: useradd.cgi
#Method: post
#Felder: txt_password
# txt_passwordvalid
# pop_group
# rad_passwd
# rad_shell
# skel
# userhome
# txt_username
# txt_realname
# rad_smb
#############################################################################
sub passwdpart {
print <\n";
print " \n \n";
print " \n";
print "
\n";
print " \n\n";
}
}
#############################################################################
#Boutons supprimer user / Raz
#
sub delete_home {
print "\n";
}
if ( $n == $n_total ) {
print " \n";
print "
\n";
print "
" . hlink($text{user18}, "user#9") . ": \n";
print <
$text{user14}
EOP
}
#############################################################################
#Ausgabe der Systembenutzer-Tabelle
#
sub user_system {
ausgabe_usertable2('system');
print "
\n";
}
#############################################################################
#Ausgabe der Maschinenaccount-Tabelle
#
sub user_machine {
print "$text{user21}
\n";
ausgabe_usertable2('maschine');
print "
\n";
}
#############################################################################
#Bas de page
#
sub page_bas {
print <
EOT
}
#
#Formular- und Tabellenende
#############################################################################
sub page_pied {
&footer("/$module_name", $text{back1});
}
#############################################################################
#Ausgabe der Benutzer-Tabelle
#my %groups=getgroups('normal');
#foreach(sort keys %groups){
# ausgabe_usertable($_);
#}
my %groups=getgroups('normal');
$n= 0;
$groupe_id2 = $config{prefixe_groupe};
foreach(sort keys %groups){
$groupe_id = $_; #compte les groupes
if ("$groupe_id" =~ /$config{prefixe_groupe}/) #classe pour les Tabs
{
if ($groupe_id eq $groupe_id2){}else{
++$n;}
}
}
$n_total = $n + 3; #Ajout de 3 Tabs : Adduser, Systme, user normaux
$n = 1;
tab_menu($text{user_add});
++$n;
tab_menu($text{user_system});
++$n;
foreach(sort keys %groups){
$groupe_id = $_;
if ("$groupe_id" =~ /$config{prefixe_groupe}/)
{
if ($groupe_id eq $groupe_id2){}else{
tab_menu($_);
++$n;}
}
}
tab_menu($text{user_other});
#fin tabmenu
#dbut content
$n = 1;
user_add;
++$n;
user_system;
++$n;
foreach(sort keys %groups){
$groupe_id = $_;
if ("$groupe_id" =~ /$config{prefixe_groupe}/)
{
if ($groupe_id eq $groupe_id2){}else{
ausgabe_usertable($_);
++$n; }
}
}
foreach(sort keys %groups){
$groupe_id = $_;
if ("$groupe_id" =~ /$config{prefixe_groupe}/)
{ } else {
ausgabe_usertable($_);
++$n;
}
}
print <
EOT
print "\n " . hlink($text{user18}, "user#9") . ": \n";
print <
$text{user14}
EOP
print "\n
EOP
}
#############################################################################
#berprfung der bergebenen Werte und Bildung des String fr das Heimatverz.
if ($in{txt_username} !~ /^\w+$/){
error($text{fehlerua1});
exit;
}
if ($in{pop_group} eq "------"){
error($text{fehlerua2});
exit;
}
if ($in{rad_usertyp} eq "s"){
$in{userhome} = $config{homedir_schueler} . "/" . $in{txt_username};
}
elsif ($in{rad_usertyp} eq "t"){
$in{userhome} = $config{homedir_lehrer} . "/" . $in{txt_username}
}
if ($in{rad_skel} eq "yes" and -e $in{userhome}){
error(text(fehlerua3, $in{userhome}));
}
if ($in{rad_skel} eq "yes"){
if ($in{rad_shell} eq $config{stdshell}){
$in{skel}=$config{skelshell};
}
else {
$in{skel}=$config{skelnoshell};
}
}
#############################################################################
#Start der HTML-Ausgabe
#
&header($text{titelu2},"","useradd",undef, undef,undef, "
EOP
print hlink($text{useradd8}, "useradd#$text{useradd8}");
print <
EOP
print hlink($text{useradd9}, "useradd#$text{useradd9}");
print <
\n";
print "\n";
#############################################################################
#Generierung des Pawortes, Pawortvalidierung, Ausgabe von HTML-Code
#fr das Eingeben des Pawortes
if ($in{rad_passwd} eq "yes"){
print "$text{useradd1}:";
#########################################################################
#Initialisierung des Zufallszahlengenerator und
#
srand (time() ^ ($$ + ($$ << 15)));
print "$config{'passlenght'} -> $config{'passsystem'}\n";
$passwd=passwdgen($in{txt_username},$config{'passlenght'},$config{'passsystem'});
print "$text{return1}\n";
print "$text{useradd2}:$passwd\n";
}
elsif (defined $in{txt_passwd}){
if ($in{txt_passwd} eq $in{txt_passwdvalid}){
$passwdvalid="ok";
$passwd=$in{txt_passwd};
}
else {
print "\n";
&passwdpart();
}
}
else {
print "\n";
&passwdpart();
}
#############################################################################
#Anlegen des Benutzer und des Samba-Accounts
if ($in{rad_passwd} eq "yes" or $passwdvalid eq "ok"){
print text(useradd4, $in{txt_username}) . ": ";
$crypt=crypt($passwd,(join '',('.','/',0..9,'A'..'Z','a'..'z')[rand 64, rand 64]));
if ($in{rad_skel} eq "yes"){
$return = system("useradd -g $in{pop_group} -d $in{userhome} -s $in{rad_shell} -c \"$in{txt_realname}\" -m -k $in{skel} -p \"$crypt\" $in{txt_username} >/dev/null 2>&1") / 256;
}
else {
$return = system("useradd -g $in{pop_group} -d $in{userhome} -s $in{rad_shell} -c \"$in{txt_realname}\" -p $crypt $in{txt_username} >/dev/null 2>&1") / 256;
}
if ($return == 0){
print "$text{return1}\n";
print "$text{useradd5}: $in{pop_group}\n";
print "$text{useradd6}: $in{userhome}\n";
}
else {
print "$text{return2} [" .
hlink("RC = $return","systemprogs#ua$return") . "]\n";
}
if ($in{rad_smb} eq "yes" and $return == 0){
print "$text{useradd7}: ";
$return = system("smbpasswd -a -e -s $in{txt_username} $passwd >/dev/null 2>&1") / 256;
if ($return == 0){
print "$text{return1}\n";
}
else {
print "$text{return2} [" .
hlink("RC = $return", "systemprogs#sm$return") . "]\n";
}
}
elsif ($in{rad_smb} eq "yes"){
print "$text{useradd7}: $text{return3}\n";
}
print "";
}
print "$text{useradd10}
";
&footer("/$module_name/user.cgi", $text{back3});
technomgr/userauto.cgi 0100755 0000764 0000764 00000024654 07722451566 014276 0 ustar f5soh f5soh #!/usr/bin/perl
#############################################################################
#Script: userauto.cgi
#Funktion: Eingeben der Daten fr die automatische Benutzergenerierung
#Geschrieben von: Tobias Brinkert
#letzte nderung: 28.02.2001
#############################################################################
#Modifi par Laurent Lalanne
";
print "\n";
print " \n";
print "
";
print "";
print "\n";
print " \n\n";
#Fin menu onglets
#
print <\n";
print " \n";
print " \n";
print " \n \n";
print " \n
";
print " " . hlink($text{userauto2}, "userauto#srclog") .
": \n";
print " \n";
print " \n";
print " " . hlink($text{userauto3}, "userauto#srclog") .
": \n";
print " \n";
print &file_chooser_button("txt_export",1);
print " \n";
print "
EOP
print "" . hlink($text{userauto4}, "userauto#srclog") .
": \n";
print <
$text{userauto9}
" . hlink($text{userauto10}, "userauto#prefixe") .
": \n";
print "
ex. classe + 6A -> groupe : classe6A\n";
print "
$text{userauto11}
EOP
print " " . hlink($text{userauto12}, "userauto#netlogon") .
": Serveur par dfaut \n";
printf "\n", &getval("netbios name");
print "
" . hlink($text{userauto13}, "userauto#netlogon") .
": \n";
print <
EOP
print " " . hlink($text{userauto14}, "userauto#netlogon") . ":
$text{userautocomment2}\n
";
foreach $l (&list_shares()) {
if ($l eq "global") { next; }
if ($l eq "printers") { next; }
if ($l eq "pdf") { next; }
if ($l eq "printer\$") { next; }
if ($l eq "netlogon") { next; }
++$num_share;
print "\n";
#
# Dtection des partages et attribution lettre de lecteur
# comme dfini dans la config par dfaut
#
############################################################
if ($share_select eq $config{def_shareperso}) {
$lect=$config{def_lectperso};
} elsif ($share_select eq $config{def_sharegroup}) {
$lect=$config{def_lectgroup};
} elsif ($share_select eq $config{def_sharecdrom}) {
$lect=$config{def_lectcdrom};
} elsif ($share_select eq $config{def_shareappli}) {
$lect=$config{def_lectappli};
} else {
$lect=" "
}
print <\n \n\n";
}
}
print "
";
#viewdbf
print "
Le login sera eNumro_Gep.
";
print "
Le groupe gnr correspond la classe.
Attention !! Ne pas oublier d'indiquer un prfixe car si le groupe dbute par un chiffre le systme ne l'acceptera pas.
";
print "
EOP
#
#Formular und Tabellenende
#############################################################################
&footer("/$module_name", $text{back1});
technomgr/userauto2.cgi 0100755 0000764 0000764 00000051236 07722451733 014350 0 ustar f5soh f5soh #!/usr/bin/perl
#############################################################################
# Script: userauto2.cgi
# Funktion: Legt neuen Benutzer automatisch an
# Geschrieben von: Tobias Brinkert
# letzte nderung: 12. Januar 2002
# Version: 0.3.0
#############################################################################
#Modifi par Laurent Lalanne $text{userauto21}
EOP
#############################################################################
# Fichier F_ELE.DBF upload et moulinette DBF -> champs utiles .csv
#
# num_gep:elev_nom:elev_prenom:code_division
#
$file_upload = "/tmp/F_ELE.DBF";
open(MOD, ">$file_upload");
print MOD $in{'upload'};
close(MOD);
open(MOD, ">$tempname1");
use Dbf;
my $db = Dbf->new(file => "/tmp/F_ELE.DBF");
@array = $db->lines;
foreach (@array)
{
my %hash = %{$_};
if ("$hash{DIVCOD_MSO}" eq "" & "$hash{DIVCOD}" <=> "" )
{
map { print MOD "$hash{ELENOET}:$hash{ELENOM}:$hash{ELEPRE}:$hash{DIVCOD}" }
print MOD "\n";
}
}
close(MOD);
#############################################################################
# Le champ "DIVCOD_MSO" du fichier dbase Gep correspond la division
# d'lves qui ont quitt le collge.
#
open(MOD, ">$purge_elev");
use Dbf;
my $db = Dbf->new(file => "/tmp/F_ELE.DBF");
@array = $db->lines;
foreach (@array)
{
my %hash = %{$_};
if ("$hash{DIVCOD_MSO}" <=> "" )
{
map { print MOD "$hash{ELENOET}:$hash{ELENOM}:$hash{ELEPRE}:$hash{DIVCOD_MSO}" }
print MOD "\n";
}
}
close(MOD);
#############################################################################
#Modification des donnes importes
#
#Retire accents et mise en forme nom/prnom
#
my $separateur = ":";
open (INPUT, "$tempname1") or die;
open (OUTPUT, ">$tempname2") or die;
while ($stdline=){
chomp $stdline;
@backup = split /$separateur/, $stdline;
# print "$#backup $classe
\n";
#Enleve les caractres accentus dans le texte
#French
$stdline=~s//e/g;
$stdline=~s//e/g;
$stdline=~s//a/g;
$stdline=~s//c/g;
#Deutch
$stdline=~s//oe/g;
$stdline=~s//ae/g;
$stdline=~s//ue/g;
$stdline=~s//Oe/g;
$stdline=~s//Ae/g;
$stdline=~s//Ue/g;
$stdline=~s//ss/g;
$stdline=~s/\.|\-|\ //g;
@temp=split /$separateur/, $stdline;
$temp[$prenom]=~s/([a-z0-9]+)/$1/gi;
#########################################################################
#Prfixe de groupe classe
#
#Dans les donnes Gep, la classe est sous la forme 6A, 6B, 4C, etc...
#
#Ajout du prfixe s'il est spcifi dans le formulaire
#
if ($in{txt_prefix}){
# print "$classe
";
$temp[$classe] = ($temp[$classe] =~/^\d\w$/) ? $in{txt_prefix} . $temp[$classe] : $in{txt_prefix} . $temp[$classe];
push(@groups,$temp[$classe]);
# print "$temp[$classe]"
}
#########################################################################
#
# Rcupration des noms et prnoms avec les accents pour le commentaire
# dans useradd -c "Nom prnom" commentaire=temp[4]
#
#
$comment1=ucfirst(lc($backup[$prenom]));
$comment2=ucfirst(lc($backup[$nom]));
if ($config{usercomment} == 1){
print OUTPUT join("$separateur", $temp[$gepnum], $temp[$nom], $temp[$prenom], $temp[$classe], "$comment2 $comment1") . "\n";
}
else {
print OUTPUT join("$separateur", $temp[$gepnum], $temp[$nom], $temp[$prenom], $temp[$classe], "$comment1 $comment2") . "\n";
}
}
close(INPUT);
close(OUTPUT);
#############################################################################
#Dtection si tous les groupes existent
#
#if ($fehler == 0){
# print "";
# foreach $schluessel (sort @groups){
# $return = getgrnam("$schluessel");
# if (not defined $return){
# print text("userauto24", $schluessel, "\n");
# $fehler=1;
# }
# }
# if ($fehler == 0){
# print "$text{userauto23}\n";
# }
# print "\n";
#}
#print "
\n";
#############################################################################
#Benutzer anlegen und Benutzerdaten in Datei schreiben
if ($fehler == 0){
print "$text{userauto33}
\n";
print "\n";
open(INPUT, "$tempname2");
open(OUTPUT, ">$tempname1");
#Entte fichier Log
print OUTPUT "# " . localtime(time) . "\n";
print OUTPUT "#---Syntaxe des donnes---\n";
print OUTPUT "#Groupe " . "$separateur" . " Nom complet " . "$separateur" . " Login " . "$separateur" . " Mot_de_passe " . "$separateur" . " Rp. Maison ". "$separateur" . " Statut\n";
while (){
chomp;
@temp=split /$separateur/, $_;
print "$temp[$nom]" . " " . "$temp[$prenom]" ." " x (28 - length($temp[$prenom]) - length($temp[$nom]));
#####################################################################
# Gnrateur des noms de comptes
foreach $nr2 (1 .. $config{'usernamelength'}){
$nr1 = $config{'usernamelength'} - $nr2;
# Ajout d'un 'e' devant le numro Gep pour le login des lves
#
# Les login professeurs sont en clair (nom) ou rentrs individuellement.... :-)
#
if ($in{rad_usertyp} eq "s"){
$username="e" . $temp[$gep_num];
}
elsif ($in{rad_usertyp} eq "t"){
$username=$temp[$name];
}
$username=~s/\W//g;
$return=getpwnam(lc("$username"));
last if (not defined $return);
}
#####################################################################
#Mot de passe = login, changement par l'utilisateur la 1ere cnx
#
$passwd="$username";
#####################################################################
#Gnre les rpertoires home
#
if ($in{rad_usertyp} eq "s"){
$userhome = $config{homedir_schueler} . "/" . $username;
}
elsif ($in{rad_usertyp} eq "t"){
$userhome = $config{homedir_lehrer} . "/" . $username;
}
$group_home = $config{groupdir} . "/" . $temp[$classe];
#####################################################################
#Cration des comptes User et groupe ainsi que les rpertoires
#
$crypt=crypt($passwd,(join '',('.','/',0..9,'A'..'Z','a'..'z')[rand 64,rand 64]));
system("rm $tempname3 2>/dev/null");
system("rm $tempname4 2>/dev/null");
#
#Teste si le rpertoire groupe (classe) existe.
#
if ( -d $group_home ) {print "";
} else {
system("mkdir -p -m $config{groupdir_perms} $group_home >/dev/null 2>&1") / 256;
$return2 = system("groupadd \"$temp[$classe]\" > /dev/tty1 2>&1") / 256;
system("chown -R root:$temp[$classe] $group_home");
print "Rpertoire classe ($group_home) cr\n";
close(INPUT);
close(OUTPUT);
##########################################################################
#Export-Datei sortieren, ins angegebene Format konvertieren und ins ange
#gebene Verzeichnis kopieren (Name = "userlist_PID.txt")
system("sort -o $tempname2 $tempname1 >/dev/null 2>&1");
if ($in{pop_exporttyp} eq "win"){
system("recode latin1..cp1252 $tempname2 >/dev/null 2>&1");
}
elsif ($in{pop_exporttyp} eq "dos"){
system("recode latin1..ibmpc $tempname2 >/dev/null 2>&1");
}
elsif ($in{pop_exporttyp} eq "mac"){
system("recode latin1..macce $tempname2 >/dev/null 2>&1");
}
$exportname= "$in{txt_export}/userlist_$$.txt";
system("cp -b $tempname2 $exportname");
print "
";
if ($return2 == 0){
$commentaire = $text{userauto272}; #cration groupe
}
}
#
# Teste si le rpertoire utilisateur existe.
#
# Modifie appartenance au groupe classe au cas o :-)
#
@usertest=getpwnam $username;
$primgroup=getgrgid $usertest[3];
#if (-d $userhome)
#{
$primgroup_new = "$temp[$classe]";
if ( "$primgroup" =~ /$in{txt_prefix}/ ){
if ( $primgroup =~ /$primgroup_new/ ){
$return="OK" #Compte user OK, groupe OK
} else {
system("usermod -g \"$temp[$classe]\" $username > $console 2>&1") / 256;
$commentaire = " " . "" . $text{userauto273} . ""; #changement groupe
}
} else {
#nouvel utilisateur
$return = system("useradd -g \"$temp[$classe]\" -d $userhome -s \"/bin/false\" -c \"$temp[4]\" -p \"$crypt\" $username > $console 2>&1") / 256;
}
if (-d $userhome){
#
#Script Netlogon utilisateur
###############################
$tempname4=tempname($username.bat) ;
open(NETLOGU, "> $tempname4") or die ;
print NETLOGU "\@echo off\n";
print NETLOGU "REM Script netlogon de l'lve $temp[4]\n";
if ($in{ntp} eq "1") {
print NETLOGU "NET TIME \\\\" . "$in{netbios_name}" . " /SET /YES\n";
}
print NETLOGU "CALL \\\\" . "$in{netbios_name}" . "\\netlogon\\" . "$temp[$classe]" . ".bat\n";
#Recode en fichier DOS
close (NETLOGU);
system("recode latin1..ibmpc $tempname4 >/dev/null 2>&1");
$exportnetlogu= "$config{netlogon_path}" . "/" . "$username" . ".bat";
system("cp -b $tempname4 $exportnetlogu");
$tempname3=tempname(netlogon_group);
#
#Script Netlogon groupe
###############################
open(NETLOGG, "> $tempname3");
print NETLOGG "\@echo off\n";
$in{num_of_shares}++;
print NETLOGG "REM Script netlogon du groupe $temp[$classe]\n";
for($i=1; $i<$in{num_of_shares}; $i++) {
$lecteur="lect$i";
$partage="share$i";
if ($in{"$lecteur"} eq "" or $in{"$lecteur"} eq " " or $in{"$lecteur"} eq " ") { next;}
print NETLOGG "NET USE $in{$lecteur} " . "\\\\$in{netbios_name}" . "\\$in{$partage}\n";
}
# print NETLOGG "if not exist c:\\windows\\Mozilla\\recup.bat goto fin\n"; print NETLOGG "CALL C:\\windows\\Mozilla\\recup.bat\n";
# print NETLOGG ":fin\n";
#Recode en fichier DOS
close (NETLOGG);
system("recode latin1..ibmpc $tempname3 >/dev/null 2>&1");
$exportlogg= "$config{netlogon_path}/$temp[$classe].bat";
system("cp -b $tempname3 $exportlogg");
system("rm -f $tempname3");
# fin script netlogon Groupe
}
$exportmozillapref= "$userhome/.Mozilla/techno64.slt/user.js";
if (-e $exportmozillapref)
{ }
else {
#
#Prfrences utilisateur Mozilla
####################################
$tempname5=tempname(mozilla) ;
open(MOZILLA, "> $tempname5") or die ;
print MOZILLA <
\n";
##########################################################################
#Gruppenzusammenfassung anzeigen
print "$text{userauto28}
\n";
print "\n";
foreach $schluessel (sort keys %groupmembers){
print text('userauto29', $schluessel, $groupmembers{$schluessel}) . "\n";
}
print "\n";
print "
\n";
print "$text{userauto30}
\n";
print "";
print text('userauto31', $userall) . "\n";
print text('userauto32', $userallsmb) . "\n";
print "\n";
print "
\n";
##########################################################################
#Name der Export-Datei anzeigen
print "$text{userauto35}
\n";
print "";
print "$text{userauto36}: $exportname\n";
print "";
print "
\n";
}
##############################################################################
#Temporre Dateien lschen
system("rm $tempname1 2>/dev/null");
system("rm $tempname2 2>/dev/null");
#############################################################################
#Ausgabe von Laufzeitdaten
#
print "$text{time1}
\n";
print "";
@endtime=times;
print text('time2', $endtime[0]-$starttime[0]) . "\n";
print text('time3', $endtime[1]-$starttime[1]) . "\n";
print text('time4', $endtime[2]-$starttime[2]) . "\n";
print text('time5', $endtime[3]-$starttime[3]) . "\n";
print "\n";
print "
\n";
&footer("/$module_name", $text{back1});
technomgr/userdel.cgi 0100755 0000764 0000764 00000010376 07704271433 014057 0 ustar f5soh f5soh #!/usr/bin/perl
#############################################################################
# Script: userdel.cgi
# Funktion: Lscht Benutzer
# Geschrieben von: Tobias Brinkert
# letzte nderung: 12. Januar 2002
# Version: 0.3.0
#############################################################################
use vars qw(%text %in $module_name);
#############################################################################
#Verwendete Variablen (local)
#
my $schluessel = ""; # Zwischenspeichervariable fr foreach-Schleife
my $return = ""; # Variable fr Rckgabewert von Systemaufrufen
my $fehler = 0; # Zhler fr Fehler
my @starttime = times; # Startzeitwerte speichern
my @endtime = (); # Array fr Endzeitwerte
my @user = (); # zu lschene Benutzer
my $deluser = 0; # Zhler fr gelschte Benutzer
my $user = ""; # Schleifenvariable
#
#############################################################################
#############################################################################
#Bibliotheken einbinden
#
use FileHandle;
do './usermgr-lib.pl';
do '../web-lib.pl';
&init_config();
ReadParse();
STDOUT->autoflush(1);
#############################################################################
#Start der HTML-Ausgabe
#
&header($text{titelu4},"","userdel",undef, undef,undef, "Version $text{version}$text{userdel1}
EOP
#############################################################################
#Ausgabe von Fehleranzahl
#
foreach $schluessel (sort keys %in){
if ($schluessel =~ /^chks_/){
my %temp=getgroupprimuser($in{$schluessel});
push(@user,keys %temp);
}
elsif ($schluessel =~ /^chk_/){
push(@user,$in{$schluessel});
}
}
foreach $user (@user){
print text('userdel2', $user);
print " " x (15 - length($user));
#########################################################################
#Samba-Account lschen
$return = system("smbpasswd -x $user > /dev/null 2>&1") / 256;
if ($return == 0){
print text('userdel5', $text{return1}) . "; ";
}
else {
print text('userdel5', $text{userdel6}) . "; ";
}
#########################################################################
#User und Heimatverzeichnis lschen
if ($in{'rad_homedel'} eq "yes" && getpwnam($user) > 99 && $user !~ /.+\$$/){
$return = system("userdel -r $user > /dev/null 2>&1") / 256;
system("rm -f $config{netlogon_path}/$user.bat");
if ($return == 0){
print text('userdel3', $text{return1}) . "; ";
print text('userdel4', $text{return1}) . ";\n";
++$deluser;
}
else {
print text('userdel3', $text{return2}) . " [" . hlink("RC = $return", "systemprogs#ud$return") . "]; ";
print text('userdel4', $text{return3}) . ";\n";;
$fehler++;
}
}
#########################################################################
#nur User lschen
else {
$return = system("userdel $user > /dev/null 2>&1") / 256;
if ($return == 0){
print text('userdel3', $text{return1}) . "; ";
print text('userdel4', $text{return3}) . ";\n";
++$deluser;
}
else {
print text('userdel3', $text{return2}) . " [" . hlink("RC = $return", "systemprogs#ud$return") . "]; ";
print text('userdel4', $text{return3}) . ";\n";
$fehler++;
}
}
}
print "\n";
print "
\n";
#############################################################################
#Ausgabe von Fehleranzahl
#
print "" . text('userdel8',$deluser) . "
\n";
if ($fehler){
print "" . text('userdel7', $fehler) . "
\n";
}
print "
\n";
#############################################################################
#Ausgabe von Laufzeitdaten
#
print "$text{time1}
\n";
@endtime=times;
print "";
print text('time2', $endtime[0]-$starttime[0]) . "\n";
print text('time3', $endtime[1]-$starttime[1]) . "\n";
print text('time4', $endtime[2]-$starttime[2]) . "\n";
print text('time5', $endtime[3]-$starttime[3]) . "\n";
print "\n";
print "
\n";
&footer("/$module_name/user.cgi", $text{back3});
technomgr/usermgr-lib.pl 0100644 0000764 0000764 00000014317 07420104772 014505 0 ustar f5soh f5soh #############################################################################
#Script: usermgr-lib.pl
#Funktion: Bibliothek von Funktionen
#Geschrieben von: Tobias Brinkert
#letzte nderung: 12. Januar 2002
#Version: 0.3.0
#############################################################################
sub passwdgen($$$); # Pawortgenerierung
sub getgroups($); # Auslesen der Gruppen
sub getusers(?$); # Auslesen der Benutzer
sub getusergroups($); # Auslesen der Gruppen eines Benutzers
sub getgroupsecuser($); # Auslesen der sekundren Gruppenmitglieder
sub getgroupprimuser($); # Auslesen der primren Gruppenmitglieder
sub readpopmultiple($); # Verarbeitung von Mehrfachauswahlfelder
#############################################################################
#Funktion: passwdgen($$$)
#############################################################################
sub passwdgen($$$){
my $string = $_[0]; # Benutzername
my $passlength = $_[1]; # Pawortlnge
my $passsystem = $_[2]; # Typ der Pawortgenerierung
my $passwd = ""; # Pawort-String
if ($passsystem == 1){
use Text::Soundex;
$passwd=soundex $string;
if ($passwd){
$passlength-=4;
}
for (1..$passlength){
$passwd.=('.',0..9,'A'..'Z','a'..'z')[rand 63];
}
}
elsif ($passsystem == 2){
for (1..$passlength){
$passwd.=(0..9)[rand 10];
}
}
elsif ($passsystem == 3){
for (1..$passlength){
$passwd.=('a'..'z')[rand 26];
}
}
elsif ($passsystem == 4){
for (1..$passlength){
$passwd.=('A'..'Z','a'..'z')[rand 52];
}
}
elsif ($passsystem == 5){
for (1..$passlength){
$passwd.=(0..9,'A'..'Z','a'..'z')[rand 62];
}
}
return $passwd;
}
#############################################################################
#Funktion: getgroups()
#bergabewert: "normal"|"system" (Gruppentyp) [optional]
#Rckgabewert: Hash (Gruppen; Gruppe -> GID)
#############################################################################
sub getgroups($){
my $gtyp = $_[0]; #Gruppentyp
my $temp0 = ""; #Gruppenname (temporr)
my $temp2 = ""; #GID (temporr)
my %group=(); #Gruppen (Gruppe -> GID)
setgrent;
while (($temp0,$temp2)=(getgrent)[0,2]){
if ($gtyp eq "normal"){
$group{$temp0}=$temp2 if ($temp2 >= 100 and $temp2 < 65534);
}
elsif ($gtyp eq "system"){
$group{$temp0}=$temp2 if ($temp2 < 100 or $temp2 == 65534);
}
else {
$group{$temp0}=$temp2;
}
}
endgrent;
return %group;
}
#############################################################################
#Funktion: getusers()
#bergabewert: "normal"|"system"|"maschine" (Benutzertyp) [optional]
#Rckgabewert: Hash (User; User -> UID)
#############################################################################
sub getusers(?$){
my $utyp = $_[0]; #Usertyp
my $temp0 = ""; #Username (temporr)
my $temp2 = ""; #UID (temporr)
my %user = (); #User (User -> UID)
setpwent;
while (($temp0,$temp2)=(getpwent)[0,2]){
if ($utyp eq "normal"){
$user{$temp0} = $temp2 if ($temp2 >= 100 and $temp2 < 65534 and $temp0 !~ /.+\$$/);
}
elsif ($utyp eq "system"){
$user{$temp0}=$temp2 if (($temp2 < 100 or $temp2 == 65534) and $temp0 !~ /.+\$$/);
}
elsif ($utyp eq "maschine"){
$user{$temp0}=$temp2 if ($temp0 =~ /.+\$$/);
}
else {
$user{$temp0}=$temp2;
}
}
endpwent;
return %user;
}
#############################################################################
#Funktion: getusergroups()
#bergabewert: String (User)
#Rckgabewert: Hash (Gruppen; Gruppe -> GID)
#############################################################################
sub getusergroups($){
my $user=$_[0]; #Username
my $temp0 = ""; #Gruppenname (temporr)
my $temp2 = 0; #GID (temporr)
my $temp3 = ""; #sek. Gruppenmitglieder (temporr)
my %group=(); #Gruppen, in denen der User Mitglied ist (Gruppe -> GID)
setgrent;
while (($temp0,$temp2,$temp3)=(getgrent)[0,2,3]){
$group{$temp0}=$temp2 if ($temp3 =~ /(^|\s)$user(\s|$)/);
}
endgrent;
return %group;
}
#############################################################################
#Funktion: getgroupsecuser()
#bergabewert: String (Gruppe)
#Rckgabewert: Hash (User; User -> UID)
#############################################################################
sub getgroupsecuser($){
my $group = $_[0]; #Gruppenname
my %user = (); #sek. Gruppenmitglieder (User -> UID)
foreach (split(/\s+/, (getgrnam($group))[3])){
$user{$_}=getpwnam($_);
}
return %user;
}
#############################################################################
#Funktion: getgroupprimuser()
#bergabewert: String (Gruppe)
#Rckgabewert: Hash (User; User -> UID)
#############################################################################
sub getgroupprimuser($){
my $ggid = getgrnam($_[0]); #GID
my $temp0 = ""; #Username (temporr)
my $temp2 = 0; #UID (temporr)
my $temp3 = 0; #prim. GID des Users (temporr)
my %user=(); #prim. Gruppenmitglieder (User -> UID)
setpwent;
while (($temp0,$temp2,$temp3)=(getpwent)[0,2,3]){
$user{$temp0}=$temp2 if ($temp3 == $ggid);
}
endpwent;
return %user;
}
#############################################################################
#Funktion: readpopmultiple()
#bergabewert: String (Wert aus Listenfeld)
#Rckgabewert: Array (Listeneintrge)
#############################################################################
sub readpopmultiple($){
my $string = $_[0]; #kodierte Listeneintrge als String
my @array = (); #Array mit Listeneintrgen
foreach (sort split(/\0/, $string)){
push @array, $_;
}
return @array;
}
1; technomgr/usermod.cgi 0100744 0000764 0000764 00000024747 07722212244 014072 0 ustar f5soh f5soh #!/usr/bin/perl
#############################################################################
# Script: groupmod.cgi
# Funktion: Zeigt Gruppen-Details und
# modifiziert sekundre Gruppenmitglieder
# Geschrieben von: Tobias Brinkert
# letzte nderung: 12. Januar 2002
# Version: 0.3.0
#############################################################################
#############################################################################
#Verwendete Variablen (local)
#
my ($str_usermod, #Optionsstring fr usermod
$str_smbpasswd, #Optionsstring fr smbpasswd
$schluessel, #Laufvariable fr foreach-Schleifen
$primgroup, #Primre Gruppe des Users
$crypt, #Verschlsseltes Pawort
)="";
my ($change, #Kontrollvariable, ob nderungen vorgenommen wurden
$temp1, #kennzeichnet nderungen an sek. Gruppen
$return, #Variable fr Rckgabewerte von Systemaufrufen
)=0;
my (@user, #Informationen ber den Benutzer
@delgroups, #Gruppen, aus denen der Benutzer entfernt werden soll
@addgroups, #Gruppen, zu denen der Benutzer hinzugefgt werden soll
)=();
my (%secgroups, #alle sekundren Gruppen des Benutzers; Group -> GID
%groups #alle vorhandenen Gruppen; Group -> GID
)=();
#
#############################################################################
#############################################################################
#Bibliotheken einbinden
#
do '../web-lib.pl';
do './usermgr-lib.pl';
&init_config();
ReadParse();
#############################################################################
#berprfung, ob nderungen vorgenommen werden mssen und Generierung
#der Optionsstrings fr die Systemprogramme
#
if (defined $in{primgroup}){
if ($in{rad_passchange} eq "ja" or $in{rad_samba} eq "add"
or $in{rad_samba} eq "passwd"){
if ($in{txt_passwd} ne $in{txt_passwdvalid}){
error($text{fehlerum1});
exit;
}
if ($in{rad_passchange} eq "ja"){
$crypt=crypt($in{txt_passwd},(join '',('.','/',0..9,'A'..'Z','a'..'z')[rand 64, rand 64]));
$str_usermod="-p \"$crypt\" ";
}
if ($in{rad_samba} eq "add"){
$str_smbpasswd="-a -e -s $in{user} \"$in{txt_passwd}\"";
}
elsif ($in{rad_samba} eq "passwd"){
$str_smbpasswd="-s $in{user} \"$in{txt_passwd}\"";
}
$change=1;
}
if ($in{rad_samba} eq "enable"){
$str_smbpasswd="-e -s $in{user}";
$change=1;
}
elsif ($in{rad_samba} eq "disable"){
$str_smbpasswd="-d -s $in{user}";
$change=1;
}
elsif ($in{rad_samba} eq "delete"){
$str_smbpasswd="-x -s $in{user}";
$change=1;
}
if ($in{txt_primgroup} ne $in{primgroup}){
if (getgrnam($in{txt_primgroup}) eq undef){
error($text{fehlerum2});
exit;
}
else {
$change=1;
$str_usermod.="-g $in{txt_primgroup} ";
}
}
if ($in{shell} ne $in{pop_shell}){
$str_usermod="-s $in{pop_shell}";
$change=1;
}
#########################################################################
#sekundre Gruppenzugehrigkeiten ndern
%secgroups=getusergroups($in{user});
if (defined $in{pop_secgroupsdel}){
@delgroups=readpopmultiple($in{'pop_secgroupsdel'});
foreach (@delgroups){
delete $secgroups{$_};
}
$temp=1;
}
if (defined $in{pop_secgroupsadd}){
@addgroups=readpopmultiple($in{'pop_secgroupsadd'});
foreach (@addgroups){
$secgroups{$_}=getgrnam($_);
}
$temp=1;
}
if ($temp == 1){
$str_usermod.="-G \"" . join(",", keys %secgroups) . "\" ";
$change=1;
}
undef %secgroups;
}
#############################################################################
#Start der HTML-Ausgabe
#
&header($text{titelu3},"","usermod",undef,undef,undef, "Version $text{version}
\n";
print "" . text(usermod22, $in{user}) . "
\n";
print "";
if ($str_usermod){
print "$text{usermod20}: ";
$return = system("usermod $str_usermod $in{user} >/dev/null 2>&1") / 256;
if ($return == 0){
print "$text{return1}\n";
}
else {
print "$text{return2} [" .
hlink("RC = $return", "systemprogs#um$return") . "]\n";
}
}
if ($str_smbpasswd){
print "$text{usermod21}: ";
$return = system("smbpasswd $str_smbpasswd >/dev/null 2>&1") / 256;
if ($return == 0){
print "$text{return1}\n";
}
else {
print "$text{return2} [" .
hlink("RC = $return", "systemprogs#sm$return") . "]\n";
}
}
print "\n";
print "
\n";
}
#############################################################################
#Tabelle mit Benutzer-Details ausgeben
@user=getpwnam $in{user};
$primgroup=getgrgid $user[3];
print "" . text(usermod1, $in{user}) . "
\n";
print "\n";
print "
\n";
#Tabellenende
#############################################################################
#############################################################################
#Beginn Formular
#Aufrufscript: usermod.cgi
#Method: post
#Felder: rad_passchange (Pawort ndern)
# txt_primgroup (neue Primre Gruppe)
# pop_secgroupsdel (aus sekundren Gruppen lschen)
# pop_secgroupsadd (zu sekundren Gruppen hinzufgen)
# rad_samba (Anderung des Samba-Accounts)
# pop_shell (Shell des Benutzers)
# txt_passwd (Pawort)
# txt_passwdvalid (Pawortvalidierung)
# user (Benutzername) [hidden]
# shell (Shell) [hidden]
# primgroup (Primre Gruppe) [hidden]
#
print "
\n";
print " \n";
print "" . hlink($text{usermod2}, "usermod#1") . ": \n";
print "$user[0] \n";
print "" . hlink($text{usermod3}, "usermod#2") . ": \n";
print "$user[2] \n";
print "\n";
print " \n";
print "" . hlink($text{usermod4}, "usermod#3") . ": \n";
print "$user[6] \n";
print "" . hlink($text{usermod5}, "usermod#4") . ": \n";
print "$primgroup ($user[3]) \n";
print "\n";
print " \n";
print "" . hlink($text{usermod6}, "usermod#5") . ": \n";
print "$user[7] \n";
print "" .
hlink($text{usermod7}, "usermod#6") . ": \n";
print "";
%secgroups=&getusergroups($in{user});
foreach $schluessel (sort keys %secgroups){
print "$schluessel ($secgroups{$schluessel}), ";
}
print " \n";
print "\n";
print " \n";
print "" . hlink($text{usermod8}, "usermod#7") . ": \n";
print "$user[8] \n";
print "
EOP
#
#Formular und Tabellenende
#############################################################################
&footer("/$module_name/user.cgi", $text{back3});
technomgr/mozilla.cgi 0100644 0000764 0000764 00000024103 07722452116 014050 0 ustar f5soh f5soh #!/usr/bin/perl
#############################################################################
#Script: mozilla.cgi
#d'aprs script user.cgi de Tobias Brinkert
#############################################################################
#############################################################################
#Laurent Lalanne \n";
print " \n";
print "
";
}else{
print "\n";
}
return();
}
#############################################################################
# Fonction: void ausgabe_usertable2($)
#############################################################################
sub ausgabe_usertable2($){
my $usertype = $_[0]; # Type d'utilisateur
my %user = getusers($usertype); # Utilisateurs du Groupe
return() unless (%user);
my $percent = 100 / $config{'userrow'}; # % pour largeur des tables
my $i = 1; # variable
my $anzahl = keys %user; # Anzahl der Benutzer
my $rows = $config{userrow} - 1; # Nb de colonnes - 1
print "\n";
print " \n\n";
}
}
#############################################################################
# Fonction: void ausgabe_usertable($)
#############################################################################
sub ausgabe_usertable($){
my $group = $_[0]; # Nom du groupe
my %user = getgroupprimuser($group); # User du groupe
return() unless (%user);
my $percent = 100 / $config{'userrow'}; # % pour largeur des tables
my $rows = $config{'userrow'} - 1; # Nb de colonnes - 1
my $anzahl = 0; # nombre d'utilisateurs
my $i = 1; # variable
my $tab = $_[0]; # Nom du groupe => id tab
my $tab_text = $tab;
$tab_text=~s/$config{prefixe_groupe}//g; # enlve le prfixe pour avoir 6A, 6b, etc...
my $tab_content = "contents" . $n; # Content => content1, content2, etc....
foreach (keys %user){
delete $user{$_} if (getpwnam($_) < 100);
}
$anzahl = keys %user;
if ( $n == 1 ) {
print "\n \n";
}
if ( $n == $n_total ) {
print " \n \n \n\n";
print " \n \n";
print "
\n";
print " \n";
foreach (sort keys %user){
next if (getpwnam($_) < 100);
@user=getpwnam($_);
print " $group \n";
print " $anzahl $text{user19} \n";
print " \n" if ($i == 1);
print " \n";
$i = 1;
}
else {
++$i;
}
}
if ($i != 1) {
for ($i..$config{userrow}){
print " $_ $user[6] \n";
if ($i == $config{userrow}){
print " \n";
}
print " \n";
}
print <
EOP
if ( $n == $n_total ) {
print "\n";
print "
\n";
return();
}
#############################################################################
# Main-Programm
#############################################################################
$background_css = $tb;
$background_css =~s/bgcolor=//g;
&header($text{titelu5},"","mozilla",undef, undef,undef, "Version $text{version}\n";
print " \n";
foreach (sort keys %user){
print " \n";
print " $anzahl $text{user19} \n";
print " \n" if ($i == 1);
print " \n";
$i = 1;
}
else {
++$i;
}
}
if ($i != 1) {
for ($i..$config{userrow}){
print "$_ \n";
if ($i == $config{userrow}){
print " \n";
}
print " \n";
}
print "
\n";
print "
"
#EOT
#
#Formular- und Tabellenende
#############################################################################
&footer("/$module_name", $text{back1});
technomgr/samba-lib.pl 0100644 0000764 0000764 00000034705 07537522706 014121 0 ustar f5soh f5soh # samba-lib.pl
# Common functions for editing the samba config file
do '../web-lib.pl';
&init_config();
# Get the samba version
if (open(VERSION, "$module_config_directory/version")) {
chop($samba_version = f
&($us_er_button("txt_$n, 0),"\n";
}
if ( st_ gro
# G_ type]
# G, are($co%delet, pid
# G_ typecal(1;
fo) =~ /no|fs/ /_if ($vg0]al($_[0]);
}
el " f
&_chooser_button("txt_$n, 0),"\n";
}
if ( s
@y{
l_n>\s_==2"SO_KEEPALIVE ,y"SO_REUSEADDR ,y"SO_BROADCAST ,y"TCP_NODELAY ,yur
"IPTOS_LOWDELAY ,y"IPTOS_THROUGHPUT ,y"SO_SNDBUF* ,y"SO_RCVBUF* ,ur
"SO_SNDLOWAT* ,y"SO_RCVLOWAT* Get@protoan=$_==2"CORE ,y"COREPLUS ,y"LANMAN1 ,y"LANMAN2 ,y"NT1 Getst_locks($usereturns a listay, in key e share($use the samba confiord maxlesub list_share($usecal(@rv, $_);
@b $firstlnumen(CONF,PASSnfig{smb_c'onf}d> $te'hile(
\n";
return;
}
#############################################################################
#Dbu %formulair e2 $config{
#Saxl* %destinaclos :# dit_moz.cgi
#Methode: post
#Champs:
# t_page Page s ndmarrage s n#######
# disk_cache Tailte sercache en Ko
# ditor_name Nom denl'auf g{ sans l'dof g{ (Co oseur)
# ###css U2 $co tes feuiltes s nsty CSSr(true/false)
# mail_name Nom co t denl'e2 $config{ sans messagerie
# ####email Adresse Email denl'e2 $onfig{
# organis
clos Champr"Organis
clos" dans carattces Mail
# ####name Nom denco te s nmessagerie
# pop#####r Nom du######ur PoP3
# mtp#####r Nom du######ur SMTP
# login_ t Rcupnmessages aunlancem r(true/false)
#
# ##### (nom d'e2 $config{) [hidden]
#
sub page_#####{
rce t"
EOP
return;
}
###########################################################
#Hau %denpage > 3 T is : Navignfig{, Co oseur t Mail
#
#
sub page_t i {
rce t"\n";
rce t" ## \n\n";
}
#############################################################################
#Dbu %formulair fixe_e
#Saxl* %destinaclos :# dit_moz.cgi
#Methode: post
#Champs:
# t_page Page s ndmarrage s n#######
# disk_cache Tailte sercache en Ko
# ###css U2 $co tes feuiltes s nsty CSSr(true/false)
# organis
clos Champr"Organis
clos" dans carattces Mail
# login_ t Rcupnmessages aunlancem r(true/false)
#
#
sub page_fixe_ {
rce t"
\n";
rce t" \n";
rce t" ##\n";
rce t" ## \n";
rce t" \n";
rce t" ##\n";
rce t" ## \n";
rce t" \n";
#rce t" ##\n";
rce t"
EOP
return;
}
#
#Lit)rta retour en bas%denpage
#############################################################################
sub page_bas%{
&footer("/$modu _name/moz####.cgi", $text{back5});
return;
}
#############################################################################
#
#############################################################################
# Pksgrat e rce cipal #
#######################
# Test fixe_e/####
#
(@r( $in{ dit_fixe_} =~ /$cosfig{prefixe_fixe_e}/ ) {
$fixe_ = $in{ dit_fixe_};
$fixe_ =~s/$text{moz####_ dit_fixe_} //g;
$classe = $fixe_;
$classe =~s/$cosfig{prefixe_fixe_e}//g;
my %####_$cot = getfixe_rcen####($fixe_); # Eleves denlarclasse
foreach (so t keys %####_$cot){
@####_$cot=getpwnam($_);
# $#### = $u###_$cot[0];
$url_ t_new = $in{ t_page};
$##### li_moz = $cosfig{# lidir_schueler} . "/" . $#### . "/.#######/ 64.slt";
read_prefs_####;
url_ t;
moz_cache;
organiz
clos;
login_ t;
u##_css;
system("rm $##### li_moz/####\#js\.tmp ");
}
$nb_eleves = keys %####_$cot;
read_prefs_####;
#-----------------------------------------------
page_head; ## # Hau %denpage + Css + javamaxl* pour t is
page_t i;
page_fixe_; ## # cr
clos page fixe_e
page_bas;
} else {
#############################################################################
#Rcuprnflosedes carattces sans lerfichi"y=#####js
#
@####=getpwnam $in{####};
$url_ t_new = $in{ t_page};
$##### li_moz = $cosfig{# lidir_schueler} . "/" . $####[0] . "/.#######/ 64.slt";
read_prefs_####;
url_ t;
moz_cache;
organiz
clos;
login_ t;
u##_css;
login_name;
ditor_mail_fullname;
system("rm $##### li_moz/####\#js\.tmp ");
#-----------------------------------------------
page_head; ## # Hau %denpage
page_t i;
page_####; ## # cr
clos page e2 $config{
page_bas;
}
AUTHORS 0012 14 4251 2753 ustar f5soh f5soh Laur tLn des p