Opened by Marcoman at 2006-07-31 14:18
User since
2003-08-04
14371 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
14371 Artikel
ModeratorIn
Das hier ist das Skript:
Das musst Du in ein Verzeichnis speichern, in dem das Ausführen von CGI-Skripten erlaubt ist. Meistens hat es einen Namen wie "cgi-bin" oder so ähnlich. Du solltest es skript.cgi ändern oder Du musst in der Zeile des <form action="./skript.cgi" method="post"> bei action den neuen Namen eintragen.
Wenn Du das Skript gespeichert hast, musst Du dem Skript die Rechte 755 geben (mit chmod).
Arbeitest Du unter Unix oder Windows? welcher Webserver ist es?
Was meinst Du mit
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
#!/usr/bin/perl
# nachfolgend zwei wichtige Pragmas, die den Programmierer zu sauberer
# Programmierung zwingen, siehe: wiki.perl-community.de/bin/view/Wissensbasis/UseStrict
use strict;
use warnings;
# CGI.pm ist praktisch fuer die Arbeit mit CGI
use CGI;
# allgemeine Einstellungen - die muessen angepasst werden
my $file = './zieldatei.txt';
# erzeuge ein Objekt von CGI, lese die Formulardaten aus und gebe den Header aus
my $cgi = CGI->new();
my %params = $cgi->Vars();
print $cgi->header();
if(exists $params{action} and $params{action} eq 'save'){
save_to_file($file,\%params);
show_formular(get_date(),'Daten wurden gespeichert');
}
else{
my $date = get_date();
show_formular($date);
}
#------------------------------------------------------------------------------#
# Subroutines #
#------------------------------------------------------------------------------#
##
# Methode zum Speichern der Daten
##
sub save_to_file{
my ($file,$params) = @_;
my $string = $params->{Date}.": ".
$params->{Name}.": ".
$params->{Number}.": ".
$params->{Units}.": ".
$params->{Comments}."\n\n";
open(my $w_fh,'>',$file) or die $!;
print $w_fh $string;
close $w_fh or die $!;
}
##
# Methode zum Berechnen des heutingen Tages
##
sub get_date{
my ($day,$mon,$year) = (localtime(time))[3..5];
my $date = sprintf("%02d.%02d.%04d",$day,$mon+1,$year+1900);
return $date;
}
##
# Methode zur Ausgabe des Formulars
##
sub show_formular{
my ($date,$msg) = @_;
print qq~<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY bgColor=#ffff80>
<P align=center><U><b><FONT color=#0000a0
size=7>Formular für
Details</FONT></b></U></P>
<P align=center><U></U> </P>
<P align=center> </P>
<P align=center>
<div align="center">
<form action="./skript.cgi" method="post">
<font color="#ff0000">$msg</font>
<TABLE style="WIDTH: 436px; HEIGHT: 206px" borderColor=#0000a0 bgColor=#c0c0c0
border=1>
<TR>
<TD>
<P align=right><FONT size=5><b>Datum:</b></FONT></P>
</TD>
<TD>
<INPUT style="WIDTH: 93px; HEIGHT: 22px" size=11 name="Date" value="$date">
</TD>
</TR>
<TR>
<TD>
<P align=right><FONT size=5><b>Name:</b></FONT></P>
</TD>
<TD>
<INPUT style="WIDTH: 93px; HEIGHT: 22px" size=11 name=Name>
</TD>
</TR>
<TR>
<TD>
<P align=right><FONT size=5><b>Nummer:</b></FONT></P>
</TD>
<TD>
<INPUT style="WIDTH: 93px; HEIGHT: 22px" size=11 name=Number>
</TD>
</TR>
<TR>
<TD>
<P align=right><FONT size=5><b>Anzahl:</b></FONT></P>
</TD>
<TD>
<INPUT style="WIDTH: 93px; HEIGHT: 22px" size=11 name=Units>
</TD>
</TR>
<TR>
<TD>
<P align=right><FONT size=5><b>Kommentar:</b></FONT></P>
</TD>
<TD>
<TEXTAREA name=Comments></TEXTAREA>
</TD>
</TR>
</TABLE>
<input type="submit" value="Eintragen">
<input type="hidden" name="action" value="save">
</form>
</div>
<div align="center"></div>
<div align="center"></div>
<P align=center><INPUT style="WIDTH: 153px; HEIGHT: 24px" type=submit size=204 value=Sichern name=Sichern></P>
</BODY>
</HTML>~;
}
Das musst Du in ein Verzeichnis speichern, in dem das Ausführen von CGI-Skripten erlaubt ist. Meistens hat es einen Namen wie "cgi-bin" oder so ähnlich. Du solltest es skript.cgi ändern oder Du musst in der Zeile des <form action="./skript.cgi" method="post"> bei action den neuen Namen eintragen.
Wenn Du das Skript gespeichert hast, musst Du dem Skript die Rechte 755 geben (mit chmod).
Arbeitest Du unter Unix oder Windows? welcher Webserver ist es?
Was meinst Du mit
Quote?2. nach Eintragung der Daten das Formular auf 0 gesetzt wird
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/
Frankfurt Perlmongers (http://frankfurt.pm/)
--
Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/