nicht angemeldet
Hier mal der CODE um den es geht...
Wie gesagt es funktioniert, nur am Bildschirm kommt nix bzw. Fehlermeldung...(siehe Posting)!!!
#!/usr/bin/perl
Einbinden der Module
use XML::Simple;
use lib "lib";
use GENDB;
use CONTGEN;
use POSIX qw/setsid/;
Aus dem String einen Hash gemacht:
my %CGIDATEN = decodeCGIDaten();
my $schluessel = "erstmals";
my $erstmals = $CGIDATEN{$schluessel};
if ($erstmals ne "ja") {
my $pid = fork();
die $! unless defined $pid;
if($pid == 0) { die $! unless setsid(); }
else { exit; }
close STDIN;
close STDOUT;
close STDERR;
}
Verbindung zur Datenbank
&GENDB::verbindeDB();
print << "ENDE_HTML";
Content-type: text/html\n\n
<html>
<head>
<title>Datenbankgenerierung</title>
<link href="/css/intern.css" rel="stylesheet" type="text/css">
<script LANGUAGE="JavaScript" TYPE="text/javascript" src="/js/intern.js"></script>
</head>
ENDE_HTML
if ($erstmals eq "ja") {
print "<body onload="javascript:history.back(); FensterOeffnen('benutzerpraesenz','/cgi-bin/admin/GENERIERUNG/DB_GENERIERUNG.pl','','DB_GENERIERUNG')">";
}
else {
print "<body>";
_leereTabellen();
_erzeugeKnotenTabellen();
_genVarianten();
_genBloecke();
_genFrageboegen();
_genZustaende();
_genVerzeichnisse();
_genXMLVarianten();
}
print << "ENDE_HTML";
<span class=zentriert style="color:maroon"><h1>Datenbankgenerierung</h2></span>
<br><br><br>
<span class=zentriert><h3>Es wurde begonnen die Daten neu zu generieren!</h3></span>
<br>
<span class=zentriert><h3>Dies kann unter umständen längere Zeit in Anspruch nehmen!</h3></span>
<br><br>
<div class=rechts>
<input type=button value="Schliessen" onClick="JavaScript:self.close()">
</div>
</body>
</html>
ENDE_HTML
Verbindung zur Datenbank trennen
&GENDB::trenneDB();
Gruss,
M.