Anbei ein kleiner Auszug aus unserer Moduldokumentation
die Basis unseres Webtist CMS Systems
Das System setzen wir erfolgreich seit Jahren
bei unseren Geschäftspartnern ein, es wird stets weiterentwickelt
und der Technik entsprechend angepasst.
Modulbeschreibung webtist::sysadm.pm
Version 1.04
Das Modul enthaelt viele Nuetzliche
Systemadministrationsroutinen
wie z.B. DHCP Verwaltung aus einer DB oder auch eine
DNS Verwaltung siehe einfach Modul Aenderungsliste
AUTOR
Marc Hanschur Space4Data / WEBTIST [NOSPAMmarc@hanschur.de]
Aenderungsliste im PerlModul
SYNOPSIS
die Nachfolgend aufgefuehrten Module werden benoetigt
webtist
DBI
Aufruf
use webtist::sysadm;
$webtist::sysadm = new webtist::sysadm();
Die SYSADM DB sollte wie folgt aufgebaut sein
Table structure for table `conf`
CREATE TABLE conf (
conf_id int(3) NOT NULL auto_increment,
conf_wert varchar(255) NOT NULL default 'xx',
conf_desc varchar(255) NOT NULL default 'Beschreibung',
PRIMARY KEY (conf_id)
) TYPE=MyISAM;
CREATE TABLE dns (
dns_nr int(2) NOT NULL auto_increment,
dns_host_id int(3) NOT NULL default '1',
dns_name varchar(50) NOT NULL default 'space4data.de',
dns_sm enum('master','slave','reverse','reverse-slave') NOT NULL default 'master',
dns_mip varchar(20) NOT NULL default 'keine IP',
dns_soans varchar(255) NOT NULL default 'ns1.space4data.de.',
dns_soamail varchar(255) NOT NULL default 'hostmaster.space4data.de.',
dns_soattl varchar(10) NOT NULL default '2D',
dns_soarefresh varchar(10) NOT NULL default '3H',
dns_soaretry varchar(10) NOT NULL default '2H',
dns_soaexpire varchar(10) NOT NULL default '1W',
dns_soaminimum varchar(10) NOT NULL default '1D',
dns_kdnr varchar(50) NOT NULL default '1',
dns_ok enum('0','1') NOT NULL default '0',
PRIMARY KEY (dns_nr)
) TYPE=MyISAM;
CREATE TABLE dnsuid (
dnsuid_id int(4) NOT NULL auto_increment,
dnsuid_host_id int(3) NOT NULL default '1',
dnsuid_uid int(3) NOT NULL default '510',
dnsuid_dnr int(2) NOT NULL default '1',
dnsuid_subd varchar(50) NOT NULL default 'webtist.hanschur',
dnsuid_art enum('A','NS','CNAME','MX') NOT NULL default 'CNAME',
dnsuid_revmap enum('0','1') NOT NULL default '0',
dnsuid_prio int(3) NOT NULL default '100',
dnsuid_cnaoip varchar(255) NOT NULL default '@',
dnsuid_mx varchar(255) NOT NULL default 'kein-MX-Eintrag',
dnsuid_log int(1) NOT NULL default '0',
dnsuid_hthostid int(3) NOT NULL default '0',
PRIMARY KEY (dnsuid_id)
) TYPE=MyISAM;
CREATE TABLE grp (
grp_id int(3) NOT NULL auto_increment,
grp_host_id int(3) NOT NULL default '1',
grp_gid int(3) NOT NULL default '0',
grp_name varchar(10) NOT NULL default 'Name',
grp_pass varchar(10) NOT NULL default 'Password',
grp_cpass varchar(30) NOT NULL default 'Password',
grp_stat enum('0','1','2','3','4') NOT NULL default '1',
PRIMARY KEY (grp_id)
) TYPE=MyISAM;
CREATE TABLE host (
host_id int(3) NOT NULL auto_increment,
host_name varchar(255) NOT NULL default 'NAME',
host_mac varchar(20) NOT NULL default '00:00:00:00:00:00',
host_ort varchar(255) NOT NULL default 'Meckenbeuren',
host_sstat enum('0','1') NOT NULL default '0',
host_art enum('1','2') NOT NULL default '2',
PRIMARY KEY (host_id)
) TYPE=MyISAM;
CREATE TABLE hthost (
hthost_id int(3) NOT NULL auto_increment,
hthost_host_id int(3) NOT NULL default '1',
hthost_name varchar(50) NOT NULL default 'domain.toplevel.conf',
hthost_art enum('0','1','2','3') NOT NULL default '0',
hthost_dg enum('0','1') NOT NULL default '1',
hthost_info varchar(255) NOT NULL default 'keine Info',
PRIMARY KEY (hthost_id)
) TYPE=MyISAM;
CREATE TABLE kd (
kd_nr varchar(50) NOT NULL default 'space4data',
kd_name varchar(255) NOT NULL default 'Firma Space4Data',
kd_plz varchar(10) NOT NULL default '88074',
kd_ort varchar(255) NOT NULL default 'Meckenbeuren',
PRIMARY KEY (kd_nr),
UNIQUE KEY kd_nr (kd_nr)
) TYPE=MyISAM;
CREATE TABLE mail (
mail_id int(3) NOT NULL auto_increment,
mail_usr_id int(3) NOT NULL default '0',
mail_host_id int(3) NOT NULL default '0',
mail_dns_nr int(3) NOT NULL default '0',
mail_dnsuid_id int(3) NOT NULL default '0',
mail_adr1 varchar(255) NOT NULL default 'mailadresse',
mail_art enum('1','2','3','4','5') NOT NULL default '1',
mail_adr2 varchar(255) NOT NULL default 'mailadresse@localhost',
mail_stat enum('0','1','2','3','4') NOT NULL default '1',
PRIMARY KEY (mail_id)
) TYPE=MyISAM;
CREATE TABLE reb (
reb_id int(3) NOT NULL auto_increment,
reb_host_id int(3) NOT NULL default '0',
reb_times timestamp(14) NOT NULL,
PRIMARY KEY (reb_id)
) TYPE=MyISAM;
CREATE TABLE temp (
temp_id int(3) NOT NULL auto_increment,
temp_host_id int(3) NOT NULL default '0',
temp_sennr int(3) NOT NULL default '0',
temp_time timestamp(14) NOT NULL,
temp_temp char(20) NOT NULL default '15',
PRIMARY KEY (temp_id)
) TYPE=MyISAM;
CREATE TABLE traffic (
traffic_id int(3) NOT NULL auto_increment,
traffic_host_id int(3) NOT NULL default '1',
traffic_time timestamp(14) NOT NULL,
traffic_date varchar(255) NOT NULL default 'keinDatum',
traffic_send varchar(255) NOT NULL default '',
traffic_rece varchar(255) NOT NULL default '',
PRIMARY KEY (traffic_id)
) TYPE=MyISAM;
CREATE TABLE uidgid (
uidgid_id int(3) NOT NULL auto_increment,
uidgid_host_id int(3) NOT NULL default '1',
uidgid_uid int(3) NOT NULL default '100',
uidgid_gid int(3) NOT NULL default '100',
uidgid_stat enum('0','1','2','3','4') NOT NULL default '1',
PRIMARY KEY (uidgid_id),
UNIQUE KEY uidgid_id (uidgid_id)
) TYPE=MyISAM;
CREATE TABLE upt (
upt_host_id int(3) NOT NULL auto_increment,
upt_upt char(20) NOT NULL default '',
PRIMARY KEY (upt_host_id)
) TYPE=MyISAM;
CREATE TABLE usr (
usr_id int(3) NOT NULL auto_increment,
usr_host_id int(3) NOT NULL default '1',
usr_uid int(3) NOT NULL default '0',
usr_grp_id int(3) NOT NULL default '100',
usr_name varchar(10) NOT NULL default 'Username',
usr_pass varchar(10) NOT NULL default 'Password',
usr_cpass varchar(30) NOT NULL default 'Password',
usr_hdir varchar(255) NOT NULL default '/home',
usr_lgshell varchar(255) NOT NULL default '/bin',
usr_smb enum('n','j') NOT NULL default 'n',
usr_lock enum('j','n') NOT NULL default 'n',
usr_lgok enum('j','n') NOT NULL default 'n',
usr_ftp enum('j','n') NOT NULL default 'n',
usr_quota varchar(15) NOT NULL default '5000',
usr_kdnr varchar(50) NOT NULL default 'space4data',
usr_vname1 varchar(30) NOT NULL default 'Vorname 1',
usr_vname2 varchar(30) NOT NULL default 'Vorname 2',
usr_nname varchar(30) NOT NULL default 'Nachname',
usr_str varchar(50) NOT NULL default 'Strasse',
usr_hsnr varchar(10) NOT NULL default 'Hausnr',
usr_plz varchar(5) NOT NULL default 'xxxxx',
usr_ort varchar(50) NOT NULL default 'Wohnort',
usr_email varchar(255) NOT NULL default 'info@webtist.de',
usr_tel varchar(30) NOT NULL default '+49 xxxx xxxxxx',
usr_handy varchar(30) NOT NULL default '+49 xxx xxxxx',
usr_fax varchar(30) NOT NULL default '+49 xxxx xxxxxx',
usr_stat enum('0','1','2','3','4') NOT NULL default '1',
UNIQUE KEY usr_id (usr_id)
) TYPE=MyISAM;
METHODS
new
Konstruktor
upddns
DNS Verwaltung aus einer DB
sofraidcheck
Routine prueft ob der Software Raid noch funktioniert
Aufruf
&softraidcheck()
Parameter
$raidfile => wo liegt das Raid File /proc/mdstat
$art => was soll gemacht werden
0/nichts ausgabe als Text als Scalar
1 ausgabe fuer Nagios als Array
Rueckgabe
ist der Raid ok oder nicht in text Form
oder als Array fuer Nagios
opensys01
Befehl absetzten (Rueckgabe in Variable einlesen)
Aufruf
&opensys01($call)
Parameter
$call => Befehl der abgesetzt werden soll
Rueckgabe
ein Skalar mit Inhalt des Befehls
WARNING
ich kann im Moment keine Warnungen erkennen
BUGS
Transparent wird durch eine Remotedelegationkerbe vollendet, die unter bestimmten Umstaeden brechen
konnte. Wenn dieses Ihnen geschieht, informieren Sie mich bitte.
Informieren Sie mich, wenn Sie einiges finden.
ACKNOWLEDGEMENTS
Thanks to Werner Scholl, Michael Eisele for inspiration, laughs and all 'round good times;
and Linus Torvalds for all the great software.
LICENSE
Dieser Code ist freie Software; Sie koenen ihn neuverteilen und/oder ihn unter den gleichen
Bezeichnungen wie Perl selbst aedern.
DISCLAIMER
Dieses ist freie Software. Wenn es bricht, besitzen Sie beide Teile.
