3 Einträge, 1 Seite |
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#!/opt/gnu/bin/perl
#!/usr/bin/perl
header();
startFile();
footer();
exit;
#######################################################
sub startFile{
print '<h1>Schleifendurchlauf</h1>';
my $call="/.../test.sh";
print qq{
<br>Programm wurde mit diesem Aufruf gestartet:
<table><tr><td bgcolor="#99FFFF"><pre>$call</pre></td></tr></table>
<br>Folgende Ausgaben wurden produziert:<br>
};
my @output=`$call`;
print '<table><tr><td bgcolor="#99FFFF"><pre>';
print 'TEST <br>';
foreach (@output){
print $_."<br>";
}
print "</pre></td></tr></table>";
}
sub header{
print $q->header;
print qq{
<HTML>
<HEAD>
<STYLE type="text/css">
<!--
BODY {text-decoration:none;font-weight:normal;font-family:Arial;font-size:10pt;line-height:10pt;text-align:left;color:}
TD {text-decoration:none;font-weight:normal;font-family:Arial;font-size:10pt;line-height:10pt;text-align:left;vertical-align:center;color:}
//-->
</STYLE>
<TITLE>ProgrammXYZ WebGUI</TITLE>
</HEAD>
<BODY>
<span style="background-color:#FFFF40;"><b > BETA Version !</b> Bei Problemen bitte an ... wenden.</span>
<hr noshade size=1>
<b><u>Programm XYZ WebGUI</u></b><br><br>
};
}
# HTML footer
sub footer{
print qq{
<br>
<hr noshade size=1>
entwickelt von ...</a>
};
print $q->end_html;
}
3 Einträge, 1 Seite |