Паксоблог

Мои скрипты: translit.py

2006-11-03T14:10:00.000+02:00


"Russian Translit"
# -*- coding: cp866 -*-
#dron@amerigo 200611031405

from string import maketrans

def translit(s):
   "Russian translit: converts 'привет'->'privet'"
   assert s is not str, "Error: argument MUST be string"

   table1 = maketrans("абвгдеёзийклмнопрстуфхъыьэАБВГДЕЁЗИЙКЛМНОПРСТУФХЪЫЬЭ",       "abvgdeezijklmnoprstufh'y'eABVGDEEZIJKLMNOPRSTUFH'Y'E")
   table2 = {'ж':'zh','ц':'ts','ч':'ch','ш':'sh','щ':'sch','ю':'ju','я':'ja',       'Ж':'Zh','Ц':'Ts','Ч':'Ch','

   for k in table2.keys():
       s = s.replace(k,table2[k])

   return s.translate(table1)

if __name__=="__main__":
   print translit("Привет питон. Что транслитерировать-то, я чёт не понял!")

Результат работы:


C:\home\dron\work\python>translit.py
Privet piton. Chto transliterirovat'-to, ja chet ne ponjal!

То же самое, но на perl(источник):


sub translit
{
  my $text = shift;
  $text =~ y/абвгдеёзийклмнопрстуфхъыьэ/abvgdeezijklmnoprstufh'y'e/;
  $text =~ y/АБВГДЕЁЗИЙКЛМНОПРСТУФХЪЫЬЭ/ABVGDEEZIJKLMNOPRSTUFH'Y'E/;
  my %mchars = ('ж'=>'zh','ц'=>'ts','ч'=>'ch','ш'=>'sh','щ'=>'sch',
     'ю'=>'ju','я'=>'ja', 'Ж'=>'Zh','Ц'=>'Ts','Ч'=>'Ch','
     'Щ'=>'Sch','Ю'=>'Ju','Я'=>'Ja');
  for my $c (keys %mchars) {
      $text =~ s/$c/$mchars{$c}/g;
  }
  return $text;
}

Technorati Tags: мои+скрипты, python, translit, perl

Афоризм

2006-09-01T10:50:00.000+03:00

xekc: Остановите землю, я посплю

100% проектов, которые вы не начали - провалились.
100% идей, которые вы не высказали - лажа.
100% того, что находится только в вашей голове - никчемно, ничего не стоит.

Даже 1% одобрения это уже победа. Потому что иначе ноль.

Красиво сказано.

t.y.p.o.r.g.a.n.i.s.m : ASCII-O-Matic

2006-08-09T21:44:00.000+03:00

Typorganism - занимательное flash-приложение, которое генерирует ASCII-представление изображения. Можно "аплоадить" свои изображения, но есть ограничение на размер - 60x50 px, есть экспорт в HTML, что весьма удобно.
Получается очень красиво, вот что на мое фото выдало:

Technorati Tags: красиво, flash, ascii

Javascript: тест скорости в броузерах

2006-08-05T12:54:00.000+03:00

Sean Patrick опубликовал занимательный материал под названием "Javascript Speed Tests"
А вот результаты "прогона" тестов на мей рабочей машине(athlon64 3000+, 1Gb):

Результаты, признаться, удивили. Вопервых - Opera почти в 4 раза шустрее огнелиса.
Во-вторых - Maxthon в 2 раза быстрее MSIE. Как такое может случиться, если он на движке MSIE, очень странно...

Technorati Tags: javascript, benchmark, tests

Мои скрипты: mailman_debounce.py

2006-08-02T15:19:00.000+03:00

Из предыдущего поста можно выявить, что 1084(35%) подписчиков не получают рассылки, ситуацию исправит следующий сценарий:


#!/usr/bin/env python
"""mailman tools: Unlocks ALL bounced users"""
#mailman_debounce.py
#dron@amerigo 200608021443
#rev. 0.2

import sys
MM_HOME = "/usr/local/mailman"
sys.path.append(MM_HOME + "/scripts") #paths.py
import paths

from Mailman import MailList
from Mailman import MemberAdaptor

ml_name = 'spo' #change or sys.argv[1]

ml = MailList.MailList(name=ml_name, lock=1)
lockedlm = [m for m in ml.members.keys()    if ml.getDeliveryStatus(m) == MemberAdaptor.BYBOUNCE]

print "Bounced users found: %d" % len(lockedlm)
for lm in lockedlm:
   ml.setDeliveryStatus(lm,MemberAdaptor.ENABLED)

ml.Save() #don't forget
ml.Unlock()

lockedlm = [m for m in ml.members.keys()  if ml.getDeliveryStatus(m) == MemberAdaptor.BYBOUNCE]

print "Bounced users found: %d, total: %d, disabled: %d" %  (len(lockedlm), len(ml.members.keys()), 
 len([m for m in ml.members.keys()     if ml.getDeliveryStatus(m) != MemberAdaptor.ENABLED]))

Результат исполнения:


$ chmod +x mailman_debounce.py
$ ./mailman_debounce.py
Bounced users found: 1084
Bounced users found: 0, total: 3090, disabled: 0

Technorati Tags: мои+скрипты, python, mailman

Новые соцсервисы по-русски

2006-08-02T12:12:00.000+03:00

Зарегистрировался сегодня на блогусе. На данный момент 10 человек классифицировали этот интересный сервис [ 5*blogs 4*rating 4*search 3*blog 3*russian]. Трудно не заметить что начался бум социальных сервисов. Пару дней назад, благодаря блогу Ивана Сагалаева, узнал о другом новостном социальном сервисе. Его уже 48 человек протегировало: [30*news 23*web2.0 16*blog 12*russian 11*ajax 11*новости 7*digg 4*social 3*computers 3*internet 2*blogs 2*rss 2*ru 2*technology 2*web 2*каталог 2*ссылки]
Заметим, что они русскоязычные, а это не может не радовать. Самая очевидная ценность таких сервисов - быстро находить ПОПУЛЯРНОЕ, а-ля del.icio.us. К примеру - del.icio.us/popular/web2.0, и мы даже видим "смежные популярности" - можно это даже сравнить с интерпретацией соотв. термина (web2.0 - is):


ajax
tools
web
blog
social
design
webdesign
community
technology
javascript
rss

В первом случае в поп(точнее в топ) попал Журнал Другого. А действительно классный фотоблог, фото отменные.

Вот, странно, что во втором случае топа нет, есть рекомендованные участниками новости.

Свободное тэгирование (free tagging) - суть фолксономии является различительной чертой соцсервисов.
Будем следить за развитием.
Закладки по теме.

Technorati Tags: social, по-русски, интересные+блоги

Far: plugin-ы, проверенные временем

2006-08-01T00:38:00.000+03:00

Когда я начинал работать в порту(на момент 31.08.03) список плагинов far'а был следующим:


bc                    │Background copy (v1.0 build 50 release).              
Branch14              │Branch(Ветвь каталога)                                
Calc                  │FAR Manager Calculator v3.0                           
ClpSelect             │Select-From-Clipboard Plugin                          
colorer-take5.beta1a  │syntax  highlighting  and text parsing library        
Compare               │Advanced compare                                      
DescSelect11          │Description Search/Select                             
Dirhotlist10          │Directory Hotlist                                     
Editor                │Editor Plugins                                        
EMenu                 │Explorer Context Menu                                 
esc19                 │[ESC] Editor's settings changer 1.9                   
FARCmds               │FAR Commands                                          
FarDocBrowser101      │Browsing, viewing and changing contents of compound fil
FarEnv102             │Switching between different environment profiles      
FarMail30b5           │SMTP/POP3/IMAP4 клиент. Форматы сообщений: текст, HTML,
farnav18r5            │Far Navigator (ProxyFtp) plugin                       
farreg215             │Registry Browser Plugin for FAR                       
FarSvc21              │Service Manager                                       
FileCase              │File names case conversion                            
Frb100b5              │allows to work with resources in .exe and .dll files. F
Help150               │*.CHM Help                                            
HlfViewer             │HLF-file Viewer                                       
hyperview11r7         │Этот плагин позволяет просматривать html-файлы,текст пр
ICache05              │MSIE cache browser v1.05                              
InstExpl01            │InstallExplorer Ver 0.1                               
lookdbf               │DBF-files view, change and export                     
MacroView21_rc9       │Manipulating FAR macro commands v2.1                  
MailView10b2          │MailView 1.0 beta 2 plugin                            
mrrip0_15_23_24b      │Плагин для выдирания различных файлов из недр других фа
MultiArc              │Archive support plugin                                
NamedFolders148       │Named Folders                                         
Network               │Network browser plugin                                
PEditor04             │Редактор PE файлов                                    
PrintMan              │Print manager                                         
ProcList              │Process list                                          
ShLnk121              │Shell file and folder link support                    
SpecialFld            │Special Folders                                       
StaMgr11a             │Startup Manager 1.1a                                  
TextNavigate          │Text Navigator plugin for FAR 1.70b4+                 
TmpPanel              │Temporary panel                                       
trtpl119              │True Template                                         
Uinst13               │FarUInst 1.3 beta                                     
UWizard09             │Unicode Wizard (version 0.9)                          
WEB                   │WEB Editor 1.002 (BeNuts)                             
WLL_V101              │WindowsList  v.1.01

Сейчас(на момент 01.08.07) он сузился:


7z                    │4.32 7-Zip Plugin for FAR Manager
ActiveHelp            │3.01 for  opening  windows  help files
bc                    │1.2b54 view/edit/copy/move/delete/run with Unicode supp
ClipSel               │1.1 Select-From-Clipboard
Colorer               │Colorer-take5 Library beta4. $Date: 2005/04/28 14:18:08
Compare               │Advanced compare
DescSS                │1.1 Description Search & Select
Editor                │Editor Plugins
EMenu                 │Explorer Context Menu
Esc                   │2.3 Editor's settings changer
FARCmds               │FAR Commands
FarNav                │1.9.r2 ProxyKit for FAR manager
FarReg                │2.19 Registry Browser Plugin for FAR
FarSvc                │2.1 Service Manager
FileCase              │File names case conversion
FTP                   │FTP client
HlfViewer             │HLF-file Viewer
HyperView             │1.1.r7 view html files in internal editor
MacroView             │2.4.rc1
MailView              │1.0b7
MultiArc              │Archive support plugin
NamedFolders          │1.4.8 fast access to local, net and virtual  directorie
Network               │Network browser plugin
PEditor               │0.4 PE(Portable Executable) Editor
PrintMan              │Print manager
ProcList              │Process list
Resource              │1.0b5 Resource Browser
TextNavigate          │0.1 Text Navigator plugin for FAR 1.70b4+
TmpPanel              │Temporary panel
TrueTemplate          │1.28 True Template
Uninstall             │1.09 Удаление программ
UWizard               │1.6 Unicode Wizard
WebEd                 │1.002 WEB Editor (BeNuts)
WinScp                │1.4.2 WinSCP as FAR Plugin
WL                    │1.01 WindowsList

три года прошло, и что сменилось? Остались самые "проверенные".

Technorati Tags: far, plugins, мои+сборки

Мои скрипты: renbycue.py

2006-07-31T13:20:00.000+03:00

Разрежем большой MP3, протегируем малые по CUE-файлу.
Скачал я альбом с помощью осла - VA_-_Safi_Connection_The_Remixes
А он весь одним большим mp3 (118Mb), решил порезать, благо прилагался cue-файл следующего содержания:


PERFORMER "VA"
TITLE "Safi Connection The Remixes"
FILE "01-va_-_safi_connection_the_remixes-upe.mp3" MP3
TRACK 01 AUDIO
TITLE "Hello Houston Spiritual Enhancer Rmx"
PERFORMER "Safi Connection"
FLAGS DCP
INDEX 01 00:00:00

...

TRACK 10 AUDIO
TITLE "Fullon String Elec 3 Rmx"
PERFORMER "Safi Connection"
FLAGS DCP
INDEX 00 67:05:01
INDEX 01 67:07:01

Дядька Curt сказал что нарезает в WaveLab , я и последовал его рекомендации. Нашел этот инструмент на Wzor'е и у китайцев.
Для упрощения "нарезки", написал следующий сценарий на python:


"cue info - print info from *.cue"

#cuei.py
#rev. 0.2
#dron@amerigo 200607311244

import sys
from datetime import timedelta
from ID3 import *

all = open(sys.argv[1]).read()
tracks = [el.split("\n") for el in all.split("TRACK")]
label =  tracks[0][0].replace("PERFORMER","").strip()[1:-1]
album = tracks[0][1].replace("TITLE","").strip()[1:-1]

starts = []
tracklist = []

for i in range(1, len(tracks)):
title = tracks[i][1].replace("TITLE","").strip()[1:-1]
artist =  tracks[i][2].replace("PERFORMER","").strip()[1:-1]
if tracks[i][3].strip().startswith("FLAGS"):
    startfrom = tracks[i][4].strip()[-8:]
else:
    startfrom = tracks[i][3].strip()[-8:]

(h,m,s) =  startfrom.split(":")
t = timedelta(
        hours=int(h),
        minutes=int(m),
        seconds=int(s))

starts.append(t)
tracklist.append("%d: %s - %s, from: %s," %
                    (i, artist, title, startfrom))

lengths = []
for i in range(len(starts)-1, 0, -1):
lengths.append(str(starts[i] - starts[i-1]))

lengths.reverse()
lengths.append("??:??:??")

for i in range(0, len(tracklist)):
print tracklist[i], lengths[i]

Он парсит *.cue и вычисляет длину треков(длины часто не совпадают с заявленными в cue).
Вот его результат его работы:


C:\mp3>python cuei.py 01-va_-_safi_connection_the_remixes-upe.cue
1: Safi Connection - Hello Houston Spiritual Enhancer Rmx, from: 00:00:00, 7:09:
2: Elec 3 feat. Anna K. - Define Yourself Safi Connection Rmx, from: 07:09:48, 7
3: Safi Connection And Saly D - Humna Lights Smhug Rmx, from: 14:17:37, 8:25:12
4: Smhug - Decode Safi Connection Rmx, from: 22:42:49, 7:25:15
5: Safi Connection - Solaric Seeds Life Style Rmx, from: 30:07:64, 6:53:39
6: Safi Connection - Froze Uriya Rmx, from: 37:01:43, 7:01:11
7: Safi Connection - Tarazan And JD-J Burn In Noise Rmx, from: 44:02:54, 7:12:10
8: Lemurians - Systematic Waves Safi Connection Rmx, from: 51:15:04, 7:03:18
9: Safi Connection - Figga Nigga Parrket Rmx, from: 58:18:22, 8:46:39
10: Safi Connection - Fullon String Elec 3 Rmx, from: 67:05:01, ??:??:??

Далее "нарезал" 10 mp3-файлов, сохраняя каждый под его порядковым номером:

А вот скрипт, который все переименует и расставит mp3-тэги(точнее id3-тэги):


"Renames and tags \d+.mp3 in './' by cue-file"

#renbycue.py
#rev. 0.3
#dron@amerigo 200607311241

import os, sys
from ID3 import *

all = open(sys.argv[1]).read()
tracks = [el.split("\n") for el in all.split("TRACK")]


perf =  tracks[0][0].replace("PERFORMER","").strip()[1:-1]
album = tracks[0][1].replace("TITLE","").strip()[1:-1]


print album,  perf

for i in range(1, len(tracks)):
title = tracks[i][1].replace("TITLE","").strip()[1:-1]
artist =  tracks[i][2].replace("PERFORMER","").strip()[1:-1]

if tracks[i][3].strip().startswith("FLAGS"): #pass FLAGS
    startfrom = tracks[i][4].strip()[-8:]
else:
    startfrom = tracks[i][3].strip()[-8:]

print "%s - %s, %s" % (artist, title, startfrom)
mp3 = "%d.mp3" % i
try:
    id3 = ID3(mp3)
    id3.title = title
    id3.artist = artist
    id3.genre = id3.find_genre("psychadelic")
    id3.track = i
    id3.year = "2006"
    id3.comment = "renbycue03.py"
    id3.album = perf + " " + album

    print id3

except InvalidTagError, message:
    print "Invalid ID3 tag:", message

id3.write()
id3.file.close()
os.rename(mp3,"%02d-%s-%s.mp3" % (i, artist, title))

Использовал готовую библиотеку id3-py.
Запустим на выполнение сценарий:


C:\mp3>python renbycue.py 01-va_-_safi_connection_the_remixes-upe.cue
Album  : VA Safi Connection The Remixes  Track : 6  Year: 2006
Comment: renbycue03.py                   Genre : Psychadelic (67)
Safi Connection - Tarazan And JD-J Burn In Noise Rmx, 44:02:54
File   : 7.mp3
Title  : Tarazan And JD-J Burn In Noise  Artist: Safi Connection
Album  : VA Safi Connection The Remixes  Track : 7  Year: 2006
Comment: renbycue03.py                   Genre : Psychadelic (67)
Lemurians - Systematic Waves Safi Connection Rmx, 51:15:04
File   : 8.mp3
Title  : Systematic Waves Safi Connecti  Artist: Lemurians
Album  : VA Safi Connection The Remixes  Track : 8  Year: 2006
Comment: renbycue03.py                   Genre : Psychadelic (67)
Safi Connection - Figga Nigga Parrket Rmx, 58:18:22
File   : 9.mp3
Title  : Figga Nigga Parrket Rmx         Artist: Safi Connection
Album  : VA Safi Connection The Remixes  Track : 9  Year: 2006
Comment: renbycue03.py                   Genre : Psychadelic (67)
Safi Connection - Fullon String Elec 3 Rmx, 67:05:01
File   : 10.mp3
Title  : Fullon String Elec 3 Rmx        Artist: Safi Connection
Album  : VA Safi Connection The Remixes  Track : 10  Year: 2006
Comment: renbycue03.py                   Genre : Psychadelic (67)

В исходной папке вырисовывается следующее:

Проверим наличие id3-тэгов с помощью winamp(Alt+3):

Мои закладки по теме тут.

Technorati Tags: python, mp3, cue, music, edit, мои+скрипты

Монтируем iso-шки (Alcohol 120%)

2006-07-31T11:51:00.000+03:00

У лучшего менеджера виртуальных дисков Alcohol 120%, который всегда можно скачать бесплатно у китайцев. Есть замечательная утилита командной строки axcmd.exe("C:\Program Files\Alcohol Soft\Alcohol 120\AxCmd.exe").


axcmd.exe /?
- покажет нам возможные аргументы.

Это дает возможность "прикрутить" его к пользовательскому меню Far(F2), дабы упростить(ускорить) монтирование образов дисков:

Пример использования - становимся на образ и жмем [F2, m]:

Можно имортировать мою веточку реестра:


REGEDIT4
;far_alco120_mount_menu.reg
;dron@amerigo 200607311137

[HKEY_CURRENT_USER\Software\Far\UserMenu\MainMenu\Item3]
;change Item3 to ItemXX
"HotKey"="m"
"Label"="Mount with Alcohol !.!"
"Submenu"=dword:00000000
"Command0"="\"%programfiles%\\Alcohol Soft
\\Alcohol 120\\AxCmd.exe\" 1: /M:!.!"

Technorati Tags: far, menu, mount, iso, alcohol120

getRelativeTime() на русском

2006-07-30T18:13:00.000+03:00

Pythy о Python » Блог Архив » getRelativeTime() на русском

Эхия Чеботар написал getRelativeTime(), функцию для отображения относительной даты текстом, а я адаптировал эту функцию к русскому языку.

Да это просто супер:


 />>> from russianRelativeDates import *
 />>> import time
 />>> def a(x, *args, **kwargs):
... print getRelativeTime(x, *args, **kwargs).encode('utf-8')
...
 />>> def b(x, *args, **kwargs):
... print getRelativeTimeStr(x, *args, **kwargs).encode('utf-8')
...
 />>> x = time.time() - 1000
 />>> a(x)
17 минут назад
 />>> x -= 12345
 />>> a(x)
3 часа назад
 />>> x += 543211
 />>> a(x)
через 6 дней
 />>> a(x, accuracy=2)
через 6 дней 3 часа
 />>> b("07/20/06 1823")
через 3 дня
 />>> b("07/10/06 1823")
6 дней назад
 />>> b("07/10/06 1823", accuracy=2)
6 дней 4 часа назад
 />>> b("07/15/06 1823")
вчера

Наиболее вероятное применение, для отображения даты постов, и комментариев.

Technorati Tags: python, date, time, library, интересные+блоги

Subversion Proxy

2006-07-30T17:48:00.000+03:00

Чтобы svn.exe в windows "ходил" через proxy, импортировал следующий reg-файл:


REGEDIT4

[HKEY_LOCAL_MACHINE\Software\Tigris.org\Subversion\Servers\global]
"http-proxy-host"="127.0.0.1"
"http-proxy-port"="8192"
"http-compression"="yes"

Прочитал в документации, идущей в комплекте.
Проверил - работает!

Technorati Tags: subversion, registry, windows, proxy

Мои скрипты: reget.js

2006-07-27T15:25:00.000+03:00


//reget.js
//dron@amerigo 200607271503
//description: adds url to RegetDx query
//rev 0.1
var oArgs = WScript.Arguments
switch(oArgs.Count()) {
  case 1: reget(oArgs(0)); break
  case 2: reget(oArgs(0), oArgs(1)); break
  case 3: reget(oArgs(0), oArgs(1), oArgs(2)); break
  case 0:
  default:
    WScript.Echo("Usage:\r\nreget <URL> [Description] [StartNow]")
}


function reget(url, descr, start) {
  if(!/tp:\/\/.{5}/.test(url)) {
    WScript.Echo("Bad URL: " + url)
    return false
  }
  var oReget = WScript.CreateObject("ReGetDx.ReGet2Api") //As New ReGet2Api
  var oRD = oReget.AddDownload(url) //As ReGet2Download
  if(descr) oRD.String(12) = descr //tagPROPERTY_ID.PID_sInfo = 12
  if(start) oRD.StartDownload()

return true
}

Свойства и методы "вычислил" в VBA(F2):

Название объекта(ProgID) подсмотрел в реестре:

Если, положить reget.js в папочку, что в $PATH, то из командной строки использовать можно так:


c:\>reget.js URL ["Описание"] [startnow]
например:
c:\>reget.js ftp://ftp.elf.stuba.sk/pub/pc/pack/uharc06b.zip

Можно(а для этого и было написано), в командных файлах использовать:


::using_reget.cmd
::dron@amerigo 200607271545
:: describes using of reget.js script
@echo off
::adding urls from file,
::with datetime as description
::and starting download
for /f %%u in ('type urllist.txt') do (
reget.js %%u "Added at %DATE% %TIME%" startnow
)
::download warez from wzor.net
::Abstract wzor-page has some like that:
::DownLoad ... [1],[2],[3],[4],[5],[6],[7]
::if 1st link like this:
::http://koshak.wzor.net:8108/0406/MD5/audition15p1.zip
::we have  7 parts,  so:
for /l %%p in (1,1,7) do (
echo Adding part #%%p...
reget.js "http://koshak.wzor.net:8108/0406/MD5/audition15p%%p.zip"
)
::note,  that in cmdline we are using ONE '%' on var, so:
::c:\>for /l %p in (1,1,7) do reget.js "http://URL/part/%p.zip"

А почему именно Reget?
Reget поддерживает такую фичу как обновление описаний файлов(жить без нее не могу), что очень удобно(и красиво интегрируется с Far-ом), да и с огнелисом он быстро интегрируется с помощью расширения с названием FlashGot.

Вскоре опишу Reget + PowerShell...

Technorati Tags: мои скрипты, wsh, jscript, reget, com, automation, commandline, far, scripting

Cannabola

2006-07-27T13:21:00.000+03:00

Сегодня дядька Curt прислал по аське ссылочку занимательную, впечатлило...
Arbuz -> Каннабола

У меня одногрупник курсовую защищал. И он использовал Каннаболу в своей работе. Было очень интересно смотреть на её график, спроецированный проектором на стену в присутствии умных дядечек. Заголовок над графиком гласил: "Проверим полученные результаты на Каннаболе. График этой функции показан на рисунке."

Все началось отсюда:

supman и biojane вывели математическую формулу конопляного листа: R = (1+sin(t)) (1+.9cos(8t)) (1+.1cos(24t)) график функции в полярных координатах выглядит следующим образом:

Какой же фуррор призвел этот пост, сколько любителей математики нашлось и высказалось по поводу.
Интересное мнение высказано тут.
Мне очень нравится.

Technorati Tags: cannabola, прикольно, математика, math, красиво

Г.И.Гурджиев: Последний час жизни

2006-07-26T23:16:00.000+03:00

Представьте, что вам осталось жить всего лишь несколько минут, может быть, час, и каким-то образом вы точно узнали, когда вам суждено умереть. Что бы вы сделали с последним драгоценным часом своего пребывания на земле?

Если бы вы смогли завершить все свои дела за этот последний час, есть ли у вас сознание того, как это сделать?

И испуская последний вздох, будете ли вы испытывать удовлетворение от того, что вы сделали в своей жизни все возможное для выполнения своих обязательств перед природой и своим "Я"?

Важен не только сам последний час, важны и последние впечатления. "Последние впечатления" создают переход для будущих проявлений, если такие будут иметь место. Освобождение от низших гармоний ничего не дает, так как в конце концов все забывается, и тебя снова возвращают в этот мир. Забывается даже то, что ты хотел освобождения, чтобы стать Буддой.

В реальном Мире все космосы присутствуют одновременно, всегда вибрируя, всегда поджидая, как сын ждет отца-моряка. В мире проявленном все имеет начало и все имеет конец. В Реальном Мире все всегда присутствует, и в один прекрасный день вам позволяется все забыть и покинуть его "навсегда".

Свобода в миллион раз ценнее освобождения. Свободный человек и в рабстве остается сам себе хозяин. Например, я вам даю что-то, скажем, автомобиль, в котором нет горючего, поэтому автомобиль не может двинуться в путь. Вашему автомобилю требуется особое горючее, но только вы сами в состоянии определить, что это за горючее и где его получить.

Вы должны сами определить, как переработать мои идеи, чтобы сделать их своими, только вам принадлежащими. Ваш автомобиль не может работать на том особом горючем, на котором работает мой автомобиль. Я предлагаю вам лишь исходное сырье. Вы обязаны извлечь из этого сырья то, что можете использовать вы. Смелее садитесь за руль.

Органическая жизнь очень хрупкая. В любой момент планетарное тело может умереть. Оно всегда живет на волосок от смерти. И если вам удалось прожить еще один день, то это всего лишь нечаянно данный вам природой шанс. Если вам доведется прожить хотя бы еще час, то можете считать себя счастливчиком. С самого зачатия мы живем за счет времени, взятого взаймы.

Живя в этом мире вы должны чувствовать смерть ежесекундно, поэтому держите свои дела в порядке, даже в последний свой час. Но как же узнать наверняка, который час окажется последним? Для верности улаживайте свои дела с природой и самим собой каждый данный вам час жизни, тогда вы никогда не окажетесь застигнутым врасплох. Этому человека должны обучать еще в школе, так же как правильно дышать, есть, двигаться и умирать. Это должно стать частью программы образования. В ней должно быть включено обучение, как демонстрировать наличие "Я", а так же, как формировать сознание.

Вопрос: Как поступать если не чувствуешь, что что-то осталось недоделанным?

Г. ответил не сразу. Он вздохнул и ответил так:

Спроси себя, кому придется туго, если ты умрешь, как собака. В момент смерти надо полностью осознавать себя и чувствовать, что ты сделал все возможное, чтобы во всей полноте использовать данную тебе жизнь.

Сейчас вы знаете о себе не слишком много. Но с каждым днем вы копаете все глубже и глубже этот мешок с костями и узнаете все больше и больше подробностей. День за днем вы будете открывать для себя, что вы не успели сделать и что нужно переделать из того, что вами сделано. Реальный человек это тот, кто выжал из жизни все, что в ней было ценного, и сказал: "Теперь можно и умереть". Надо стараться прожить свою жизнь так, что в любой день можно было сказать себе: "Сегодня я могу умереть, ни о чем не жалея".

Никогда не тратьте понапрасну последний час своей жизни, так как он может стать для вас самым главным. Если плохо им распорядиться, то потом можно пожалеть. То душевное волнение, которое вы сейчас испытываете, может стать для вас мощным источником той силы, которая может подготовить вас к безупречной смерти. Зная, что следующий час станет для вас последним, впитывайте впечатления, которые он вам принесет, как истинный гурман. Когда Госпожа Смерть вас позовет, будьте всегда к этому готовы. Мастер знает, как извлечь из каждого лакомого кусочка последнюю каплю самого ценного. Учитесь быть мастерами жизни.

В молодости я учился ремеслу изготовления духов. Я учился получать из жизни ее эссенцию, ее тончайшие свойства. Во всем ищите наиболее ценное, умейте отделить тончайшее от грубого. Тот, кто научился извлекать эссенцию, самое ценное из каждого момента жизни, тот обладает сознанием любого качества.

Он не способен на то, что сделал бы с миром какой-нибудь дикарь.

Возможно, в последние мгновенья жизни у вас не будет выбора, где или с кем быть, но за вами останется выбор, насколько ценно вы их проведете. Умение извлекать ценное из жизни - то же самое, что извлекать из пищи, воздуха и впечатлений те субстанции, которые необходимы для построения высших тел. Если вы хотите извлечь из жизни самое ценное для себя, оно все равно должно служить высшему благу, себе достаточно оставить совсем немного. Работать над собой ради блага других - хитроумный способ получить лучшее от жизни для самого себя. Если вы не будете удовлетворены своим последним часом, значит, вы не будете довольны всей своей жизнью в целом. Умереть - значит пройти через нечто, что невозможно повторить вновь. Попусту тратить наше драгоценное время - значит, лишить себя возможности извлекать самое ценное из жизни.

Прожить в этом мире от начала до конца - означает еще одно проявление Абсолюта. Все великие философы очень тщательно готовились к приходу последнего часа своей жизни. А сейчас я вам дам упражнение на подготовку к своему последнему часу на земле. Постарайтесь не исказить ни одного слова из предлагаемого упражнения.

Упражнение

Оглянитесь на только что прошедший час, как если бы он был для вас последним часом на земле, и вы только что осознали, что умерли. Спросите себя, довольны ли вы последним часом своей жизни?

А теперь оживите себя вновь и поставьте перед собой цель в течение следующего часа (если вам посчастливится его прожить) извлечь из жизни немного больше, чем вам удалось в предыдущий час. Определите, где и когда Вам следовало быть более осознанным, где проявить больше внутреннего огня.

А теперь откройте пошире ваши глаза: под этим я понимаю - откройте себя для больших возможностей, будьте чуть посмелей, чем вы были в предыдущий час. Поскольку вы знаете, что это ваш последний час и вам нечего терять, постарайтесь набраться мужества хотя бы теперь. Конечно, только без глупостей.

Узнайте себя лучше, посмотрите на свою машину как бы со стороны... Теперь, когда умираешь, не к чему думать о том, как сохранить репутацию, свой престиж.

И впредь, вплоть до действительно последнего часа, настойчиво стремитесь получить как можно больше ценного от жизни, развивайте интуицию. Каждый час тратьте хоть несколько мгновений, чтобы беспристрастно оценить час минувший, а затем настройтесь на то, чтобы извлечь еще больше полезного последующего часа.

Если рассматривать каждый час как отдельную единицу жизни, делайте все, что в ваших силах, чтобы использовать каждую единицу жизни наиболее полно. Заставьте себя найти путь, который делал бы каждый последующий час больше, чем предыдущий, но одновременно, давал возможность рассчитаться с накопившимися на данный момент долгами. Увеличение самоощущения или самоосознания "Я", а также умение управлять собой, позволит изменить работу вашей машины, которую заносит, что служит указанием на действительные изменения. И совершенно неважно, что думает об этом сама машина.

...Прожить оставшуюся жизнь, репетируя час за часом свою смерть, - отнюдь не патология. Никто не может получить от жизни больше, чем больной раком, примерно знающий, когда он умрет. И если он тщательно продумал, как провести оставшиеся дни, он не станет менять в корне свою жизнь, однако может позволить себе съездить туда, куда давно его тянуло, но чего он не мог сделать при обычных обстоятельствах.

Человек, который знает, что скоро умрет, постарается максимально использовать каждый оставшийся ему час жизни. Именно это имел ввиду Христос, когда говорил, что последние дни наступят скоро - дни перед Страшным Судом. Мы все стоим перед лицом Суда, но судят нас не другие люди, а мы сами даем окончательную оценку своей жизни. Мы не должны провалиться на самом серьезном экзамене, где самый серьезный судья наше "Я".

Каждый момент в отдельности, взятый без относительно другого момента, представляет частицу вечного Творения. Следовательно, в любой момент можно извлекать тончайшие субстанции, которые можно назвать "эссенция жизни".

Мысленно представьте себе субстанцию "воздух" или субстанцию "впечатления". Наконец, нарисуйте мысленно субстанцию "момент". Да, это действительно субстанции, даже мгновения времени.

Если нам удастся извлекать более тонкие субстанции из этих более грубых субстанций, то, рано или поздно, придется чем-то за это заплатить. Этот закон называется Законом Равновесия. Поэтому нам придется научиться немедленно платить за то, что мы получаем от жизни. Только в этом случае у нас не будет долгов. Платить немедленно - это то, что называют "реально делать". "Делать" - это думать, чувствовать, двигаться, но "реальная активность" - платить немедленно.

Делать - может означать только одно: извлекать квинтэссенцию из каждого момента жизни и одновременно платить по всем долгам природе и самому себе, но только при наличии "Я" можно уплатить немедленно.

Настоящая жизнь состоит не в изменении активности, а в изменении качества активности. Судьба - она и есть судьба. Каждый из нас должен найти свое место в общем порядке вещей. Еще не слишком поздно сделать это сейчас, хотя большую часть жизни вы впустую потратили на спячку. Начиная с сегодняшнего дня вы можете начать готовиться к смерти и, в то же время, повышать качество своей жизни. Но не тяните с началом, может, и на самом деле вам остался всем один час жизни.

Вопрос: Можно ли рассказать обо всем этом другим? Я считаю важным все то, что мы услышали здесь сегодня вечером.

Вы можете повторить слово в слово, но до тех пор, пока вы не сделаете это для себя, это ничем не будет значить для других. Существование есть орудие или инструмент для действия. Поразмышляйте на эту тему и узнайте, почему это верно.

Вопрос: Следовательно, мы не можем платить долги, если мы не существуем и отсутствует "Я"?

А чего ради у вас такая необходимость платить? За что? Если жизнь - всего лишь случайность, то нет смысла продолжать. Это вовсе не значит, что надо кончать жизнь самоубийством. Наоборот, надо приложить все усилия, чтобы жить. Человек заурядный всегда живет, просто плывя по течению. Он не просто спит, а полностью мертвец. Чтобы действительно жить, надо способствовать усилиям природы, брать от жизни активно, а не поступать пассивно - как получится.

Извлекая из жизни самое ценное, надо уметь управлять своими желаниями. Проследите, насколько беспристрастно вы можете оценить сами себя. Присмотритесь к себе и вы обнаружите, сколько существует удивительных способов быть беспристрастным. Каждый раз мысленно отмечайте различные моменты проявления желаний. Делайте все по-прежнему, но только обязательно осознавайте их присутствие. Перелейте в мир часть своей крови, но более высокого плана.

В конце каждого часа, оценив его пользу, представьте себе, что вы просыпаетесь в совершенно незнакомом для вас мире, по сравнению с часом предыдущим. Следует отметить, что кажущееся продолжение жизни предыдущего часа в действительности меняется ежечасно, хотя предметы и люди кажутся теми же самыми. Со временем вы сможете научиться видеть себя в виде призрака некой субстанции, который переходит из одного мира в другой, как незваный гость природы.

Если рассматривать с такой точки зрения, оцените все совершаемое в обычной жизни. Видя результаты всех своих напряженных усилий в прошлом, задумайтесь над тем, какой прок от всего этого сейчас, в последний час жизни. Те, кто занят Работой, во многом мертвы для этого мира и одновременно живее всех остальных в нем. Работа... Нечто странное, неприметное, но для многих жизнь без нее немыслима.

В обычном понимании жизнь - суета сует. Каким бы большим не казалось достижение по земным масштабам, рано или поздно оно оборачивалось потерей. Время истирает в пыль даже песчинки. Даже самых великих в истории людей рано или поздно забывали. Чтобы понять истинные возможности жизни на земле, надо найти то, чего можно добиться в этом мире и что будет действительно полезным в Реальном Мире.

Внимательно проследите жизнь всех великих людей, которые командовали армиями, властвовали над другими. Какой им прок от всех своих великих дел теперь, после смерти? Даже при их жизни все эти дела были не более, чем пустые мечтания. Мы здесь не для того, чтобы восхвалять самих себя и вознаграждать себя; самое отвратительное в заурядном человеке - умение побыстрее удовлетворить свою плоть.

Большинство людей находят массу отговорок не работать над собой. Они полностью в плену у своих слабостей. Но сейчас речь идет не о них, а о вас. Поймите меня правильно, я не нуждаюсь в последователях, я скорее заинтересован найти хороших организаторов, настоящих бойцов для нового мира. Я понимаю слабость организации, так как в данном случае речь идет не о простой организации, которая была бы инициативной.

Еще раз напоминаю, научитесь с наибольшей пользой проживать каждый свой час. Составьте подробный план на последний час жизни. Чтобы понять, как надо умереть, вам придется пустить глубокие корни в жизнь, лишь тогда вы сможете умереть как человек, а не как собака. Однако не каждому дано умереть. Можно стать удобрением для нашей планеты, но это вовсе не означает умереть на самом деле. Умереть для этого мира навечно - это честь. За такую честь надо заплатить сознательной работой и преднамеренным страданием. Такое право надо заработать.

Попытайтесь относительно ясно представить себе свой последний час жизни на земле. Напишите как бы сценарий этого последнего часа, словно речь идет о съемках фильма. Спросите себя ? "Так ли я хочу распорядиться своим последним часом?" Если ответ не удовлетворит вас, переписывайте сценарий до тех пор, пока он вам понравится.

Смотрите на жизнь как на бизнес. Для вас время - это деньги жизни. Когда вы пришли в этот мир, вам была отпущена определенная сумма, которую вы не можете превысить. Время единственная валюта, которой вы платите за жизнь. Теперь вы видите, как глупо вы растратили большую ее часть.

Вы даже не достигли простой жизненной цели - отдыхать. Как бизнесмены вы не удались, как потребители жизни - сами себя обманули. Вы всю жизнь полагали, что все дается даром, а теперь вдруг обнаружили, что - не даром. Вы платите за пользование временем, поэтому каждый миг вашего пребывания здесь чего-то стоит.

Как же вам все-таки возместить хоть когда-нибудь эти потери. Проверьте, это постоянные или временные потери для вашего банковского счета? Потеряли вы или удачно поместили свой капитал? Если вы все деньги потратили на отпуск, то вам не остается ничего иного, кроме тоски по прошлому.

В течение многих лет вы тратили время так, словно родители выдали вам на него открытый банковский счет. Но вот состояние спущено, вы прогорели и обнаружили, что остались одни и ни на кого не можете рассчитывать. На банковском счете времени больше нет. Теперь вы вынуждены зарабатывать каждый час жизни. Всю свою жизнь вы вели себя, как ребенок, а время тратили, как молодожены.

Наш основной враг, который мешает приложить нужные усилия, - безнадежность. Знаю, у вас найдется много отговорок и оправданий тому, чтобы не готовить себя к своему последнему часу. Привычка - большая сила, но раз начав, вы можете научиться делать с каждым разом все больше и больше.

Не теряйте ни одного дня попусту, заставляйте себя хотя бы час в день прилагать усилия, иначе потеряете все, что приобрели. Думайте о репетиции своего последнего часа, как о занятиях балетом - заниматься надо всю жизнь. У меня в день на это упражнение уходит четыре часа, а в молодости я посвящал ему раза в два больше.

(Из кн.: Беседы о сокровенном. Из архивов Г.И.Гюрджиева)

Скопировал, об этом человеке (да, не соврать, меня очень радует, что он русский) узнал из книги ОШО "Путь мистика", а именно по цитируемой притче, которая меня очень впечатлила:

У хозяина в горах был дворец и дюжина слуг, и он сказал слугам, что отправляется в паломничество:
- Может быть, оно займет год, может быть, два или три, а может быть, я вернусь, не окончив путешествия. Может быть, я вернусь с полдороги, в любой день. Поэтому будьте готовы каждый день, словно я вернусь именно в этот день. Дом должен быть в том состоянии, которое мне нравится. Не думайте: «Он вернется только через три года, зачем беспокоиться? Три года мы можем наслаждаться отдыхом». Я могу вернуться в любой момент, а может быть, вернусь через три года или через десять лет. Но, что касается вас, помните, я могу вернуться в любой момент. Это очень вероятно.
Слуги оказались в очень трудном положении. Если бы он сказал им определенную дату, можно было бы просто отдыхать, наслаждаться. Каждый из слуг дежурил час за двадцать четыре часа; кто-то дежурил круглые сутки. Один человек дежурил час, потом другой. Прошли годы. Фактически, они совершенно забыли, что должен был вернуться хозяин, потому что прошло столько времени.
В те времена мир был дик, и паломничество было опасным. Фактически, люди обычно отправлялись в паломничество, только когда приближались мысли о смерти, и опасности больше не было, потому что человек в любом случае собирался умереть. Очень немногие возвращались из паломничества. Слуги стали думать: «Прошло столько лет: наверное, он умер, и мы напрасно беспокоимся». Они обленились, но дежурство продолжалось, потому что глубоко внутри оставалось сомнение:
«Кто знает? А вдруг он вернется?»
Тем временем каждый, кто проходил у ворот, спрашивал:
- Какой прекрасный дворец! Кто хозяин этого дворца? И каждый дежурный слуга отвечал:
- Кто же еще? Я! Я хозяин этого прекрасного дворца. Но люди были немного озадачены, потому что у дворца каждый раз оказывался новый хозяин. Дежурные постоянно сменялись: круглые сутки кто-то дежурил в течение одного часа. Когда ты приходишь в следующий раз, то встречаешь нового человека, и он тоже претендует на то, что он хозяин.
Считая хозяина умершим, каждый из слуг решил, что никакого вреда не будет, если объявить хозяином себя; фактически, они и были хозяевами. У хозяина не было ни сына, ни родственника, никого; он был одиночкой. И слуги стали носить его одежду, пользоваться его вещами; они действительно были убеждены в том, что он умер, а его смерть означает, что хозяева - они.
И тогда однажды хозяин явился, и на эту сцену стоило посмотреть! Люди сбрасывали с себя одежду, бегали голые, пытаясь найти свою... царил полный хаос.
И хозяин спросил:
- Что случилось?
- Мы хотим, чтобы ты нас простил, - сказали они. - Так как ты не возвращался столько лет, мы подумали, что ты вообще не вернешься. Мы дураки - необразованные, глупые люди. Мы стали пользоваться твоими вещами и претендовать на то, что хозяева - мы. Конечно, каждый был хозяином только на час. Чтобы избежать столкновений и ссор, мы решили, что пока один из нас дежурит и охраняет дом, он и хозяин, но только на час. По истечении этого часа он только слуга; хозяином становится другой человек.

Гурджиев говорил, что эта история символизирует внутренний мир. И ОШО продолжает:

Есть множество личностей - не только пять, настоящее множество, - и они продолжают сменять друг друга. Это своего рода Клуб Ротарианцев. В Клубе Ротарианцев, чтобы избежать соревнования, каждый из его членов в свою очередь становится президентом. В следующий год - следующий... Каждый надеется, что приближается его очередь, и никто не расстраивается, когда кто-то другой становится президентом; дело только за одним годом, и президентом станет кто-то другой. Фактически, они все президенты.
У тебя внутри тоже есть определенная очередь, и если ты продолжаешь наблюдать... Не вмешивайся в эти личности, потому что это только создаст еще больший беспорядок, больший хаос. Просто наблюдай, потому что, наблюдая эти личности, ты также осознаешь, что есть еще и наблюдатель, который не личность, перед которым проходят эти личности, возникают и исчезают.

Вероятно, мне следовало бы написать, что думаю Я по поводу написанного(скопированого, опубликованного), но Я боится это делать. Я не готов, но готовлюсь...
Я и писать-то боялся!
Напишу!!
Omnia Tempus Habent

Technorati Tags: Гурджиев, Великие Люди, эзотерика, скопировал, о жизни, интересные люди, созидательные мысли, ОШО, притчи

M$ PowerShell - новое вооружение

2006-07-26T17:35:00.000+03:00

Еще в начале года немного осматривал(тогда он еще носил кодовое название monad), - новый командный интерпретатор от microsoft. Сначала, правда, я посмотрел "видик", где главный архитектор немного поведал о своем детище(замечу, что в списке провайдеров "get-providers"["get-psprovider" - сейчас]у него есть ADSI, а в текущем RC1 его нет :( - а было бы классно - "для каждого компа домена...который...применить..." ), а после приступил к осмотру. Признаться, шокирован возможностями, действительно ОЧЧЕНЬ круто. Мне вот все было ранее интересно: зачем допускать чтобы их(m$ - money, commerce ) cmd.exe, был по возможностям на порядки слабее "баша"(© RSV;)). Но время шло, и эти возможности были(будут, - с выходом Vista) восполнены сполна... Сегодняшнее использование:


/> gwmi win32_process
...
ProcessName                : wmiprvse.exe
Handles                    : 142
VM                         : 40747008
WS                         : 5533696
Path                       : C:\WINDOWS\system32\wbem\wmiprvse.exe
Caption                    : wmiprvse.exe
CommandLine                : C:\WINDOWS\system32\wbem\wmiprvse.exe
CreationClassName          : Win32_Process
CreationDate               : 20060726154107.687500+120
CSCreationClassName        : Win32_ComputerSystem
CSName                     : ADMIN
Description                : wmiprvse.exe
ExecutablePath             : C:\WINDOWS\system32\wbem\wmiprvse.exe
ExecutionState             :
Handle                     : 3848
HandleCount                : 142
...
__GENUS                    : 2
__CLASS                    : Win32_Process
__SUPERCLASS               : CIM_Process
__DYNASTY                  : CIM_ManagedSystemElement
__RELPATH                  : Win32_Process.Handle="3848"
__PROPERTY_COUNT           : 45
__DERIVATION               : {CIM_Process, CIM_LogicalElement, CIM_ManagedSystemElement}
__SERVER                   : ADMIN
__NAMESPACE                : root\cimv2
__PATH                     : \\ADMIN\root\cimv2:Win32_Process.Handle="3848"

Заметим, что можно использовать слайсы, не почти как в Python ([2..5] против [2:5]):


 /> $(gwmi win32_process)[-1]
 - вывод только последнего элемента

Посмотрим что за функциональность есть у объекта:


 /> $(gwmi win32_process)[-1] | gm
   TypeName: System.Management.ManagementObject#root\cimv2\Win32_Process

Name                       MemberType            Definition
----                       ----------            ----------
Handles                    AliasProperty         Handles = Handlecount
ProcessName                AliasProperty         ProcessName = Name
VM                         AliasProperty         VM = VirtualSize
WS                         AliasProperty         WS = WorkingSetSize
add_Disposed               Method                System.Void add_Disposed(EventHandler value)
...
WriteTransferCount         Property              System.UInt64 WriteTransferCount {get;}
Path                       ScriptProperty        System.Object Path {get=$this.ExecutablePath;}


 />$oProc = $(gwmi win32_process)[-1]
 />$oProc.Na
 />$oProc.Name
wmiprvse.exe
 />$oProc.De - работает автодополнение членов!!
$oProc.Delete(
-да, нетрудно догадаться, что это "кильнет" процесс

Запросим лишь методы объекта:


$(gwmi win32_process)[-1]|gm|? {$_.MemberType -like "Method"}

   TypeName: System.Management.ManagementObject#root\cimv2\Win32_Process

Name                      MemberType Definition
----                      ---------- ----------
add_Disposed              Method     System.Void add_Disposed(EventHandler value)
Clone                     Method     System.Object Clone()
...

Появились предикаты (алиасы были и в начале), немного поясню: $_ (из Perl'а взяли) - текущий объект - в данном случае member, потому как gm - это алиас:


 /> alias gm

CommandType     Name                                      Definition
-----------     ----                                      ----------
Alias           gm                                        Get-Member

список всех алиасов - в студию:


 /> alias

CommandType     Name                                      Definition
-----------     ----                                      ----------
Alias           ac                                        Add-Content
Alias           asnp                                      Add-PSSnapin
Alias           clc                                       Clear-Content
...

Сколько же их всего:


 /> alias|measure-object
Count    : 101
Average  :
Sum      :
Maximum  :
Minimum  :
Property :

Бывала полезной и такая конструкция(*bject* - изменяемый нами glob-паттерн):
 /> alias | ? {$_.Definition -like "*bject*"}
CommandType     Name                                      Definition
-----------     ----                                      ----------
Alias           diff                                      Compare-Object
Alias           foreach                                   ForEach-Object
Alias           %                                         ForEach-Object
Alias           group                                     Group-Object
Alias           gwmi                                      Get-WmiObject
Alias           select                                    Select-Object
Alias           sort                                      Sort-Object
Alias           tee                                       Tee-Object
Alias           where                                     Where-Object
Alias           ?                                         Where-Object


отсортируем по имени командлета(удобней искать короткие имена(алиасы)):
 /> alias|sort -prop Definition
CommandType     Name                                      Definition
-----------     ----                                      ----------
Alias           ac                                        Add-Content
Alias           asnp                                      Add-PSSnapin
...

а так можно запросит односимвольные алиасы(случайно выкупил :) ):

 /> alias ?
CommandType     Name                                      Definition
-----------     ----                                      ----------
Alias           %                                         ForEach-Object
Alias           ?                                         Where-Object
Alias           h                                         Get-History
Alias           r                                         Invoke-History

иль так...
 /> alias ??

Понятно, что алиас - это короткое имя для cmdlet' a(командлета, предлагаю, так называть). Еще раз посмотрим на ранее непонятную конструкцию


$(gwmi win32_process)[-1]|gm|? {$_.MemberType -like "Method"}
расшифровка(мы ведь уже знаем про алиасы):
$(Get-WmiObject -computer "." Win32_Process) [-1] | Get-Member | Where-Object {$_.MemberType -like "Method"}
-предлагаю проверить - вывод команд аналогичен
Видно, что алиасы могут выручить, того кто не любит много набирать на клавиатуре(я такой)

Теперь, я хочу удалить все процессы прекраснейшей миранды на моей рабочей машине, сначала(удаление ч\л всегда вызывает у меня опасения(и должно, пожалуй, у каждого админа вызывать)) я посмотрю, что у меня за процессы запущены:


 />alias %
CommandType     Name                                      Definition
-----------     ----                                      ----------
Alias           %                                         ForEach-Object

 /> gwmi win32_process | % {$_.CommandLine}| sort
"C:\home\dron\tools\eMulePlus\eMule.exe"
"C:\home\dron\tools\miranda\miranda32.exe"
"C:\home\dron\tools\PortableFirefox\App\firefox\firefox.exe" -profile "C:\home\dron\tools\PortableF
irefox\Data\profile"
"C:\home\dron\tools\PortableThunderbird\thunderbird\thunderbird.exe" -profile "C:\home\dron\tools\P
ortableThunderbird\profile"
"C:\home\dron\tools\SQLManager2005\MsManager.exe"
...
"Поймаем" миранду( "-match" - для демонстрации регулярных выражений):
 /> gwmi win32_process|? {$_.Name -match "^miranda"} | % {$_.Name, $_.CommandLine, $_.Handle}
miranda32.exe
"C:\home\dron\tools\miranda\miranda32.exe"
1132
- поймана

Теперь дело за малым - удаляем процесс(жесче зададим условие, чтобы не "кильнуть" лишнего):


 /> gwmi win32_process|? {$_.Name -match "^miranda32.exe$"} | % {$_.Delete()}
проверим:
 /> gwmi win32_process|? {$_.Name -match "^miranda"} | % {$_.Name, $_.CommandLine}
-пусто, а значит успешно!

Так вот все начиналось с того, что я хотел с рабочей машины(где я только, что миранду убил), убить процесс на сервере...
Одной строчкой!
Сначала, найдем удаленную жертву на сервере с ip-адресом 192.168.2.2:


gwmi -comp "192.168.2.2" win32_process|? {$_.Name -like "w3*"} |% {$_.Name, $_.CommandLine, $_.Handle}
w3wp.exe
c:\windows\system32\inetsrv\w3wp.exe -a \\.\pipe\iisipme1fe85c2-d4fd-43e5-9e9d-fea6d699eef2 -t 20 -
ap "DefaultAppPool"
3612

К слову, его можно и по-другому убить(без WMI), но пост же, про PowerShell:


c:\>TASKKILL /S 192.168.2.2 /PID 3612

Даем убийственную команду:


 /> gwmi -comp "192.168.2.2." win32_process|? {$_.Name -match "^w3wp.exe$"} | % {$_.Delete()}
Все нуждается в проверке:
 /> gwmi -comp "192.168.2.2" win32_process|? {$_.Name -like "w3*"} |
% {$_.Name, $_.CommandLine, $_.Handle}
- пусто здесь значит успешно!

Цель достигнута(правда, ушло 30 минут на знакомство со средой).
Итог: инструмент - воистину фантастический, рекомендуется к применению.
А ведь с помощью WMI можно и создавать процессы удаленно...

PS
Да забыл о самой главной команде - "man", создадим алиас:


 />nal man get-help

-теперь все готово к использованию:

 />man gwmi

и последнее:

/> get-command
или
/> get-command * -type Alias
или даже:
/> get-command get-* -type Cmdlet

-type может принимать сдедующие аргументы:
Alias
Function
Filter
Cmdlet
ExternalScript
Application
Script
All

Technorati Tags: microsoft, scripting, commandline, oneliners, мои скрипты, wmi, remote control, powershell, monad

Environ через WSH

2006-07-26T15:11:00.000+03:00

JScript:


WScript.CreateObject("WScript.Shell").RegWrite(
"HKCU\\Environment\\HOME", "c:\\home\\dron", "REG_EXPAND_SZ")

Иногда бывает нужно добавить папочку в $PATH(точнее в %PATH%), можно так(вместо Обычного Win+pause/Дополнительно/переменные среды/системные переменные/PATH/Изменить:


//JScript
var g_oWshShell = WScript.CreateObject("WScript.Shell");
var g_oFSO = WScript.CreateObject("Scripting.FileSystemObject");

var sFold='%ProgramFiles%\\Far\\bin';

var sRegEnvPath="HKLM\\System\\CurrentControlSet\\Control\\";
sRegEnvPath += "Session Manager\\Environment\\Path";

if( ! g_oFSO.FolderExists(g_oWshShell.ExpandEnvironmentStrings(sFold)) )
  WScript.echo(sFold + "does not exists.");

if(g_oWshShell.RegRead(sRegEnvPath).indexOf(sFold) >= 0)
  WScript.echo("Folder " + sFold+ " already in PATH");
else
 g_oWshShell.RegWrite (sRegEnvPath, g_oWshShell.RegRead(sRegEnvPath)+
   ";"+sFold, "REG_EXPAND_SZ");

WScript.echo("PATH=" + g_oWshShell.RegRead(sRegEnvPath));

Technorati Tags: wsh, environ, oneliners, мои скрипты, jscript

Почему женщина - акционерное общество?

2006-07-24T11:27:00.000+03:00

Почему женщина - акционерное общество?
Когда она еще не родилась, она является 100%-ным дочерним предприятием своей матери, ее неотъемлемой частью. После рождения ее акции распределяются внутри холдинга, который мы называем семья. Какой-то процент попадает во владение отцу, значительный пакет (часто контрольный) остается у матери, бабушкам и дедушкам также достается доля, но зачастую они - явные миноритарии. Постепенно девушка вырастает, становится взрослой, и вместе с этим путем дополнительных эмиссий или просто отсуживанием во время домашних разговоров переводит акции семейного холдинга на свой баланс.

И вот к концу школы наступает золотая пора IPO (initial public offering).

Как правило, в такое время девушки не разбазаривают контрольный пакет, а продают лишь небольшие его части с целью "прощупать интерес" рынка. Родители могут выступать консультантами IPO, но часто ими оказываются более зрелые девушки, уже имеющие опыт первичных размещений. Они могут подсказать нужную торговую площадку, сделать независимую оценку активов и порекомендовать цену. Перед IPO проводятся многочисленные road-show в дэнс-клубах, барах, скверах и прочих местах скопления юношей-инвесторов. Они, впрочем, тоже не заинтересованы в получении сразу контрольного пакета. Интересна позиция некоторых крупных стратегических инвесторов на таких IPO. Они покупают опцион на покупку контрольного пакета, получают дивиденды в течение некоторого срока, но в итоге опцион так и остается не исполненным. По идее, такие случаи должны быть наказуемы, но не все эмитенты готовы раскрыть такую информацию, ибо она может повредить дальнейшему листингу и ликвидности.

После школы и примерно до 40 лет девушки-эмитенты приступают к первичному размещению контрольного пакета своих акций. Однако, так просто его получить инвесторы не смогут. Сначала нужно собрать хотя бы 1% от уставного капитала,
чтобы посмотреть реестр акционеров. Это дает понять перспективность и примерные сроки скупки контрольного. Далее скупается блокирующий пакет акций, инвестор попадает в Совет Директоров и оказывает влияние на финансовые и производственные потоки эмитента. Если эмитент хорош, активно развивается, у него высокая рентабельность и большие перспективы, то инвестор добирает акции до контрольного пакета и все счастливы. Это удачное развитие событий.

На вопрос, сколько дивидендов должна выплачивать женщина есть много теорий.

Если инвестора интересует текущий доход, то он выбирает эмитента с большими дивидендными выплатами. Однако это приводит к сокращению капитальных вложений в обновление основных фондов, что в будущем приводит к износу активов и как следствие быстрому сокращению прибыли и дивидендов. На наш взгляд, дивидендная политика должна отвечать устойчивому развитию компании.

На рынке распространена практика перекрестного владения. Это ситуация, когда у женщины эмитента есть привилегированные акции, находящиеся на руках у сторонних акционеров. Они не имеют права голоса, но получают стабильные
небольшие дивиденды. Поэтому инвесторы любят, когда у эмитента нет привилегированных акций. Кстати, многие мужчины любят иметь акции нескольких эмитентов в портфеле: контрольный пакет одного эмитента и небольшой процент привилегированных акций других эмитентов. Это один из парадоксов рынка.

Если IPO проходят неудачно и не удается разместить контрольный пакет сразу, акции женщины-эмитента попадают на биржу. Здесь и начинается самое интересное. Наиболее ликвидные женщины-эмитенты торгуются на "биржах", они прошли листинг, информация о них известна инвесторам. Данные по этим компаниям можно найти даже в интернете, у них есть свои сайты. Однако, это не означает, что их акции могут показать сильный рост, так как многие из них переоценены рынком. Скорее инвесторы предпочитают спекулировать ими, избегая долгосрочных инвестиций.

Наиболее ценными представляются бумаги "второго эшелона". Это как раз и есть акции роста. О них знает лишь некоторый круг игроков, и они покупаются стратегическими инвесторами. Тут им не обойтись без аналитической поддержки, так как нужно рассчитать справедливую стоимость акций, узнать кто основные акционеры и т.д.

Серьезным вопросом владельца эмитента является создание дочерних предприятий. На начальных этапах работы "дочек" это прямые затраты для головного предприятия, причем без гарантированного экономического эффекта в будущем. Однако, это может улучшить инвестиционный климат и отношения эмитент-инвестор. Наличие дочерних предприятий также понижает ликвидность эмитента, что хорошо, когда инвестор хочет добрать с рынка пакеты миноритариев. Инвесторы любят составлять индексы на основании котировок женщин-эмитентов, чтобы представлять общую ситуацию на рынке. Именно отсюда и пошли фразы вроде "в таком-то месте (городе, стране) эмитенты самые красивые".

Российский рынок считается в мире одним из наиболее привлекательных и недооцененных. Капитализация эмитентов здесь не очень большая, зато по фундаментальным показателям (прибыль на акцию, дивидендная доходность и т.д.) они сильнее зарубежных аналогов. Этим объясняется значительный интерес иностранных инвесторов к российским активам. Инвесторы любят обсуждать эмитентов, делиться своими соображениями о рынке, обмениваться опытом. Поскольку это обычно происходит "на рынке", одновременно идет изучение потенциальных объектов инвестирования. Это важно для инвесторов-новичков,так как они склонны покупать распиаренный неликвид.

Значительная часть инвесторов расстается с контрольным пакетом эмитента через несколько лет, и перекладывается в быстро растущие акции молодых компаний. Это связано с большими транзакционными издержками, но инвесторы идут на них в надежде на хорошую отдачу от новых инвестиций. В любом случае, это рискованный шаг, так как инвестор отказывается от стабильного дохода и прозрачного бизнеса в пользу нового малоизвестного ему эмитента. На наш взгляд, нужно быть абсолютно уверенным в необходимости "перетряски инвестиционного портфеля" прежде чем ее затевать.

Основные советы инвесторам.

Не увлекайтесь спекуляциями на рынке, это может быть разорительно.

Не вкладывайте сразу все средства в одного эмитента. Это рискованно.

Не доверяйте на 100% рекомендациям аналитиков. Обязательно проводите свою, хотя бы минимальную оценку.

Купив контрольный пакет акций эмитента, не расслабляйтесь. Всегда есть вероятность проведения дополнительной эмиссии, что приведет к разводнению вашей доли.

Женщины любят давать свои акции в номинальное держание. Убедитесь, что акции действительно оказались на вашем счете.

Купив контрольный пакет, не скупитесь на капитальные вложения и значительные амортизационные отчисления. Чем они больше, тем на большие дивиденды вы можете рассчитывать в будущем. Скупку контрольного пакета лучше проводить
так, чтобы рынок этого "не видел", иначе есть риск сильно задрать котировки и переплатить.

И еще: финансисткам на заметку
Исходные предпосылки инвестиций в мужчину.

Как не существует идеального инвестиционного инструмента, так и не
существует идеального мужчины.

Все мужчины, как и инвестиционные инструменты, обладают тремя важнейшими характеристиками: надежность; ликвидность; доходность.
Hадежные мужчины, как правило, имеют низкую доходность. Мужчины с большими доходами ненадежны. Hенадежные мужчины с низкой доходностью не ликвидны. От них очень сложно избавиться. Hадежные и доходные мужчины обладают очень
высокой ликвидностью. Проблема в том, что их сложно найти и еще труднее удержать в своем инвестиционном портфеле.

Высокий спрос на надежных и высокодоходных мужчин приводит (иногда внезапно), к тому, что они теряют или свою надежность, или свою доходность.
Как говорят - бумага испортилась.

Диверсифицируйте. Во избежание больших жизненных дродаунов при разумной доходности рекомендуется порядка 70% времени вкладывать в надежных низкодоходных мужчин, 25% в нескольких высокодоходных, но ненадежных и не
более 5% в надежных и высокодоходных (см. п. 7)

Если вам предоставилась возможность приобрести контрольный пакет надежного и высокодоходного мужчины, значит вы чего-то не заметили.

Скопировал, а нашел через блог интересного человека(с интереснейшими мыслями)
Занимательное сравнение, интересны мысли о господина Жигиря А.А. :)

Technorati Tags: скопировал, о женщине, интересные блоги, инересные люди

IBM и Yahoo! за Drupal

2006-07-12T18:38:00.000+03:00

Big Blue Drop: IBM goes with Drupal pingVision:

Весьма интересно, что для воображаемого web-проекта IBM Internet Technology
Group выбирает Drupal, чтобы "facilitate
Using open source software to design, develop, and deploy a collaborative Web
site" [продвигать использование opensource ПО для проектирования, разработки и развертывания общего(их) web-сайта]

Они сравнивают Drupal c другими CMS:

... и выбор однозначен.

В апреле прошлого года, Yahoo! тоже проводила исследование, в результате которого был сделан следующий вывод:

Ultimately, we chose Drupal because of its breadth of capabilities, powerful taxonomy, and extensibility [в конечном счете мы выбрали Drupal, из-за широты возможностей, мощной таксономии и расширяемости]

Мои закладки по теме:

Technorati Tags: drupal, webdev, cms, overview, ibm, yahoo

Блог не умер, блог жив

2006-07-10T13:15:00.000+03:00

Блог будет жить!!
Просто переезд в Киев, смена работы, переосмысливания с этим всем связанные, не давали достаточно времени для заметок.
От Linux я немного удалился, на моей новой работе мне приходится работать с Microsoft Win2k3(MSSQL) и FreeBSD, кроме того, поддержка web-сайта тоже в моей компетенции, а это PHP5 и MySQL (осваиваю новомодный AJAX). Работаю уже третий месяц, очень нравится. Кроме всего прочего, углубленно изучаю Python и Django. Со вчера начал использовать еще один социальный сервис.

Ликбез: Folksonomies – Cooperative Classification and Communication Through Shared Metadata по-русски

2006-03-28T17:53:00.000+03:00

Фолксономии - что же стоит за этим замысловатым названием? Примем участие в развитии семантической сети будущего.. :)
Folksonomy — народ у руля классификации:

Ограничения фольксономий

Неоднозначность. За словом ANT может скрывать полтора десятка разных акронимов или безобидный муравей. Или Apache Ant Project. Фильтрация может касаться очистки водки, а может быть про Байеса. Совершенно разные предметные домены смешиваются в одном «таге» — слове.
Пробелы и фразы. Оба сервиса работают с односложными тагами. Делишез даже пробелы запрещает. Чтобы ввести как бы иерархию пользователь может писать понятия через слэши, но эта иерархия глубоко условна.

Синонимы. Их нет. В смысле, в обоих сервисах нет никакого контроля за синонимами. mac, macintosh, apple — три совершенно несвязанных тага.

Преимущества фольксономий

Навигация против поиска. Как навигацию я здесь перевёл browsing. Есть два фундаментально разных подхода к поиску информации, и мы говорим о навигации путём последовательного перемещения по ссылкам, которое здесь оказывается «интуитивно-понятным». Система позволяет обнаруживать интересную информацию в совершенно неожиданных местах, пользоваться опытом людей с совершенно другими мозгами, но которые искали примерно то же.

Востребованный классификатор. Прямое отражение словарного запаса пользователей — несомненное достоинство фольксономий. Это они так думают, потому что к ним гоблины ещё не пришли =). Фольксономия кардинально отличается от традиционного подхода к классификации, потому что представляет классификатор ровно в том виде, в котором он востребован большой массой пользователей.

Почему фольксономии работают

Барьер на вхождение, когнитивная стоимость. Барьеры на вхождение снимаются, поскольку для начала работы (классифицирования) не нужно обладать знанием о существующем классификаторе. Участвовать может каждый, потому что это просто.
Обратная связь и асимметричная коммуникация. Обратная связь от пользования фольксономией мгновенна. После того, как вы назначили объекту таг, вы тут же видите, что ещё помечено другими людьми тем же тагом, сколько людей пометили этот объект и как ваши таги пересекаются. Вы можете подогнать свои таги — или наоборот повлиять на групповую норму в отношении тагов или объектов. Такая обратная связь пыриводит к асимметричной коммуникации между пользователями посредством метаданных.

Про фолксономии уже писал, испульзую обе системы более полугода: и букмарки, и картинки. Тэгролл слева, равно как и flickr-badge являются результатом этого использования(генерятся автоматически, - потребовалось лишь подправить шаблон blogger).

Technorati Tags: del.icio.us, flickr, фолксономии

Выдержка из .bashrc

2006-03-24T15:17:00.000+02:00

Приведу выдержку из ~/.bashrc с internet-сервера под управлением fc4:


alias hg='history|grep'
alias hgi='history|grep -i'
alias tm='tail -f /var/log/messages'
alias tmg='tail -f /var/log/messages|grep -i'
#squid
alias tsal='tail -f /var/log/squid/access.log'
alias tsalg='tail -f /var/log/squid/access.log|grep '
#qmail
alias tql='tail -f /var/log/qmail/smtpd/current |/usr/local/bin/tai64nlocal'
alias tpl='tail -f /var/log/qmail/qmail-pop3d/current |/usr/local/bin/tai64nlocal'
#iptables
alias iptw='watch iptables -nvL '
alias iptL='iptables -nvL'
alias iptS='iptables-save'
alias iptSs='iptables-save > ~/iptables.before.`date +%s` &&  ll ~/iptables.before.`date +%s`'
alias iptSg='iptS|grep -i'
alias iptR='iptables-restore'
complete -W "{point,sirius,local}{_in,_out} INPUT OUTPUT FORWARD PREROUTING POSTROUTING" iptables iptL iptw
complete -W  "`chkconfig  --list|awk '{print $1}'`" service
#для сохранения даты и времени
export HISTTIMEFORMAT="%F %T "
#сколько строк хранить в истории
export HISTSIZE=100000
export HISTFILESIZE=100000

Почти все придумано мною, после прочтения материалов, написанных мудрыми юниксоидами..

Technorati Tags: bash, admin, unix, мои+скрипты

Far - швейцарский нож админа

2006-03-23T12:53:00.000+02:00

Многие плагины могут быть вызваны из командной строки, используя соответсвующий префикс, немного примеров:


plist:\\win_server - ProcList(std)
reg:\\win_server - FarReg
svc:\\win_server - FarSvc
net:\\win_or_samba_server - Network(std)
ftp://user:passwd@ftp_server - FTP(std)

Комментарий от 200603241341:
Для успешного подключения к удаленным хостам, используя префиксы plist: и reg: , требуется запущенная "Служба удаленного управления реестром"(RemoteRegistry). Опросить удаленно статус службы, равно как и запустить ее, можно с помощью утилиты sc(Service Control). В моем случае:


F:\Program Files\Far>sc \\bspserver query remoteregistry

SERVICE_NAME: remoteregistry
        TYPE               : 10  WIN32_OWN_PROCESS
        STATE              : 4  RUNNING
                                (STOPPABLE,NOT_PAUSABLE,
                                   IGNORES_SHUTDOWN)
        WIN32_EXIT_CODE    : 0  (0x0)
        SERVICE_EXIT_CODE  : 0  (0x0)
        CHECKPOINT         : 0x0
        WAIT_HINT          : 0x0

Это весьма удобно(мы имеем возможность быстро подсоединяться к любой машине домена, имея права, конечно же), но будет еще более удобней, если определить синонимы, используя Named Folders:

Команда cd::abc::x
позволяет создать псевдоним x для директории эмулируемой
файловой панели другого плагина.
abc - префикс, который открывает этот плагин,
например, "ftp://ftp.rarlab.com/", "reg:" и т.д.)

Как я использую:


Определил:
psbsp->plist:\\bspserver
psi5->plist:\\ivc005
regbsp->reg:\\bspserver
scbsp->svc:\\bspserver
sci5->svc:\\ivc005
bspc->\\bspserver\c$
bspe->\\bspserver\e$
bspsc->svc:\\bspserver
bspps->plist:\\bspserver
...
Вызываю следующим образом:
cd:ps - выпадает меню
cd:scbsp - управляю службами на \\bspserver
cd:bsp - снова меню, но уже помощнее..
cd:bspd\home\dron - аналог команды cd \\bspserver\d$\home\dron
...

Хотелось бы заметить, что использую я NamedFolders версии 1.48, потому как размер актуальной версии (365 Kб) меня пугает(вероятно, размер определяется используемым компилятором, а новая M$VS увеличила его на порядок - с 39Кб до 365 Кб), к тому же версия опубликованная на far-plugring, у меня не работала в принципе, фар выругался на ошибку загрузки модуля.

Technorati Tags: far, windows, admin, namedfolders

Мои скрипты: Squid Cache Client(scc.pl)

2006-03-23T12:26:00.000+02:00

Это мой втрой по счету сценарий написанный на тогда еще не знакомом perl.


#!/usr/bin/perl -w
#@description: simple squid-cache client v1.0b
#@author: areus/at/users.sf.net
#@date: 20030719
use strict;
use IO::Socket;
use Getopt::Std;

#main
unless (@ARGV) {
&do_print_usage;
exit 0;
}

my %option = ();
getopts("hs:alDo:", \%option);
my $verbous = 1 if $option{D};
$option{o} = "-" unless defined $option{o};
open(STDOUT, "> $option{o}") or
 die "Can't open $option{o} for output: $!\n";

if($option{a}) {
&do_print_all_stat;
exit 0;
}
if($option{l}) {
&do_enum_stat_names;
exit 0;
}
if($option{"s"}) {
print do_squid_cache_request($option{"s"});
exit 0;
}
if($option{"h"}) {
&do_print_usage;
exit 0;
}

#end of main
sub do_get_request {
  my ($sock, $query) = @_;
  die "Fatal: no open socket" unless($sock);
  $query = "GET $query HTTP/1.0\r\n\r\n";
  my $response;
  warn "Sending request [$query]" if $verbous;
  print $sock "$query";
  $response.=$_ while(<$sock>);
  my ($header, $content) = split("\r\n\r\n", $response);
return ($content);
}

sub do_squid_cache_request {
  my $sock = open_socket(3128, "localhost", "TCP");
  die "Fatal: Couldn't connect to squid" unless($sock);
  my $resp =
 do_get_request($sock, "cache_object://localhost/$_[0]");
  close $sock;
return $resp;
}

sub open_socket {
my ($port, $dest, $proto) = @_;
my $remote_sock = IO::Socket::INET->new(
                  Proto     => $proto,
                  PeerAddr  => $dest,
                  PeerPort  => $port,
                  #TimeOut   => $timeout
                  ) or print "Can't open connection to
                    $dest port $port because: $!\n";
$remote_sock->autoflush(1) if $remote_sock;
return($remote_sock);
}

sub do_print_all_stat {
my $items = do_squid_cache_request "menu";
my @cols;
foreach my $row (split("\n", $items)) {
  @cols = split "\t", $row;
  $_ = $cols[0];
  if ($cols[2] =~ m/public/i) {
    print "\r\n".("*" x 20)."\r\n*";
    print "*$_\t$cols[1]\r\n";
    print(("*" x 20)."\r\n*");
    s/\s//g;
    print do_squid_cache_request($_);
  }
}
}

sub do_enum_stat_names {
my $items = do_squid_cache_request "menu";
my @cols;
foreach my $row (split("\n", $items)) {
  @cols = split "\t", $row;
  $_ = $cols[0];
  print "$_\t$cols[1]\r\n" if ($cols[2] =~ m/public/i);
}
}

sub do_print_usage {
print( "Usage: $0
 -h: this help
 -s <stat_name>: print info only for <stat_name>
 -l: list all avaible stat_names
 -a: print all stats
 -D: turn on debug-messages
 -o <outfile>: output file
Examples:
 $0 -a -o all_cache_stat.txt
 $0 -s client_list
 $0 -s info
--
bugs and suggestions to areus/at/users.sf.net
");
}

Если вывод команды scc.pl "запайпить" на следующий сценарий:


#!/usr/bin/perl -w
#rate_squid_clients.pl
use Socket;

my ($addr, $name, $http_req_count, $cur_conn_count) = ();
my %clients;

while(<>) {
 if(/^Address:\s+(\d+\.\d+\.\d+\.\d+)/) {
   $addr = $1;
   $_ = <>;
   if(/^Name:\s+(.*)/) {
     $name = $1;
     $_ = <>;
     if(m/Currently\s+established\s+connections:\s+(\d+)$/) {
       $cur_conn_count = $1;
       $_ = <>;
       $_ = <>;
       if(/HTTP\s+Requests\s+(\d+)$/) {
         $http_req_count = $1;
         $_ = <>;
     $iaddr = inet_aton($addr);
     $host  = gethostbyaddr($iaddr, AF_INET);
     $addr=$host if $host;
     #warn $addr;
         @{$clients{$name}} = 
  ($addr, $http_req_count, $cur_conn_count);
       }
     }
   }
 }
}
foreach my $n ((sort {
       ${$clients{$b}}[2] <=> ${$clients{$a}}[2]
                          ||
       ${$clients{$b}}[1] <=> ${$clients{$a}}[1]
       } keys %clients)) {
            printf("%16s %16s %10d %4d \r\n", $n,
               ${$clients{$n}}[0],
  ${$clients{$n}}[1], ${$clients{$n}}[2])
;
}

то получим примерно следующее:


$ssc.pl -s client_list|./rate_squid_clients.pl |head -n 10
192.168.100.183     snab006.bstp      11544    4
192.168.100.223    admin002.bstp      28865    1
 192.168.100.29      ivc009.bstp      12291    1
 192.168.100.83      snab01.bstp       4473    1
 192.168.100.25      ivc005.bstp      31936    0
192.168.100.103      peo004.bstp      17186    0
192.168.100.162    gmssb002.bstp      11771    0
 192.168.100.11     pc10666.bstp      10812    0
  192.168.100.6     pc10052.bstp       7589    0

т.е. top-10 активно работающих машин.

Technorati Tags: мои+скрипты, squid, admin, perl

Мои скрипты: Folders Chart (fcex.js)

2006-03-23T11:46:00.000+02:00

Этим постом открываю рубрику "Мои скрипты".
Идея данного сценария родилась еще во время учебы в ariu в 2001 году, тогда сценарий выглядел так:


Set fso = CreateObject("Scripting.FileSystemObject")
set fld=fso.getFolder(".")
Set objXL = WScript.CreateObject("Excel.Application")
objXL.Workbooks.Add
objXL.Cells(1,2).Value = 10
objXL.Cells(1,3).Value = 15
i=1
for each f in fld.subfolders
objXL.Cells(i,1).Value = f.name
objXL.Cells(i,2).Value = f.size
i=i+1
next
objXL.Range("A:B").Select
objXL.Selection.Sort objXL.Range("B1")
Set objXLchart = objXL.Charts.Add()
objXLchart.Type = 5
objXL.Visible = True

Для удобства вызова я создал сценарий-обертку:


::chartex.cmd
cscript.exe "%ProgramFiles%\Far\bin\fcex.js"

Положил его в папку, которая находится в списке %PATH%. Теперь чтобы получить распределение занятого места в текущей папке, я набираю в командной строке chartex. Итак код сценария:


//Folders Chart
//dron@bcsp v1.1 200501121713
//description: draws folder chart
var nLevel=0;
var bDebug = true;
function debug(sStr){
if(bDebug)WScript.echo(sStr);
}

var MB = 1024*1024;
var MARGIN = 1/4

function drawFolderChartEx(oExcel, oFold, oFSO, oSh){
debug(oFold.Path);
var wb;
var sh;
var oFld;
var sName="";


with (oExcel) {
  wb = (Workbooks.Count == 0)?Workbooks.Add():ActiveWorkbook;
  sh = wb.WorkSheets.Add();
  sName = oFold.Path.replace(/[\\:]/g,"_");
  if(sName.length > 30) {
     sName = sName.replace(/.*(.{27})$/,"...$1");
     debug(sName);
  }
  sh.Name= sName;
  Application.DisplayAlerts = 0;
  Visible = 1;
  var s=0;
  var i=1;
  Cells(i,1).Value = "'Checking.";
  for (var e = new Enumerator(oFold.Files);
           !e.atEnd();
           e.moveNext())
  {
    s+=e.item().Size;
    Cells(i,1).Value += ".";
  }
  Cells(i,1).Value = "'."
  Cells(i,2).Value = /*parseInt(*/s/MB/*)*/;
  Cells(i++,3).FormulaR1C1 = "=R[0]C[-1]/R1C4";
  //i = 2;
  for (var e = new Enumerator(oFold.SubFolders);
           !e.atEnd();
           e.moveNext())
  {
    try {
      Cells(i,1).Value = "'" + e.item().Name;
      debug(Cells(i,1).Value);
      Cells(i,2).Value = /*parseInt(*/e.item().Size/MB/*)*/;
      Cells(i++,3).FormulaR1C1 = "=R[0]C[-1]/R1C4";
      s+=e.item().Size;
    } catch(ex) {}

  }
  Cells(1,4).Value = s/MB;
  sh.Range("A:B").Select();
  Selection.Sort(sh.Range("B1"), 2);
  var oChart = Charts.Add();
  oChart.Type = 5;
  debug(i);
  for (var j=1;j<i;j++){
     if(sh.Cells(j,3).Value > MARGIN && sh.Cells(j,1).Value != ".") {
        debug("recursive call: " + sh.Cells(j,1).Value + 
  " level: " + ++nLevel);
        oFld = oFSO.GetFolder(oFold.Path + "\\" + sh.Cells(j,1).Value);
        sh.Cells(j,5).Value = oFld.Path;
        drawFolderChartEx(oExcel,oFld,oFSO);
        nLevel--;
     }
  }
}
}

var oFSO = new ActiveXObject("Scripting.FileSystemObject");
var oFold = oFSO.GetFolder(".");
var oExcel = new ActiveXObject("Excel.Application");

drawFolderChartEx(oExcel, oFold, oFSO);

Сценарий рекурсивно будет чертить график распределения по текущей и каждой дочерней подпапки, размер которой составляет более MARGIN % родительской папки.

У меня это выглядит так:

Technorati Tags: wsh, мои+скрипты

И снова про Far

2006-03-23T10:59:00.000+02:00

Сегодня день моего увольнения из Бердянского Морского Торгового Порта. Позавчера решил все-таки установить Windows(не пропадать же лицензии), к слову, как раз в это время, год назад, я установил SLES9, после месячной работы, заказал ALT-Linux на lafox.net, и вскоре окончательно снес Windows. Окончательный мой выбор пал на Novell Suse Linux - до сих пор считаю его лучшим пользовательским дистрибутивом. Работая в разных дистрибутивах, я выяснил для себя, что возможность тотальной перенастройки/настройки всего и вся в linux весьма губительна, по крайней мере для меня... К тому же, ceteris paribus, огнелис работает в РАЗЫ медленнее(уповаю на субъективность) при одинаковых наборах расширений. Чего мне всегда не хватало, так это Far'а, точнее даже его редактора, с colorer'ом true-templatе'ом extsearch'ем, c Ctrl+[, с Shift+Enter, и многими другими выдающимися способностями(типа сдвигов вертикальных помеченных блоков). Да, я познакомился с emacs, имею базовые понятия в elisp, но лучшим для меня по сей день является именно редактор Far. Некоторое время назад я уже описывал свое использование colorer в Linux, в частности для генерации html кода, подсвечивающего синтаксис. Ранее я не замечал большинства возможностей супер-плагина, идущего в стандартной поставке - FAR Commands. Так вот, сегодня представляю "порт" скрипта генерации подсветки под windows:


clip:<colorer.exe -dc -dh -h "filename"

Добавив команду в пользовательское меню(по F2),

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

Technorati Tags: far, colorer, улучшения

Microsoft Windows Management Interface (WMI)

2006-03-22T15:46:00.000+02:00

Весьма содержательный ресурс, посвященный Microsoft Windows Management Interface (WMI).

Technorati Tags: wmi, windows, quickref

Нарисуйте мне bootchart, нарисуйте

2006-03-22T10:05:00.003+02:00

Bootchart'ы, которые чертились мною в недавнее время:

С ноута (SuSE 9.3 Pro):

bootchart.paxn, originally uploaded by andreipak.

Моей рабочей машины (SuSE 9.3 Pro):

bootchart.tserver 18.10.2005, originally uploaded by andreipak.

"Рендерилось" все это с помощью следующей "магической" команды:


curl -vv --form format=png \ 
--form log=@/var/log/bootchart.tgz \ 
http://render.bootchart.org:8080/bootchart/render \ 
> bootchart.`hostname`.png

curl рулит :).

Cypress - блог о dotnet и других технологиях, включая monad

2006-03-20T10:15:00.000+02:00

.Cypress

Блог одного человечка, который считает себя программистом!

Довольно молодой и в то же время содержательный блог, посвященный Microsoft .Net и в частности C#. В одном из постов с ссылками на ресурсы о революционном командном интерпретаторе от microsoft, была обнаружена интересная ссылка на русскоязычный материал - Обзор Windows Monad Shell (часть 1)
К слову, в конце февраля вышла уже beta-3, не за горами релиз, да и возможности shell под кодовым названием monad, действительно впечатляют - особенно тесная интеграция с ADSI, WMI и COM.

Дополнительные ссылки по теме:

Technorati Tags: monad, интересные+блоги, dotnet, shell

"Промениста Мрійкотвірка" від Psyshine

2006-03-08T13:05:00.000+02:00

18.03.06 (Суббота) "Промениста Мрійкотвірка" від Psyshine - PsyZone.ru

Після тривалого часу зануреного самоспоглядання повний наснаги Psyshine Records розпочинає свій новий сезон 2006. Приєднуйтесь до нашого свята весни і тепла на вечірці "Промениста Мрійкотвірка".
...
Діджеї:
...
Dimitro (Euphoria Promo, Бердянськ)
gree_shanti (Euphoria Promo, Бердянськ)
...
Майте на увазі: Перші 50 осіб отримають на вході безкоштовно концентрований заряд бадьорості і піднесення
(схвалено Міністерством охорони здоров'я України).

- цiкаво, що ж це за концентрований заряд?? :)

А ще хлопець, що презентував цей лінк , надiслав лінк на дуже цiкаву книжку - МАЙКЛ ТАЛБОТ - "Голографическая вселенная":

Если соединить теории Бома и Прибрама, мы получим радикально новый взгляд на мир: наш мозг математически конструирует объективную реальность путем обработки частот, пришедших из другого измерения – более глубокого порядка существования, находящегося за пределами пространства и времени. Мозг – это голограмма, свернутая в голографической вселенной.

Для Прибрама данный синтез означал, что объективный мир не существует – по крайней мере в том виде, к которому мы привыкли. За пределами привычного мира находится огромный океан волн и частот, в то время как реальность выглядит вполне конкретной только благодаря тому, что наш мозг преобразует голографические пятна в палки, камни и другие знакомые объекты, составляющие наш мир. Как мозгу (который сам состоит из частот материи) удается из таких нематериальных сущностей, как частотное пятно, синтезировать нечто, кажущееся твердым на ощупь? «Математический процесс, который Бекеши смоделировал с помощью своих вибраторов, является основополагающим для понимания того, как наш мозг конструирует образ внешнего мира», – утверждает Прибрам [17]. Другими словами, гладкая поверхность фарфоровой чашки и ощущение песка на берегу под ногами на самом деле всего лишь утонченная версия синдрома фантомных болей.

Согласно Прибраму, это не означает, что не существует фарфоровых чашек или песка на берегу. Это просто означает, что фарфоровая чашка имеет два совершенно различных аспекта своей реальности. Когда она пропускается через линзы вашего мозга, она проявляет себя как чашка. Но если снять эти линзы, мы ощутим ее как интерференционный паттерн. Какой из этих образов истинный, а какой ложный? «Истинны оба, – говорит Прибрам, – или, если хотите, оба ложны»
...
Если бы каждый из нас имел доступ к знаниям, накопленным всем человечеством и запрятанным в подсознании, мы все были бы ходячими энциклопедиями. Психолог Роберт Андерсон из Ренслерского политехнического института в г. Трой (штат Нью-Йорк) считает, что мы можем получать только ту информацию импликативного порядка, которая непосредственно связана с нашей памятью. Андерсон называет этот селективный процесс персональным резонансом и сравнивает его с вибрацией камертона, который будет входить в резонанс с другим камертоном, только если второй камертон имеет подобную структуру, форму и размеры. «Благодаря персональному резонансу сравнительно малое число из почти бесконечного набора "образов" импликативной голографической структуры вселенной доступны персональному сознанию человека, – говорит Андерсон, – поэтому, когда просветленные личности достигали единого сознания много столетий назад, они не писали теорию относительности, как Эйнштейн, а использовали свой опыт» [2].

читаю із превеликим захопленням.. До того ж на сайті ще багато цікавих книжок.

Technorati Tags: fun, шутки, trance, затосы, ebooks, эзотерика

Создан продукт Accelerated Knoppix, отличающийся значительно уменьшенным временем загрузки.

2006-03-07T12:58:00.000+02:00

OpenNews: Вышла версия Knoppix нацеленная на уменьшение времени загрузки

На базе LiveCD Knoppix создан продукт Accelerated Knoppix, отличающийся значительно уменьшенным временем загрузки.

Оптимизировав скрипты для автоопределения типа оборудования и проведя корректировку блоков данных для файловой системы cloop, удалось сократить время загрузки до 60 секунд, что в два раза меньше стандартного Knoppix.

Вижу связь с другим японским приложением bootchart'a к knoppix'у:
kernel2.6 (512MB, BootTime 3:48)

kernel2.6 + readahead (512MB, BootTime 2:45)

Японцы ускоряют knoppix, и изощряются с xen, создавая Xenoppix'ы, которые позволяют грузить даже несколько гостевых ОС(NetBSD, Plan9) или грузить Knoppix из windows, используя coLinux в связке с cygwin/X.

Technorati Tags: bootchart, linux, knoppix, speedup, visualisation, japan, colinux

Комплексное решение задачи управления трафиком Linux, iptables, iproute2, esfq, layer-7, geoip

2006-03-07T10:01:00.000+02:00

Просветился немного. Просто супер:
Знакомство с iptables и iproute2. Часть II. (комплексное решение задачи управления трафиком)

разделенине трафика на местный и зарубежный, iptables, geoip, csv2bin; iproute2;
ограничение скачивания больших файлов, connbytes;
разделение полосы поровну между IP-адресами, esfq;
блокирование трафика bittorrent, edonkey, dc++ и др. P2P по контенту, layer-7
...
ПОСТАНОВКА РЕШАЕМОЙ ЗАДАЧИ
Предоставить локальной сети (ЛВС) интернет (NAT сервер).

Сделать местный трафик поступающий в локальную сеть не превышающим IN_RATE_LV
Сделать зарубежный трафик поступающий в локальную сеть не превышающим IN_RATE_NLV
Сделать местный трафик исходящий с NAT-сервер не превышающим OUT_RATE_LV
Сделать зарубежный трафик исходящий с NAT-сервер не превышающим OUT_RATE_NLV
Полоса принадлежащая классу распределяется равномерно по IP-адресам (дисциплина обслуживания ESFQ)

От этого автора имеется вводная часть по сетевым програмным пакетам iptables и iproute2

Technorati Tags: admin, linux, traffic, iproute2, iptables, route, qos

LG#124: Создание многоместной Linux системы с 6-ю мониторами

2006-03-07T09:21:00.000+02:00

onorua: Создание многоместной Linux системы с 6-ю мониторами

документ, рассказывает как создать многоместную, многопользовательскую Linux систему используя новейшее Linux ПО и стандартные USB мыши и клавиатуры. Xorg называет это - "многоместная" ("multi-seat") система.
...
Для создания 6-ти рабочих мест, вам так же нужна материнская плата с AGP слотом и 5 доступных PCI слотов. Вам так же потребуется 5 PCI видеокарт. В нашей тестовой системе мы использовали только USB клавиатуры и мыши, но вы можете использовать так же PS/2 клавиатуру и мышь для одного из мест, если хотите конечно.

оригинал в LG: Build a Six-headed, Six-user Linux System.

Technorati Tags: linux, hardware, LG, x-windows, admin, красивые+решения

bootchart.tserver 18.10.2005

2006-02-15T14:13:00.000+02:00

bootchart.tserver 18.10.2005, originally uploaded by andreipak.

с моей рабочей машины (Cel. 2,4Ghz 768Mb RAM)

Colorer в Linux

2006-01-27T08:53:00.000+02:00

В этой заметке я поведаю о замечательной системе подсветки синтаксиса(syntax highlighting) под названием Colorer. Мое знакомство с этой системой произошло еще когда я учился в ARIU. Я хотел чтобы в редакторе Far появилась подсветка синтаксиса, как в DOS Navigator'е. Первого помощника в этом деле плохо памятую, кажется, это был highlight, а вот colorer я использую и по сей день, а это более четырех лет. Расскажу немного про автора, и его работы. Автором Colorer является наш соотечественник Игорь Русских, он является автором супер-расширяемого калькулятора под Far. Кроме того, он создал шустрый и маленький SGML-парсер(XML он тоже парсит, т.к. XML-подмножество оного), и не менее шуструю библиотеку для работы с регулярными выражениями(regexp), я ее даже использовал:


//v 1.1 by areus 03.03.03
#include <stdio.h>
#include <regexp\cregexp.h>
#include <string.h>

void filterStdIn(char *sRegExp){

SMatches match;
PRegExp re;
bool isOK;
char text[255];
char *sMatch;

re =  new CRegExp();
sMatch = new char[255];
int len, i;
if (!re->SetExpr(sRegExp)){
  printf("Error in regexp: %s\n", sRegExp);
  return;
}
puts(sRegExp);
while(!feof(stdin)) {
  fgets(text, 255, stdin);
  isOK = re->Parse(text, &match);
  for(i=0; i<match.CurMatch && isOK ; i++){
    if(match.s[i] > -1){
      len = match.e[i] - match.s[i];
      strncpy(sMatch, text + match.s[i], len);
      sMatch[len] = '\0';
      printf("%s ", sMatch);
    }
  }
  if(isOK)printf("\n");

}
delete re, sMatch;
}

main(int argc, char **argv){
if(argc>1){
  filterStdIn(argv[1]);
}else{
  printf("RegExpFilter 1.0 [using Colorer's rx-lib]
  \r\nusage:\r\ndir | %s /regexp/[gmi]", argv[0]);
}
}

Все перечисленное - opensource(см. исходники Colorer), и кроссплатформенно!. Colorer также доступен как плагин для платформы Eclipse. Про использование Colorer в Far я позже напишу в статье "Far - универсальная IDE", а вот как я использую colorer под Linux, опишу уже сейчас. Скачаем пакет colorer для linux, и установим, замечу, что это самый короткий configure-скрипт:


$./configure
loading cache ./config.cache
checking how to run the C preprocessor... (cached) cc -E
checking whether ln -s works... (cached) yes
checking whether make sets ${MAKE}... (cached) yes
checking for main in -ldl... (cached) yes
checking for main in -lm... (cached) yes
checking for main in -lc... (cached) yes
checking for working const... (cached) yes
checking for inline... (cached) inline
creating ./config.status
creating Makefile
$make
$su -c 'make install'

Список подсвечиваемых синтаксисов довольно обширен, их 156(!):


$colorer -l|wc -l

Colorer-take5 Library beta4 01.12.2004
Copyright (c) 1999-2005 Igor Russkih 


loading file types...
156

Использвание консольной colorer подробно описано тут. Я же ограничусь небольшими примерами.

Создадим маленький исходник на языке C:


$echo -e '#include\n\nmain(){\nprintf("hello colorer\\n");\n}' > hc.c
Посмотрим на него:
$cat hc.c
#include

main(){
printf("hello colorer\n");
}

Сгенерируем HTML с подсветкой в файле hc.html:


$colorer -h hc.c -o hc.html

Заметим что Colorer автоматически определил тип файла, и соответственно подсветил синтаксис. Автоопределение происходит как по расширению, так и по magic-байтам(это можно менять, правя соотв. *,hrc файлы). Такое поведение можно изменять, жестко указав тип(ключ -t).

Если мы не указываем имя выходного файла (ключ -o), и указываем отключить HTML заголовки (ключ -dh, что значит disable headers), то получаем на STDOUT html-разметку для вставки(html-snippet):

Я копирую и вставляю эту разметку в html-код этого поста:

#include<stdio.h>

main(){
printf("hello colorer\n");
}

Теперь, если обьединить это с функцией clip:

html-snippet "ляжет" прямо в буфер обмена(clip -p перенаправит вывод в буфер), после чего остается только вставить код в редактируемый пост. Для удобства я написал следующую функцию:


function chl {
colorer -dh -h $* | clip p
}

положил ее в ~/.alias и использую ее так: chl
Например:


chl print_ora_users_ldif.pl

Можно передавать Colorer'у ключи, например для нумерации строк:


chl -ln print_ora_users_ldif.pl

Можно перенаправлять STDOUT:


cat print_ora_users_ldif.pl |chl

Замечу, что код подсветки зачастую занимает довольно большой объем. За его сокращение "отвечает" ключ -ht, но в этом случае нам нужно сперва определить соответствующие css-классы(def_Comment,def_Syntax, и т.д.).

Очень жаль, что недоступна страница Midnight Commander integration page, ссылка на которую есть на офсайте, потому как других упоминаний о такой интеграции, мне найти не удалось.

Система генерации HTML Colorer'ом доступна в online.

Дополнительные ссылки:

KDE 4 Screenshots

2006-01-27T08:23:00.000+02:00

Поглядел на коллекцию скриншотов KDE4.
Красиво, особенно понравился вот этот шот:

Wine 0.9.5 vs Windows XP SP2

2006-01-25T23:18:00.000+02:00

MadDog’s Blog » Wine 0.9.5 vs Windows XP SP2

При проведении серии тестов производительности последний релиз свободной реализации WinAPI с открытым кодом — Wine 0.9.5 — в половине случаев показал более высокие результаты, чем Windows XP SP2.

Скоро wine перегонит native-среду. Все возможно!

inforedesign » новички-21

2006-01-25T22:47:00.000+02:00

inforedesign » новички-21
Денис Перехрест включил меня в свой регулярно обновляемый раздел "новички" в 21 выпуск, было это 31 октября. В 21 век - со своим блогом.

Это первый пост, который я пишу под виндой у себя дома, используя расширение для firefox под названием perfomance. Классная вещь, интегрируется с сервисами technocrati и del.icio.us, шлет trackbacks, да еще много чего умеет. Кроме того, я плавно перехожу на firefox 1.5, и сейчас работаю в portable firefox 1.5, который не требует установки, т.е. достаточно скопировать папочку со всеми расширениями и моими настройками. Вскоре я намереваюсь опубликовать небольшой дистрибутив на основе именно portable firefox, где соберу все полезные расширения, выбранные в течение года использования огнелиса.

Technorati Tags: firefox, примочки блоггера, paxoblog

Xming - бесплатный X-сервер под Win32

2006-01-25T10:32:00.000+02:00

freedesktop.org - Xming - это порт X Window System под Microsoft Windows. В отличие от Cygwin/X, он не зависит от Cygwin окружения.
Как использовать:

Скачаем , установим и запустим Xming. Он будет висеть в трее:
Скачаем и запустим(он не требует установки) Putty - лучший win32 ssh-клиент.
Настроим сессию в Putty:

Соединимся с X-клиентом, нажав у Putty "open" (замечу, что в терминах X-ов это именно клиент, а машина под windows - сервер), аутентифицируемся и запустим произвольное X-приложение:

Как видно все очень просто: я запустил на удаленном linux-сервере конфигуратор Oracle(dbca), а работаю с его окном под windows.

Работа со строками в Bash из 'Tips от Madskull'a: bash'

2006-01-25T09:14:00.000+02:00

Замечательнейший документ!!
Содержание документа Tips от Madskull'a: bash:
"
* Ожидание запущенных в фоне задач
* прерывание по таймеру (SIGALRM)
* параметры в скриптах и функциях
* массивы
* trap: ловим прерывания (updated)
* Прогрессбар в bash-скриптах
* Чтение конфигов в скрипте
* Работа со строками
* Подстановка параметров
* getopts
* Переменные
* Цвета ECHO
* Спецсимволы
* Некоторые команды
"

Сворую только один раздел:

Работа со строками

Длина строки

${#string}

Извлечение подстроки


${string:position}
# с position до конца

${string:position:length}
# с position длиной length символов

${string: -length}
# последние length символов

Удаление части строки


${string#substring}
# до первого с начала

${string##substring}
# до последнего с начала

${string%substring}
# до первого с конца

${string%%substring}
# до последнего с конца

Замена подстроки


${string/substring/replacement}
# первое вхождение

${string//substring/replacement}
# все вхождения

${var/#Pattern/Replacement}
# Если в переменной var найдено совпадение с Pattern,
# причем совпадающая подстрока
# расположена в начале строки (префикс),
# то оно заменяется на Replacement.
# Поиск ведется с начала строки

${var/%Pattern/Replacement}
# Если в переменной var найдено совпадение с Pattern,
# причем совпадающая подстрока
# расположена в конце строки (суффикс),
# то оно заменяется на Replacement.
# Поиск ведется с конца строки

Замечачание к разделу "чтение конфигов в скрипте":
Есть в bash змечательный оператор включения в скрипт другого скрипта/файла("."). Его наличие практически сводит на нет такое "хитрое" чтение конфигов.
Вот пример:


#!/bin/bash
#set-route

. ./route.conf

#change this in /etc/iproute2/rt_tables
TABLE=sirius

echo `date +'%s %y/%m/%d %T'` $@ >> $0.log

ip route delete default table $TABLE
ip route add default via $UKRTEL_GW dev $UKRTEL_IF table $TABLE

cat ./route.conf:


#!/bin/bash
#P2 - utel
P2_NET=192.168.1.0/24
UKRTEL_NET=$P2_NET
IF2=sirius
UKRTEL_IF=$IF2
P2=192.168.1.31
UKRTEL_GW=$P2
P2_TBL=ukrtel
IP2=192.168.2.31

#P1 -point
#net-id=44, net-hosts:45-46, bcast:47

#$P1_NET be the IP network $P1
P1_NET=192.16.101.44/30
POINT_NET=$P1_NET
#$IF1 be the name of the first interface
IF1=eth1
POINT_IF=$IF1
#$P1 be the IP address of the point-gateway
P1=193.16.101.45
POINT_GW=$P1
P1_TBL=point
#$IP1 be the IP address associated with $IF1
IP1=193.16.101.46

Таким образом мы храним общие параметры в отдельном файле и "инклюдим" их по надобности.

Дополнительные ссылки:

yole.ru / Structorian

2006-01-25T02:27:00.000+02:00

Весьма интересный проект.
yole.ru / Structorian:

Язык описания структур, используемый Структорианом, достаточно мощен и по синтаксису напоминает C. Описывать простые структуры в Структориане не сложнее, чем вводить их описания на C. В то же время, для более сложных структур Структориан позволяет задавать иерархию данных, использовать циклы, условия, мощный механизм вычисления выражений и другие возможности. В идеале, Структориан должен позволять адекватно описывать любой реально существующий формат данных или сетевой протокол.

Структура, описывающая формат zip-файла(см. Strs/zip.strs) представлена ниже:


// ZIP archive structures
// Compiled by Dmitry Jemerov 
// Based on .ZIP File Format Specification Version 4.5

enum ZipCompressionMethod
{
"Stored", "Shrunk", "Reduced1", "Reduced2", "Reduced3", "Reduced4",
"Imploded", "Tokenized", "Deflated", "Deflate64'ed",
"PKWARE Data Compression Library Imploded"
}

enum ZipFlags
{
Encrypted
}

[filemask="*.zip"]
struct LocalFileHeader
{
u32         Signature;
assert (Signature == 0x04034b50);
u16         VersionToExtract;
set16       Flags [enum=ZipFlags];
enum16      CompressionMethod [enum=ZipCompressionMethod];
dosdatetime LastModification [timefirst];
x32         CRC32;
u32         CompressedSize;
u32         UncompressedSize;
u16         FileNameLength;
u16         ExtraFieldLength;
str         FileName [len=FileNameLength];
nodename    FileName;
if (ExtraFieldLength > 0)
{
 blob      ExtraField [len=ExtraFieldLength];
}

skip CompressedSize;
[hidden] u32 _nextSignature;
skip -4;
if (_nextSignature == 0x04034b50)
{
 sibling LocalFileHeader;
}
elif (_nextSignature == 0x02014b50)
{
 sibling CentralFileHeader;
}
}

struct CentralFileHeader
{
u32         Signature;
assert      (Signature == 0x02014b50);
u16         VersionMadeBy;
u16         VersionToExtract;
bits16      Flags;
enum16      CompressionMethod [enum=ZipCompressionMethod];
dosdatetime LastModification [timefirst];
x32         CRC32;
u32         CompressedSize;
u32         UncompressedSize;
u16         FileNameLength;
u16         ExtraFieldLength;
u16         FileCommentLength;
u16         DiskNumberStart;

}

Теперь загрузим ее и "натравим" на zip-дистрибутив самого structorian'a:

Структура(см. Strs/exe.strs) PE-файла(коими являются почти все *.dll, *.exe и даже *.sys) определяет следующее дерево:

Скриншоты немного "кривоваты" - это из-за Wine'а.
В комлекте идут множество готовых структур(27):


dron@tserver:~/work/mny/ib/structorian/Strs> ls -gG
-rw-r--r--  1   422 2002-06-26 23:00 bmp.strs
-rw-r--r--  1   622 2004-05-15 12:42 DocFile.strs
-rw-r--r--  1  1028 2004-07-31 19:45 Escher.strs
-rw-r--r--  1 16777 2002-07-14 22:13 exe.strs
-rw-r--r--  1  1009 2004-08-07 12:55 Fido.strs
-rw-r--r--  1   255 2002-11-07 23:45 HomePlanet.strs
-rw-r--r--  1 48148 2004-08-17 09:23 infinity.strs
-rw-r--r--  1  1523 2003-04-17 21:09 Java.strs
-rw-r--r--  1  3875 2004-07-31 19:10 MicrosoftWord.strs
-rw-r--r--  1  3243 2003-06-04 00:05 MIDI.strs
-rw-r--r--  1  2763 2003-08-05 09:02 Miranda.strs
-rw-r--r--  1  6587 2002-07-16 15:45 Morrowind.strs
-rw-r--r--  1   399 2002-08-01 21:30 Neocron.strs
-rw-r--r--  1  1912 2003-10-25 16:48 oedbx.strs
-rw-r--r--  1   184 2003-05-09 16:21 PDB.strs
-rw-r--r--  1  1593 2002-07-15 19:29 Python.strs
-rw-r--r--  1  1384 2003-05-01 23:43 Quake2.strs
-rw-r--r--  1  5040 2002-08-08 22:21 Quake3.strs
-rw-r--r--  1  2399 2003-12-21 14:56 Quake.strs
-rw-r--r--  1  2381 2002-10-15 21:10 rar.strs
-rw-r--r--  1  3210 2002-12-28 20:16 SMS.strs
-rw-r--r--  1  2082 2003-04-26 13:03 TADS3.strs
-rw-r--r--  1  1472 2002-08-19 22:57 TheBat.strs
-rw-r--r--  1   330 2003-04-12 17:04 titbit.strs
-rw-r--r--  1  3270 2002-07-06 16:18 t-mail.strs
-rw-r--r--  1   144 2002-07-16 08:25 vssver.scc
-rw-r--r--  1  1716 2002-10-15 22:58 zip.strs

Но самое главное что инструмент позволяет определять свои структуры, ведь он задумывался именно для этого. О том как это делать, нам поведает учебник, идущий в комплекте с программой, правда, на английском.

--

Автор проекта - Дмитрий Жемеров. Он имеет прямое отношение к моему любимому файловому менеджеру Far: "Я входил в состав группы разработки FAR Manager с весны 2001 года и до выхода FAR 1.70 beta 5. Я отвечал практически за всю документацию, входящую в поставку FAR, переводил её на английский, вёл файл справки по API плагинов (plugins.hlp). Кроме того, я поддерживал плагин Network Browser и участвовал в разработке собственно FAR." Он является создателем библиотеки FarPlus, которая в разы упрощает написание плагинов для Far'а(посмотрите на его исходники для FarUinst или на StartMgr). Он же является автором супер-приложения omea, с ней я не работал, но анонс впечатлил. Да много чего еще он написал. Дмитрий ведет блог на английском языке, а также ЖЖ.

Изучим за 10 минут Python c Пороменосом

2006-01-23T15:58:00.000+02:00

Learn Python in 10 minutes | Poromenos' Stuff: "This tutorial will attempt to teach you Python in 10 minutes"
Смелое завление, но автор выполнил обещание! Написано на английском, но материал будет понятен и русскми и китайцам :). Питон действительно простой язык!
--
А drupal я сразу узнал..

Сказ про DCOP и Klipper

2006-01-23T10:26:00.000+02:00

DCOP(Desktop COmmunication Protocol) - один из интерфейсов межпроцессного взаимодействия(IPC), который был разработан в рамках проекта KDE.
Модель взаимодействия довольно проста. Каждое приложение, использующее DCOP называется клиентом. Приложения связываются друг с другом через DCOP-сервер, который отвечает за доставку сообщений или вызовов в правильном направлении. DCOP поддерживает два вида действий: неблокирующие сообщения вида "послать и забыть"(send and forget), и блокирующие "вызовы" (calls), которые ожидают возврата некоторых данных. Существует одноименная консольная утилита dcop, которая позволяет "разговаривать" с приложениями, поддерживающими DCOP, а это почти все KDE-приложения.
Упрощенный синтаксис следующий(подробней - man dcop):


dcop [ application [object [function [arg1] [arg2] [arg3] ... ] ] ]

Для начала вызовем dcop без аргументов:


dron@tserver:~> dcop
kwin
kicker
konqueror-4989
kded
kmix
knotify
suseplugger
kio_uiserver
kcookiejar
konsole-7156
mldonkeyapplet
klauncher
khotkeys
sim
konqueror-11604
kdesktop
klipper
ksmserver

Мы получили список приложений с которыми можем наладить коммуникации через DCOP. Чтобы получить интерфейсы по конкретному приложению мы вызываем dcop с аргументом-приложением, пример для k3b:


$dcop k3b
qt
K3bInterface (default)
K3bMainwindow
K3bProject-0
K3bProject-1
KBookmarkManager-/home/dron/.kde/share/apps/k3b/bookmarks.xml
KBookmarkManager-/home/dron/.kde/share/apps/konqueror/bookmarks.xml
KBookmarkNotifier
KDirNotify-1
KIO::Scheduler
MainApplication-Interface
k3b
ksycoca

Опросим дальше:


$dcop k3b MainApplication-Interface
QCStringList interfaces()
QCStringList functions()
void disableSessionManagement()
QCString startupId()
QCString caption()
void quit()
void reparseConfiguration()
void updateUserTimestamp(ulong time)
dron@tserver:~> dcop k3b K3bInterface
QCStringList interfaces()
QCStringList functions()
DCOPRef createDataCDProject()
DCOPRef createAudioCDProject()
DCOPRef createMixedCDProject()
DCOPRef createVideoCDProject()
DCOPRef createMovixCDProject()
DCOPRef createDataDVDProject()
DCOPRef createVideoDVDProject()
DCOPRef createMovixDVDProject()
DCOPRef currentProject()
DCOPRef openProject(KURL url)
QValueList projects()
void copyCd()
void copyDvd()
void eraseCdrw()
void formatDvd()
void burnCdImage(KURL url)
void burnDvdImage(KURL url)
void addUrls(KURL::List urls)
void addUrl(KURL url)
bool blocked()

Но мы немного удалились от темы: причем тут klipper?? А при том что он тоже из комплекта KDE и тоже поддерживает DCOP:


dron@tserver:~> dcop klipper klipper
QCStringList interfaces()
QCStringList functions()
QString getClipboardContents()
void setClipboardContents(QString s)
void clearClipboardContents()
void clearClipboardHistory()
QStringList getClipboardHistoryMenu()
QString getClipboardHistoryItem(int i)
int newInstance()
void quitProcess()

Так мы выведем на экран содержимое буфера обмена:


dcop klipper klipper getClipboardContents

А так определим свое содержимое буфера обмена:


dcop klipper klipper setClipboardContents myText

Просто, а впечатляет. Мне часто приходится копировать тексты в виртуальную машину(VMWare) и в терминальные подключения(rdesktop), при этом многострочные тексты не копируются. Я решаю проблему через сетевой диск - создавая файл и копируя в него содержание буфера. Вот моя функция-обертка для взаимодействия с буфером обмена(klipper):


function clip() {
#dron@bcsp 20060113
case "$1" in
e|--echo)
 dcop klipper klipper getClipboardContents
 ;;
d|--dump)
  dcop klipper klipper getClipboardHistoryMenu
  ;;
h|--history)
  [ -z $2 ] && {
     echo Need Numeric Index [0..N]
    return 1
   }
  dcop klipper klipper getClipboardHistoryItem $2
  ;;
t|ts|tempsave)
  FN=`date +%s`.`hostname`.clp
  dcop klipper klipper getClipboardContents > /temp/$FN
  echo saved as "t:\\$FN [/temp/$FN]"
  ;;
p|--pipe)
  dcop klipper klipper setClipboardContents "$(cat)"
  ;;
--help)
  echo usage: clip ['echo|dump|history|tempsave|pipe']
  ;;
*)
 dcop klipper klipper getClipboardContents
esac

}

она лежит у меня в ~/.bash_rc, точнее в ~/.alias, который "инклюдится" в ~/.bash_rc.

Использование:

Просто выдать содержимое буфера:


$clip

Выдать историю буфера(--dump):


$clip d

Это бывает очень полезным при том, что вывод можно фильтровать, например:


$clip d|grep 'http://'

В результате мы получим строки с URL, которые "проходили" через буфер. Всякий раз, выделяя текст, klipper копирует его в буфер(мне уже и в win этого не хватает), это, равно как и размерность истории определяется в настройках:

Перенаправление STDOUT(--pipe):


$clip p < /etc/passwd 
$ls -la|clip p  
$echo "Hello"|clip p

Пользуюсь этим очень часто, решение подсмотрел.
Сохранение содержания буфера во временный файл(--tempsave):


$clip ts
saved as t:\1138011151.tserver.clp [/temp/1138011151.tserver.clp]

После сохранения, я открываю этот файл с сетевого диска под Windows(простым выделением мышкой в konsole), а после в Far уже: Shift+F4,Shift+Ins - для открытия.

Еще примеры использования dcop

Выйти из системы(logout):


$dcop kdesktop default logout

Переключить на другой десктоп:


$dcop kwin default setCurrentDesktop 2

Вывести список интерфейсов для окна k3b:


$dcop k3b K3bMainwindow

Скрыть окно k3b(show - для показа):


$dcop k3b K3bMainwindow hide

Переключить обои на рабочем столе:


$dcop kdesktop KBackgroundIface currentWallpaper 1

Отключить поддержку Java в табе konqueror:


$dcop konqueror-11604 html-widget1 setJavaEnabled false

Пример-сценарий c использованием k3b:


#!/bin/bash
PROJECT=`dcop k3b K3bInterface createDataCDProject`
dcop $PROJECT createFolder folderlvl0
dcop $PROJECT createFolder folderlvl1 /folderlvl0
dcop $PROJECT addUrl /tmp /folderlvl0/folderlvl1
dcop $PROJECT burn

Добавлено в 15:08 - пример от EnErGy[CSDX]:


$dcop amarok nowPlaying
ASTRIX - FREESTYLE CAFE

От себя:
player является дефолтным интерфейсом для amarok, поэтому мы можем писать dcop amarok и любой из нижеследующих аргументов:


$dcop amarok player
QCStringList interfaces()
QCStringList functions()
bool dynamicModeStatus()
bool equalizerEnabled()
bool isPlaying()
bool randomModeStatus()
bool repeatPlaylistStatus()
bool repeatTrackStatus()
int getVolume()
int sampleRate()
int score()
int status()
int trackCurrentTime()
int trackPlayCounter()
int trackTotalTime()
QString album()
QString artist()
QString bitrate()
QString comment()
QString coverImage()
QString currentTime()
QString encodedURL()
QString engine()
QString genre()
QString lyrics()
QString lyricsByPath(QString path)
QString nowPlaying()
QString path()
QString setContextStyle(QString)
QString title()
QString totalTime()
QString track()
QString type()
QString year()
void configEqualizer()
void enableDynamicMode(bool enable)
void enableOSD(bool enable)
void enableRandomMode(bool enable)
void enableRepeatPlaylist(bool enable)
void enableRepeatTrack(bool enable)
void mediaDeviceMount()
void mediaDeviceUmount()
void mute()
void next()
void pause()
void play()
void playPause()
void prev()
void queueForTransfer(KURL url)
void seek(int s)
void seekRelative(int s)
void setEqualizer(int,int,int,int,int,int,int,int,int,int,int)
void setEqualizerEnabled(bool active)
void setEqualizerPreset(QString name)
void setLyricsByPath(QString url,QString lyrics)
void setScore(int score)
void setScoreByPath(QString url,int score)
void setVolume(int volume)
void showBrowser(QString browser)
void showOSD()
void stop()
void transferDeviceFiles()
void volumeDown()
void volumeUp()
void transferCliArgs(QStringList args)

Дополнительные ссылки:

Утилиты командной строки для Windows 2003 и Windows XP

2006-01-20T11:20:00.000+02:00

Windows IT Pro::Windows NT/2000/XP/2003::Утилиты командной строки для Windows 2003 и Windows XP:
"В состав систем Windows Server 2003 и Windows XP Professional Edition входит ряд утилит командной строки, которые позволяют сэкономить время и силы при выполнении таких типичных операций, как создание и управление журналами событий, настройка страничного файла и файла Boot.ini, управление процессами и определение свободного дискового пространства. "

Узнал много нового из данной стати, и весьма удобного. Для работы многих WSH-сценариев, нужно выполнить

 c:\>cscript //h:cscript //nologo //s

что укажет серверу сценариев использовать консольный(CLI) интерпретатор cscript.exe вместо GUI-собрата - wscript.exe, и подавить вывод баннера(версию сервера)
Примеры
Осмотр event-логов(CLI заменитель для GUI eventvwr.exe) может осуществляться и, подключаясь, к удаленным системам (ключ /S). Это может быть и контроллер домена.


    EVENTQUERY.vbs 
    EVENTQUERY.vbs /L system 
    EVENTQUERY.vbs /S system /U user /P password /V /L 
    EVENTQUERY.vbs /R 10 /L Application /NH
    EVENTQUERY.vbs /R -10 /FO LIST /L Security
    EVENTQUERY.vbs /R 5-10 /L "DNS Server"
    EVENTQUERY.vbs /FI "Type eq Error" /L Application
    EVENTQUERY.vbs /L Application
            /FI "Datetime eq 06/25/00,03:15:00AM-06/25/00,03:15:00PM"
    EVENTQUERY.vbs /FI "Datetime gt 08/03/00,06:20:00PM"
            /FI "Id gt 700" /FI "Type eq warning" /L System
    EVENTQUERY.vbs /FI "Type eq error OR Id gt 1000 "

Работа с триггерами(обработчиками) событий. Интересно, где система хранит такую информацию, консоль ведь "отпускает". Где-то в недрах WMI..
Будет время, разберу исходный тект.


    EVENTTRIGGERS /Create /?
    EVENTTRIGGERS /Create /TR "Очистка диска" /L SYSTEM /T ERROR
                         /TK c:\windows\system32\cleanmgr.exe
    EVENTTRIGGERS /Create /S <система> /U <пользователь> /TR "Мало места"
                          /EID 4133 /T WARNING^
                          /TK \\<сервер>\<ресурс>\dsk.cmd
    EVENTTRIGGERS /Create /S <система> /U <домен>\<пользователь> /P <пароль>
                          /TR "Архивация" /EID 4133 /L SYSTEM
                          /T ERROR /TK \\<сервер>\<ресурс>\ntbackup.exe
    EVENTTRIGGERS /Create /RU <пользователь> /RP <пароль> /TR "Архивация"
                          /TK \\<сервер> \<ресурс>\ntbackup.exe /EID 4

c:>Eventtriggers /Create /TR "Очистка диска" /L SYSTEM /T ERROR /TK
C:\windows\system32\cleanmgr.exe
ПРЕДУПРЕЖДЕНИЕ: Создан новый триггер событий, но он может не работать...
УСПЕХ: Создан триггер событий "Очистка диска".

Работаем с процессами - tasklist/taskkill. Знал и раньше, но про такую продвинутую фильтрацию слышу впервые.


    tasklist /FI «SERVICES eq RemoteRegistry»
    taskkill /FI «WINDOWTITLE eq Безымянный — Блокнот»

Особенно понравилась утилита forfiles.exe, но ее нет в WinXP
Но самая-самая команда вот:


hh %SystemRoot%\Help\Ntcmds.chm

И без нее никуда.
Что можно сказать? Microsoft не стоит на месте и развивает,иногда, направление CLI.
Они реализовали и развивают технологии WSH, ADSI, WMI, а теперь еще и Monad, которые превращают жизнь админа в сущий рай :), где уже давно находятся админы-юниксоиды.

Про блондинок

2006-01-20T09:37:00.000+02:00

Шутки про блондинок довольно популярны, но ТАКОГО я, признаться, давно не встречал. И так давно уже не смеялся... см. ссылку: Лучшая шутка про блондинок - Sell Me

Стив Павлина: Как стать собой настоящим

2006-01-20T08:55:00.000+02:00

В первый раз узнал о трудах Steve Pavlina, читая у Дениса Перехреста inforedesign: как стать “ранней пташкой”-2. Недавно "встретил" еще русские переводы его статей.

Приведу некоторые цитаты:

flash_usb: Как стать собой настоящим:
"Одна из трактовок этой медитации состоит в том, что моё подсознание создало эту воображаемую личность как проекцию того, кем я мог стать — идеализированным вариантом меня. Но, может быть, на каком-то уровне эта личность действительно существует. Каким образом появилась эта модель, однако, не так важно для меня, как то, каким образом она помогает мне расти."

"Сознательные люди делают это легко и свободно. Ярлыки и звания ничего не значат. Два сознательных человека могут впервые встретиться и через несколько минут общаться на тему миссии, цели и смысла жизни. Неважно, если один носит костюм, а другой — дырявые джинсы и футболку. Они могут этого не заметить. Они общаются по существу, потому что такие люди говорят так, будто имеют дело напрямую с душой друг друга."

rafo: Прекращаем откладывать дела на на потом:
"Если ты говоришь себе – 'Я должен подготовить бумаги сегодня' или 'Я должен завершить создание этого отчёта' – скорее всего ты ввергаешь себя в состояние стресса и откладываешь задачу на потом. Решение заключается в том, чтобы думать о начале работы над небольшим участком задачи, вместо того, чтобы представлять что тебе надо завершить всю задачу целиком."

rafo: Смелость сознательной жизни:
"Но побочным эффектом от переоценки важности личной безопасности будет являться тот факт, что твоя жизнь превратится лишь в реагирование на внешние обстоятельства. Вместо того, чтобы ставить цели, планировать их достижение, и с удовольствием следовать своим планам, ты живёшь с осторожностью."

Благодарю за переводы, и за оригинал(ы). Очень впечатляет, радует еще, что не меня одного..

Ссылки по теме:

SSH Tunnelling (Port Forwarding)

2005-12-16T09:16:00.000+02:00

Прошу прощения за долгое молчание... Почти месяц прошел с момента предыдущего поста.

Долго мне пришлось договариваться об организации связи между моим домашним ПК и рабочим сервером. Да так, чтобы это не тарифицировалось как интернет-трафик(провайдер один - point). В конце концов мне разрешили соединяться через ssh(22) и imap(143), но ничего более, это чтобы я по вебам не лазал, а только логи просматривал, да почту читал... Соответственно платил кроме абонплаты(25 гр.) за трафик доброму провайдеру, а это не менее 0,3гр./Мб. 100Мб - 30гр - это то, что можно позволить на абонплату.
Пришлось разобраться как в таких условиях можно лазать по вебу. Красивый способ - используя т.н. SSH-туннелирование, альтернативное название - "Port Forwarding".
Все организует одна "магическая" команда(на ПК с именем zpak):

ssh -l dron -L 8000:192.168.100.2:3128 bstport.berdyansk.net cat -
cat - нужна только для удержания соединения
С помощью такой техники, варьируя локльные порты, можно через один туннель "форвардить" на несколько назначений, пример:
ssh -L 8000:pc1:3128 8022:pc1:22 8110:srv0:110 admin@srv cat -
Под win32 такое можно организовать, например через PuTTY.

Теперь, подключаясь на zpak:8000(домашний ПК) через туннель(шифрованый ко всему прочему), происходит подключение к squid на моей локальной рабочей машине. Т.е. адресом прокси-сервера для моей домашней сети(2 ПК - SuSE9.3 и WinXP) будет zpak:8000

Ссылки:

RSS + AJAX + Python + Flickr

2005-11-19T14:32:00.000+02:00

Демонстрация работы Nevow's LivePage, используя AJAX

введем в поле тэгированные фото котов с Flickr:
http://flickr.com/services/feeds/photos_public.gne?tags=cats&format=rss_200
Просмотрим НОВЫЕ фото котов со всего мира. Естественно смотреть можно не только котов :).
Фото Киева:
http://www.blogger.com/img/gl.link.gifs/photos_public.gne?tags=kiev&format=rss_200
деревья, и другое:
http://flickr.com/services/feeds/photos_public.gne?tags=assol&format=rss_200

Ох уж эти фолксономии.
...
Функциональность обеспечивается следующим сценарием на Python в связке с LivePage:

class AjaxRSS(livepage.LivePage):


    addSlash = True

    @livepage.handler(byId('input').value)

    def selectFeed(client, feedUrl):
        def updateClient(parsedFeed):

            if parsedFeed['entries']:
                entry = parsedFeed['entries'][0]

                parsedFeed['entries'] = parsedFeed['entries'][1:]

                client.set("link", T.a(href=entry['link'])[entry['title']])

                client.set("content", T.p()[loaders.htmlstr(entry['summary'])])

                reactor.callLater(5, updateClient, parsedFeed)
        d = getPage(feedUrl)

        d.addCallback(parse).addCallback(updateClient)
        
    docFactory = loaders.stan(

        T.html[
            T.head[livepage.glue],

            T.body[
                T.p["Enter an RSS url"],
                T.div(id="main")[

                    T.form(id="form", onsubmit=selectFeed)[
                        T.input(id="input", width="20"),

                        T.input(type="submit", value="submit")]],

                    T.div(id="post")[
                        T.a(id="link"), T.br,

                        T.p(id="content")]]]
        )

подсмотрел в a web journal by andrew r. gross

TeXmacs, Python, GraphViz и другие

2005-11-16T14:16:00.000+02:00

Копая в сторону RDF, наткнулся на tmPython - плагин для TeXmacs, который позволяет интерактивно "общаться" с интерпретатором python

В итоге поставил:

GNU TeXmacs is a free wysiwyw editing platform with special features for scientists
Graphviz - Graph Visualization Software
PyX - Python package for the creation of PostScript and PDF files
tmPython - the TeXmacs Python plugin
pydot - a Python interface to Graphviz's Dot language.
pyparsing -- an object-oriented approach to text processing in Python - нужен для pydot

И что же это все позволяет? - можно резонно спросить..
А я отвечу скриншотом(внешне напоминает Maple):

- Отрисовывать графы в python(даже интерактивно), а это, поверьте, не так уж и мало..
Ссылки:
Проекты Ero Carrera(автора tmPython):

pydasm - a Python interface to libdasm, the best x86 disassembling library out there.

pype - a Python module to read and work with PE files

Швейцарский нож, или Визуализация графов - статья А. Зубинского, в КО, благодаря которой я познакомился с Graphviz около 5-ти лет назад

Примеры:



#pydasm
import pydasm
# Very silly, nop and some xor's
buffer = '\x90\x31\xc9\x31\xca\x31\xcb'
offset = 0
while offset < len(buffer):
 i = pydasm.get_instruction(buffer[offset:], pydasm.MODE_32)
 print pydasm.get_instruction_string(i, pydasm.FORMAT_INTEL, 0)
 if not i:
  break
 offset += i.length

#pype
import pype
pe = pype.PE('/path/to/pe_file.exe', fast_load=False)
pe.OPTIONAL_HEADER.AddressOfEntryPoint
for section in pe.sections:
  print section.Name

kcmshell - оружие тюнинга KDE

2005-11-03T14:00:00.000+02:00

Однажды, залезши глубоко в подменю некоторого(уж не помню) приложения KDE, мне авился диалог:

После недолгих манипуляций, выяснилось, что "родителем" диалога является приложение
kcmshell, которое вызвано с аргументом fileshare.
Меня заинтересовало.. админ-напарник подсказал:


$kcmshell --list

почему-то я не заметил этого аргумента в выводе
$kcmshell --help.
в итоге выяснилось(в SuSE 9.3), что:


$kcmshell
Применение: kcmshell [параметры Qt] [параметры KDE] [параметры]module

Утилита запуска модулей настройки KDE

Общие параметры:
--help                    Показать справку о параметрах
--help-qt                 Показать специфические параметры Qt
--help-kde                Показать специфические параметры KDE
--help-all                Показать все параметры
--author                  Показать сведения об авторе
-v, --version             Показать сведения о версии
--license                 Показать сведения о лицензии
--                        Конец параметров

Параметры:
--list                    Показать все доступные модули

Аргументы:
module                    Модуль настройки, который требуется открыть
--lang          Задать язык
--embed               Встроить модуль с кнопками в окно с идентификатором 
--embed-proxy         Встроить модуль без кнопок в окно с идентификатором 
--silent                  Не показывать главное окно

$kcmshell --list
Доступны следующие модули:
dsl               - Описание отсутствует
fax               - Описание отсутствует
isdn              - Описание отсутствует
modem             - Описание отсутствует
lan               - Описание отсутствует
answering_machine - Описание отсутствует
remote            - Описание отсутствует
dhcp-server       - Описание отсутствует
dns               - Описание отсутствует
dns-server        - Описание отсутствует
host              - Описание отсутствует
http-server       - Описание отсутствует
kerberos          - Описание отсутствует
ldap              - Описание отсутствует
mail              - Описание отсутствует
inetd             - Описание отсутствует
nfs               - Описание отсутствует
nfs_server        - Описание отсутствует
nis               - Описание отсутствует
nis_server        - Описание отсутствует
ntp-client        - Описание отсутствует
samba-client      - Описание отсутствует
samba-server      - Описание отсутствует
tftp-server       - Описание отсутствует
proxy             - Описание отсутствует
routing           - Описание отсутствует
groups            - Описание отсутствует
users             - Описание отсутствует
firewall          - Описание отсутствует
security          - Описание отсутствует
bluetooth         - Описание отсутствует
cdrom             - Описание отсутствует
controller        - Описание отсутствует
x11               - Описание отсутствует
hwinfo            - Описание отсутствует
idedma            - Описание отсутствует
irda              - Описание отсутствует
mouse             - Описание отсутствует
printer           - Описание отсутствует
scanner           - Описание отсутствует
tv                - Описание отсутствует
joystick          - Описание отсутствует
sound             - Описание отсутствует
sw_source         - Описание отсутствует
sw_single         - Описание отсутствует
xen-dirinstall    - Описание отсутствует
dirinstall        - Описание отсутствует
checkmedia        - Описание отсутствует
update            - Описание отсутствует
cd_update         - Описание отсутствует
online_update     - Описание отсутствует
bootloader        - Описание отсутствует
bootfloppy        - Описание отсутствует
timezone          - Описание отсутствует
keyboard          - Описание отсутствует
yast-language     - Описание отсутствует
lvm_config        - Описание отсутствует
profile-manager   - Описание отсутствует
runlevel          - Описание отсутствует
restore           - Описание отсутствует
powertweak        - Описание отсутствует
disk              - Описание отсутствует
sysconfig         - Описание отсутствует
backup            - Описание отсутствует
vendor            - Описание отсутствует
support           - Описание отсутствует
power-management  - Описание отсутствует
bootmsg           - Описание отсутствует
messages          - Описание отсутствует
autoyast          - Описание отсутствует
kwalletconfig     - Настройка бумажника KDE
privacy           - Модуль kcontrol, очищающий
нежелательные следы, оставленные пользователем в операционной системе
crypto            - Настройка SSL, управление
сертификатами и другими параметрами криптования
kcm_useraccount   - Сведения о пользователе, такие как пароль, имя и e-mail
kwindecoration    - Настройка внешнего вида заголовков окон
kcmlaunch         - Выбор типа отклика приложений при запуске
icons             - Настройка значков KDE
kthememanager     - Менеджер глобальных визуальных тем KDE
style             - Стиль и облик элементов KDE
background        - Настройка фона рабочего стола
screensaver       - Настройка хранителя экрана
colors            - Настройка цветов
fonts             - Настройка шрифтов
ksplashthememgr   - Менеджер тем экрана-заставки
audiocd           - Настройка протокола AudioCD
arts              - Настройка звуковой системы
kcmnotify         - Настройка системных уведомлений
bell              - Настройка системного звукового сигнала
kcmperformance    - Настройка параметров,
которые могут повлиять на быстродействие KDE
kcmvim            - Настройка компонента vim
componentchooser  - Выбор основных компонентов разнообразных служб
kcmsmserver       - Настройка менеджера сеансов
filetypes         - Настройка привязки файлов
spellchecking     - Настройка проверки орфографии
kresources        - Настройка ресурсов KDE
kcmkded           - Настройка системных служб
filebrowser       - Настройка режима менеджера файлов
obex              - OBEX device configuration tool
joystick          - joystick - модуль kcontrol
для проверки джойстика
display           - Настройка дисплея
keyboard          - Настройка клавиатуры
mouse             - Настройка мыши
kcmlirc           - Настройка удалённого управления приложениями
kamera            - Настройка камеры
krandrtray        - Аплет панели для изменения размера
и ориентации экранов X.
desktop           - Настройка количества виртуальных рабочих столов
kcmkicker         - Описание отсутствует
kwinrules         - Настройка особых параметров окна
panel             - Настройка выравнивания панели
kcmtaskbar        - Настройки панели задач
desktopbehavior   - Настройка поведения рабочего стола
kwinoptions       - Настройка поведения браузера
kresources        - Настройка ресурсов KDE
khotkeys          - Настройка комбинаций клавиш
keys              - Настройка привязок клавиш
keyboard_layout   - Раскладка клавиатуры
kcmaccess         - Специальные возможности для людей
с физическими недостатками
language          - Настройки языка, даты и времени
для вашего региона
kcm_btpaired      - Manage paired Bluetooth devices
cookies           - Настройка cookies
khtml_java_js     - Настройка поведения Java и JavaScript
kcmhistory        - Настройка боковой панели журнала
useragent         - Настройка идентификации Konqueror
cache             - Настройка кэша
khtml_plugins     - Настройка плагинов браузера
khtml_behavior    - Настройка поведения браузера
kcmcgi            - Настройка CGI KIO slave
ebrowsing         - Сокращения, используемые при просмотре Веб
kcmcss            - Настройка стилей CSS,
используемых при отображении веб-страниц
khtml_fonts       - Настройка шрифтов веб-страниц
kcmdonkey         - Настройка интеграции MLDonkey
kcmsambaconf      - KcmSambaConf - Модуль Центра
управления для настройки сервера Samba
lanbrowser        - Настройка lisa, reslisa и ioslaves
kcm_kdnssd        - Настройка обнаружения сервисов
kcmkrfb           - Параметры общего рабочего стола
proxy             - Настройка серверов прокси
netpref           - Общие свойства сети, такие как значения таймаутов
kcm_kbluetoothd   - Manage Bluetooth Services offered to others.
fileshare         - Включить или выключить общий доступ к файлам
kdm               - Настройка менеджера входа в систему (KDM)
thinkpad          - Настройка интерфейса KDE для
специальных клавиш ноутбука IBM Thinkpad
kvaio             - Настройка интерфейса KDE для
драйвера программируемого контроллера прерываний Sony
desktoppath       - Пути к важным файлам
kcmfontinst       - Установка и просмотр шрифтов
laptop            - Аккумулятор ноутбука
kmenuedit         - Описание отсутствует

Вот это находка, натравил гугль, - негусто..
Но и так информации немало. Многое(но не все) доступно через "Центр Управления KDE".
Не вызывает сомнений, что "Утилита запуска модулей настройки KDE" будет полезна в повседневной работе (в моей точно :).

А теперь применим bash completion, о котором я упоминал ранее.
Итак, даем команду:


$complete -W "`kcmshell --list|cut -d" " -f1|sed -e '1d'|xargs`" kcmshell

и теперь по нажатию TAB в аргументах этой замечательной утилиты получаем допустимые значения(суть - настраиваемые подсистемы). Многие настройки требуют привелегий root.

Запуск rdesktop без X сервера

2005-11-02T16:29:00.000+02:00

The OpenNET Project: Текст новости

Вышел патч для rdesktop
(удаленный рабочий стол, Unix клиент для Windows NT/2000/2003 Terminal
Server), позволяющий запускать последний без X сервера. Для
графического вывода используется быстрая библиотека svgalib.

Здорово!

Автодополнение в bash

2005-10-30T12:50:00.000+02:00

Вот такая команда заставит в аргументах service по "вываливаться"
только службы, доступные чз chkconfig.
$complete -W "`chkconfig --list|awk '{print $1}'`" service
Пробуем:

$service TAB-TAB

Например в моей системе(2.6.11-1.1369_FC4):


# service a-TAB-TAB
acpid    anacron  apmd     atd      auditd   autofs
# service b-TAB-TAB
сразу в
# service bluetooth
# service c-TAB-TAB
cpuspeed            crond               cups                cups-config-daemon
...
# service z
ничего не находит

Более подробно про bash-completion, а здесь есть еще примеры использования, и не только completion.

Рапидшара, стеллариум и аниме - Журнал "Компьютерра"

2005-10-29T10:19:00.000+03:00

Рапидшара, стеллариум и аниме - Журнал "Компьютерра"
Занимательная статья, цитата:

"Напомню, о чем речь. В начале этого года сайты Avaxhome, Medigo, Капитан Немо и иже с ними дружно превратились из скучных бакунианских междусобойчиков в цветущую греческую агору, после того как установили специальный 'блоггерский' движок, позволяющий всем желающим делиться любимой музыкой, электронными текстами, видео, компьютерными программами и тем, что Феликс Мучник благообразно окрестил 'ой, надо же! - порнуха'."

Можно предпложить, что автор - ЛюбительВарезаСоСтажем, если учесть его познания в области ПО для
закачивания через РапидоШароПодобные онлайн-службы. Но в противовес, статья носит несколько обличающий характер. К слову, раздел в котором находится публикация, носит замысловатое название "голубятня", а вот к чему бы это?..

Одного не понял: чем же так не доволен Сергей Голубицкий.

P.S.
А мне нравится avaxhome, и я частенько тяну оттуда ебуки..