hledání



tagy



jazyky

perl 11
php 20
text 5
xml 1
bash 1
javascript 1
snippet generovani grafu »

air.kadlec@seznam.cz

Poslední snippety

Rozpoznání kódování

Nástřel funkce rozpoznání kódování textu, funkce musí být zapsána v UTF8......
  1. function recognizeEncoding($text) {
  2. if(preg_match('/ě|š|č|ř|ž|ý|á|í|é|ó|ú|ů/', $text)) {
  3. return 'utf-8';
  4. } elsif(preg_match('/\x9a|\x9d|\x9e|\x8a|\x8d|\x8e/', $text)) {
  5. return 'windows-1250';
Tagy:
php 18 řádků | 2009-02-24 04:41:51 | air.kadlec@seznam.cz

Proxy tester

Simple perl threaded proxy tester....
  1. #!/usr/bin/perl -w
  2.  
  3. # ------------------------------------------------------------
  4.  
  5. use strict;
Tagy:
perl 113 řádků | 2009-01-01 12:44:25 | air.kadlec@seznam.cz

Random string(password) in php function

  1. /**
  2.   * Random string(password) generation
  3.   *
  4.   * @param integer $length
  5.   * @return string
  6.  
Tagy:
php 37 řádků | 2008-10-03 03:46:28 | air.kadlec@seznam.cz

Highlight rows width prototype

  1. function hlRows(){
  2. var cells = $$('tbody.hl td')
  3.  
  4. for (var i=0; i < cells.length; i++)
  5. {
Tagy:
javascript 20 řádků | 2008-09-25 19:03:55 | air.kadlec@seznam.cz

LWP Perl file uploader

  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4. use warnings;
Tagy:
perl 24 řádků | 2008-09-25 03:24:11 | air.kadlec@seznam.cz

format_filesize byte helper

  1. <?php
  2.  
  3. function format_filesize($bytes) {
  4. $s = array('B', 'Kb', 'MB', 'GB', 'TB', 'PB');
  5. $e = floor(log($bytes)/log(1024));
Tagy:
php 8 řádků | 2008-09-23 05:44:07 | air.kadlec@seznam.cz

Etarget XML parse

Parser for etarget XML feed...
  1. <?php
  2. $url = 'http://cz.search.etargetnet.com/generic/generic.php?ref=XXXX&xml=1&q='.urlencode('http://'.$_SERVER['HTTP_HOST'].$_SERVER['REQUEST_URI']);
  3. $content = file_get_contents($url);
  4. $xml = new SimpleXMLElement($content);
  5. ?>
Tagy:
php 17 řádků | 2008-09-10 13:49:16 | air.kadlec@seznam.cz

scp upload + url do schránky

To samé co tohle akorát pro gnome a upload je naklíčované scp, nutnost doinstalovat si xsel. Umístit do ~/.gnome2/nautilus-scripts a samozřejmě +x...
  1. #!/bin/bash
  2.  
  3. PLACE="sh@zdroj.zla.cz:/home/sh/public_html/zdroj.zla.cz/"
  4. PUBLIC_URI="http://zdroj.zla.cz/"
Tagy:
bash 13 řádků | 2008-06-03 01:06:20 | air.kadlec@seznam.cz

BlogDump.pm

  1. #!/usr/bin/perl
  2.  
  3. package BlogDump;
  4.  
  5. use strict;
Tagy:
perl 98 řádků | 2008-05-29 22:57:37 | air.kadlec@seznam.cz

Article.pm

  1. #!/usr/bin/perl
  2.  
  3. package Article;
  4.  
  5. use strict;
Tagy:
perl 69 řádků | 2008-05-29 22:57:08 | air.kadlec@seznam.cz

Blog spam creator !

BlogPeer.pm, http://www.isecure.cz/2008/05/29/stane-se/...
  1. #!/usr/bin/perl
  2.  
  3. package BlogPeer;
  4.  
  5. use strict;
Tagy:
perl 325 řádků | 2008-05-29 22:54:00 | air.kadlec@seznam.cz

extended sfWebBrowser with native symfony filecaching

Using sfWebBrowser plugin and native symfony caching with sfFileCache. My purpose for this class is retrieve "longterm" inf...
  1. <?php
  2. class myBrowser extends sfWebBrowser {
  3.  
  4. protected $cache_expiration = 2592000; // 30 days default cache
Tagy:
php 65 řádků | 2008-05-27 02:08:07 | air.kadlec@seznam.cz

symfony permalinks v2

smarter version of this...
  1. schema.yml:
  2. -----------
  3. artist:
  4. id:
  5. name: varchar(256)
Tagy:
php 41 řádků | 2008-05-26 15:55:30 | air.kadlec@seznam.cz

Hezký zbytek ...

blbůstka do mailů :)...
  1. Přejeme hezký zbytek <?
  2. if(date("G") >= 5 && date("G") < 18) echo "dne";
  3. elseif(date("G") >= 18 && date("G") <= 21) echo "večera";
  4. else echo "noci";
  5. ?>
Tagy:
php 5 řádků | 2008-04-30 13:49:30 | air.kadlec@seznam.cz

domain regex

simple regex domain check...
  1. ^([a-z][a-z0-9\-]+(\.|\-*\.))+[a-z]{2,6}$
Tagy:
perl 1 řádků | 2008-04-23 03:41:58 | air.kadlec@seznam.cz