Files
2019-04 Update Mailversand
Archiv
Auswertung
admin
balance_img
fancybox
images
mail
standort
stud
FCKeditor
_samples
_plugins
afp
asp
cfm
html
lasso
perl
sample01.cgi
sample02.cgi
sample03.cgi
sample04.cgi
sampleposteddata.cgi
php
py
default.html
sample.css
sampleslist.html
_testcases
editor
_documentation.html
_whatsnew.html
fckconfig.js
fckeditor.afp
fckeditor.asp
fckeditor.cfc
fckeditor.cfm
fckeditor.js
fckeditor.lasso
fckeditor.php
fckeditor.pl
fckeditor.py
fckstyles.xml
fcktemplates.xml
htaccess.txt
license.txt
dyncalendar
images
livesearch
overlib
prints
###antrag.php
#check_aend.php
#index.php
Kopie von antrag_aend.php
ag_standorte.pdf
ag_tage.php
ag_tage_alt.php
ag_tage_neu.php
ag_ubersicht.php
ag_ubersicht_alt.php
ag_ubersicht_neu.php
ajax.js
antrag-mit splitt.php
antrag.php
antrag1.php
antrag2.php
antrag_aend.php
antrag_save.php
bearbeiten.php
bearbeiten1.php
browserSniffer.js
check_aend.php
check_aendantrag.php
check_erstantrag.php
check_splitt_vt.php
check_weitere_daten.php
check_zweig.php
daten_vervollst.php
dynCalendar.css
dynCalendar.js
dyncalendar.php
func_anz_stellen.php
func_anz_stellen.txt
func_check_aend.php
func_check_vertiefungsbereich.php
func_get_block.php
func_pflichtfelder.php
func_pflichtfelder_2019-02-20.php
func_vertiefungsbereich.php
gesamtcheck.php
hauptframe.php
hinweis_aend.php
index - Kopie.php
index.php
index_db.php
index_frame.htm
index_ldap.php
kennwortwechsel.php
livesearch.php
logout.php
menuframe.php
pers_daten_ver.php
status_aend.php
test.php
test1.php
test2.php
text-expand.php
topframe.php
wunschort.php
#pdf_gen.php
#pdf_gen_alt.php
#pdf_gen_ges_lubu.php
#pdf_gen_kehl.php
#pdf_gen_kehl_alt.php
#pdf_gen_kehl_neu.php
#pdf_gen_neu.php
++ Printqueue zurücksetzen.txt.lnk
.gitignore
Auswertung_besuchte Stellen der Studs - alle Jahrgänge.sql
Auswertung_besuchte Stellen der Studs.sql
Pflicht.sql
Trigger.sql
VIEW_stan_zuw_so.sql
VIEW_stan_zuw_so_neu.sql
anz_anm.php
bearbeiten_neu.php
historie.php
historie_alt.php
historie_neu.php
index.php
index_db.php
index_ldap.php
ldap_info.php
ldap_info_hsnet.php
login.css
menuframe.php
styles_pc.css
stellenantrag_neu/stud/FCKeditor/_samples/perl/sampleposteddata.cgi
2022-11-28 09:17:05 +01:00

102 lines
2.7 KiB
Perl
Executable File

#!/usr/bin/env perl
#####
# FCKeditor - The text editor for internet
# Copyright (C) 2003-2006 Frederico Caldeira Knabben
#
# Licensed under the terms of the GNU Lesser General Public License:
# http://www.opensource.org/licenses/lgpl-license.php
#
# For further information visit:
# http://www.fckeditor.net/
#
# "Support Open Source software. What about a donation today?"
#
# File Name: sampleposteddata.cgi
# This page lists the data posted by a form.
#
# File Authors:
# Takashi Yamaguchi (jack@omakase.net)
#####
## START: Hack for Windows (Not important to understand the editor code... Perl specific).
if(Windows_check()) {
chdir(GetScriptPath($0));
}
sub Windows_check
{
# IIS,PWS(NT/95)
$www_server_os = $^O;
# Win98 & NT(SP4)
if($www_server_os eq "") { $www_server_os= $ENV{'OS'}; }
# AnHTTPd/Omni/IIS
if($ENV{'SERVER_SOFTWARE'} =~ /AnWeb|Omni|IIS\//i) { $www_server_os= 'win'; }
# Win Apache
if($ENV{'WINDIR'} ne "") { $www_server_os= 'win'; }
if($www_server_os=~ /win/i) { return(1); }
return(0);
}
sub GetScriptPath {
local($path) = @_;
if($path =~ /[\:\/\\]/) { $path =~ s/(.*?)[\/\\][^\/\\]+$/$1/; } else { $path = '.'; }
$path;
}
## END: Hack for IIS
require '../../fckeditor.pl';
if($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\t//g;
$value =~ s/\r\n/\n/g;
$FORM{$name} .= "\0" if(defined($FORM{$name}));
$FORM{$name} .= $value;
}
print "Content-type: text/html\n\n";
print <<"_HTML_TAG_";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>FCKeditor - Samples - Posted Data</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta name="robots" content="noindex, nofollow">
<link href="../sample.css" rel="stylesheet" type="text/css" />
</head>
<body>
<h1>FCKeditor - Samples - Posted Data</h1>
This page lists all data posted by the form.
<hr>
<table width="100%" border="1" cellspacing="0" bordercolor="#999999">
<tr style="FONT-WEIGHT: bold; COLOR: #dddddd; BACKGROUND-COLOR: #999999">
<td nowrap>Field Name&nbsp;&nbsp;</td>
<td>Value</td>
</tr>
_HTML_TAG_
foreach $key (keys %FORM) {
$postedValue = &specialchar_cnv($FORM{$key});
print <<"_HTML_TAG_";
<tr>
<td valign="top" nowrap><b>$key</b></td>
<td width="100%">$postedValue</td>
</tr>
_HTML_TAG_
}
print <<"_HTML_TAG_";
</table>
</body>
</html>
_HTML_TAG_