Thread Datei aus DB Einträgen erzeugen (4 answers)
Opened by kruemmel at 2006-12-26 14:42

renee
 2006-12-26 18:53
#72770 #72770
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Auch hier wieder die ?-Schreibweise von CPAN:DBI nutzen. Vielleicht hilft dieses PDF weiter...

Außerdem muss man die Formulareingaben parsen... Und warum zwei CGI-Objekte?

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
38
39
#!C:\perl\bin\perl.exe

use strict;
use DBI;
use CGI;

my $cgi = CGI->new();
print $cgi->header;
my %params = $cgi->Vars();

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 $sth = $dbh->do("INSERT INTO admin (`hostname`, `ip`, `subnetmask`, `netmask`) VALUES (?,?,?,?)", undef, @params{qw/hostname,ip,subnetmask,netmask/}) or die $dbh->errstr;

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_
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Datei aus DB Einträgen erzeugen