Управление сайтом

Компаний

Пользователи

Фиксированные новости

Отзывы о фирмах

Пользователи

Банкоматы

Торговые точки

Доска объявлений

Курсы валют

организации Орла

организации области

сайты Орел

Поиск запросы

Статистика

Показы каталога организаций

Статистика клиенты

Пользователи

Управление сайтом

Каталоги >

Новости >

Организации >

Секрет фирмы >

Сервисы >

Файловый менеджер

Имя файла	sample01.cgi
Содержимое	#!/usr/bin/env perl ##### # FCKeditor - The text editor for Internet - http://www.fckeditor.net # Copyright (C) 2003-2010 Frederico Caldeira Knabben # # == BEGIN LICENSE == # # Licensed under the terms of any of the following licenses at your # choice: # # - GNU General Public License Version 2 or later (the "GPL") # http://www.gnu.org/licenses/gpl.html # # - GNU Lesser General Public License Version 2.1 or later (the "LGPL") # http://www.gnu.org/licenses/lgpl.html # # - Mozilla Public License Version 1.1 or later (the "MPL") # http://www.mozilla.org/MPL/MPL-1.1.html # # == END LICENSE == # # Sample page. ##### ## 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/sample01.cgi"; Please write in script. my $DefServerPath = ""; my $ServerPath; $ServerPath = &GetServerPath(); 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" /> </head> <body> <h1>FCKeditor - Perl - Sample 1</h1> This sample displays a normal HTML form with an FCKeditor with full features enabled. <hr> <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; $Value = '<p>This is some <strong>sample text</strong>. You are using <a href="http://www.fckeditor.net/">FCKeditor</a>.</p>'; &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'}; } elsif($ENV{'REQUEST_URI'}) { $dir = $ENV{'REQUEST_URI'}; } } return($dir); }

/admin/fckeditor/_samples/perl/

Имя	Дата	Размер
..	2013-04-27
sample01.cgi	2010-02-15	3 кб.
sample02.cgi	2010-02-15	5 кб.
sample03.cgi	2010-02-15	5 кб.
sample04.cgi	2010-02-15	5 кб.
sampleposteddata.cgi	2010-02-15	3 кб.

/admin/fckeditor/_samples/perl