7 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
#!/usr/bin/perl -t
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use Data::Dumper;
my $q = new CGI;
print $q->header();
if ($q->param('action') && $q->param('area')) {
die Dumper $q->param('area');
} else {
print q#
<HTML><BODY><FORM>
<TEXTAREA name="area"></TEXTAREA>
<INPUT type="submit" name="action" value="Absenden" />
</FORM></BODY></HTML>
#;
}
1
2
3
4
5
6
Sub SubSav_onclick
dim StrAlt,StrAlt2,StrAlt3
StrAlt=cfgchg.value
cfgchg.value=Replace(StrAlt,vbcrlf,"<br>")
window.navigate "/cgi-bin/wface.pl?art=savdat&id=<TMPL_VAR Name=ID>&dname=" & dname.value & "&ctxt=" & cfgchg.value
End Sub
1
2
3
4
5
6
7
8
9
use strict;
use CGI;
my $cgi=new CGI;
my $text=$cgi->param("textarea");
my $text=~s/<br>/\n/g;
open(DATEI, "> $datei");
print DATEI $text;
close(DATEI);
7 Einträge, 1 Seite |