Opened by kruemmel at 2006-12-26 14:42
User since
2006-07-05
334 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-07-05
334 Artikel
BenutzerIn
Hallo.
Also grundlegend läuft das Spiel nicht anders als unter http://www.linux-magazin.de/Artikel/ausgabe/2002/08/perl/perl.html & http://www.linux-magazin.de/Artikel/ausgabe/2002/11/perl/perl.html beschrieben.
Ein eigenes Konstrukt kann man z.B. so anlegen:
(DB-Definition MySQL 5):
CREATE TABLE `admin_2` (
`hostname` CHAR( 12 ) NOT NULL ,
`ip` TEXT NULL ,
`subnetmask` TEXT NULL ,
`netmask` TEXT NULL ,
PRIMARY KEY ( `hostname` )
) ENGINE = MYISAM ;
Und eine admin.cgi Datei kann so aussehen:
(Achtung: Code beim INSERT Statement fehlerhaft -> läuft nicht sofort) -> edit: wurde eben geändert
Allerdings fehlt hier noch die Implementierung eines SELECT Statements zum Schreiben in eine Konfigurationsdatei.
Möge dieser Ansatz dennoch nutzen ;-)\n\n
<!--EDIT|MisterL|1167146275-->
Also grundlegend läuft das Spiel nicht anders als unter http://www.linux-magazin.de/Artikel/ausgabe/2002/08/perl/perl.html & http://www.linux-magazin.de/Artikel/ausgabe/2002/11/perl/perl.html beschrieben.
Ein eigenes Konstrukt kann man z.B. so anlegen:
(DB-Definition MySQL 5):
CREATE TABLE `admin_2` (
`hostname` CHAR( 12 ) NOT NULL ,
`ip` TEXT NULL ,
`subnetmask` TEXT NULL ,
`netmask` TEXT NULL ,
PRIMARY KEY ( `hostname` )
) ENGINE = MYISAM ;
Und eine admin.cgi Datei kann so aussehen:
(Achtung: Code beim INSERT Statement fehlerhaft -> läuft nicht sofort) -> edit: wurde eben geändert
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
#!C:\perl\bin\perl.exe
use strict;
use DBI;
use CGI;
my $query = new CGI;
print $query->header;
my $cgi = CGI->new();
my $user = 'root';
my $pass = '';
my $db ='admin_2';
my $host = 'localhost';
my $driver = "DBI:mysql:$db:$host";
my $dbh = DBI->connect($driver,$user,$pass) or die $DBI::errstr;
my ($hostname, $ip, $subnetmask, $netmask) = @_;
my $sth = $dbh->do("INSERT INTO admin (`hostname`, `ip`, `subnetmask`, `netmask`) VALUES ('$hostname','$ip','$subnetmask','$netmask')");
print<<"_HTML_";
<html>
<head>
<title>Netzwerk Administration</title>
</head>
<body>
<h1>Administrationsbereich</h1>
<hr size="1">
<form name="admin" method="post" action="admin.cgi">
<h4>Hostname:</h4><input name="hostname" type="text">
<h4>IP:</h4><input name="ip" type="text">
<h4>Subnetzmaske:</h4><input name="subnetmask" type="text">
<h4>Netzmaske:</h4><input name="netmask" type="text">
<input type="reset" value="Abbrechen"> <input type="submit" value="Speichern">
</form>
</body>
</html>
_HTML_
Möge dieser Ansatz dennoch nutzen ;-)\n\n
<!--EDIT|MisterL|1167146275-->
“Perl is the only language that looks the same before and after RSA encryption.”