my scripts: 2012

Релиз встраиваемого в web-приложения редактора кода ACE Editor 1.0
По заявлению разработчиков ACE Editor, несмотря на то, что продукт рассчитан на работу в браузере, он обладает функциональностью и производительностью близкими к обособленным приложениям, таким как Sublime, Vim и TextMate. В отличие от стационарных редакторов ACE Editor может легко быть интегрирован с web-приложением или встроен на любую web-страницу (добавление сводится к размещению тега div и подключению JavaScript-библиотеки). Для изменения внешнего вида предусмотрена поддержка подключения визуальных тем. Кроме того, подготовлен модуль Ace Bookmarklet, который может быть использован web-мастерами для прозрачной замены стандартной области ввода, реализуемой тегом textarea.

В настоящий момент ACE Editor развивается в качестве первичного редактора кода для облачной среды разработки Cloud9.

понедельник, 8 октября 2012 г.

запуск perl скриптов

Основной вариант запуска - через mod_perl
Можно в основной конфиг:

AddHandler perl-script .pl
PerlResponseHandler ModPerl::Registry

Или в .htaccess, в cgi-bin:

Options +ExecCGI
SetHandler cgi-script

В основной каталог (httpdocs, htroot, www, public_html...)
AddHandler cgi-script .pl

Проверочный код:

#!/usr/local/bin/perl -w
print "Content-type: text/html\n\n";
print "It works!<br>\n";

Первая строка при выводе в браузер обязательна: она сообщает, что это страница.

мини-скрипты

php

Общая

<?php phpinfo(); ?>

Вывод ошибок в отдельный файл

<?php

ini_set('error_log', '/var/log/php_errors.log');

При невозможности записи в этот файл - вывод в основной лог.

Тест права создания файлов и владельца

$ourFileName = "testFile.txt";

$ourFileHandle = fopen($ourFileName, 'w') or die("can't open file");

fclose($ourFileHandle);

perl

#!/usr/bin/perl

#!/usr/local/bin/perl

## printenv -- demo CGI program which just prints its environment

use CGI::Carp qw(fatalsToBrowser);

print "Content-type: text/plain; charset=iso-8859-1\n\n";

foreach $var (sort(keys(%ENV))) {

$val = $ENV{$var};

$val =~ s|\n|\\n|g;

$val =~ s|"|\\"|g;

print "${var}=\"${val}\"\n";

}

понедельник, 24 сентября 2012 г.

Свой модуль для nginx

переменные с дефисом (тире) в названии, часть I
переменные с дефисом (тире) в названии, часть II
расширяем модуль myutil

*ython

CPython vs. IronPython: вычисление MD5-хеша / Хабрахабр Python в Visual Studio 2010 / Хабрахабр Python threading или GIL нам почти не помеха / Хабрахабр

среда, 19 сентября 2012 г.

Велосипеды на Javascript и jQuery

SQL injection для начинающих

SQL injection для начинающих Часть 1 Части 2 на данный момент нет.

Плюс
Самый частый шаблон SQL инъекций в РНР — бесполезное экранирование символов

вторник, 18 сентября 2012 г.

SQLite — замечательная встраиваемая БД

SQLite — замечательная встраиваемая БД: часть 1 часть 2 часть 3

вторник, 14 августа 2012 г.

Punycode

Библиотек для конвертирования в Punycode много. В общем случае оно называется IDN или IDNA, иногда Punycode.

Python
Встроенными средствами с 2.4:

>>> ru = "ДОМЕНЫ.РУ"
>>> u = unicode(ru, "koi8-r") # Из koi8 в unicode...
>>> u.encode("idna") #... и перекодируем
'xn--d1acufc5f.xn--p1ag'

Perl
Тут несколько библиотек, все работают по разному...
Net::IDN::Encode
URI::UTF8::Punycode
IDNA::Punycode (DEPRECATED)
Convert::RACE
Net::IDN::Nameprep
Net::LibIDN (бинды к libidn)

php
http://pear.speedpartner.de/,
http://fastserv.name.net/open_source/php/punycode/

C
idnkit, libidn

линки
http://s3blog.org/konvertacija-domena-v-zone-rf-v-punycode.html
http://www.rlnic.ru/technology/punycode.pl
http://www.koscheev.ru/articles/perl/?n=38

четверг, 12 апреля 2012 г.

perl

Входные аргументы
$ARGV[0]

$# оператор получения максимального индекса массива
if ($#ARGV<0) ... //нет аргументов

суббота, 7 апреля 2012 г.

Проверяем права

<br />
PHP<br />
<pre><?php 
function GetUsernameFromUid($uid) 
{ 
  if (function_exists('posix_getpwuid')) 
  { 
    $a = posix_getpwuid($uid); 
    return $a['name']; 
  } 
  # This works on BSD but not with GNU 
  elseif (strstr(php_uname('s'), 'BSD')) 
  { 
    exec('id -u ' . (int) $uid, $o, $r); 

    if ($r == 0) 
      return trim($o['0']); 
    else 
      return $uid; 
  } 
  elseif (is_readable('/etc/passwd')) 
  { 
    exec(sprintf('grep :%s: /etc/passwd | cut -d: -f1', (int) $uid), $o, $r); 
    if ($r == 0) 
      return trim($o['0']); 
    else 
      return $uid; 
  } 
  else 
    return $uid; 
}

echo "Read ID: ".posix_getuid()."\n";
echo "Effective ID: ".posix_geteuid()."\n";

//mkdir test; ls test; rmdir test;
?>
</pre><br />
perl<br />
<br />
<br />

пятница, 30 марта 2012 г.

Python FTP server library (pyftpdlib)

http://code.google.com/p/pyftpdlib/

четверг, 20 декабря 2012 г.

пятница, 23 ноября 2012 г.

воскресенье, 4 ноября 2012 г.

четверг, 1 ноября 2012 г.

четверг, 11 октября 2012 г.

вторник, 9 октября 2012 г.

понедельник, 8 октября 2012 г.

понедельник, 24 сентября 2012 г.

среда, 19 сентября 2012 г.

вторник, 18 сентября 2012 г.

вторник, 14 августа 2012 г.

четверг, 12 апреля 2012 г.

суббота, 7 апреля 2012 г.

пятница, 30 марта 2012 г.

четверг, 20 декабря 2012 г.

пятница, 23 ноября 2012 г.

воскресенье, 4 ноября 2012 г.

четверг, 1 ноября 2012 г.

четверг, 11 октября 2012 г.

вторник, 9 октября 2012 г.