2019-04 Update Mailversand
Archiv
Auswertung
admin
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
anschreiben
anschreiben_kehl
import
livesearch
livesearch2
overlib
prints
#anz_anm.php
#bereiche.php
#fehlende_pu.php
#liste_pu.php
#pu_standorte.php
#puzuweisung.php
#sperrzeiten.php
.4
Vorgehensweise.txt
adm_anleg.php
adm_bearb.php
adminrechte.php
adminrechte_del.php
aenderung.php
ag_tage_admin.php
ag_tage_admin_alt.php
ag_tage_admin_neu.php
agzuweisung.php
ajax.js
anmschluss.php
anschreiben.zip
arr.php
ausland_mit_agstandort.php
ausnahme.php
auswertung_anz_teilnehmer.php
bearbeiten.php
bearbeiten_alt.php
bearbeiten_neu.php
ch_attr.php
daten_pruefen_admin.php
datenblatt.php
datenblatt_kehl.php
datenblatt_kehl_alt.php
datenblatt_kehl_neu.php
datenblatt_lubu.php
datenblatt_lubu_alt.php
datenblatt_lubu_neu.php
datenvergleich.php
datenvergleich_alt.php
datenvergleich_erst.php
datenvergleich_neu.php
datenverleich.php
dst_bearb.php
expo_auslandsstellen.php
expo_jahrgangsstatus.php
fehlende_ant.php
fehlende_sozuweisung.php
fehlender_standort.php
fehlender_standort_alt.php
fehlender_standort_neu.php
func_get_vert_block.php
func_mail_att.php
func_printqueue_antrag.php
hauptframe.htm
hauptframe_jahr.php
historie.php
historie_alt.php
historie_neu.php
index.php
jahrgang.php
jahrgangsstatus.php
jahrgangsstatus_verkuerzt.php
jquery-1.9.1.js
kennwortwechsel_admin.php
liste_w.php
livesearch2.php
livesearch_dst.php
livesearch_stud.php
login_log.php
logout_admin.php
mail.php
mail_zusage.php
menuframe.php
offene_aendant.php
offene_beurteilung.php
offene_erstant.php
pdf_gen.php
pdf_gen_alt.php
pdf_gen_ges_akte.php
pdf_gen_ges_kehl.php
pdf_gen_ges_lubu.php
pdf_gen_ges_mail.php
pdf_gen_kehl.php
pdf_gen_kehl_alt.php
pdf_gen_kehl_neu.php
pdf_gen_mail.php
pdf_gen_mail_einzel.php
pdf_gen_neu.php
pdf_gen_so_zuw.php
pdf_gen_so_zuw_alt.php
pdf_gen_so_zuw_neu.php
praxisstellen_admin.php
praxisstellen_admin_alt.php
sozuweisung.php
sozuweisung_alt.php
sozuweisung_neu.php
stan_admin_anleg.php
stan_admin_bearb.php
stan_admin_del.php
stan_useronline.php
standort_erfassen.php
standorte_2014.php
stelle_in_bw_mit_ag_standort_ausserhalb_bw.php
stud_bearb.php
test.php
test1.php
topframe.htm
ungestellte_ant.php
vert_bereich.php
zuweisung_mail.php
balance_img
fancybox
images
js
mail
standort
stud
#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
test.html
umzugsverguetung.sql
169 lines
4.5 KiB
Perl
Executable File
169 lines
4.5 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: sample04.cgi
|
|
# Sample page.
|
|
#
|
|
# 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';
|
|
|
|
# When $ENV{'PATH_INFO'} cannot be used by perl.
|
|
# $DefRootPath = "/XXXXX/_samples/perl/sample04.cgi"; Please write in script.
|
|
|
|
my $DefServerPath = "";
|
|
my $ServerPath;
|
|
|
|
$ServerPath = &GetServerPath();
|
|
|
|
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;
|
|
}
|
|
|
|
#!!Caution javascript \ Quart
|
|
|
|
print "Content-type: text/html\n\n";
|
|
print <<"_HTML_TAG_";
|
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
|
|
<html>
|
|
<head>
|
|
<title>FCKeditor - Sample</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" />
|
|
<script type="text/javascript">
|
|
|
|
function FCKeditor_OnComplete( editorInstance )
|
|
{
|
|
var oCombo = document.getElementById( 'cmbSkins' ) ;
|
|
|
|
// Get the active skin.
|
|
var sSkin = editorInstance.Config['SkinPath'] ;
|
|
sSkin = sSkin.match(/[^\\/]+(?=\\/\$)/g) ;
|
|
|
|
oCombo.value = sSkin ;
|
|
oCombo.style.visibility = '' ;
|
|
}
|
|
|
|
function ChangeSkin( skinName )
|
|
{
|
|
window.location.href = window.location.pathname + "?Skin=" + skinName ;
|
|
}
|
|
|
|
</script>
|
|
</head>
|
|
<body>
|
|
<h1>FCKeditor - Perl - Sample 4</h1>
|
|
This sample shows how to change the editor skin.
|
|
<hr>
|
|
<table cellpadding="0" cellspacing="0" border="0">
|
|
<tr>
|
|
<td>
|
|
Select the skin to load:
|
|
</td>
|
|
<td>
|
|
<select id="cmbSkins" onchange="ChangeSkin(this.value);" style="VISIBILITY: hidden">
|
|
<option value="default" selected>Default</option>
|
|
<option value="office2003">Office 2003</option>
|
|
<option value="silver">Silver</option>
|
|
</select>
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
<br>
|
|
<form action="sampleposteddata.cgi" method="post" target="_blank">
|
|
_HTML_TAG_
|
|
|
|
#// Automatically calculates the editor base path based on the _samples directory.
|
|
#// This is usefull only for these samples. A real application should use something like this:
|
|
#// $oFCKeditor->BasePath = '/fckeditor/' ; // '/fckeditor/' is the default value.
|
|
$sBasePath = $ServerPath;
|
|
$sBasePath = substr( $sBasePath, 0, index( $sBasePath, "_samples" ) ) ;
|
|
|
|
&FCKeditor('FCKeditor1');
|
|
$BasePath = $sBasePath;
|
|
|
|
if($FORM{'Skin'} ne "") {
|
|
$Config{'SkinPath'} = $sBasePath . 'editor/skins/' . &specialchar_cnv( $FORM{'Skin'} ) . '/' ;
|
|
}
|
|
$Value = 'This is some <strong>sample text</strong>. You are using <a href="http://www.fckeditor.net/">FCKeditor</a>.' ;
|
|
&Create() ;
|
|
|
|
print <<"_HTML_TAG_";
|
|
<br>
|
|
<input type="submit" value="Submit">
|
|
</form>
|
|
</body>
|
|
</html>
|
|
_HTML_TAG_
|
|
|
|
################
|
|
#Please use this function, rewriting it depending on a server's environment.
|
|
################
|
|
sub GetServerPath
|
|
{
|
|
my $dir;
|
|
|
|
if($DefServerPath) {
|
|
$dir = $DefServerPath;
|
|
} else {
|
|
if($ENV{'PATH_INFO'}) {
|
|
$dir = $ENV{'PATH_INFO'};
|
|
} elsif($ENV{'FILEPATH_INFO'}) {
|
|
$dir = $ENV{'FILEPATH_INFO'};
|
|
}
|
|
}
|
|
return($dir);
|
|
}
|