"FedorFL"/"lefedor" Blog

PCM 2 MP3,Split mp3 for parts

2011-11-29T00:24:00.001+04:00

#pcm 2 mp3
lame -b 64 IN.wav OUT.mp3
#40 min per mp3
mp3splt -t 40.00 OUT.mp3

#join mp3 files, ! can reuire lame re-encoding
mp3wrap OUT.mp3 in1.mp3 in2mp3

internet is clever place )

2011-09-17T03:11:00.002+04:00

Force firefox loads buffered links by middle mouse click

2011-08-27T13:22:00.002+04:00

Since @FF6 middle click not loads copyed/buffered link....

Go to location

about:config

Agree with warning, filter keys by 'middlemouse'.

Double click on 'middlemouse.contentLoadURL' to switch it to 'true'.

profit!

गुड तो क्नोव )

2011-08-27T11:11:00.002+04:00

lol, TReat, not THReat )

ज्वाइन ३ग्प फिल्स अंडर लिनुक्स.

2011-08-05T01:12:00.006+04:00

Good news everyone! )

Just spent an hour googling/digging for easyest solution to join 3gp files from pda/dvr under linux to upload resulting file on youtube ).
Writing here to not forget this stuff. Like i've done since prev time.

so, debian/ubuntu:

#apt-get install gpac mplayer mencoder ffmpeg libavcodec-extra-52

#apt-get install libxvidcore4 avifile-utils

we have command MP4Box now

join some 3gp into one:

MP4Box -cat one.3gp -cat two.3gp -new out.3gp

recode 3gp to more mobiled mp4 with ffmpeg (90->40Mb):

ffmpeg -threads 2 -i \
out.3gp -f avi -r 29.97 -vcodec libxvid -vtag XVID -s \
640x480 -aspect 4:3 -maxrate 1800kb -b 1500kb -qmin 3 -qmax 5 \
-bufsize 4096 -mbd 2 -bf 2 -flags +4mv -trellis -aic -cmp 2 -subcmp 2 \
-g 300 -acodec libmp3lame -ar 44100 -ab 96kb -ac 2 \
out.avi

removing swearwords )

mencoder -ovc copy -nosound out2.avi -o out-nosound.avi

ffmpeg -i out2.avi -acodec libmp3lame -ab 128k -ar 48000 out2.mp3

audacity out2.mp3

mencoder -ovc copy -audiofile out2fixed.mp3 -oac copy out-nosound.avi -o  out-fixsound.avi

2011-06-10T23:12:00.002+04:00

To find all files modified within the last 3 days:

find ./ -type f -mtime -3 -print

The – in front of the three modifies the meaning of the time as “less than three days.” The command

find ./ -type f -mtime +3 -print

displays files modified more than three days ago. Without the + or -, the command would find files with a modification time of three days ago, not less or more.

-type f means "files only"

2011-06-02T16:15:00.000+04:00

rly useful mass search and replace:


find . -name '*.txt' -type f -exec perl -pi -e 's/find/replace/g' {} \;

रेमेम्बेर थे मिल्क रतं एंड १-डे ओफ्फ्सेट @मोजिल्ला लिघ्टिंग calendar

2011-05-21T21:59:00.004+04:00

Good news everyone! Just want mention for future notice :). If you have 1 day offset @mozilla lighting calendar when syncing with remember the milk RTM service, check your settings, don't be original - no reason to set timezone +3 Antarctica instead +3 Moscow ). I've fought with it about month, wtf ). Finally i can manage week tasks layout without extra imagination acting.

लोकल मोदुलेस install

2011-01-01T15:50:00.000+03:00

# set PERL5 lib & bin path
if [ -d "$HOME/perl5" ] ; then
PATH="$HOME/perl5/bin:$PATH"
export PERL5LIB="${PERL5LIB:+$PERL5LIB:}$HOME/perl5/lib/perl5"
export MANPATH="${MANPATH:+$MANPATH:}$HOME/perl5/man"
fi

म्जन्च्म्स ०.८२ इस आउट

2010-04-27T11:52:00.002+04:00

Good news everyone! MjNCMS - perl Mojolicious CMS is kinda get it's first *stable* realise, v0.82 :).

U can defenatly download it and try:

http://github.com/lefedor/mjncms

म्जन्च्म्स prerealise

2010-04-19T16:17:00.002+04:00

Ok, firste prerealise out.
Still no email core && session core, req to finalize realiase as ready-to-use "alpha"
but admin side works not bad at all and user model is about complete, possible to try

म्जन्च्म्स

2010-04-14T22:40:00.004+04:00

Good news everyone, Mojolicious-based Not a CMS (MjNCMS) coming out soon, so in near future I'll show different types of wires I've used to build this dummy thing :)

Support group alredy registred
GitHub link here
Demo possibly http://ffl.ath.cx:82

Passing trough

2010-03-06T23:06:00.000+03:00

Hm Mojolicious::Lite CMS becomes just Mojolicious, wth.

2010-02-27T03:10:00.001+03:00

Mootools: get element html clode. Yes, it requires sometime ;).

Over mootools version:




Element.implement({

 getHTML: function(){
  var html='';
  var tmpdiv=new Element('div',{'html':''});
  this.clone('wcontent','keepid').inject(tmpdiv);
  html=tmpdiv.get('html');
  tmpdiv.destroy();
  return html;
 }, 
    
    returnFalse: function() {
  //last entry - no comma after } !
  return false;
 }

});

Mojolicious::Lite

2010-02-22T23:21:00.002+03:00

Writing Mojolicious::Lite CMS currently.

Example of benchmarking for future:
ab -c 100 -n 1000 'url'

means "use 100 active connects, do 10000 requests"

ab - "Apache Benchmark' utility

Windows Vista: Quick Launch Panel

2010-01-18T10:46:00.005+03:00

Good news everyone!
Here are solution for vista how to get quick launch panel back ):

Right click on panel, Panel->Create new
Type this path:


%AppData%\Microsoft\Internet Explorer\Quick Launch

Remove header and file names.
Move to Run button by dragging it at dash.

All done!

Run vncserver at system startup

2010-01-14T17:04:00.002+03:00

I've started to build NAS from old PC.
One of problems is there are no init.d script for vncserver for starting server on system boot. Good news everyone! ). Here are solution.
Create /etc/default/xvncserver-daemon, here are content:


# xvncserver-daemon config file [put @ /etc/default]
# Author: Fedor F. L.

# Should we run at startup?
RUN_AT_STARTUP="YES"

# The name that the VNC Desktop will have.
XVNCSERVER_NAME="nas-vnc-server"

# The Username:Group that will run VNC
export XVNCSERVER_USER="fedor"

# The display that VNC will use
XVNCSERVER_DISPLAY="1"

# Color depth (between 8 and 32)
XVNCSERVER_DEPTH="16"

# The Desktop geometry to use.
#XVNCSERVER_GEOMETRY="x"
XVNCSERVER_GEOMETRY="800x600"
#XVNCSERVER_GEOMETRY="1024x768"
#XVNCSERVER_GEOMETRY="1280x1024"


# TightVNC java http app port:
#XVNCSERVER_HTTPPORT #commented, unused

Then create /etc/init.d/xvncserver-daemon with content:


#!/bin/sh -e
### BEGIN INIT INFO
# Provides:          xvncserver-daemon
# Required-Start:    networking
# Required-Stop:     networking
# Should-Start:      $network
# Should-Stop:       $network
# Default-Start:     2 3 4 5
# Default-Stop:      0 1 6
# Short-Description: Daemonized version of vncserver
# Description:       Starts the vncserver with the user specified in
#                    /etc/default/xvncserver-daemon.
### END INIT INFO

# Author: Fedor F. L.

PATH="/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/X11R6/bin/"
DESC="XVNCServer Daemon"
PKGNAME="xvncserver-daemon"
PIDFILE="/var/run/$PKGNAME.pid"
SCRIPTNAME="/etc/init.d/$PKGNAME"

# Define LSB log_* functions.
# Depend on lsb-base (>= 3.0-6) to ensure that this file is present.
. /lib/lsb/init-functions

# Read configuration variable file if it is present
[ -r /etc/default/$PKGNAME ] && . /etc/default/$PKGNAME

# Load the VERBOSE setting and other rcS variables
[ -f /etc/default/rcS ] && . /etc/default/rcS

if [ -z "$RUN_AT_STARTUP" -o "$RUN_AT_STARTUP" != "YES" ]
then
   log_warning_msg "Not starting $PKGNAME, edit /etc/default/$PKGNAME to start it."
   exit 0
fi

if [ -z "$XVNCSERVER_USER" ]
then
    log_warning_msg "Not starting $PKGNAME, XVNCSERVER_USER not set in /etc/default/$PKGNAME."
    exit 0
fi

XVNCSERVER_OPTIONS=" -name ${XVNCSERVER_NAME} -depth ${XVNCSERVER_DEPTH} -geometry ${XVNCSERVER_GEOMETRY} :${XVNCSERVER_DISPLAY} " # -httpport ${XVNCSERVER_HTTPPORT} "

case "$1" in
    start)
        # actions on startup go there
  log_daemon_msg "Starting vncserver for user '${XVNCSERVER_USER}' on localhost:${XVNCSERVER_DISPLAY}"
  su ${XVNCSERVER_USER} -c "/usr/bin/vncserver ${XVNCSERVER_OPTIONS} > /dev/null 2>&1"       
  #start-stop-daemon --start --background --quiet --pidfile $PIDFILE --make-pidfile --exec "/usr/bin/vncserver" \
  # --chuid $XVNCSERVER_USER --user $XVNCSERVER_USER  -- $XVNCSERVER_OPTIONS
  log_end_msg 0
    ;;
    stop)
        # shutdown actions go here
  log_daemon_msg "Stoping vncserver for user '${XVNCSERVER_USER}' on localhost:${XVNCSERVER_DISPLAY}"
  su ${XVNCSERVER_USER} -c "/usr/bin/vncserver -kill :${XVNCSERVER_DISPLAY}  > /dev/null 2>&1"
  #start-stop-daemon --stop --quiet --user $XVNCSERVER_USER --pidfile $PIDFILE
  log_end_msg 0
    ;;
 restart)
  # restart actions go here
  log_begin_msg "Restarting vncserver for user '${XVNCSERVER_USER}' on localhost:${XVNCSERVER_DISPLAY}"
  $0 stop
  $0 start
 ;;
    *)
        echo "Use: $0 "
    ;;
esac

exit 0

chmod it:
#chmod 755 /etc/init.d/xvncserver-daemon

update startlinks:
#update-rc.d xvncserver-daemon defaults

Simple flv2mp3 script

2009-10-04T15:52:00.001+04:00


#!/bin/sh
for f in $* ;do
 if echo "$f" | grep -i "flv$" > /dev/null ; then
   ffmpeg -i $f -acodec libmp3lame -ac 2 -ab 128k -vn -y "$f.mp3"
 else
   echo echo "$f is not a flv file, ignored"
 fi
done

Put in ~/bin
Usage: flv2mp3 ./*

To create gif file from video with mplayer

2009-10-02T00:54:00.001+04:00

Just use this command:


mplayer Friends_Bloopers_1994-2004.wmv -ss 0:48:42 -endpos 0:00:40 -vo gif89a:output=/tmp/ffr.gif:fps=100.

Firefox profiles

2009-08-31T10:49:00.004+04:00

If you want eun two firefoxes:
SOMEPATH\firefox.exe -profilemanager -no-remote

If you want run firefox with selected profile, for example, PortableApps Firefox from Flash Drive:
create startff.bat wth content (create exists profile before):
firefox.exe -profile \FirefoxPortable\Data\tcprofile -no-remote
if firefox folder and done :), ready-to-use.

ATI x1400 + radeonhd + av, opengl and etc

2009-08-20T20:47:00.000+04:00

Since proprearitary ATI linux video drivers not support my video card from version 9.3 (depricated). I've meet problem setting up radeonhd driver for xorg.

Short info : http://www.x.org/wiki/radeonhd

Anyone who wants some XV suppot should know: he need driver radeonhd 1.2.5 or highter.

For debian it means swithing for tree "experimental" (now, on 08.2009) or compile radeonhd driver by hands (manual).

Secondary you should have DRM support in your kernel. 2.6.30 is not work for me - GIT tree of DRM is not able to compile. But i've just make own kernel 2.6.31-rc6 - it's OK - it have fresh DRM onboard. I've just copy ".config" to last kernel src and compile it: "make menuconfig;make;make install;make modules_install;mkinitramfs -o /boot/initrd.img-2.6.31-rc6 2.6.31-rc6; update-grub;" - as ushual.

Thirdary - you should remove all proprearitary drivers from ATI: fglrx-driver, fglrx-glx, etc... all of them.

glxgears 14800-15200 points.

xorg.conf (IBM t60 4:3 15" IPS ati x1400):


Section "InputDevice"
    Identifier  "Generic Keyboard"
#   Driver      "keyboard"
    Driver      "kbd"
    Option      "CoreKeyboard"
#   Option      "XkbRules"  "xorg"
#   Option      "XkbModel"  "pc105"
#   Option      "XkbLayout" "de"
#   Option      "XkbVariant"    "nodeadkeys"
    Option      "XkbRules" "xorg"
    Option      "XkbModel" "pc105"
    Option      "XkbLayout" "us,ru"
#   Option      "XkbVariant" "basic,winkeys"
    Option      "XkbOptions" "grp:ctrl_shift_toggle,grp_led:num"
EndSection

Section "InputDevice"
    Identifier  "Trackball"
    Driver      "mouse"
    Option      "CorePointer"
    Option      "Device" "/dev/psaux"
    Option      "Protocol" "Auto"
    Option      "Emulate3Buttons" "true"
    Option      "ZAxisMapping" "4 5"
EndSection

Section "InputDevice"
    Identifier  "Touchpad"
    Driver      "synaptics"
    Option      "SendCoreEvents" "true"
    Option      "Device" "/dev/psaux"
    Option      "Protocol" "auto-dev"
    Option      "HorizScrollDelta" "0"
EndSection

Section "InputDevice"
    Identifier  "Mouse"
    Driver      "mouse"
    Option      "CorePointer"
    Option      "Device" "/dev/input/mice"
    Option      "Protocol" "ImPS/2"
    Option      "EmulateWheel" "on"
    Option      "EmulateWheelButton" "2"
    Option      "EmulateWheelTimeout" "300"
    Option      "EmulateWheelInertia" "25"
    Option      "Emulate3Buttons" "on"
#   Option      "XAxisMapping" "6 7"
    Option      "YAxisMapping" "4 5"
    Option      "ZAxisMapping" "4 5"
EndSection


Section "Device"
    Identifier  "Configured Video Device"
    Driver   "radeonhd"
        Option      "AccelMethod" "exa" # default shadowfb
        Option      "DRI" "on"
EndSection

Section "Monitor"
    Identifier  "Configured Monitor"
EndSection

Section "Screen"
    Identifier  "Default Screen"
    Monitor     "Configured Monitor"
    Device      "Configured Video Device"
    
    #http://lists.altlinux.org/pipermail/sisyphus/2009-March/337719.html
    #Option "XaaOffscreenPixmaps" "true"
    DefaultDepth     16
    #DefaultDepth     24
    SubSection "Display"
        Depth     8
        Modes    "1400x1050" "1440x900" "1280x1024" "1280x960" "1280x854" "1280x800" "1280x768" "1280x720" "1152x870" "1152x864" "1120x840" "1024x768" "1024x736" "1024x600" "960x720" "848x480" "832x624" "800x600" "720x576" "640x480"
    EndSubSection
    SubSection "Display"
        Depth     15
        Modes    "1400x1050" "1440x900" "1280x1024" "1280x960" "1280x854" "1280x800" "1280x768" "1280x720" "1152x870" "1152x864" "1120x840" "1024x768" "1024x736" "1024x600" "960x720" "848x480" "832x624" "800x600" "720x576" "640x480"
    EndSubSection
    SubSection "Display"
        Depth     16
        Modes    "1400x1050" "1440x900" "1280x1024" "1280x960" "1280x854" "1280x800" "1280x768" "1280x720" "1152x870" "1152x864" "1120x840" "1024x768" "1024x736" "1024x600" "960x720" "848x480" "832x624" "800x600" "720x576" "640x480"
    EndSubSection
    SubSection "Display"
        Depth     24
        Modes    "1400x1050" "1440x900" "1280x1024" "1280x960" "1280x854" "1280x800" "1280x768" "1280x720" "1152x870" "1152x864" "1120x840" "1024x768" "1024x736" "1024x600" "960x720" "848x480" "832x624" "800x600" "720x576" "640x480"
    EndSubSection
    SubSection "Display"
        Depth     32
        Modes    "1400x1050" "1440x900" "1280x1024" "1280x960" "1280x854" "1280x800" "1280x768" "1280x720" "1152x870" "1152x864" "1120x840" "1024x768" "1024x736" "1024x600" "960x720" "848x480" "832x624" "800x600" "720x576" "640x480"
    EndSubSection
    
EndSection

Section "ServerLayout"
    Identifier     "Default Layout"
    Screen          "Default Screen" 0 0
    InputDevice    "Generic Keyboard"
    InputDevice    "Mouse"
    InputDevice    "Trackball"
    InputDevice    "Touchpad"
EndSection

Section "Module"
    Load  "dri"
    Load  "glx"
EndSection

Section "DRI"
        Mode         0666
EndSection

$xvinfo:


X-Video Extension version 2.2
screen #0
  Adaptor #0: "RadeonHD Textured Video"
    number of ports: 16
    port base: 85
    operations supported: PutImage 
    supported visuals:
      depth 16, visualID 0x21
    no port attributes defined
    maximum XvImage size: 4096 x 4096
    Number of image formats: 4
      id: 0x32595559 (YUY2)
        guid: 59555932-0000-0010-8000-00aa00389b71
        bits per pixel: 16
        number of planes: 1
        type: YUV (packed)
      id: 0x32315659 (YV12)
        guid: 59563132-0000-0010-8000-00aa00389b71
        bits per pixel: 12
        number of planes: 3
        type: YUV (planar)
      id: 0x30323449 (I420)
        guid: 49343230-0000-0010-8000-00aa00389b71
        bits per pixel: 12
        number of planes: 3
        type: YUV (planar)
      id: 0x59565955 (UYVY)
        guid: 55595659-0000-0010-8000-00aa00389b71
        bits per pixel: 16
        number of planes: 1
        type: YUV (packed)

glxinfo:


 name of display: :0.0
display: :0  screen: 0
direct rendering: Yes
server glx vendor string: SGI
server glx version string: 1.2
server glx extensions:
    GLX_ARB_multisample, GLX_EXT_import_context, GLX_EXT_texture_from_pixmap, 
    GLX_EXT_visual_info, GLX_EXT_visual_rating, GLX_MESA_copy_sub_buffer, 
    GLX_OML_swap_method, GLX_SGI_make_current_read, GLX_SGI_swap_control, 
    GLX_SGIS_multisample, GLX_SGIX_fbconfig, GLX_SGIX_visual_select_group
client glx vendor string: SGI
client glx version string: 1.4
client glx extensions:
    GLX_ARB_get_proc_address, GLX_ARB_multisample, GLX_EXT_import_context, 
    GLX_EXT_visual_info, GLX_EXT_visual_rating, GLX_MESA_allocate_memory, 
    GLX_MESA_copy_sub_buffer, GLX_MESA_swap_control, 
    GLX_MESA_swap_frame_usage, GLX_OML_swap_method, GLX_OML_sync_control, 
    GLX_SGI_make_current_read, GLX_SGI_swap_control, GLX_SGI_video_sync, 
    GLX_SGIS_multisample, GLX_SGIX_fbconfig, GLX_SGIX_pbuffer, 
    GLX_SGIX_visual_select_group, GLX_EXT_texture_from_pixmap
GLX version: 1.2
GLX extensions:
    GLX_ARB_get_proc_address, GLX_ARB_multisample, GLX_EXT_import_context, 
    GLX_EXT_visual_info, GLX_EXT_visual_rating, GLX_MESA_copy_sub_buffer, 
    GLX_MESA_swap_control, GLX_MESA_swap_frame_usage, GLX_OML_swap_method, 
    GLX_SGI_make_current_read, GLX_SGI_swap_control, GLX_SGI_video_sync, 
    GLX_SGIS_multisample, GLX_SGIX_fbconfig, GLX_SGIX_visual_select_group
OpenGL vendor string: DRI R300 Project
OpenGL renderer string: Mesa DRI R300 20060815 x86/MMX/SSE2 TCL
OpenGL version string: 1.4 Mesa 7.5.1
OpenGL extensions:
    GL_ARB_depth_texture, GL_ARB_draw_buffers, GL_ARB_fragment_program, 
    GL_ARB_imaging, GL_ARB_multisample, GL_ARB_multitexture, 
    GL_ARB_point_parameters, GL_ARB_shadow, GL_ARB_shadow_ambient, 
    GL_ARB_texture_border_clamp, GL_ARB_texture_compression, 
    GL_ARB_texture_cube_map, GL_ARB_texture_env_add, 
    GL_ARB_texture_env_combine, GL_ARB_texture_env_crossbar, 
    GL_ARB_texture_env_dot3, GL_MESAX_texture_float, 
    GL_ARB_texture_mirrored_repeat, GL_ARB_texture_rectangle, 
    GL_ARB_transpose_matrix, GL_ARB_vertex_buffer_object, 
    GL_ARB_vertex_program, GL_ARB_window_pos, GL_EXT_abgr, GL_EXT_bgra, 
    GL_EXT_blend_color, GL_EXT_blend_equation_separate, 
    GL_EXT_blend_func_separate, GL_EXT_blend_logic_op, GL_EXT_blend_minmax, 
    GL_EXT_blend_subtract, GL_EXT_compiled_vertex_array, GL_EXT_convolution, 
    GL_EXT_copy_texture, GL_EXT_draw_range_elements, GL_EXT_fog_coord, 
    GL_EXT_gpu_program_parameters, GL_EXT_histogram, GL_EXT_multi_draw_arrays, 
    GL_EXT_packed_pixels, GL_EXT_point_parameters, GL_EXT_polygon_offset, 
    GL_EXT_rescale_normal, GL_EXT_secondary_color, 
    GL_EXT_separate_specular_color, GL_EXT_shadow_funcs, 
    GL_EXT_stencil_two_side, GL_EXT_stencil_wrap, GL_EXT_subtexture, 
    GL_EXT_texture, GL_EXT_texture3D, GL_EXT_texture_edge_clamp, 
    GL_EXT_texture_env_add, GL_EXT_texture_env_combine, 
    GL_EXT_texture_env_dot3, GL_EXT_texture_filter_anisotropic, 
    GL_EXT_texture_lod_bias, GL_EXT_texture_mirror_clamp, 
    GL_EXT_texture_object, GL_EXT_texture_rectangle, GL_EXT_vertex_array, 
    GL_APPLE_packed_pixels, GL_ATI_blend_equation_separate, 
    GL_ATI_texture_env_combine3, GL_ATI_texture_mirror_once, 
    GL_ATI_separate_stencil, GL_IBM_multimode_draw_arrays, 
    GL_IBM_rasterpos_clip, GL_IBM_texture_mirrored_repeat, 
    GL_INGR_blend_func_separate, GL_MESA_pack_invert, GL_MESA_ycbcr_texture, 
    GL_MESA_window_pos, GL_NV_blend_square, GL_NV_light_max_exponent, 
    GL_NV_texture_rectangle, GL_NV_texgen_reflection, GL_NV_vertex_program, 
    GL_OES_read_format, GL_SGI_color_matrix, GL_SGI_color_table, 
    GL_SGIS_generate_mipmap, GL_SGIS_texture_border_clamp, 
    GL_SGIS_texture_edge_clamp, GL_SGIS_texture_lod, GL_SUN_multi_draw_arrays

17 GLX Visuals
   visual  x  bf lv rg d st colorbuffer ax dp st accumbuffer  ms  cav
 id dep cl sp sz l  ci b ro  r  g  b  a bf th cl  r  g  b  a ns b eat
----------------------------------------------------------------------
0x21 16 tc  0 16  0 r  y  .  5  6  5  0  0 16  0  0  0  0  0  0 0 None
0x22 16 dc  0 16  0 r  y  .  5  6  5  0  0 16  0  0  0  0  0  0 0 None
0x7d 16 tc  0 16  0 r  .  .  5  6  5  0  0 16  0  0  0  0  0  0 0 None
0x7e 16 tc  0 16  0 r  .  .  5  6  5  0  0 16  0 16 16 16  0  0 0 Slow
0x7f 16 tc  0 16  0 r  y  .  5  6  5  0  0 16  0 16 16 16  0  0 0 Slow
0x80 16 tc  0 16  0 r  .  .  5  6  5  0  0 16  8  0  0  0  0  0 0 Slow
0x81 16 tc  0 16  0 r  .  .  5  6  5  0  0 16  8 16 16 16  0  0 0 Slow
0x82 16 tc  0 16  0 r  y  .  5  6  5  0  0 16  8  0  0  0  0  0 0 Slow
0x83 16 tc  0 16  0 r  y  .  5  6  5  0  0 16  8 16 16 16  0  0 0 Slow
0x84 16 dc  0 16  0 r  .  .  5  6  5  0  0 16  0  0  0  0  0  0 0 None
0x85 16 dc  0 16  0 r  .  .  5  6  5  0  0 16  0 16 16 16  0  0 0 Slow
0x86 16 dc  0 16  0 r  y  .  5  6  5  0  0 16  0 16 16 16  0  0 0 Slow
0x87 16 dc  0 16  0 r  .  .  5  6  5  0  0 16  8  0  0  0  0  0 0 Slow
0x88 16 dc  0 16  0 r  .  .  5  6  5  0  0 16  8 16 16 16  0  0 0 Slow
0x89 16 dc  0 16  0 r  y  .  5  6  5  0  0 16  8  0  0  0  0  0 0 Slow
0x8a 16 dc  0 16  0 r  y  .  5  6  5  0  0 16  8 16 16 16  0  0 0 Slow
0x68 32 tc  0 32  0 r  .  .  8  8  8  8  0 16  0  0  0  0  0  0 0 Ncon

20 GLXFBConfigs:
   visual  x  bf lv rg d st colorbuffer ax dp st accumbuffer  ms  cav
 id dep cl sp sz l  ci b ro  r  g  b  a bf th cl  r  g  b  a ns b eat
----------------------------------------------------------------------
0x69  0 tc  0 16  0 r  .  .  5  6  5  0  0 16  0  0  0  0  0  0 0 None
0x6a  0 tc  0 16  0 r  .  .  5  6  5  0  0 16  0 16 16 16  0  0 0 Slow
0x6b  0 tc  0 16  0 r  y  .  5  6  5  0  0 16  0  0  0  0  0  0 0 None
0x6c  0 tc  0 16  0 r  y  .  5  6  5  0  0 16  0 16 16 16  0  0 0 Slow
0x6d  0 tc  0 16  0 r  .  .  5  6  5  0  0 16  8  0  0  0  0  0 0 Slow
0x6e  0 tc  0 16  0 r  .  .  5  6  5  0  0 16  8 16 16 16  0  0 0 Slow
0x6f  0 tc  0 16  0 r  y  .  5  6  5  0  0 16  8  0  0  0  0  0 0 Slow
0x70  0 tc  0 16  0 r  y  .  5  6  5  0  0 16  8 16 16 16  0  0 0 Slow
0x71  0 tc  0 32  0 r  .  .  8  8  8  8  0 16  0  0  0  0  0  0 0 None
0x72  0 tc  0 32  0 r  .  .  8  8  8  8  0 16  0 16 16 16 16  0 0 Slow
0x73  0 dc  0 16  0 r  .  .  5  6  5  0  0 16  0  0  0  0  0  0 0 None
0x74  0 dc  0 16  0 r  .  .  5  6  5  0  0 16  0 16 16 16  0  0 0 Slow
0x75  0 dc  0 16  0 r  y  .  5  6  5  0  0 16  0  0  0  0  0  0 0 None
0x76  0 dc  0 16  0 r  y  .  5  6  5  0  0 16  0 16 16 16  0  0 0 Slow
0x77  0 dc  0 16  0 r  .  .  5  6  5  0  0 16  8  0  0  0  0  0 0 Slow
0x78  0 dc  0 16  0 r  .  .  5  6  5  0  0 16  8 16 16 16  0  0 0 Slow
0x79  0 dc  0 16  0 r  y  .  5  6  5  0  0 16  8  0  0  0  0  0 0 Slow
0x7a  0 dc  0 16  0 r  y  .  5  6  5  0  0 16  8 16 16 16  0  0 0 Slow
0x7b  0 dc  0 32  0 r  .  .  8  8  8  8  0 16  0  0  0  0  0  0 0 None
0x7c  0 dc  0 32  0 r  .  .  8  8  8  8  0 16  0 16 16 16 16  0 0 Slow

Extract mp3 audio from any video file, linux

2009-08-20T19:12:00.002+04:00

ffmpeg -i  -acodec mp3 -ab 128k -ac 2 -ar 44100

Coming soon

2009-07-16T22:58:00.003+04:00

Good news everyone!
I've decided make little experiment withl low cost simple load balancing.
From now it looks like making 3+ virtual machines, set one as main sql server and balancer, others for sql[replication+read only]/web servers + FastCGI, in perfect way.
I plan put here manual && virtualbox images.

CUrrent mood: 90's

2009-07-16T22:55:00.003+04:00

Just heared this theme on radio while going from training (haven't used radio about year or two) :)

Activestate perl ppm + proxy

2009-07-07T11:06:00.002+04:00

to use ppm command in proxy-required enviropment under Windows use this command:

set HTTP_proxy=http://proxy:3128

Good news everyone

2009-07-03T23:08:00.000+04:00

I've rewatched my Firefox extension list. I plan rewrite previous article in close future.

Mysql kill queryes by time (cron) and log actions.

2009-05-19T12:02:00.005+04:00

Good news everyone! I'm on air again :).

I need to log && kill long-running mysql queryes, but can't modify sql server settings.
Here is solution. You can log queryes or log && kill or just kill wth some small customisations:)



#!/usr/bin/perl
# Usage:
#   perl cron_kill_by_uptime.pl

########## Edit this parameters ##########
my $timelimit = 300; #in seconds
my $logfile = 'kill_by_uptime.log'; 
my $dateformat = '%d.%m.%Y %H:%M';
########## ==================== ##########

use strict;
use warnings;
use Date::Format;
use DBI;


$logfile = '/some/logpath/' . $logfile;

#DEFINE DB PASS && LOGIN HERE

my $dbh = undef;
eval { $dbh = DBI -> connect($DSNMASTER, $LOGINMASTER, $PASSWDMASTER, {RaiseError => 1, PrintError => 1}) };
die 'Cannot connect to database' unless $dbh;

my ($q, $res, $proc_uptime, $proc_user, $proc_command, 
    @kid, $kid, @log, $log, $logtime);
$q = qq~
    SHOW PROCESSLIST;
~;
    my $sth = $dbh -> prepare($q); $sth -> execute(); 
    while ($res = $sth->fetchrow_hashref()){ 
        $proc_uptime = $res -> {'Time'};
        $proc_user = $res -> {'User'};
        $proc_command = $res -> {'Command'};
        if($proc_uptime>$timelimit &&  $proc_user eq $LOGINMASTER && $proc_command eq 'Query'){
            push @kid, $res -> {'Id'};
            $logtime = time2str($dateformat, time);
            $log = $logtime . '|||' . 
             $res -> {'Id'} . '|||' . $res -> {'User'} . '|||' . 
             $res -> {'Host'} . '|||' . $res -> {'db'} . '|||' . 
             $res -> {'Command'} . '|||' . $res -> {'Time'} . '|||' . 
             $res -> {'State'} . '|||' . $res -> {'Info'} . '|||';
             $log =~ s/\n/\\n/g;
             $log =~ s/\r/\\r/g;
             push @log, $log;
        }
    }
    
    
        if(scalar @kid){
            foreach $kid (@kid) {
                $q = " KILL $kid ; ";
                $dbh -> do($q);
            }
        }
        else {
            $logtime = time2str($dateformat, time);
            $log = $logtime . '|||' . 'no zombie processes found';
            push @log, $log;
        }
        
        if(scalar @log){
            $log = "\n" . (join "\n", @log);
            open(L, ">>$logfile");
            print L $log;
            close (L);
        }
        
1;

American Pie :)

2009-05-02T01:51:00.003+04:00

[Matt Nathanson - Laid]

[American Hi-Fi - The Art Of Losing]

[Bic Runga - Sway]

Great motto:

2009-04-22T00:40:00.000+04:00

"In skills we trust".
Fits perfectly everywere.

Ha-ha, most fun seatbelt commercial :)))

2009-04-21T18:13:00.001+04:00

From here.

Good morning everyone :)

2009-04-18T11:26:00.000+04:00

[Cosmic Gate feat. Aruna - Under Your Spell]

Searcing for domain name

2009-04-15T20:24:00.002+04:00

Good news everyone!
From time to time we are registring domains. Oftenly domain name is alredy registred.
Here little script helps checl avaliabilyty of domain name variants [A-Z]domainname.zone [a-z]google.com, for example :).

perl -e 'chomp($a=<>);for(A..Z){print @{[`echo $_$a;whois $_$a`]};}'

This way my blog becomes music channel :)

2009-04-12T23:09:00.007+04:00

But no matter, I want create note for not forgetting one track from just rewatched "The Jackall" movie. Just 5.9 on IMDB, I don't get it, excellent movie!

Blowing theme:

[Agent Provocateur - Red Tape]

Welcome to old school :)

2009-04-08T23:19:00.005+04:00

But here are the TRACK. Welcome to old school :)

[dj hooligan - sueno futuro]

Friend, s3e15, music theme

2009-04-06T01:08:00.005+04:00

I'm now experienced enough to re-watch "Friends" and get full peasure of it. This is actually one of three serials I can pick as "favorite" (other two are InitialD and Dexter).
Here just now noted one such beutiful theme:

[U2 - Live - with or without you] [Friends s3e15]

Move files from UTF to other charset

2009-04-05T14:46:00.003+04:00

I've been asked for solution move one site from UTF8 to another charset:

Here it is (this solution require iconv), dummy but works :):


#!/usr/bin/perl
########################################################################
# Configuration:
my $dir='.';
my $charset='windows-1251';
$dir = $ARGV[0] if($ARGV[0]);
$charset = $ARGV[1] if($ARGV[1]);
########################################################################
# nothing interesting later:

use strict;
use warnings;

my @reqfiles = ();

sub get_file_tree($$;$){
   my $parentarr=$_[0];
   my $path=$_[1];
   my $extfilter=$_[2];
   opendir (PWD, $path);
   my @files = readdir(PWD);
   closedir (PWD);
   my $way;
   foreach my $file (@files){
       next if $file eq '.' or $file eq '..';
       $way=join('/', ($path, $file));
       if(-d $way){
           &get_file_tree($parentarr,$way,$extfilter);
       }
       else{
           if(!$extfilter || ($extfilter && (lc $extfilter) eq lc(pop @{[split('\.', $file)]}))){
               push @{$parentarr}, $way;
           }
       }
   }
}

get_file_tree(\@reqfiles, $dir, 'html');
get_file_tree(\@reqfiles, $dir, 'htm');
get_file_tree(\@reqfiles, $dir, 'php');
get_file_tree(\@reqfiles, $dir, 'js');

my($com, @com);
foreach my $file (@reqfiles){
    if($file){
        print $file."\n";
        $com = "iconv  -f utf-8 -t $charset<$file >$file.new;";
        @com=();
        @com=system($com);
        $com = " mv $file.new $file ";
        if(!defined($com[0])|| !length($com[0]) || !$com[0]){
            print @com=`$com`;
        }
        else{
            print "skip iconv\n";
            unlink("$file.new");
        }
    }
}

Hand job :)

2009-04-05T00:09:00.002+04:00

Just cleaned "my pleasure" 2yr old IBM T60 (+1G ram, +250Gb hdd).
What can I say? Minus twenty degrees is so much colder and noiseless!
But one note: buy 10g thermal compound to do that. 5g package is little not enough.

Movie of the day

2009-04-02T16:13:00.002+04:00

Kit Kittredge An American Girl

Nice movie about previous USA "Great Depression" crysis. 8/10, watchable.

>imdb<

Perl saves time. A lot!

2009-04-01T21:30:00.015+04:00

Today i meet the problem:
I have php4 file with lines:


   var $_AAA = 'string1';
   var $_BBB = 'multi
      line
      string2';
   var $_AAA = 'newstring1';

on my distro's php5 it's make warn: "can't redeclare someclass::$_AAA". Strings are repeated about 3+ tiimes and mixed. What should I do to get unique file.

Solution exist! It's perl! After few experements its looks like:


$ perl -e 'for (reverse <>){unshift @A, $_ if(!defined($h{${[/(var\s+\$_\w+)/]}[0]}) || !/var\s+\$_\w+/);$h{${[/(var\s+\$_\w+)/]}[0]}=1;}print @A;' <old.php >new.php

After these some simple cleaning job (after multilines) and ALL DONE!
Takes ~6-8min, really!

Python will kill me

2009-04-01T21:20:00.003+04:00

Every time I join via ','.join([list]), its blow my mind....

2009-03-17T11:31:00.003+03:00

Good news everyone!
Template Toolkit custom filters little note.

One of useful and low-documented part of TT is filters.
TT have some kind of standart filters, it's all described in documentation.

But what we need to do if we want custom filters?

Simple filter looks as pm module file with content like this:


#8<------------------------------------------------------
package XXXCMS::Template::Filter::killcrlf;
# {% COPYRIGHT %}

BEGIN {
  use Template::Plugin::Filter;
  use base qw(Template::Plugin::Filter);
}

sub filter {
  my ($self, $text) = @_;
  $text =~ s/[\r\n]/ /g;
  return $text;
} 

1;
#8<------------------------------------------------------

As we can see, this filter live in folder 'XXXCMS\Template\Filter' as file named 'killcrlf.pm'.
It delete carriage-returns it custom texts. Usage:

This how we add filter path to lookup enviropment:


#8<------------------------------------------------------
my $parser = Template -> new(
  {
    INCLUDE_PATH => [$TPL_ROOT,$HTML_ROOT],
    #CONSTANTS => { NU_PLUGIN => \&nu_plugin, },
    PLUGIN_BASE => 'XXXCMS::Template::Filter',
    #DEBUG => 'parser, provider',
    OUTPUT => \$page,
  }
);
#8<------------------------------------------------------

"PLUGIN_BASE => 'XXXCMS::Template::Filter'," is the part, which add filter folder for parsing

Now, how we can use this filter?
In tpl file we can use this directives:


#8<------------------------------------------------------
[% USE killcrlf #This enable filter for usage-%]
[% sometext=BLOCK #let's define multiline variable-%]
line
anotherline
someanotherline 
[% END -%]
[% sometext | $killcrlf %]
#8<------------------------------------------------------

Output: "line anotherline someanotherline "

As we can see, filter can be used as native, but it's name must be prefixed with '$'

Now let's do little more difficult filter, that format some float number for display: it can round number to custom symbol count after point and replace point with comma if it defined in user settings.
Major difference is in this filter - it have _params_.

After spending few time on lerning sources of TT I found some hint, which enable params input to input @_ of filter sub:
We need call "$Template::Plugin::Filter::DYNAMIC=1;" at BEGIN part of our filter.
After this, if we call our filter with hash as parameter - it will appear as HASH link in $_[3] input variable.
So we can call from template filter like this:


#8<------------------------------------------------------
[% USE roundnum -%]
[% '12.345678' | $roundnum{'lim'=>2} %]
#8<------------------------------------------------------

will give output "12,35" (I have my own setting to use comma as point - it's for excel)

Ok, now we saw params enabling, usage, lets take look on final filter sources:


#8<------------------------------------------------------
package XXXCMS::Template::Filter::roundnum;
# {% COPYRIGHT %}

BEGIN {
  use Template::Plugin::Filter;
  #for argumens enable
  $Template::Plugin::Filter::DYNAMIC=1;
  use base qw(Template::Plugin::Filter);
  use FindBin;
  use lib "$FindBin::Bin/../../..";
  use XXXCMS::Service qw/%SETTINGS/;
}

#call like [% t | $roundnum{'lim'=>'4'} %]
sub filter($$$$){
  my ($self, $object, %args) = ($_[0], $_[1], %{$_[3]});
  unless ($object =~ m/^-?\d+(\D\d+)?$/) {
    warn '***not_a_digit'; return 'not_a_digit';
  }
  $object =~ s/\D/\./;
  my $lim = ($args{'lim'} && $args{'lim'} =~ m/^\d+$/)? $args{'lim'}:2;
  my $div_sw = (defined($args{'dsw'}) && $args{'dsw'} eq 'off')? $args{'dsw'}:'on';
  my $out = sprintf "%.".$lim."f", $object || 0;
  if($div_sw ne 'off' && $lim > 0){
     $out =~ s/\./$SETTINGS{'divisor'}/e unless $SETTINGS{'divisor'} eq '.';
  }
  return $out;
} 

1;
#8<------------------------------------------------------

You can ignore this path, it's not matter here:


#8<------------------------------------------------------
  use FindBin;
  use lib "$FindBin::Bin/../../..";
  use XXXCMS::Service qw/%SETTINGS/;
#8<------------------------------------------------------

This filter first af all check if given input can be used as digit :)
Then move input to native float-format
Then check rounding limit, if it's not defined or defined badly - set round limit to "2"
Then it's do rounding.
After it use argument key "dsw" (divider switcher) to replace point with user-defined divisor or not and do return formatted variable.

More usage:
Return month name by it's number filter part


#8<------------------------------------------------------
[% curr_monthnum | $month2word{'first_uc'=>1} %]
#8<------------------------------------------------------
#some code
  if(defined $args{'first_uc'}){
      $month =~ s/^(\w)/uc($1)/e;
  }
#some code
8<------------------------------------------------------

(Not good example, because TT have filter "ucfirst", so we can use [% curr_monthnum | $month2word | ucfirst %], but it show "defined(%args{'key'})" usage as simple switcher)

Perl inarray function

2009-03-15T20:46:00.003+03:00

Good news everyone!
Now I put on the web little perl function, which help mess with arrays.
It has been upgraded about 3 times and now clever enough :).


sub inarray($$;$$) {
# return element position (_counts from "1"_), if value exsists
  my @arr = @{$_[0]};
  my $el = $_[1];
  my $caseignore = $_[2];
  my $trimvals = $_[3];
  my ($i, $j, @els);

      if(ref $el && ref $el eq 'SCALAR'){
           push @els, ${$el};
      }
      elsif(ref $el && ref $el eq 'ARRAY'){
           @els = @{$el};
      }
      elsif(ref $el){
          return 0;
      }
      else{
          push @els, $el;
      }

      if($caseignore){
        for($i=0; $i<@els; $i++) {
            $els[$i]=lc $els[$i] if $els[$i];
        }
      }
      
      if($trimvals){
        for(my $i=0; $i<@arr; $i++) {
            $arr[$i]=~s/^\s+|\s+$// if $arr[$i];
        }
      }
  
  unless($caseignore){
      foreach $el (@els){
        for(my $i=0; $i<@arr; $i++) {
            if($arr[$i] && $arr[$i] eq $el) {return $i+1;}
        }
      }
  }
  else{
      foreach $el (@els){
        for(my $i=0; $i<@arr; $i++) {
            if($arr[$i] && (lc $arr[$i]) eq $el) {return $i+1;}
        }
      }
  }
        
  return 0;
}; #-- sub inarray

#usage
$phone=&inarray(\@fields, ['phone', 'mobile phone', 'cell phone'], 1, 1);
$some=&inarray(['aa', 'bb', 'cc'], 'dd');

Continuing last topic:

2009-03-13T09:21:00.006+03:00

[Ayumi Hamasaki - Far Away (Rank 1 Remix)]

I have no relationship to the video content, but this is only one place where I found this song online :).
This is MOST wistful vocal trance song I know. Very rare and very beautiful.
Later I've listen other hits of Ayumi Hamasaki, but no one any close to this song. Original is also too "pop". How Rank 1 have seen _this emotions_ and make remix exactly as it is - I can't imagine. Really talanted and excelent work.
It's make me remebering about one book which I've read when just get that song:

ENG: Vyacheslav Mironov. Assault on Grozny Downtown
RUS: Вячеслав Миронов. Я был на этой войне (Чечня-95)

Народная мудрость :)

2009-03-12T10:22:00.002+03:00

Чтобы корова меньше ела и давала больше молока её надо меньше кормить и больше доить.

Javascript: move selected elements from one select to another

2009-03-11T11:56:00.004+03:00

Good news everyone!
Mootools solution:


//as method
Element.implement({
        //from, to - id's or objects
 moveSelected(to){
  from = this;
  if(to == undefined){return false;}
  if(typeof(to)=='string'){
   to=$(to);
  }
  if(to == null){return false;}
  if(typeof(to)!='object'){return false;}
  if (from.tagName.toLowerCase() != 'select'){return false;}
  if (to.tagName.toLowerCase() != 'select'){return false;}
  
  while (from.selectedIndex != -1) {
   var newpos = to.length;
   var fromval = from[from.selectedIndex].value;
   var fromtxt = from[from.selectedIndex].text;
   to[newpos]=new Option(fromtxt, fromval);
   from[from.selectedIndex]=null;
  }
  return false;
 }

});

//as function
//from, to - id's or objects
function moveSelected(from,to){
    if(from == undefined || to == undefined){return false;}
    if(typeof(from)=='string'){
        from=$(from);
    }
    if(typeof(to)=='string'){
        to=$(to);
    }
    if(from == null || to == null){return false;}
    if(typeof(to)!='object' || typeof(from)!='object'){return false;}
    if (from.tagName.toLowerCase() != 'select'){return false;}
    if (to.tagName.toLowerCase() != 'select'){return false;}
    
    while (from.selectedIndex != -1) {
        var newpos = to.length;
        var fromval = from[from.selectedIndex].value;
        var fromtxt = from[from.selectedIndex].text;
        to[newpos]=new Option(fromtxt, fromval);
        from[from.selectedIndex]=null;
    }
    return false;
}

Just memories...

2009-03-11T00:49:00.005+03:00

Omg, SO beutiful...
[ Above & Beyond - No One On Earth (Gabriel And Dresden Remix) ]

Index html files in directory

2009-03-09T16:08:00.005+03:00

Good news everyone!
Oftenly I save many texts for later reading.
From time to time file names are abslutly unreadable - 'viewtopic.php.html', '123.htm', etc.
I wrote little script to create index file contains linked titles of local html files.
usage: `% idxhtml /path/to/dir` from command line. If no arguments given, current category will used ('.').

you should install HTML::TagParser module before;

script:


#!/usr/bin/perl
########################################################################
# Configuration:
my $dir='.';
my $idxfile='idxhtml.html';
$dir = $ARGV[0] if($ARGV[0]);
$idxfile = $ARGV[1] if($ARGV[1]);
########################################################################
# nothing interesting later:

use strict;
use warnings;


#IF non-latin content, better set to your locale
#http://perldoc.perl.org/perllocale.html#The-setlocale-function
#use locale;
#use POSIX qw(locale_h);
#setlocale(LC_CTYPE, "Russian_Russia.1251");

my @reqfiles = ();

sub get_file_tree($$;$){
   my $parentarr=$_[0];
   my $path=$_[1];
   my $extfilter=$_[2];
   opendir (PWD, $path);
   my @files = readdir(PWD);
   closedir (PWD);
   my $way;
   foreach my $file (@files){
       next if $file eq '.' or $file eq '..';
       $way=join('/', ($path, $file));
       if(-d $way){
           &get_file_tree($parentarr,$way,$extfilter);
       }
       else{
           if(!$extfilter || ($extfilter && (lc $extfilter) eq lc(pop @{[split('\.', $file)]}))){
               push @{$parentarr}, $way;
           }
       }
   }
}

get_file_tree(\@reqfiles, $dir, 'html');
get_file_tree(\@reqfiles, $dir, 'htm');

use HTML::TagParser;

my %titles;
my ($html, $title, $cnt, @TF);
$cnt=0;
$html = HTML::TagParser->new();

foreach my $file (@reqfiles){
       $cnt++;
       if($file){
           open(TF, $file);
               @TF=<TF>;
           close TF;
           $title = join '', @TF;
           next if $title !~ /<title>/;
          
           $html->open($file);
           $title = $html->getElementsByTagName("title");
           if($title){
               $title = $title->innerText();
           }
           else{
               $title = $file;
           }
           $titles{$title.' '.$cnt} = $file;
       }
}

return unless scalar (keys %titles);

open(IDXFILE, ">$idxfile");
print IDXFILE qq~
   <html>
       <head>
           <meta content='text/html; charset=UTF-8' http-equiv='Content-Type'/>
           <title>idxhtml</title>
       </head>
       <body>
~;

foreach my $el (sort(keys %titles)){
   $title = $el;
   $html = $titles{$el};
   print IDXFILE qq~<a href="$html">$title</a><br />~;
}

print IDXFILE qq~
       </body>
   </html>
~;
close (IDXFILE);

save to PATH, chmod, use

Javascript: check/uncheck 'checkbox' group

2009-03-08T21:10:00.009+03:00

Good news everyone!
The problem: we need select group ofcheckboxes at once (for example, by clicking on checkbox "check all"):

Solution with mootools:
It's simple - after we assign each checkbox element custom class, for example "grpsw":

<script language="JavaScript" type="text/javascript">
function mass_sw(){
   var chk_status=$('mass_sw').checked;
       $$('input.grpsw').each(function(chel){
           chel.checked=chk_status;
       });
   return false;
}
</script>
<input type="checkbox" id="mass_sw" name="mass_sw" value="1" onClick="javascript:mass_sw();"><label for="swopt_1">checkall</label><br />
<br />
<input type="checkbox" name="swopt_1" id="swopt_1" class="grpsw" value="1"><label for="mass_sw">1</label><br />
<input type="checkbox" name="swopt_2" id="swopt_2" class="grpsw" value="1"><label for="swopt_2">2</label><br />
<input type="checkbox" name="swopt_3" id="swopt_3" class="grpsw" value="1"><label for="swopt_3">3</label>

I've watched movie "Taken"

2009-03-08T20:42:00.005+03:00

Good news everyone!
I haven't saw so lot of acton since Bourne series.
Perfect english language, perfect, correctly and realistic plot, Liam Neeson burns!
Exelent movie.
imdb: "Taken"

Javascript: selecting text blocks

2009-03-06T19:53:00.002+03:00

Good news everyone!
The problem: we need select block of text in some text inputs:

Solution:


//Select range text @ inputs (text, textarea), complete by default
function rangeSelect (id, start, len) {
  if (typeof(id) == 'object'){id=id.id;}
  if ($(id) == null){return false;}
  $(id).focus();
  if (!(parseInt(start))){start = 0;}
  if (!(parseInt(len))){end = $(id).value.length;}
  else {end = parseInt(start)+parseInt(len);}
  if ($(id).createTextRange) {
      var oRange = $(id).createTextRange();
      oRange.moveStart("character", start);
      oRange.moveEnd("character", end);
      oRange.select();
      return true;
  } else if ($(id).setSelectionRange) {
      $(id).setSelectionRange(start, end);
      return true;
  }
  return false;
}

Mootools solution:


Element.implement({

  //Select range text @ inputs (text, textarea), complete by default
  rangeSelect: function(start, len) {
  if (this.tagName.toLowerCase() != 'input' && this.tagName.toLowerCase() != 'textarea'){return false;}
      this.focus();
      if (!(parseInt(start))){start = 0;}
      if (!(parseInt(len))){end = this.value.length;}
      else {end = parseInt(start)+parseInt(len);}
          if (this.createTextRange) {
              var oRange = this.createTextRange();
              oRange.moveStart("character", start);
              oRange.moveEnd("character", end);
              oRange.select();
              return true;
          } else if (this.setSelectionRange) {
              this.setSelectionRange(start, end);
              return true;
          }
  return false;
  }

});

Firefox setup for web developer (v 1.2)

2009-03-05T21:48:00.032+03:00

Good news everyone!
This is Mozilla Firefox browser customization for everyday web developing usage.
As I view, browser should be: functional && fast && light && very compact and usable.

Now my firefox looks like this:

Modules (extensions) I use:

WebDev modules:

adverstment blocking:
adverstment takes traffic, place on HDD, and use some processor speed.
I use two modules against banners:

usability:

Autofill Forms (integrates with SecureLogin)
AutoSaveText
Blank Your Monitor + Easy Reading (9)
Fast Dial
ImageTweak
ImgLikeOpera (10)
oldbar (11)
Resizeable Textarea
Secure Login
Tab Mix Plus (12)
Tiny Menu (13)
Toolbar Buttons (14)
Work Offline (15)
CheckBoxMate
AutoPager
LastPass

system:

useful:

Deepmemo (17)
ReadItLaterList
Forecastfox (18)
Gmail Manager (19) (turned off)
Google Reader Watcher (20) (turned off)
TrackMeNot
UrlCorrector
Download YouTube Videos in HD and MP (off - conflicts with flashblock now)
Fast Video Download (off - externalsite)
Video DownloadHelper

Here is the used buttons map:

Confiuration:
1) Fasterfox - set option to "fast"
2) type url about:config

showAlertOnComplete = false (disable notification of downloads complete)
sessionhistory.max_total_viewers = 0 (no store rendered pages @ memory for back button)
config.trim_on_minimize = false (do not go to swap on minimize)
browser.ssl_override_behavior change the value from ‘1’ to ‘2’
or (!): Instead of disabling the notice all together, you can left warning displayed: browser.xul.error_pages.expert_bad_cert = true

Set accessibility.typeaheadfind.enablesound = false to disable BEEP sound while find action if no match (awful wth earphones)

PPS: Since it's become huge and slow i recommend use 2 profiles - light with everyday plugins and webdev, with complete mods. Auth info should be synced over LastPass.

Beutiful track

2009-03-03T21:10:00.003+03:00

Good news everyone!
Nice carefree vocal trance track :):

[ William Hawk - Say goodbye ]

2009-03-01T23:38:00.000+03:00

Good news everyone!
//For russian-speaking visitors.
Наткнулся на картинку. Улыбнуло :)

Introduction

2009-02-28T20:38:00.000+03:00

Good news everyone!
Blog now is open.
I'll try catch two goals here:
make some english language practice
and collect some ideas/experience hard to find && simple to forget :)
and, of course, I'll glad to discuss every materiall appear on this site.

Blog languages are: English and Russian.
Topics I plan touch:

Fun tips
JavaScript (mootools)
Life
Linux (Debian)
Mapping (Google / Yandex maps)
Movies
Music
Perl(template toolkit)
Project Management
Python(Django)
Sport
SQL(MySQL)
Team Building