Migration von Arktur

Diese Seite sollte nochmals überarbeitet werden. Eine Begründung befindet sich in der Regel unter Diskussion (oben).

Abschnitt Migration Arktur 4.0rc5 -> delixs 1.0

Die Migration der Suse/Slackware basierten Arktur-Schulserver 4.0 Version auf die Debian basierte delixs-Version 1.0 wird hier beschrieben.

Wie bootet die Version 4

Beschreibung

Analyse der 4er Pakete

Die 4er Pakete sind auf der Installations-CD im Unterverzeichnis /slack enthalten. /slack wiederum enthält Unterverzeichnisse die die Pakete strukturieren sollen: a1 ap1 d1 a1 ap1 d1 gra1 kern n1 ods1 ods2 ods3 ods8 ods9

Nicht alle Pakete in diesen Unterverzeichnissen müssen migriert werden, einige, wie z.B. die Kernel-Pakete sollen nicht migriert werden. Ziel der Migration soll ja sein, möglichst viel von Debian zu übernehmen.

Die Pakete in den Unterverzeichnissen a1, ap1, d1, a1, gra1 und n1 enthalten weitestgehend ganz gewöhnliche Linux-Pakete ohne Arktur-spezifische Anpassungen. Solche Pakete können meist direkt aus der Debian Distribution übernommen werden. Einige enthalten aber doch Anpassungen, meist erkennbar daran, das es ein "install/doinst.sh" script gibt. Dieses script sollte dann anayliert werden.

In den Unterverzeichnissen ods1, ods2, ods3 und ods9 befinden sich die Pakete, die am meisten Aufwand bei der Migration erfordern.

In ods8 befinden sich zwei Kernel-Pakete und das Paket software.tgz welches Windows Programme enthält. Hier muss also zunächst nichst getan werden.

Schauen wir uns mal exemplarisch eines der aufwendigen Pakete an und was zu tun ist, damit es erfolgreich migriert werden kann.

Das openldap.tgz Paket

Um die Config-Details und den Ablauf der Konfigurationsscripte zu analysieren werden Scripte eingesetzt, die garantieren sollen, dass jedes Paket auf dieselbe Art analysiert wird.

Entwickler Richtlinien

Alles was programmiert wird, soll sich an diese Richtlinien halten. Einige Dinge wie die Paketerstellung & -verwaltung, sowie die Konfiguration des Installers müssen sich auch an die "Debian Policy" halten.

Arbeiten mit dem LDAP

einen Dump erzeugen

Der Aufruf von "slapcat" liest den gesamten LDAP-Baum aus und zeigt diesen auf der Konsole im LDIF-Format an. Um diesen Dump zu speichern, muss er in eine LDIF-Datei umgelenkt werden

slapcat > Datei

einen Dump wieder einspielen

Zuerst den LDAP stoppen

/etc/init.d/ldap stop

Dann muss die Datenbank des LDAP geleert werden. Dazu alles in /var/lib/ldap löschen, die Datei DB_Config aber lassen!

cd /var/lib/ldap
rm * bdb
rm __db.*
rm log*
rm alock

Dann den Dump wieder einspielen

slapadd -l gesamt.ldif

Anm.: den LDAP wieder starten reicht nicht, weil etliche Dienste direkt vom LDAP abhängen und diese Änderungen zum Teil nicht mitbekommen. Also Server neu starten. Sollte es z.B. nur um Entwicklerarbeiten am LDAP gehen, dann reicht statt dessen

/etc/init.d/ldap start

Die folgenden Code-Beispiel dienen nur zur Demonstration des Zugriffs auf den LDAP, wie in der betreffenden Überschrift angegeben. Um die bestmögliche Verständlichkeit der Scripte zu gewährleisten, wurden keinerlei Raffinessen eingebaut. Um verschiedene Möglichkeiten zu demonstrieren, wurde (wenn möglich) für jedes Script eine andere Art der Schreibweise gewählt. Es ist also ratsam, auch einen Blick auf andere (ähnliche) Beispiele zu werfen. Alle angegebenen Scripte sind, so wie sie angegeben sind (korrekte Rechtevergabe und Linux-zeilenumbrüche vorausgesetzt), lauffähig. Es wird dabei vorausgesetzt, dass es den Eintrag für mmustermann mit der GID=101 gibt. Außerdem, dass die LDAP-Base 'dc=erg,c=de' ist. Die Scripte können unter diesem Vorausetzungen und Anpassung der LDAP-Base als Grundlage für eigene Experimente verwendet werden.

ausgewählte Attribute von einem Eintrag anzeigen

Es wird hier demonstriert, wie man von einem Eintrag ausgewählte Attribute ausliest. Der DN spielt dabei eine besondere Rolle. Er wird immer bereitgestellt. In diesem Beispiel wird eine Liste als Value von attrs übergeben. Da das nicht direkt geht, wird eine Referenz auf eine Liste übergeben. Deswegen die eckigen Klammern. Zur Ausgabe folgende Bemerkung: $mesg stellt ein Objekt dar, in der alle gefundenen Einträge (Entries) der Suche enthalten sind und stellen damit eine Liste dar. Hier wird aber nur Element gefunden bzw. ermittelt und deswegen wird mit $entry = $mesg->shift_entry; dieses eine Element aus der Liste geholt.

<source lang="perl">

1. !/usr/bin/perl -w

use strict; use Net::LDAP;

my ($ldap, $mesg, $entry, @liste);

1. wir verbinden uns mit den LDAP, sonst Abbruch mit Fehlermeldung

$ldap = Net::LDAP->new('127.0.0.1',version => 3) or die "$@"; $ldap->bind or die "konnte mich nicht mit dem Server verbinden";

1. wir holen uns das Entry mit uid=mmustermann

$mesg = $ldap->search(base => 'o=SCHULE,dc=erg,c=de',

                     filter => 'uid=mmustermann',
                     attrs  => ['cn', 'sn', 'objectClass'] );

1. wenn Fehlercode, dann das Script mit Fehlermeldung sterben lassen

$mesg->code and die $mesg->error;

1. wir trennen uns vom LDAP

$ldap->unbind;

1. in $mesg ist eine Liste von Entries, hier aber nur mit einem Element

$entry = $mesg->shift_entry;

1. wir geben jetzt alle ermittelten Attribute aus

print 'dn: ', $entry->dn, "\n"; print 'cn: ', $entry->get_value('cn'), "\n"; # skalarer Kontext print 'sn: ', $entry->get_value('sn'), "\n"; # skalarer Kontext

1. der Aufruf von get_value erfolgt im Listenkontext, der mehrere Values

@liste = $entry->get_value('objectClass'); foreach my $element (@liste) {

 print 'objectClass: ', $element, "\n";

}

__END__ </source>

einen (kompletten) Eintrag anzeigen

Wenn alle Attribute ermittelt werden sollen, dann wird einfach 'attrs' nicht angegeben. Mit $entry->attributes erhalten wir die Liste der vorhandenen Attribute und können damit für jedes Attribut den Value dazu abfragen. Da die skalaren ebenso wie die multiplen Values korrekt behandelt werden sollen, wird hier $entry->get_value($attr) durch die Klammer im Listenkontext aufgerufen und immer als Schleife abgearbeitet.

<source lang="perl">

1. !/usr/bin/perl -w

use strict; use Net::LDAP;

my ($ldap, $mesg, $entry);

1. wir verbinden uns mit den LDAP, sonst Abbruch mit Fehlermeldung

$ldap = Net::LDAP->new('127.0.0.1',version => 3) or die "$@"; $ldap->bind or die "konnte mich nicht mit dem Server verbinden";

1. wir holen uns das Entry mit uid=mmustermann

$mesg = $ldap->search(base => 'o=SCHULE,dc=erg,c=de',

                     filter => 'uid=mmustermann');

1. wenn Fehlercode, dann das Script mit Fehlermeldung sterben lassen

$mesg->code and die $mesg->error;

1. wir trennen uns vom LDAP

$ldap->unbind;

1. in $mesg ist eine Liste von Entries, hier aber nur mit einem Element

$entry = $mesg->shift_entry;

1. wir geben den DN des gefundenen Eintrags aus

print 'dn: ', $entry->dn, "\n"; # Sonderbehandlung, da DN kein normales Attribut

1. für alle Attribute

foreach my $attr ($entry->attributes) {

 # Achtung: wir rufen hier $entry->get_value im Listenkontext auf!
 foreach my $value ($entry->get_value($attr)) {
   print "$attr: $value", "\n";
 }

}

__END__ </source>

Einträge suchen

Hier wird eine echte Suche über alle User angestossen, wobei das Filterkriterium 'gidNumber=101' ist. Es wird von allen gefundenen Einträgen einmal der DN (wird immer zurückgeliefert) und das Attribut 'uid' zurück gegeben. Weil hier nur ein Attribut für attrs übergeben wurde, wurde dieses gleich als String (also im skalaren Kontext) angegeben. Mit $mesg->entries erhalten wir die Liste der Entries und arbeiten die in einer Schleife ab.

<source lang="perl">

1. !/usr/bin/perl -w

use strict; use Net::LDAP;

my ($ldap, $mesg, $entry);

1. wir verbinden uns mit den LDAP, sonst Abbruch mit Fehlermeldung

$ldap = Net::LDAP->new('127.0.0.1',version => 3) or die "$@"; $ldap->bind or die "konnte mich nicht mit dem Server verbinden";

1. wir holen uns die Logins (uid) von allen Lehrern (gidNumber=101)

$mesg = $ldap->search(base => 'o=SCHULE,dc=erg,c=de',

                     filter => 'gidNumber=101',
                     attrs  => 'uid');

1. wenn Fehlercode, dann das Script mit Fehlermeldung sterben lassen

$mesg->code and die $mesg->error;

1. wir trennen uns vom LDAP

$ldap->unbind;

1. wir geben jetzt die Liste der Einträge aus (jeweils DN und uid)

foreach my $entry ($mesg->entries) {

 print 'dn: ',  $entry->dn, "\n";
 print 'uid: ', $entry->get_value('uid'), "\n\n";

}

__END__ </source>

Attribute einem Eintrags hinzufügen

Im folgenden Script wird gezeigt, wie man einem Eintrag Attribute hinzufügt. Da dieses Mal nicht nur Einträge aus dem LDAP gelesen werden, sondern in den LDAP geschrieben wird, brauchen wir die entsprechenden Rechte. Dazu müssen wir das LDAP-Passwort ermitteln. Es werden in diesem Script folgende Fälle demonstriert: ein singlevalue-Attribut hinzu fügen (mail), ein multivalue-Attribute hinzufügen (telephoneNumber) und diesem Attribut dann eine weitere Telefonnummer hinzufügen.

<source lang="perl">

1. !/usr/bin/perl -w

use strict; use Net::LDAP;

my ($ldap, $mesg, $pass);

1. da wir in den LDAP schreiben, holen wir uns zuerst das LDAP-Passwort

open DATEI, '<', '/etc/ldap.secret'

 or die "konnte ldap.secret nicht oeffnen, $!\n";

$pass = <DATEI>; chomp($pass); # falls Zeilenumbruch, diesen entfernen close DATEI;

1. wir verbinden uns mit dem LDAP

$ldap = Net::LDAP->new('127.0.0.1', version => 3) or die "$@"; $ldap->bind( dn => 'cn=admin,dc=erg,c=de',

            password => $pass )
 or die "konnte mich nicht mit dem Server verbinden, $!\n";

1. wir fügen dem Lehrer mmustermann seine Mailadresse hinzu

$mesg = $ldap->modify( 'uid=mmustermann,ou=LEHRER,o=SCHULE,dc=erg,c=de',

                       add => { mail => 'mmustermann@erg.slf.th.schule.de' } );

1. wenn Fehlercode, dann das Script mit Fehlermeldung sterben lassen

$mesg->code and die $mesg->error;

1. wir fügen dem Lehrer mmustermann seine 2 Telefonnummern hinzu

$mesg = $ldap->modify( 'uid=mmustermann,ou=LEHRER,o=SCHULE,dc=erg,c=de',

                       add => { telephoneNumber => ['0123 4567', '0123 88888'] } );

1. wenn Fehlercode, dann das Script mit Fehlermeldung sterben lassen

$mesg->code and die $mesg->error;

1. wir fügen dem Lehrer mmustermann eine weitere Telefonnummern hinzu

$mesg = $ldap->modify( 'uid=mmustermann,ou=LEHRER,o=SCHULE,dc=erg,c=de',

                       add => { telephoneNumber => ['0123 99999'] } );

1. wenn Fehlercode, dann das Script mit Fehlermeldung sterben lassen

$mesg->code and die $mesg->error;

1. wir trennen uns vom LDAP

$ldap->unbind;

__END__ </source>

Attribute eines Eintrags ändern

In diesem Programm wird demonstriert, wie man ein singlevalue-Attribut ändert und (als Vorgriff auf den übernächsten Punkt) wie man ein Value eines multivalue-Attribus ändert.

<source lang="perl">

1. !/usr/bin/perl -w

use strict; use Net::LDAP;

my ($ldap, $mesg, $pass);

1. da wir in den LDAP schreiben, holen wir uns zuerst das LDAP-Passwort

open DATEI, '<', '/etc/ldap.secret'

 or die "konnte ldap.secret nicht oeffnen, $!\n";

$pass = <DATEI>; chomp($pass); # falls Zeilenumbruch, diesen entfernen close DATEI;

1. wir verbinden uns mit dem LDAP

$ldap = Net::LDAP->new('127.0.0.1', version => 3) or die "$@"; $ldap->bind( dn => 'cn=admin,dc=erg,c=de',

            password => $pass )
 or die "konnte mich nicht mit dem Server verbinden, $!\n";

1. wir ändern dem Lehrer mmustermann seine Mailadresse

$mesg = $ldap->modify( 'uid=mmustermann,ou=LEHRER,o=SCHULE,dc=erg,c=de',

                       replace => { mail => 'mmustermann@reinhold-gymnasium.de' } );

1. wenn Fehlercode, dann das Script mit Fehlermeldung sterben lassen

$mesg->code and die $mesg->error;

1. das Ändern von Werten von multivalue-Attributen muss über Löschen und erneutes
2. Eintragen realisiert werden. Das geht auch auf einen Ritt (Vorgriff auf übernächsten Punkt)
3. wir ändern von dem Lehrer mmustermann eine seiner Telfonnummern

$mesg = $ldap->modify( 'uid=mmustermann,ou=LEHRER,o=SCHULE,dc=erg,c=de',

                       changes => [
                           delete => [ telephoneNumber => '0123 88888' ],
                           add    => [ telephoneNumber => '0123 77777' ]
                       ]);

1. wenn Fehlercode, dann das Script mit Fehlermeldung sterben lassen

$mesg->code and die $mesg->error;

1. wir trennen uns vom LDAP

$ldap->unbind;

__END__ </source>

Attribute eines Eintrags löschen

In diesem Programm wird demonstriert, wie man ein singlevalue-Attribut löscht, wie man ein Value eines multivalue-Attribus löscht und wie man alle (noch vorhandenen) Values eines multivalue-Attributs löscht.

<source lang="perl">

1. !/usr/bin/perl -w

use strict; use Net::LDAP;

my ($ldap, $mesg, $pass);

1. da wir in den LDAP schreiben, holen wir uns zuerst das LDAP-Passwort

open DATEI, '<', '/etc/ldap.secret'

 or die "konnte ldap.secret nicht oeffnen, $!\n";

$pass = <DATEI>; chomp($pass); # falls Zeilenumbruch, diesen entfernen close DATEI;

1. wir verbinden uns mit dem LDAP

$ldap = Net::LDAP->new('127.0.0.1', version => 3) or die "$@"; $ldap->bind( dn => 'cn=admin,dc=erg,c=de',

            password => $pass )
 or die "konnte mich nicht mit dem Server verbinden, $!\n";

1. wir löschen vom Lehrer mmustermann seine Mailadresse

$mesg = $ldap->modify( 'uid=mmustermann,ou=LEHRER,o=SCHULE,dc=erg,c=de',

                       delete => 'mail' );

1. wenn Fehlercode, dann das Script mit Fehlermeldung sterben lassen

$mesg->code and die $mesg->error;

1. wir löschen dem Lehrer mmustermann eine seiner Telefonnummern

$mesg = $ldap->modify( 'uid=mmustermann,ou=LEHRER,o=SCHULE,dc=erg,c=de',

                       delete => { telephoneNumber => '0123 99999' } );

1. wenn Fehlercode, dann das Script mit Fehlermeldung sterben lassen

$mesg->code and die $mesg->error;

1. wir löschen dem Lehrer mmustermann seine (restlichen) Telefonnummern

$mesg = $ldap->modify( 'uid=mmustermann,ou=LEHRER,o=SCHULE,dc=erg,c=de',

                       delete => { 'telephoneNumber'=> [] } );

1. wenn Fehlercode, dann das Script mit Fehlermeldung sterben lassen

$mesg->code and die $mesg->error;

1. wir trennen uns vom LDAP

$ldap->unbind;

__END__ </source>

---

zurück | Hauptseite