Energy in code ...

strawberry perl for Windows (with dmake for modules )

Google Chrome

Firefox

Cygwin

SysInternals Suite

Process Explorer - shows resources usage per running process on Windows

FreeMind - mind maps freware

Open diff - tool for comparing sql server 2005 databases

Skype - the best client for Internet and Video Telephony

NSIS - the best open source Windows installer maker

Free youtube to ipod converter -- get mp4 files easily to your phone

ArsClip remembers your clibboard stuff - Hint , Ctrl + Shift + Z , 2

Expresso - a GUI tool for building and verifying Regular Expressions

tortoise svn - a stable gui and command line to subversion for Windows

slik svn - the command line tools for svn for windows

Data Recovery - recover Shift + del removed programs

Cmdow is a Win32 commandline utility for NT4/2000/XP/2003 that allows windows to be listed, moved, resized, renamed, hidden/unhidden, disabled/enabled, minimized, maximized, restored, activated/inactivated, closed, killed and more.

Grep , FGrep and Egrep for windows (remember the dll's also )

Windows GNU utils

Safari -

how-to display human readable file sizes on HP-UX

2011-11-15T10:52:00.001+02:00

# how-to display human readable file sizes on systems with stupid du# of course you would have to have perlfind `pwd` -type f -exec du -k {} \; | perl -ne 'split /\s+/;my $SizesInMegs=$_[0]/1024;printf ( "%10d %10s \n" , "$SizesInMegs" , "MB $_[1]")' | sort -nr | more

No can do ! I could only admire my new gmail theme

2011-11-06T20:29:00.000+02:00

how-to find out who was lately on my server via ssh

2011-11-03T10:39:00.002+02:00

# who the f..k was here find /var/log/ -name secure* | sort -n | xargs grep -nHP 'session opened for user' | less

Linux / Unix Cheat Sheet

2011-10-26T10:02:00.002+03:00

# FilF:NixCheatSheet.sh v.1.3.0 docs at the end

# how-to get a nice prompt on HP-AIX

clear;export PS1=$USER'@'`hostname`:$PWD:`echo ``date +%Y.%m.%d-%H:%M:%S`` `:`echo  "\n" $ " "`; clear;

# who , where and when

uname -a ;

id;

date +%Y.%m.%d-%H:%M:%S;

# all env vars starting with _

env | grep -e "^_"

ls -lt --time-style=long-iso

ls -alt --time-style=long-iso

# http://www.gnu.org/software/findutils/manual/html_mono/find.html

# The ultimate "find in files"

find /etc/httpd/ -type f -print0 | xargs --null grep -nHP 'StartServers\s+\d' | less

find / -name '*bash*' -exec grep -nHP '*APerlRegex*' {} \;

#  or even faster , be aware of funny file names xargs -0

find / -name '*bak' -print0 | xargs --null grep -nPH 'curl'

# find and replace recursively

find . -name '*.html' -print0 | xargs -0 perl -pi -e 's/foo/bar/g'

# find all the files greather than 100 MB , sort them by the size and print their sizes

find / -type f -size +100M -exec du -B M {} \; | sort -r | less

# disk usage of users under the /home directory in MB

clear;du -all -m --max-depth=3 /home | sort -n -r | less

# where I have been lately ?

history | grep cd

# what I have opening recently

history | grep vi

#send my history

history | mailx -s "my history" $MyEmail

tcpdump dst 10.168.28.22 and tcp port 22

tcpdump dst 172.21.212.212

# record the current session via script

mkdir ~/scriptlogs

script -a /scriptlogs/`date +%Y%m%d%H%M%S`_script.log

#/usr/bin is for normal user executables, /usr/sbin is for superuser executables, /usr/sfw is for external software (like gnu one), but provided with bundle of OS, /usr/ccs is for development utilities, usually not need for daily tasks like make, lex, yacc, sccs

# take the last 5 commands for faster execution to the temp execution script

tail -n 5 /root/.bash_history >> /var/run.sh

# I saw the command cd /to/some/suching/dir/which/was/very/long/to/type

echo so I redid it and saved my fingers

!345

history >history.txt ---- # the last 1000 commands into a history.txt file

# send that file to myself

cat history.txt | mail -s "test file sending" -c mail1@com

yordan.georgiev(boom)gmail.com

# remove all trealing spaces from the history file works for TextPad

^([ ]*)([0-9]*)(.*)$

\3 --- replace with the pure commands

history | gawk -F1 'BEGIN {FS=" "};{print $2 , $3}' | less

# display the history withouth the line numbers ...

history | perl -i -pe 's/^([ ]*)([0-9]*)(.*)$/$3/gi'

vi fileName anotherFile

# how to deal with command outputs

command | filtercommand > command_output.txt 2>errors_from_command.txt

# Hint after the less filter pressing s will prompt you for saving the

output to a file ...

#  find the files having os somewhere in their names and only those having linux

find . -name '*os*' | grep linux | less

# find all xml type of files and display only the rows having wordToFindInRow

find . -name '*.xml' -exec cat {} \;| grep wordToFindInRow | less

# putty , bash shortcuts

Ctrl + A --- Go to the beginning of the line you are currently typing on

Ctrl + E --- Go to the end of the line you are currently typing on

# how-to mount an usb stick

# remember to change the path other wise you will get the device is busy errror

mkdir /mnt/usbflash

mount /dev/sdb1 -t vfat /mnt/usbflash

umount /mnt/usbflash

head -n 20 tooLongFile -- display the first 20 lines of the file

# change the uggly prompt

vi /etc/bashrc

# get a nice prompt

PS1="\u@\h \t \w\n\\$ "

# how to restart a process initiated at startup

/etc/rc.d/init.d/sendmail start | stop | status | restart

# see all the rules associated with the firewall

iptables -L -v

gunzip *file.zip

# exctract tar file into cd

tar -xvf file.tar

To access the server download winscp.exF:

# start winscp with a stored session from Win box

cmd /c start /max winscp oracle@192.168.255.12

# To start remote session click on the putty screen , configure putty

settings to pull full screen with alt + Enter

# right click on the title bar , settings , change the font , copy

paste from and to the terminal window text

# how to ensure the sshd daemon is running

ps -ef | grep sshd

# User and group management

useradd -p winscppass -r winscp -d /home/winscp --- to add a user with

specifig home directory name and pass

luserdel winscp --- delete the user

gpasswd: administer the /etc/group file

groupadd: Create a new group

groupmod: Modify a group

groupdel: Delete a new group

useradd: Create a new user or update default new user information

usermod: Modify a user account

userdel: Delete a user account and related files

# how to kill process interactively

killall -v -i sshd

# the most efficent way to search your history is to hit Ctrl R and

type the start of the command. It will autocomplete as soon as there’s

a match to a history entry, then you just hit enter. If you want to

complete the command (add more stuff to it ) use the right arrow to

escape from the quick search box ...

How to install Perl modules

gzip -dc yourmodule.tar.gz | tar -xof -

perl Makefile.PL

make test

make install

How to see better which file were opened , which directories were visited

type always the fullpath after the vi - use the $PWD env variable to

open files in the current directory , thus after opening the file

after:

vi /$PWD , press tab to complete the name of the current directory ,

type the name of the file

thus after

history | grep vi

the full list of opened files is viwed .

of course the same could be seen from the /home/username/.viinfo file /files

where to set the colors for the terminal (if you are lucky to have one

with colors; )

/etc/DIR_COLORS

open a file containing "sh" in its name bellow the "/usr/lib" directory

:r !find /usr/lib -name *sh*

go over the file and gf

uname -a --- which version of Linux I am using

rmp -qa --- show all installed packages

passwd [username] --- change the password for the specified user (own password)

How to copy paste text in the putty window from client to server -

click the right button of your pointing device

How to copy paste text from the putty window from server to client -

right-click the window title and select copy all to Clipboard.

#To restart a service

service sshd restart

service --status-all --- show the status of all services

# change the owneership of the directory

chown -R userNamF:GroupName DirPath

# perform action recursively on a set of files

find . -name '*.pl' -exec perl -wc {} \;

for file in `find . -type f`;do echo cp $file ../backups/; done;

# make Bash append rather than overwrite the history on disk:

shopt -s histappend

# henever displaying the prompt, write the previous line to disk:

PROMPT_COMMAND='history -a'

gpm -- general "cut and paste" server

sh ScriptWithALotOfErrorMessages.sh | tee -a whereToSaveIt.log

# run first the following command

$ script -a The_Log_File_To_Append_as_well_as_display_diagnostig_messages.log

# than run the script

sh ScriptWithALotOfErrorMessages.sh

#how-to replace single char in file

tr '\t' ',' < FileWithTabs > fileWithCommas

df -k --- disk usage

# Allow access to the box from only one ip address

IPTables=/sbin/iptables

$ IPTables -A INPUT -s <Insert other Origin ip here> -p tcp

--source-port xxx -j ACCEPT

$ IPTables -A OUTPUT -d < Insert other Origin ip here > -p tcp

--destination-port xxx-j ACCEPT

# has the root logged in over an unencrypted network ?

#  last | grep “^root “ | egrep –v “reboot|console” | more

# start command in the background

command1 &

# start another one

command2 &

# bring the command in the foreground

fg %1

# create a backup file based on the timestamp on bash

cp fileName.ext fileName.ext.`date +%Y%m%d%H%M%S`.bak

Unix commands:

FIX broken lines:

$ cat output.txt

a:b:c:1:2:3:2.3:henry

s:d:f:2:1:4:

54:user5

d:q:w:5:6:

3:5.2:alex

y:m:n:3:4:1:5.6:eiam

Output Required:

----------------

a:b:c:1:2:3:2.3:henry

s:d:f:2:1:4:54:user5

d:q:w:5:6:3:5.2:alex

y:m:n:3:4:1:5.6:eiam

$ awk '

BEGIN {

FS=":";

maxFLD=8;

while (NF < maxFLD || $0 ~ /\:$/ ) {

getline record;

$0 = $0 record

print $0

' file_name

Live examplF:

2009-07-10 13:51:31.939439|2009-07-10|2|1|004401105514513|0570817|1|-3||production|2.0.0|Series60|V 11.0.021|11.0.021.01.01|11.0.021.C01.01|244|05|862e-d2ac-4f03-9cbb|xmldatabinding 5.0|Xmldatabinding 5.0 for N-Gage

|x-epoc/x-sisx-app|0|4|1|3|0x101f978e|1.0.3|Company|N97|Country_variants_of_UK_Ireland

--------------------------------------------------------------------------------------------------------------------------------------

$ awk 'BEGIN {FS="|";maxFLD=30;}{while (NF < maxFLD || $0 ~ /\:$/ ) {getline record;$0 = $0 record} print $0}' file_name

---------------------------------------------------------------------------------------------------------------------------------------

Display lines which starts with “|”:

- $ Grep ‘^|’ file_name

Paste = shift + insert

Copy = ctrl + insert

df  -h ***

id -u

ls –lrt

ps -ef

#unpack a file

tar xvf “filename”

#on hp-ux

gzip -cd FileName.tar.gz | tar -xvf -

fg  (can be used to return to stopped window/process)

w (logged in users, idle or not?)

who (logged on users, from where)

who -r (show runlevel)

wc filename (lines, words, characters)

# print line number 52

sed -n '52p' # method 1

sed '52!d' # method 2

sed '52q;d' # method 3, efficient on large files

Remove/replace hex values from a filF:

perl -i.bak -pe 's/(\xEF)(\xBF)(\xBD)/???/g' music_player_track.txt

Add user: useradd –u uid (esim. 2600)  –c ‘description’ –d /homedir/ -g group –m –s /bin/bash username

Change passwd: passwd username

ExamplF:

useradd -u 10302011 -c "Marko Tuomela, CDIP Infra team, ext-marko.m.tuomela@nokia.com" -m -d /export/home/martuome -s /bin/bash martuome

passwd -f login = forces to change password when logging in for the first time

Ei saa näyttää yhtään vastausta:

passwd -s -a | grep NP (=No Password)

/var/adm/loginlog sisältää kaikki epäonnistuneet loginyritykset…

Alustus:

#!/bin/sh

log=/var/adm/loginlog

test -f "$log" && {

        # "Good, $log exists already."

        exit 0

touch $log || exit 1

chown root $log || exit 1

chgrp sys $log || exit 1

chmod 600 $log || exit 1

# "Initialized $log."

Use SVCCFG:

bash-3.00# svccfg

svc:> select cde-login

svc:/application/graphical-login/cde-login>

svc:/application/graphical-login/cde-login> setprop dtlogin/args=astring: "-udpPort 0"

svc:/application/graphical-login/cde-login> quit

bash-3.00# svcadm cde-login restart

Display lines that contain A or B

/usr/bin/egrep - i “A|B”

Ex. # ps -ef | /usr/bin/egrep - i “PID1|PID2”

START/ STOP scripts ( /etc/init.d/rc.script)

-    create symbolic links from /etc/rc(0,1,2).d/K99sas --> /etc/init.d/rc.script

-    create symbolic link from /etc/rc3.d/S99sas --> /etc/init.d/rc.script

Startscripts are executed in order where smallest number is executed first on each runlevel

ln –s source target

Normal Case

Put SXX in rc3.d

Put KXX in rc0.d, rc1.d, rc2.d, rcS.d

cd /etc/rc3.d

ln –s /etc/init.d/rc.script S99rcscript

cd /etc/rc0.d

ln -s /etc/init.d/rc.script K99rcscript

cd /etc/rc1.d

ln -s /etc/init.d/rc.script K99rcscript

cd /etc/rc2.d

ln -s /etc/init.d/rc.script K99rcscript

cd /etc/rcS.d

ln -s /etc/init.d/rc.script K99rcscript

RC scripts & Run Levels

Rc scripts performs the following functions :

a) They check and mount the file systems

b) Start and stop the various processes like network , nfs etc.

c) Perform some of the house keeping jobs.

System goes in to one of the following run level after booting depending on default run level and the commands issued for changing the run level to some other one.

0 Boot prom level ok> or > prompt in Sun.

1 Administrative run level . Single user mode

2 Multiuser mode with no resource sharing .

3 Multiuser level with nfs resource sharing

4 Not used

5 Shutdown & power off (Sun 4m and 4u architecture )

6 Reboot to default run level

S s Single user mode user logins are disabled.

Broadly speaking the running system can be in any of the folloing state

Single user – Minimum processes running , user logins disabled and root password is required to gain access to the shell .

Multiuser - All system processes are running and user logins are permitted

Run level of a desired state is achieved by a number of scripts executed by the rc program the rc scripts are located in /etc/rc0.d , /etc/rc1.d , /etc/rc2.d , /etc/rc3.d & /etc/rcS.d directories . All the files of a particular run level are executed in the alphanumeric order .Those files beginning with letter S starts the processes and those beginning with K stops the processes.

These files are hard linked to the files in /etc/init.d in order to provide a central location for all these files and eliminating the need to change the run level in case these scripts needs to be run separately . The files in /etc/init.d directory are without any S , K and numeric prefix instead a stop / start argument has to be supplied whenever these scripts are to be executed .

By default system has a number of rc scripts needed for run level transition but sometimes it becomes necessary to start some custom scripts at the booting time and turn them off at the shutdown . Custom scripts can be put in any of the required rc directory but following major considerations has to be kept in mind :

•    The sequence number of the file should not conflict with other files.

•    The sevices needed should be available by previously executed scripts.

•    File should be hard linked to the /etc/init.d directory .

•    The system looks for only those files beginning with letter K & S , any thing else is ignored , therefore, to make a file inactive simply changing uppercase K or S to lower case will cause system to ignore it .

The scripts that begin with a K are used to kill processes when exiting a specific runlevel. In the listing above, the K scripts would be used when terminating runlevel 3. The scripts that start with an S are used when starting runlevel 3. None of the items in rc3.d, however, is really a startup script. They are logical links to the real scripts, which are located in the /etc/rc.d/init.d directory. For example, S80sendmail is linked to init.d/sendmail. This raises the question of why the scripts are executed from the directory rc3.d instead of directly from init.d where they actually reside. The reasons are simple. The same scripts are needed for several different runlevels. Using logical links, the scripts can be stored in one place and still be accessed by every runlevel from the directory used by that runlevel.

Scripts are executed in alphabetical order. Thus S10network is executed before S80sendmail. This allows the system to control the order in which scripts are executed through simple naming conventions. Different runlevels can execute the scripts in different orders while still allowing the real scripts in init.d to have simple, descriptive names. A listing of the init.d directory shows these descriptive names:

VI COMMANDS

Move with cursor: h,j,k,l

Beginning of linF: 0

Corrections during INSERT:

-    CTRL+H delete last character

Append after cursor: a

Append at the end of linF: A

Yanked: y

Put: p – puts back yanked or deletet text after cursor

#Undo last changF:

#Restore curren linF:

#Repeat last changF:

#Repeat last command

: n

#Replace (sed):

:%s/old value/new value/

#Copy: CTRL+INSERT

#PASTF: SHIFT+INSERT

#EXTRACT *.tar.gz on HP-UX:

gzip -dc ieh_datacut-Nielsen-00002-201.0.38.tar.gz | tar xvf –

Single filF:

gzip -dc fileName.tar.gz | tar -xvf - filename

find . -name '*.log' -print | zip cipdq`date +%Y%m%d%H%M%S` -@

find / -type f | xargs grep -nH 'curl'

find . -type f -name '*.sh' -print -exec grep -n gpg {} \;

#where am I

uname -a ;

#who am I

id ;

# when this is happening

date "+%Y.%m.%d %H:%M:%S" ;

useradd -u 12202211 -c "First Name , LastName, Teamp , firstName.LastName@company.com" -m -d /export/home/userName -s /bin/bash userName

#obsolete

skill -STOP -u userToKick

pkill -STOP -u userToKick

# reboot ... !!! BOOM BOOM BOOM !!!

shutdown -r now

# check all available commands on my system

 echo -n $PATH | xargs -d : -I {} find {} -maxdepth 1  -type f -printf '%P\n' | sort -u | less

 #how-to kill a process

ps aux | grep omniture

pidof omniture

kill -9 omniture

#what cpu am a running

less /proc/cpuinfo

# which processes are listening on my system

netstat --tcp --listening --programs

netstat --tcp

netstat --route

#sourcF: http://www.yolinux.com/TUTORIALS/LinuxTutorialSysAdmin.html#MONITOR

#monitoring commands

# show the top processes

top

# running processes status

ps -auxw | less

ps -ef | less

#List all currently loaded kernel modules

lsmod | less

#Displays the system's current runlevel.

/sbin/runlevel

# get the Processes attached to open files or open network ports:

lsoff | less

# monitor the virtual memory

vmstat

#Display/examine memory map and libraries (so). UsagF: pmap pid

ps -aux | grep <<MyProcToPMap>>

pmap      <<MyprocToPMapPID>>

history | gawk -F1 'BEGIN {FS=" "};{print $2 , $3}'

pmap -x 4041 | gawk -F1 'BEGIN {FS=" "};{print $2  ,"\t" , $5 , "\t" , $6 , "\t", $7 , $8}' | sort -nr

#how-to sort output by a delimited by single delimiter column

# in this example the - char is used for delimiter , the output is

# by their sending sequence , use proper file naming convention files

# ls -1 gives us:

# fileBeginningTillFirstDelimiter-TheColumnToSortBy-TheRestFromTheFileNameDelimiter

ls -1 | awk -F1 'BEGIN {FS="-"};{print $2 "¤" $1 "-" $2 "-" $3 }' | sort -nr | cut -d ¤ -f 2,5

# the same approach with perl

ls -1 | perl -p -i -e 's/^([^\-]*)(\-)([^\-]*)(\-)([^\-]*)/$3¤$1$2$3$4$5/g' | sort -nr | cut -d ¤ -f 2,5

# how-to use sftp with remoteUserName having publicIdentity of PublicIdentityUserName

sftp -v -o "IdentityFile /var/www/.ssh-id/PublicIdentityUserName" -o "UserKnownHostsFile /var/www/.ssh-id/known_hosts" remoteUserName@ServerHostNameOrIpd

# ==================================================================

# START Jobs control

# start some very long lasting command

find / -name '*.crt' | less

# now press Ctrl + Z

# the terminal says "Jobs stopped"

# now check the open jobs

jobs

# you should see something like

# [1]+  Stopped                 find / -name '*.crt' | less

# now put the job in the background and start working on something else by Ctrl + Z

bg 1

# run the next command

# how-to copy file via scp by using specificy identity

scp -v -o "IdentityFile /home/userName/.ssh/id_rsa" /data/path/dir/* userName@ServerHostName.Domain.com:/Server/Target/Dir/

# now again stop the job first by Ctrl + Z

# check again the running jobs

jobs

# use should see the both of the jobs started

# now put the first on in the forground

fg 1

# Repeat that several times untill you get it ; ) !!!

# END Jobs control

# ==================================================================

# VersionHistory

# 1.3.0 --- Added jobs control

# 1.2.0 --- Added system monitoring commands

# 1.1.1 --- refined du , replaced echo's with #'s

# 1.0.0 --- Initial creation

how-to start putty from the command line with pre-saved session

2011-10-26T09:33:00.000+03:00

:: Start - Run - type cmd /c START /max putty -load userName@ServerHostName.Domain.comNow if you would like to export your putty settings from PC to PC you could use the following cmd for that :(Hint: I use to Have the following folder structure C:\Temp\<>\conf\<>\conf\putty ) Now <> is var and <> is var ... thus you could keep all the PC's settings always with you ; )

@ECHO OFF

ECHO any comments suggestions are welcome at :

ECHO http://ysgitdiary.blogspot.com/search/label/Putty

ECHO This batch file copies some the needed settings of Putty

ECHO it depends on a simple GetNiceTime_on_%computername%.cmd

ECHO batch file producing the %_NICETIME% variable in YYYYMMDD_hhmmss

ECHO format

ECHO Tested on Win7 64 -bit Putty

ECHO you should call this batch file from its current directorry

:: GET A YYYYMMDD_hhmmss TIMESTAMP

call GetNiceTime_on_%computername%.cmd

SET _RegFileWithSettings=PuttySettings_Helios_on_%COMPUTERNAME%_%NiceTime%.reg

SET _RunLog=%0.run.log

SET _ErrorLog=%0.error.log

::SET _PuttySynFilesDirOnWin64=%ProgramFiles(x86)%\Putty 5\system

::SET _PortableSynFilesDir=%CD%\system

SET _RegistryKey=HKEY_CURRENT_USER\Software\SimonTatham

SET _RegistryFilesDir=%CD%\reg

SET _RegistryFileWithSettings=%_RegistryFilesDir%\PuttySettings_on_%computername%_%NiceTime%.reg

SET _LogDir="%CD%\log"

ECHO START REGISTRY SETTINGS EXPORT AT %_NiceTime%

ECHO RUN LOG : START REGISTRY SETTINGS EXPORT AT %_NiceTime%  >%_RunLog%

ECHO ERROR LOG START REGISTRY SETTINGS EXPORT AT %_NiceTime%  >%_ErrorLog%

ECHO.1>>%_RunLog% 2>> %_ErrorLog%

ECHO create a directory called sysm in the current directory

ECHO create a directory called sysm in the current directory 1>>%_RunLog% 2>> %_ErrorLog%

ECHO.1>>%_RunLog% 2>> %_ErrorLog%

ECHO now copy alls the files from the %Program Files(x86)%\Putty 5\system\

ECHO now copy alls the files from the %Program Files(x86)%\Putty 5\system\ 1>>%_RunLog% 2>> %_ErrorLog%

ECHO IF NOT EXIST %_PortableSynFilesDir% MKDIR %_PortableSynFilesDir% 1>>%_RunLog% 2>> %_ErrorLog%

:: IF NOT EXIST %_PortableSynFilesDir% MKDIR %_PortableSynFilesDir% 1>>%_RunLog% 2>> %_ErrorLog%

ECHO.1>>%_RunLog% 2>> %_ErrorLog%

ECHO COPY EACH syn files

:: for /f "tokens=*" %%i in (' dir "%_PuttySynFilesDirOnWin64%\*.syn" /s /b') do copy /y "%%i" "%_PortableSynFilesDir%" 1>>%_RunLog% 2>> %_ErrorLog%

ECHO.1>>%_RunLog% 2>> %_ErrorLog%

:: CREATE THE _RegistryFilesDir if it does not exist

ECHO IF NOT EXIST %_RegistryFilesDir% MKDIR %_RegistryFilesDir% 1>>%_RunLog% 2>> %_ErrorLog%

IF NOT EXIST %_RegistryFilesDir% MKDIR %_RegistryFilesDir% 1>>%_RunLog% 2>> %_ErrorLog%

ECHO.1>>%_RunLog% 2>> %_ErrorLog%

:: NOW PERFORM THE ACTUAL EXPORT OF THE CURRENT SETTINGS

ECHO REG EXPORT "%_RegistryKey%" "%_RegistryFileWithSettings%" 1>>%_RunLog% 2>> %_ErrorLog%

REG EXPORT "%_RegistryKey%" "%_RegistryFileWithSettings%"

ECHO IF NOT EXIST %_LogDir% MKDIR %_LogDir% 1>>%_RunLog% 2>> %_ErrorLog%

IF NOT EXIST %_LogDir% MKDIR %_LogDir% 1>>%_RunLog% 2>> %_ErrorLog%

ECHO.1>>%_RunLog% 2>> %_ErrorLog%

ECHO COPY THE LOG FILES TO THE LOG DIRECTOREY FIRST

FOR /F %%i in ('dir "%CD%\*.log" /b') do copy /y "%%i" "%_LogDir%\"

:: DEBUG PAUSE

:: wait for 3 seconds

ping localhost -n 3

ECHO DONE NOW OPEN THE LOG FILES TO SEE THE RESULTS  :

:: if you donät have textpad FOR /F %%i in ('dir "%CD%\log\*.log" /s /b') do cmd /c start /max notepad "%%i"

FOR /F %%i in ('dir "%_LogDir%\*.log" /s /b') do cmd /c start /max textpad "%%i"

ECHO NOW DELETE THE ALREADY COPIED LOG FILES FROM THE CURRENT DIR

FOR /F %%i in ('dir "%CD%\*.log" /b') do del  /q "%%i"

:: NOW OPEN TO VIEW THE REGISTRY FILE AS WELL

:: CMD /C START /MAX notepad %_RegistryFileWithSettings%

CMD /C START /MAX textpad %_RegistryFileWithSettings%

:: HINT: you could execute any dos file including this one by creating a new external tool

:: Command: cmd.exe , Parameters: CMD /C $FileName , Check Prompt for parameters

:: Check Save all documents first , Check Capture output , Check Suppress output untill completed

Next gen EV ...

2011-10-12T21:46:00.000+03:00

2011-10-11T22:25:00.001+03:00

Cool programs , utilities and programming environments for Windows, most of which free ( revised )

strawberry perl for Windows (with dmake for modules )

Google Chrome

Firefox

Cygwin

SysInternals Suite

Process Explorer - shows resources usage per running process on Windows

Open diff - tool for comparing sql server 2005 databases

Skype - the best client for Internet and Video Telephony

NSIS - the best open source Windows installer maker

Free youtube to ipod converter -- get mp4 files easily to your phone

ArsClip remembers your clibboard stuff - Hint , Ctrl + Shift + Z , 2

Expresso - a GUI tool for building and verifying Regular Expressions

tortoise svn - a stable gui and command line to subversion for Windows

slik svn - the command line tools for svn for windows

Data Recovery - recover Shift + del removed programs

Grep , FGrep and Egrep for windows (remember the dll's also )

Windows GNU utils

On Google code Project Hosting

Safari -

Some audience stats ... A like the Google's BI diagrams design ...

2011-10-01T22:58:00.000+03:00

Sh Cheat Sheet

2011-10-01T22:34:00.000+03:00

#File:ShCheatSheet.sh v.1.1.0 docs at the end

#source:http://www.dartmouth.edu/~rc/classes/ksh/index.html#for loop example

for file in * ; do echo Processing $file ; done ;

for file in  `ls -1` ; do echo Processing $file ; done ;

#if example

if [ -r $myfile ]

then

   cat $myfile

else

   echo $myfile not readable

fi

#case example

case $filename in

*.dat)

echo Processing a .dat file

;;

*.sas)

echo Processing a .sas file

;;

*)

# catch anything else that doesn't match patterns

echo "Don't know how to deal with $filename"

;;

esac

Matches any zero or more characters.

Matches any one character.

[string]

Matches exactly one character that is a member of the string string. This is called a character class. As a shorthand, string may contain ranges, which consist of two characters with a dash between them. For example, the class ‘[a-z0-9_]’ matches a lowercase letter, a number, or an underscore. You can negate a class by placing a ‘!’ or ‘^’ immediately after the opening bracket. Thus, ‘[^A-Z@]’ matches any character except an uppercase letter or an at sign.

Removes the special meaning of the character that follows it. This works even in character classes.

# while example

count=0

max=10

while [[ $count -lt $max ]] ; do

  echo $count ;

  count=$((count + 1)) ;

done ;

echo "Value of count after loop is: $count"

wlog(){

        echo "`date +%Y.%m.%d-%H:%M:%S` [$$] $*" >> $LOGFILE

        test -t 1 && echo "$*"

send_mail(){

        # $1 = subject

        # $* = recipients

        # - = text

        test -z "$2" && {

                wlog "NOTICE: no mail recipients"

                return 0

        _sm_s="$1"

        shift 1

        mailx -s "$_sm_s" $* || {

                wlog "ERROR: Failed to send mail to $*"

                return 1

        return 0

#get a nice date

`date +%Y%m%d%H%M%S`

outgoing_dirs=`find $ROOTDIR -type d -name 'outgoing'`

for odir in $outgoing_dirs

do

        test -d "$odir" || continue

        find $odir -type f -mtime $MAXAGE -print0 | xargs --null -r $debug rm

done

#The ultimate find in files

DirToSearch=/var/log/

FilesToSearch=`ls -rt $DirToSearch`

for file in $FilesToSearch

do

        file=$DirToSearch/$file

        test -f "$file" || continue

        grep -nH 'sekauppi' $file

done

find $DirToSearch -type f -exec grep -nH 'yogeorgi' {} \; | less

today=`date +%Y%m%d`

yesterday=`date --date yesterday +%Y%m%d`

Help(){

        cat<<EOF

`basename $0` [-t filetype] [-f srcfile] [-o outfile] [-D outdir]

        [-u owner] [-g group] [-U srcurl] [-d day -d day2 ...]

        [-F] [-b daysback]

        filetype:       {userlist | auditlog}

        user:           $channel_user

        srcurl:         $BASE_URL

        daysback:       $DAYS_BACK

        -F to force download even if file was downloaded already

EOF

#Purpose:

# Provide an easy copy paste resource for sh programming

# VersionHistory:

# 1.1.0 --- ysg --- Updated docs , published

# 1.0.0 --- ysg --- Initial version , see main source

mysql cheat sheet

2011-10-01T22:25:00.000+03:00

-- File:MySqlCheatSheet.sql v.1.1.0 docs at the end

/* [mysql dir] */

/bin/mysql -h hostname -u root -p

mysql -u userName -p  -D DbName -B -e "select * from users;"   > /home/yogeorgi/tmp/list.csv ;

mysql -u userName -p  -D information_schema -B -e "select columns from columns;"   > /home/yogeorgi/tmp/list.csv ;

-- Batch mode (feeding in a script):

mysql -u user -p < batch_file

/* (Use -t for nice table layout and -vvv for command echoing.) */

-- Alternatively:

source batch_file;

-- List all databases on the mysql server.

show databases;

/* Switch to a database. */

use [db name];

-- get all the tables in the currently selected database

show tables;

-- get the table's fields format

describe [TableName];

-- to remove a db

drop database [database name];

-- to drop a table

drop table [TableName];

/* Show all data in a table. */

SELECT * FROM [TableName];

/* Returns the columns and column information pertaining to the designated table.  */

show columns from [TableName];

/* Show certain selected rows with the value "whatever". */

SELECT * FROM [TableName] WHERE [field name] = "whatever";

/* Show all records containing the name "Bob" AND the phone number '3444444'.  */

SELECT * FROM [TableName] WHERE name = "Bob" AND phone_number = '3444444';

/* Show all records not containing the name "Bob" AND the phone number '3444444' order by the phone_number field.  */

SELECT * FROM [TableName] WHERE name != "Bob" AND phone_number = '3444444' order by phone_number;

/* Show all records starting with the letters 'bob' AND the phone number '3444444'.  */

SELECT * FROM [TableName] WHERE name like "Bob%" AND phone_number = '3444444';

-- Use a regular expression to find records. Use "REGEXP BINARY" to force case-sensitivity.

-- This finds any record beginning with a.

SELECT * FROM [TableName] WHERE rec RLIKE "^a$";

-- how-to show only unique records.

SELECT DISTINCT [column name] FROM [TableName];

/* Show selected records sorted in an ascending (asc) or descending (desc).  */

SELECT [col1],[col2] FROM [TableName] ORDER BY [col2] DESC;

/* Return number of rows. */

SELECT COUNT(*) FROM [TableName];

/* Sum column. */

SELECT SUM(*) FROM [TableName];

/* Join tables on common columns.  */

select lookup.illustrationid, lookup.personid,person.birthday from lookup

left join person on lookup.personid=person.personid=statement to join birthday in person table with primary illustration id;

/* Switch to the mysql db. Create a new user.  */

INSERT INTO [TableName] (Host,User,Password) VALUES('%','user',PASSWORD('password'));

-- Change a users password.(from unix shell).

[mysql dir]/bin/mysqladmin -u root -h  hostname.blah.org -p password 'new-password'

-- Change a users password.(from MySQL prompt).

SET PASSWORD FOR 'user'@'hostname' = PASSWORD('passwordhere');

/* Allow the user "bob" to connect to the server from localhost using the password "passwd"  */

grant usage on *.* to bob@localhost identified by 'passwd';

/* Switch to mysql db.Give user privilages for a db. */

INSERT INTO [TableName] (Host,Db,User,Select_priv,Insert_priv,Update_priv,Delete_priv,Create_priv,Drop_priv) VALUES ('%','databasename','username','Y','Y','Y','Y','Y','N');

/* OR  */

grant all privileges on databasename.* to username@localhost;

/* To update info already in a table. */

UPDATE [TableName] SET Select_priv = 'Y',Insert_priv = 'Y',Update_priv = 'Y' where [field name] = 'user';

/* ADelete a row(s) from a table. */

DELETE from [TableName] where [field name] = 'whatever';

-- how-to Update database permissions/privilages.

FLUSH PRIVILEGES;

-- how-to delete a column

alter table [TableName] drop column [column name];

-- how-to add a new column to table

alter table [TableName] add column [new column name] varchar (20);

-- how-to change a column name in a table

alter table [TableName] change [old column name] [new column name] varchar (50);

-- Make a unique column so you get no dupes.

alter table [TableName] add unique ([column name]);

-- Make a column bigger

alter table [TableName] modify [column name] VARCHAR(3);

-- Delete unique from table.

alter table [TableName] drop index [colmn name];

--how-to load a CSV file into a table.

LOAD DATA INFILE '/tmp/filename.csv' replace INTO TABLE [TableName] FIELDS TERMINATED BY ',' LINES TERMINATED BY '\n' (field1,field2,field3);

/* Dump all databases for backup. Backup file is sql commands to recreate all db's.  */

[mysql dir]/bin/mysqldump -u root -ppassword --opt >/tmp/alldatabases.sql

-- Dump one database for backup.

[mysql dir]/bin/mysqldump -u username -ppassword --databases databasename >/tmp/databasename.sql

-- Dump a table from a database

[mysql dir]/bin/mysqldump -c -u username -ppassword databasename tablename > /tmp/databasename.tablename.sql

-- Restore database (or database table) from backup.

[mysql dir]/bin/mysql -u username -ppassword databasename < /tmp/databasename.sql

/* Create Table Example 1. */

CREATE TABLE [TableName] (

  FirstName                 VARCHAR(20)

, MiddleName             VARCHAR(3)

, LastName                 VARCHAR(35)

, Suffix                     VARCHAR(3)

, OffficeId                     VARCHAR(10)

, UserId                     VARCHAR(15)

, UserName             VARCHAR(8)

, Email                     VARCHAR(35)

, Phone                     VARCHAR(25)

, Groups                     VARCHAR(15)

, DateStamp             DATE

, TimeStamp             time

, PgpEmail                 VARCHAR(255)

);

-- Create Table Example 2.

create table [TableName] (

   personid int(50) not null auto_increment primary key

 , firstname varchar(35)

 , middlename varchar(50)

 , lastnamevarchar(50) default 'bato'

);

-- Inserting one row at a time:

INSERT INTO table_name VALUES ('MyName', 'MyOwner', '2002-08-31');

(Use NULL for NULL)

-- Retrieving information (general):

SELECT from_columns FROM table WHERE conditions;

-- All values:

SELECT * FROM table;

-- Some values:

SELECT * FROM table WHERE rec_name = "value";

-- Multiple critera:

SELECT * FROM TABLE WHERE rec1 = "value1" AND rec2 = "value2";

-- Reloading a new data set into existing table:

SET AUTOCOMMIT=1; # used for quick recreation of table

DELETE FROM pet;

LOAD DATA LOCAL INFILE "infile.txt" INTO TABLE table;

-- Fixing all records with a certain value:

UPDATE table SET column_name = "new_value" WHERE record_name = "value";

-- Selecting specific columns:

SELECT column_name FROM table;

-- Retrieving unique output records:

SELECT DISTINCT column_name FROM table;

-- Sorting:

SELECT col1, col2 FROM table ORDER BY col2;

Backwards: SELECT col1, col2 FROM table ORDER BY col2 DESC;

--Date calculations:

SELECT CURRENT_DATE, (YEAR(CURRENT_DATE)-YEAR(date_col)) AS time_diff [FROM table];

MONTH(some_date) extracts the month value and DAYOFMONTH() extracts day.

-- Pattern Matching:

SELECT * FROM table WHERE rec LIKE "blah%";

(% is wildcard - arbitrary # of chars)

Find 5-char values: SELECT * FROM table WHERE rec like "_____";

(_ is any single character)

-- Extended Regular Expression Matching:

SELECT * FROM table WHERE rec RLIKE "^b$";

(. for char, [...] for char class, * for 0 or more instances

^ for beginning, {n} for repeat n times, and $ for end)

(RLIKE or REGEXP)

To force case-sensitivity, use "REGEXP BINARY"

-- Grouping with Counting:

SELECT owner, COUNT(*) FROM table GROUP BY owner;

(GROUP BY groups together all records for each 'owner')

-- Selecting from multiple tables:

SELECT pet.name, comment FROM pet, event WHERE pet.name = event.name;

(You can join a table to itself to compare by using 'AS')

-- Currently selected database:

SELECT DATABASE();

-- Maximum value:

SELECT MAX(col_name) AS label FROM table;

-- Auto-incrementing rows:

CREATE TABLE table (number INT NOT NULL AUTO_INCREMENT, name CHAR(10) NOT NULL);

INSERT INTO tabe (name) VALUES ("tom"),("dick"),("harry");

-- Adding a column to an already-created table:

ALTER TABLE tbl ADD COLUMN [column_create syntax] AFTER col_name;

-- Removing a column:

ALTER TABLE tbl DROP COLUMN col;

(Full ALTER TABLE syntax available at mysql.com.)

-- Create a database on the sql server. */

create database [databasename];

-- Backing up a database with mysqldump:

# mysqldump --opt -u username -p database > database_backup.sql

(Use 'mysqldump --opt --all-databases > all_backup.sql' to backup everything.)

-- how-to export to csv the db's metadata

use information_schema ;

SELECT     TABLE_CATALOG  , TABLE_SCHEMA  , TABLE_NAME  , COLUMN_NAME  , ORDINAL_POSITION  , COLUMN_DEFAULT  , IS_NULLABLE  , DATA_TYPE  , CHARACTER_MAXIMUM_LENGTH  , CHARACTER_OCTET_LENGTH  , NUMERIC_PRECISION  , NUMERIC_SCALE  , CHARACTER_SET_NAME  , COLLATION_NAME  , COLUMN_TYPE  , COLUMN_KEY  , EXTRA  , PRIVILEGES  , COLUMN_COMMENT

INTO OUTFILE '/var/lib/mysql/information_schema.csv'

FIELDS TERMINATED BY '\t' OPTIONALLY ENCLOSED BY ' '

LINES TERMINATED BY '\n'

from COLUMNS;

-- Purpose:

-- This is a list of handy MySQL commands that I use time and time again.

-- At the bottom are statements, clauses, and functions you can use in

-- To login (from unix shell) use -h only if needed.

-- Shamelessly stolen from Internet and forgot to mention the sources ...

-- VersionHistory

-- 1.1.0 --- ysg --- docs, formatting

-- 1.0.0 --- ysg --- Hard copy paste from Internet ...

win registry cheat sheet

2011-10-01T21:38:00.000+03:00

Windows Registry Editor Version 5.00
;File:WinRegistryCheatSheet.reg : v1.1.0 docs at the end
;HOW TO IMPORT SILENTLY A REGISTRY FROM A FILE

;REMEMBER TO SAVE ALLWAYS YOUR REG FILES IN ANSI
;reg import /s C:\temp\the_name_of_the_file.reg
;HOW TO GO TO SPECIFIC KEY
;DOWNLOAD REGJUMP regjump "[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs]"

;PUT THE NAME OF THE COMMANDS YOU WOULD LIKE NOT TO TYPE
;FROM THE START - RUN
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs]
"url1"="firefox http://www.youtube.com/my_playlists"
"url2"="firefox http://gmail.google.com"
"url3"="C:\\Program Files\\Opera\\opera.exe g toSearch"
"url4"="firefox http://www.google.com/search?hl=en&q= typeHereTheWordToSearch"
;Note the space before typeHereTheWordToSearch if yount to have several words
;ANOTHER CACHE FOR THE RUN MENU
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU]
"a"="shutdown -f -s -t 00"
"b"="shutdown -f -r -t 00"
"c"="shutdown -f -h -t 00"
"d"="opera g toSearch"

;THE FOLLOWING ARE HISTORY KEYS, FOR TYPED URLS ,LAST DOCUMENTS ETC
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs]
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU]
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RecentDocs]
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ComDlg32\LastVisitedMRU]
[HKEY_CURRENT_USER\Software\Microsoft\Search Assistant\ACMru]

[HKEY_CLASSES_ROOT\*\shell\cmdhere]
@="Cmd&Here"

[HKEY_CLASSES_ROOT\*\shell\cmdhere\command]
@="cmd.exe /c start cmd.exe /k pushd \"%L\\..\""

[HKEY_CLASSES_ROOT\Folder\shell\cmdhere]
@="Cmd&Here"

[HKEY_CLASSES_ROOT\Folder\shell\cmdhere\command]
@="cmd.exe /c start cmd.exe /k pushd \"%L\""

;add a command line functionality from Start - Run with Opera on Windows
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\opera.exe]
@="C:\\Program Files\\Opera\\opera.exe"
"Path"="C:\\Program Files\\Opera"

;Purpose: provide a single reg import <<FilePath>> to commonly used registry settings
;VersionHistory
;1.1.0 --- ysg --- refactor added in morphus
;1.0.0 --- ysg --- initial creation

cmd cheat sheet ( revised )

2011-10-01T21:22:00.003+03:00

::File:Cmd_Cheat_Sheet.cmd v.1.2.0

:: GET A NICE PROMPT
set prompt=$P$S$S$t$_$_$S$S

:: forcely restart now
shutdown -r -f -t 00
:: forcely shutdown now
shutdown -s -f -t 00
:: forcely hibernate now
shutdown -h -f -t 00

RUNAS /profile /user:userName " shutdown.exe -r -f -m \\remoteHost"

:: execute command remotely not working
LSrunas /user:userName /password:company01 /domain:%computername% /command:"reboot -r -f -m \\remoteHost" /runpath:"C:\Temp\QARunpack\bin"

psexec -u user001 -p pass "shutdown.exe -r -f -m \\RemoteHostName "
psexec -u user001 -p pass "shutdown.exe -r -f -m \\RemoteHostName"

LSrunas /user:userName /password:company01 /domain:%computername% /command:" updateTRN.bat \\1USD01011" /runpath:"C:\Temp\QARunpack\bin"

:: ADDING USER WITH PASS
net user userName company01 /ADD
:: ADDING USER TO THE LOCALGROUP ADMINISTRATORS
net localgroup "Administrators" userName /add
:: ADDING VANTAGE USER IDENTIFIED BY company01 TO THE LOCALGROUP ADMINISTRATORS
net user vantage company01 /add
:: ADDING USER TO THE LOCALGROUP ADMINISTRATORS
net localgroup "Administrators" vantage /add
:: OPENS THE EXPLORER IN THE C:\TEMP FOLDER MAXIMIZED - USE THE /MIN OPTION TO GET

:: THE WINDOWS STARTED MINIMIZED
cmd /c start /max Explorer /e , "C:\Temp"
:: RUN THE REGEDIT AS A SPECIFIC USER
RUNAS /profile /user:userName regedit | sanur /i C:\utils\psts.txt
:: REboot agent remotely using the runas command - WORKS !!!!
:: START A CMD PROMPT UNDER THE userName user
RUNAS /profile /user:userName cmd.exe | sanur /i C:\utils\psts.txt
RUNAS /profile /user:userName " shutdown.exe -f -r -t 00 -m \\RemoteHostName"
::WORKS ALSO NEEDS SANUR http://www.commandline.co.uk/sanur_unsupported/index.html
RUNAS /profile /user:userName " shutdown.exe /f /r /t 00 /m \\2SGD00070" | sanur /i C:\utils\psts.txt

runas /u:domain\username program.exe | sanur /i C:\utils\psts.txt
:: GET ALL THE INFORMATION RELATED TO NETWORKING ON A WINDDOWS STATION
ipconfig /all
:: USE OF FOR /F
FOR /F "usebackq delims=\" %i IN (`DIR /AD /B`) DO FIND /I "TEMP"
:: LIST THE RUNNING APPLICATIONS
tasklist /v
:: FIND SOMETHING IN A COMMAND
ipconfig /all | find /i "Address"
:: EXPORT AND PARSE VALUE FROM THE REGISTRY
setlocal
if exist tmp.reg del /q tmp.reg
reg export "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" tmp.reg
for /f "tokens=2 delims==" %%a in ('find /i "username" tmp.reg') do set line=%%a&call :strip
endlocal
goto :EOF
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:strip
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
set usr=%line:"=%
echo/the user is %usr%>>%computername%.txt
del /q tmp.reg
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:: ANOTHER WAY OF EXPORTING KEYS FROM THE REGISTRY
regedit /e c:\zzz\reg.reg "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer"

:: COUNT THE NUMBER OF SPECIFIC TYPE OF FILES ARE THEY IN A SPECIFIED DIRECTORY
for /f "tokens=* delims=" %%i in ('dir C:\Temp\scripts\*.* /b /a-d ^| find /i /c "mdb"') do @echo num of scripts is %%i>>"%cd%\%computername%.txt"

:: LABEL EACH FILE IN A DIRECTORY
for /f "tokens=* delims=" %%i in ('dir /b C:\Temp\scripts\*.mdb') do @echo installed script %%i >>"%cd%\%computername%.txt"

:: START EXPLORER
for /f "tokens=* delims=" %%i in ('type DrillDownAllNames.txt') do (
)
:: CHANGE DRIVE AND DIRECTORY AT THE SAME TIME.
cd /d %ProgramFiles%
:: COMMAND SEPERATOR. EXECUTES TWO (OR MORE) COMMANDS ON ONE LINE.
dir & path
SAME, BUT THE ECHO COMMAND WILL ONLY BE EXECUTED WHEN THE COPY WAS SUCCESFUL.
copy a b && echo
SAME, ONLY IF UNSUCCESFUL.
copy a b || goto error

GOTO THE ERRORLABEL, IF THE PREVIOUS COMMAND EXITTED WITH AN ERRORLEVEL BIGGER THAN ZERO.
)

:: HOW TO IMPORT SILENTLY A REGISTRY FROM A FILE
reg import /s C:\temp\the_name_of_the_file.reg
reg import /s C:\temp\qarunpack\bin\PcAnyStealth.reg
:: ANOTHERWAYS TROUGH the regedit.exe
cmd /c %SystemRoot%\Regedit.exe /s thePaht\TheFile.reg

:: HOW TO EXPORT VALUES FROM THE REGISTRY INTO A FILE

:: DELETING KEYS OR VALUES USING A REG FILE
:: IT IS ALSO POSSIBLE TO DELETE KEYS AND VALUES USING REG FILES. TO DELETE A KEY START BY :: USING THE SAME FORMAT AS THE THE REG FILE ABOVE, BUT PLACE A "-" SYMBOL IN FRONT OF THE :: :: KEY NAME YOU WANT TO DELETE. FOR EXAMPLE TO DELETE THE :: :: [HKEY_LOCAL_MACHINE\SYSTEM\SETUP] KEY THE REG FILE WOULD LOOK LIKE THIS:

:: TO EXPORT A KNOW REGISTRY KEY FROM THE REGISTRY
reg export "HKEY_LOCAL_MACHINE\SYSTEM\SETUP" filename.reg

:: IF A FILE OR FOLDER EXISTS (SPELLED WITHOUT THE LETTER S ON THE END). THE PARENTHESES
:: GROUP THE COMMANDS OVER THE LINEBREAK (¶ DENOTES A LINEBREAK).

if errorlevel 1 goto error
if exist "file.log"
echo Log exists
goto end
:: ESCAPE CHARACTER TO USE REDIRECT/PIPE CHARACTERS IS THE CARET (^)
echo a -^> b
:: REDIRECTS OUTPUT (INCLUDING ERROR MESSAGES) TO FILE.LOG
command > file.log 2>&1
:: COMMAND SAME THING (BUT IT APPENDS). IN THIS WAY, YOUR BATCH FILES LOOK CLEANER.
>> file.log 2>&1
PUT MESSAGES IN STDIN.LOG AND ERROR MESSAGES IN STDERR.LOG.
command 1> stdin.log 2> stderr.log

start /wait regedit /s file.reg
:: Will ensure when the batch-file continues, the merge operation has completed.
:: regsvr32 /s file.dll Registers a COM DLL without dialog boxes (no report via %errorlevel% of
:: success/failure). Use /s /u for unregistering. :: QUIT'S THE CURRENT BATCH-FILE
:: (ONLY WORKS UNDER NT4 WHEN COMMAND EXTENTIONS ARE ENABLED, WHICH IS NOT THE DEFAULT).
goto :EOF
::THE BATCH FILE'S VERSION OF GOSUB. END THE "SUBROUTINE" WITH GOTO :EOF INSTEAD OF RETURN.
ECHO LOG >> %~N0.LOG IN A BATCH FILE: TRICK TO APPEND A MESSAGE TO A LOG WITH THE SAME NAME AS THE BATCH-FILE, BUT WITH AN OTHER EXTENSION.
call :subroutine
notepad %* In a batch file: replaced by all the arguments in a batch file.

C:\winnt\system32\drivers\etc\
147.243.4.137 servername

:: SEE THE CURRENT STATUS OF THE ACCOUNTS
net accounts

:: SET THE PASSWORDS TO NEVER EXPIRE ON THE LOCAL COMPUTER
net accounts /maxpwage:unlimited /%computername%

:: ADDS LOCAL USER NO PASSWORD NOTHING DO NOT USE
net user userName secretPass /ADD /%computername%

NET USER userName company01 /ADD /expires: never /times: all /%computername%

:: ADDS THE USERS TO THE ADMINISTRATOR GROUP
net localgroup "Administrators" userName /add
net localgroup "Administrators" user001 /add

RUNAS /profile /user:user001 REGEDIT
RUNAS /profile /user:userName REGEDIT

:: RUN CONSOLE ROOT
RUNAS /profile /user:userName mmc
psexec -u userName -p company01 cmd /c regedit.exe
psexec -u user001 -p secretPass cmd /c regedit.exe

:: FIND AND REPLACE STRING IN TEXT FILE USING GSAR
gsar "-sIMMIDIATERUN:0611" "-rIMMIDIATERUN:0610" -o "C:\Temp\settings.txt"

:: ACCESS EACH ROW FROM THE FILE
for /f "tokens=* delims=" %%a in ('more/e +0 ^<"%cd%\%computername%.txt"') do

:: COMPARING STRINGS
@echo off
set VAR=before
if "%VAR%" == "before" (
echo %var%
set VAR=after
echo %var%
pause
if "!VAR!" == "after" @echo If you see this, it worked
)
echo %var%
pause
:: OPEN THE SERVICES FROM THE COMMAND PROMPT
%SystemRoot%\system32\services.msc /s

:: THE USE OF THE SET COMMAND
set agent=something
:: WRONG !!!! AVOID SPACES BEFORE = AFTER IT AND AFTER THE RVALUE IT TAKES THOSE ALSO !!!!!!

::ALWAYS USE THE NET USE COMMAND IF YOU WANT TO USE NETWORK RESOURCES FROM CMD
net use "\\server\share\"

::USE REDIRECTING OF ERRORS THIS WAYS
copy file1 file2 2> errors.txt
errors.txt

:: CHANGE THE SETTINGS IMMIDIATERUN FROM THE COMMAND LINE
gsar "-sIMMIDIATERUN:0611" "-rIMMIDIATERUN:0610" -o "C:\Temp\settings.txt"
:: CHANGE THE REBOOOTEVERYCYCLE FROM 1 TO 0
gsar "-sREBOOTEVERYCYCLE:0611" "-rREBOOTEVERYCYCLE:0610" -o "C:\Temp\settings.txt"
:: CHANGE THE TIMEOUT FROM 30 TO 20
gsar "-sQARUN_TIMEOUT:06130" "-rQARUN_TIMEOUT06120" -o "C:\Temp\settings.txt"

:: WE DO NOT WANT TO MESS WITH SCRIPTS
IF NOT DEFINED CMDWindow Set CMDWindow=1&Start "GetAndSendInfo" /MIN %0&Goto :EOF
:: PUT THE CODE HERE
exit
:: append a new folder to the path of a
AddPath -s -n -v Path "C:\Program Files\BEA Systems\TUXEDO"

:: DLL LINKING using the regsvr32 command SILENTLY
regsvr32 /s DIV_ExtMESClient.dll

:: runthe registry as a different user

:: using runas command
LSrunas /user:userName /password:company01 /domain:%computername% /command:"REGEDIT" /runpath:"%cd%"
:: normal
RUNAS /profile /user:userName REGEDIT

:: PSEXEC
:: In order to get the psexec working the following commands should succeed
net use \\target\Admin$ /user:Administrator
dir \\target\Admin$
net use \\target\Admin$ /delete
:: (only disconnects, does not delete anything.)

:: reboot fast station with the shutdown utility
C:\Temp\QArunpack\bin\shutdown.exe -s reboot -f -m "The station will reboot in 3 seconds" -l 3 -c
shutdown -f -r -t 00

::=========================================================
:: using bmail
::=========================================================
:: SETTING TO THE E-MAIL TO WHOM WE ARE GOING TO SEND THE E-MAIL
::=========================================================
set mailadd= yordan.georgiev^@company.com

::CONTCATENATE ANY ERRORS TO THE END OF THE LOG
echo errors in the logging process are listed bellow: >>"%cd%\%computername%.txt"
for /f "delims=" %%a in ('more/e +0 ^<"%cd%\error_log_%computername%.txt"') do echo/%%a>>"%cd%\%computername%.txt"

:: WE USE THE BMAIL.EXE UTILITY TO SEND OURSELF AN E-MAIL CONTAINING THE TEXT FILE
:: ALTERNATIVE SMTP MIGHT BE esebe107.NOE.company.com, UNCOMMENT THE NEXT LINE FOR ALTERN
:: cmd /c bmail -s esebe107.NOE.company.com -m %computername%.txt -t %mailadd% -a %computername% -h
bmail -s smtp.company.com -m %computername%.txt -t yordan.georgiev^@company.com -a %computername% -h

:: eof using bmail
::=========================================================

::=========================================================
:: edit the hosts file
::=========================================================
echo 147.243.4.137 serverName >> C:\winnt\system32\drivers\etc\hosts
::=========================================================

::=======================================================
:: START A MINIMIZED BATCH WINDOW
::=======================================================
@echo off
IF NOT DEFINED CVRestart Set CVRestart=1&Start "Minimized" /MIN %0&Goto :EOF

exit
::=======================================================

::=======================================================
:: USAGE OF THE WHERE COMMAND ::WHERE [/R dir] [/Q] [/F] [/T] pattern...
::=======================================================
WHERE /R "\\server\share\" *spare*
::=======================================================
::get the mac address of an workstatioin
getMac

:: Start - Run utils
:: Add or Remove Programs
APPWIZ.CPL
:: COMPUTER MANAGEMENT
COMPMGMT.MSC
:: DEVICE MANAGER
DEVMGMT.MSC
:: DISK DEFRAGMENTER
DFRG.MSC -
:: Disk Management
DISKMGMT.MSC
:: Event Viewer
EVENTVWR.MSC
:: Sound Volume
SNDVOL.EXE

::Calculator
CALC.EXE
::Character Map
CHARMAP.EXE
::Disk Space Cleanup Manager
CLEANMGR.EXE
::SQL Client Configuration Utility
CLICONFG.EXE
::Clipboard Viewer
CLIPBRD.EXE
::Class Package Export Tool
CLSPACK.EXE
::Command Line
CMD.EXE
::Connection Manager Profile Installer
CMSTP.EXE
::Control Panel
CONTROL.EXE
::Component Services
DCOMCNFG.EXE
::DDE
DDESHARE.EXEShare
:: Doctor Watson v1.00b
DRWATSON.EXE
:: Doctor Watson Settings
DRWTSN32.EXE
:: DVD Player
DVDPLAY.EXE
:: DirectX Diagnostics
DXDIAG.EXE
:: Private Character
EUDCEDIT.EXEEditor
:: Event Viewer
EVENTVWR.EXE
:: Windows Explorer
EXPLORER.EXE
:: System Logoff
LOGOFF.EXE
:: Microsoft Management Console
MMC.EXE
:: Remote Desktop Connection
MSTSC.EXE /v 127.0.0.1:3388
:: Notepad
NOTEPAD.EXE
:: NSLookup Application
NSLOOKUP.EXE
::Symbolic Debugger for Windows 2000
NTSD.EXE
:: ODBC Data Source Administrator
ODBCAD32.EXE
:: On Screen Keyboard
OSK.EXE
:: Windows Uninstall Utility
OSUNINST.EXE
:: Performance Monitor
PERFMON.EXE /RES
:: Program Manager
PROGMAN.EXE
:: Remote Access Phonebook
RASPHONE.EXE
:: Registry Editor
REGEDIT.EXE
:: Resets Session
RESET.EXE
:: System Restore
RSTRUI.EXE
:: RTC Application Sharing
RTCSHARE.EXE
:: System File Checker
SFC.EXE
:: Create Shared Folder
SHRPUBW.EXE
:: System Shutdown
SHUTDOWN.EXE
:: File Signature Verification
SIGVERIF.EXE
:: Sound
SNDREC32.EXERecorder
:: Display Properties
DESK.CPL
:: Add Hardware Wizard
HDWWIZ.CPL
:: Internet Explorer Properties
INETCPL.CPL
:: Regional and Language Options
INTL.CPL
:: Mouse Properties
MAIN.CPL
:: Sounds and Audio Device Properties
MMSYS.CPL
:: Network Connections
NCPA.CPL
:: User Accounts
NUSRMGR.CPL
:: ODBC Data Source Administrator
ODBCAD.CPL
:: Power Options Properties
POWERCFG.CPL
:: System Properties
SYSDM.CPL
:: Phone and Modem Options
TELEPHON.CPL
:: Date and Time Properties
TIMEDATE.CPL
:: Microsoft Management Console (MMC Snap-ins) - Certificates
CERTMGR.MSC
:: Indexing Service
CIADV.MSC
:: Shared Folders
FSMGMT.MSC
:: Local Users and Groups
LUSRMGR.MSC
:: REMOVABLE STORAGE
NTMSMGR.MSC
:: REMOVABLE STORAGE OPERATOR REQUESTS
NTMSOPRQ.MSC
:: PERFORMANCE MONITOR
PERFMON.MSC
:: SERVICES
SERVICES.MSC
:: WINDOWS MANAGEMENT INFRASTRUCTURE
WMIMGMT.MSC
:: CONVENTIONAL USER ACCOUNT INTERFACE
CONTROL USERPASSWORDS2
::START OFFICE APPLICATIONS FROM COMMAND LINE
EXCEL.EXE
MSACCESS.EXE

MSPUB.EXE
:: Microsoft Office Picture Manager
OIS.EXE
OUTLOOK.EXE
POWERPNT.EXE
WINWORD.EXE

control keyboard

RUNAS /profile /user:user001 "COMPMGMT.MSC " | sanur /i C:\utils\psts.txt
RUNAS /profile /user:userName "regedit " | sanur company01
:: STOP A SERVICE
net stop "PCAnywhere Host Service"

:: STOP AN WINDOWS SERVICE IN MICROSOFTS WAY
sc \\servername stop schedule
:: WITH PSINTERNALS
psservice \\computername -u UserName-p Password stop "PCAnywhere Host Service"
psservice \\RemoteHostName -u userName -p Password company01 stop "PCAnywhere Host Service"

:: How do I concatenate files into one file overwriting previous existing one?
copy /b /y *.txt APMDeployment.html

:: If you want separations between the files,
:: try something like this...

@echo off
if .%1==.Loop goto process
> output.fil rem
for %%a in (*.txt) do call %0 Loop %%a
goto end
:process
>>output.fil echo.
>>output.fil echo ----------- File %2 -----------
>>output.fil type %2
:end

net use \\hostName\Temp\tmp "secretPass" /USER: " yogeorgi@NOE.company.com"
NET USE W: \\hostName\Temp /Persistent:No

:: COPY FILES RECURSIVELY TO THE CURRENT DIRECTORY
:: USES exec.bat by Fred Stluka
exec /s *pdrs*jpg do xcopy /s /m /f

:: SETTING TITLE AND COLOR AND FOR CMD
cmd.exe /k cd c:\Temp && color fc && title ***** Admin console *****

:: DELETE FILES CONTAINING STRING ON REMOTE COMPUTER
:: uses srp.exe see start remote process
cmd /c srp workstation cmd /c del /q C:\Temp\\*20060*

:: Fast search the directory for filename

::Windows fast directory search from WinLogo + R
cmd /c "dir C:\temp\path\*toFind* /s /b>list.txt&list.txt "

:: open all textpad files in a directory
for /f "tokens=* delims=" %%i in ('dir /b /s c:\TEMP\OXIT\BATTERY\*.txt') do cmd /c start /max textpad %%i

:: the syntax of the if command
echo set the variable to 0
set variable=0
pause
IF %variable% == 0 (
:: commands to be executed if the condition is true
echo the variable is %%variable%% = 0
) ELSE (
echo the variable is %%variable%% = 1
:: commands to be executed if the condition is false
)
pause

:: PURPOSE
:: TO PROVIDE THE USERS WITH COPY PASTE OF THE MOSTLY USED COMMANDS IN THE PECC TEAM
:: FOLLOW THE SYNTAX TO MAKE COPY PASTE EASIER , USE CAPITAL LETTERS FOR COMMENTS

::VersionHistory
:: 1.2.0 --- ysg --- formatting cleaning
:: 1.1.0 --- ysg --- removed NDA stuff

how-to setup public private key authentication between an Win and Nix box

2011-09-27T18:40:00.001+03:00

Install Cygwin
Install separately the ssh-keygen ( or sshd )
Download the puttycfg , unzip to a dir in your Windows path
Find out where cygwin1.dll is installed cygcheck -sd >list.txt
Open the list.txt ( it is quite big ) : notepad list.txt
Copy all the files from C:\temp\something to the dir where the cygwin1.dll is located
Start the putty.exe : Start - Run : cmd /c START /max putty
In the GUI , check that Session on the Left is selected , click on Cygterm option , for hostName type - , leave port number 22
Open the puttycfg :
Generate the public and private key's :
# ssh-keygen -t rsa
Type Enter,Enter
Now here is the tricky part you have to tell also putty that the public and private key files are the one you want to use with you : Copy the /home/<<username>>/id_rsa and ..id_rsa.pub to the dir where your save your putty conf in my case: C:\Temp\ysg\conf\<<computername>>\putty\ssh
Start - Run - type puttygen
Load the copied private key file and save it as <<file.pkk>> , save also the public key file
Copy the id_rsa.pub file to the server's ~ dir
On the server cat id_rsa.pub >> ~/.ssh/authorized_keys
Now when started from the windows client :
cmd /c START /max putty username@servername.domain.com no password should be asked

how-to start outlook with unread e-mails folder selected

2011-09-22T10:05:00.000+03:00

ECHO START OUTLOOK with selected Unread Mail folder
cmd /c start /max outlook /select "<outlook:Search Folders\Unread Mail>"

how-to get the column metadata in mysql

2011-09-16T15:30:00.002+03:00

/* when asked type the password for the username */

mysql -u username -p  -B -e "use information_schema; SELECT     TABLE_CATALOG  , TABLE_SCHEMA  , TABLE_NAME  , COLUMN_NAME  , ORDINAL_POSITION  , COLUMN_DEFAULT  , IS_NULLABLE  , DATA_TYPE  , CHARACTER_MAXIMUM_LENGTH  , CHARACTER_OCTET_LENGTH  , NUMERIC_PRECISION  , NUMERIC_SCALE  , CHARACTER_SET_NAME  , COLLATION_NAME  , COLUMN_TYPE  , COLUMN_KEY  , EXTRA  , PRIVILEGES  , COLUMN_COMMENT

INTO OUTFILE '/var/lib/mysql/information_schema.csv'

FIELDS TERMINATED BY '\t' OPTIONALLY ENCLOSED BY ' '

LINES TERMINATED BY '\n'

from COLUMNS; "

I hate watching at the end of the terminal in Unix ...

2011-09-03T10:32:00.002+03:00

history | sort -r | less

my favorite textpad shortcuts

2011-09-01T10:19:00.000+03:00

Shift F11 - Activate Search Window
F4 , Shift F4 - Next iteam in Find in Files
Alt + 1 , type Letter ( n times ) - activate the Document Selector , go to a file name starting with the letter
Ctrl + Tab , Ctrl + Shift + Tab - switch between tabs
Alt + C , P - get to Preferences
Alt + F3 - open Explorer in the path of the currently opened file
F3 - copy the path of the current opened file

A class template in Perl

2011-08-28T19:26:00.001+03:00

use strict ; use warnings ;

package ClassTemplate ;

my $VERSION='0.2.0' ;

use lib '.' ; use Exporter;

my @ISA = qw(AutoLoader Exporter);

my @EXPORT = qw();

BEGIN {

    #add the module dir in the INC

    $0 =~ m/^(.*)(\\|\/)(.*)\.([a-z]*)/;

    push ( @INC , $1) ;

    #debug print join ( ' ' , @INC ) ;

} #eof BEGIN

use Logger ;

### START setting package vars

our ( $confHolder , $objLogger , )= () ;

### STOP setting package vars

# ===============================================================

# START OO

# -----------------------------------------------------------------------------

# the constructor

# source:http://www.netalive.org/tinkering/serious-perl/#oop_constructors

# -----------------------------------------------------------------------------

sub new {

    my $class = shift ;        # Class name is in the first parameter

    $confHolder = ${ shift @_ } if ( @_ )  ;

    my $self = { };  # Anonymous hash reference holds instance attributes

    bless($self, $class);          # Say: $self is a $class

        $self->Initialize() ;

    return $self;

} #eof const

# -----------------------------------------------------------------------------

# perldoc autoloader

# -----------------------------------------------------------------------------

sub AUTOLOAD {

    my $self = shift ;

    no strict 'refs';

    my $name = our $AUTOLOAD;

    *$AUTOLOAD = sub {

    my $msg = "BOOM! BOOM! BOOM! \n RunTime Error !!!\nUndefined Function $name(@_)\n" ;

    print "$self , $msg";

};

    goto &$AUTOLOAD;    # Restart the new routine.

}    #eof sub AUTOLOAD

# -----------------------------------------------------------------------------

# return a field's value

# -----------------------------------------------------------------------------

    sub get    {

        my $self = shift;

        my $name = shift;

        return $self->{$name};

    } #eof sub get

# -----------------------------------------------------------------------------

# set a field's value

# -----------------------------------------------------------------------------

    sub set    {

        my $self = shift;

        my $name = shift;

        my $value = shift;

        $self->{$name}=$value;

    } #eof sub set

# -----------------------------------------------------------------------------

# return the fields of this obj instance

# -----------------------------------------------------------------------------

    sub dumpFields        {

        my $self = shift ;

        my $strFields = () ;

        foreach my $key (keys %$self)        {

            $strFields .= "$key = $self->{$key}\n";

        return $strFields ;

    } #eof sub dumpFields

# -----------------------------------------------------------------------------

# wrap any logic here on clean up for this class

# -----------------------------------------------------------------------------

sub  RunBeforeExit {

    print "RunBeforeExit.\n";

# -----------------------------------------------------------------------------

# called automatically by perl's garbage collector use to know when

# -----------------------------------------------------------------------------

sub DESTROY {

    my $self = shift;

    #debug print "the DESTRUCTOR is called  \n" ;

    $self->RunBeforeExit() ;

    return ;

} #eof sub DESTROY

# -----------------------------------------------------------------------------

# Initialize the object with the minimum data it will need to operate

# -----------------------------------------------------------------------------

sub Initialize {

    my $self = shift ;

    $objLogger = new Logger (\$confHolder) ;

} #eof sub Initialize

# STOP OO

# =============================================================================

1 ;

__END__

=head1 NAME

ClassTemplate

=head1 SYNOPSIS

use ClassTemplate;

=head1 DESCRIPTION

A template like class for starting new classes in the morphus project

=head2 EXPORT

=head1 SEE ALSO

perldoc perlvars

No mailing list for this module

=head1 AUTHOR

yordan.georgiev@gmail.com

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2011 Yordan Georgiev

This library is free software; you can redistribute it and/or modify

it under the same terms as Perl itself, either Perl version 5.8.1 or,

at your option, any later version of Perl 5 you may have available.

VersionHistory:

0.2.0 --- ysg --- Added RunBeforeExit

0.0.1 --- ysg --- Initial creation from Template class

=cut

The control flow technique for programming

2011-08-28T12:42:00.000+03:00

The problem:
Programs grow larger .. The more code is added the harder the development , requirements tracking etc
The solution:
Write human readable pseudo code instructions into a spreadsheet , so that each "Control flow point" is a row in the spreadsheet. Add the row in the code as logging entries. Thus after each run of the program by filtering the entries from the log the real control flow is revealed. The - human readability is helping also customers and specifications providers to understand what actually the programmer is writing and add / update / correct existing specifications. By sending back and forth the Control Flow the actual process of requirements gathering , specs creation is shortened and the whole development process improved.
It is important that the Control Flow points are chosen ,so that each Control Flow Point must be tested and verified ( not only by the existence of the log entry ). By searching recursively in the source code for the Control Flow point description the developer could jump straight into the actual part of the source code to be worked on ...

2011-08-21T11:30:00.000+03:00

use strict ; use warnings ;

package ClassTemplate ;

my $VERSION='0.1.0' ;

use lib '.' ; use Exporter;

my @ISA = qw(AutoLoader Exporter);

my @EXPORT = qw();

BEGIN {

    #add the module dir in the INC

    $0 =~ m/^(.*)(\\|\/)(.*)\.([a-z]*)/;

    push ( @INC , $1) ;

    #debug print join ( ' ' , @INC ) ;

} #eof BEGIN

use Logger ;

### START setting package vars

our ( $confHolder , $objLogger , )= () ;

### STOP setting package vars

# ===============================================================

# START OO

# -----------------------------------------------------------------------------

# the constructor

# source:http://www.netalive.org/tinkering/serious-perl/#oop_constructors

# -----------------------------------------------------------------------------

sub new {

    my $class = shift ;        # Class name is in the first parameter

    $confHolder = ${ shift @_ } if ( @_ )  ;

    my $self = { };  # Anonymous hash reference holds instance attributes

    bless($self, $class);          # Say: $self is a $class

        $self->Initialize() ;

    return $self;

} #eof const

# -----------------------------------------------------------------------------

# perldoc autoloader

# -----------------------------------------------------------------------------

sub AUTOLOAD {

    my $self = shift ;

    no strict 'refs';

    my $name = our $AUTOLOAD;

    *$AUTOLOAD = sub {

    my $msg = "BOOM! BOOM! BOOM! \n RunTime Error !!!\nUndefined Function $name(@_)\n" ;

    print "$self , $msg";

};

    goto &$AUTOLOAD;    # Restart the new routine.

}    #eof sub AUTOLOAD

# -----------------------------------------------------------------------------

# return a field's value

# -----------------------------------------------------------------------------

    sub get    {

        my $self = shift;

        my $name = shift;

        return $self->{$name};

    } #eof sub get

# -----------------------------------------------------------------------------

# set a field's value

# -----------------------------------------------------------------------------

    sub set    {

        my $self = shift;

        my $name = shift;

        my $value = shift;

        $self->{$name}=$value;

    } #eof sub set

# -----------------------------------------------------------------------------

# return the fields of this obj instance

# -----------------------------------------------------------------------------

    sub dumpFields        {

        my $self = shift ;

        my $strFields = () ;

        foreach my $key (keys %$self)        {

            $strFields .= "$key = $self->{$key}\n";

        return $strFields ;

    } #eof sub dumpFields

# -----------------------------------------------------------------------------

# called automatically by perl's garbage collector use to know when

# -----------------------------------------------------------------------------

sub DESTROY {

    my $self = shift;

    #debug print "the DESTRUCTOR is called  \n" ;

    return ;

} #eof sub DESTROY

# -----------------------------------------------------------------------------

# Initialize the object with the minimum data it will need to operate

# -----------------------------------------------------------------------------

sub Initialize {

    my $self = shift ;

    $objLogger = new Logger (\$confHolder) ;

} #eof sub Initialize

# STOP OO

# =============================================================================

1 ;

__END__

=head1 NAME

ClassTemplate

=head1 SYNOPSIS

use ClassTemplate;

=head1 DESCRIPTION

This class provides handy method for object's handling

=head2 EXPORT

=head1 SEE ALSO

perldoc perlvars

No mailing list for this module

=head1 AUTHOR

yordan.georgiev@gmail.com

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2011 Yordan Georgiev

This library is free software; you can redistribute it and/or modify

it under the same terms as Perl itself, either Perl version 5.8.1 or,

at your option, any later version of Perl 5 you may have available.

VersionHistory:

0.0.1 --- ysg --- Initial creation from Template class

=cut

my favorite unix command

2011-08-19T23:28:00.002+03:00

find /path/to/files -name '*.ext' -exec echo command to file {} \;

how-to bublesort in OO perl

2011-08-17T22:11:00.002+03:00

#source:http://blob.perl.org/tpc/1998/Perl_Language_and_Modules/Efficient%20Perl/handout.html

sub bubblesort {

    my $self = shift ;

    my ( $array ) = @_;

    use integer;        # More speed.

    print "\@_ is @_ \n" ;

    print "\$array is $array \n" ;

    print "\$#$array is $#$array \n" ;

    my $lastj   = $#$array or return $array ; # 0 or 1 element array is sorted already just returned

    my $firstj  = 1;

    my ( $i, $j, $keepj, $big );

    # return $array  if $firstj > $lastj;     # 0 or 1 element array is sorted.

    while ( $firstj ) {

        # Run from

        # ( $firstj - 1, $firstj ) .. ( $lastj - 1 , $lastj ),

        # swapping when out of order.

        for ( $j = $firstj, $i = $j - 1,

              $keepj = $lastj, $firstj = 0;

          $j <= $keepj;

          $i = $j++ ) {

        next unless $array->[ $i ] gt $array->[ $j ];

        # Remember where we started if this is the first swap

        # (but do not try to compare with the predecessor of 0)

        $firstj = $firstj || $i || $j;

        # Something to swap, try for a run of swaps.

        # Remove the element that must swap up.

        $big = splice @$array, $i, 1;

        # Use $j < $keepj instead of $j <= $keepj

        # because the array is one shorter right now.

        # We already tested the $j entry that has been

        # shifted to $j-1.

        ++$j while $j < $keepj && $array->[ $j ] lt $big;

        # Put back the removed element in its new place.

        splice @$array, $j, 0, $big;

        # fix $j for the splice, and revalidate $i.

        $i = $j++;

        $lastj = $i;

    return $array ;

} #eof sub

why am I optimist for the future of IT

2011-08-14T16:55:00.000+03:00

I remember the September of 2001. I bought my first HP laptop for school with the money I have earned from working at the bar. It's prise was probably some 1200 euros in current prices ... It had Windows XP , it was slow and heavy, but at this time I was the only one in the class having laptop, back than it was more of a business person accessory ... It was a big investment back than ...

Today we bought a laptop for the kids - for home work, net and CD games ... It has 10 times more RAM , some 10 times more storage , the processor is probably at least 5 times faster ( One should not stare at the processor speed only ... ) Anyway a laptop with much better performance for 1/5 of the price .... Compare again Win7 and Windows XP and the level of the software one could get nowadays ...

I mean with the price of computing decreasing with such speed ... there will be more and more people affording the digital age ...

NASA | X-Class: A Guide to Solar Flares

2011-08-12T22:00:00.002+03:00

how open is android

2011-08-06T00:35:00.002+03:00

Not very much

Politicians lie often ... what about BI ?

2011-08-05T19:17:00.003+03:00

never

How-to clear the screen in cygwin on windows

2011-07-10T14:52:00.000+03:00

Do not bother with the default cmd.exe terminal started by default when you start bash ...
Use puttycfg

download the puttycfg , unzip to C:\temp\something
Find out where cygwin1.dll is installed cygcheck -sd >list.txt
Open the list.txt ( it is quite big ) : notepad list.txt
Copy all the files from C:\temp\something to the dir where the cygwin1.dll is located
Start the putty.exe
In the GUI , check that Session on the Left is selected , click on Cygterm option , for hostName type - , leave port number 22
Click on open
Run the clear command ... Now you have much better terminal ...

how-to parse excel file with perl with Spreadsheet::ParseExcel module

2011-07-10T12:08:00.001+03:00

package Excel2003Handler ;

my $VERSION='0.0.3' ;

require Exporter;

use strict ; use warnings  ; use Carp qw(cluck);

use lib '.' ; use Spreadsheet::ParseExcel;

BEGIN {

$0 =~ m/^(.*)(\\|\/)(.*)\.([a-z]*)/;

push ( @INC , $1) ;

use Logger ; use FileHandler ;

my @ISA = qw(AutoLoader Exporter);

my @EXPORT = qw(DumpExcel ParseExcel GetValue);

our ( $confHolder , $FileInputExcel , $objLogger , $objFileHandler ) = () ;

our ( $DelimiterCsv , $MsgAction ) = () ;

sub Initialize {

my $self = shift ;

my $FlagSuccess = 0 ;

$objLogger = new Logger (\$confHolder) ;

$objFileHandler = new FileHandler ( \$confHolder ) ;

$FileInputExcel = $confHolder->{'FileExcelInput'} ;

unless( -f $FileInputExcel ) {

$MsgAction = "Cannot find the Excel file $FileInputExcel , exiting !!! \n" ;

return 1 ;

$DelimiterCsv ="\t" ;

$FlagSuccess = 1 ;

return $FlagSuccess;

} #eof sub Initialize

# =============================================================================

# START OO

#source:http://www.netalive.org/tinkering/serious-perl/#oop_constructors

sub new {

my $class = shift ;        # Class name is in the first parameter

$confHolder = ${ shift @_ } if ( @_ )  ;

my $self = { };  # Anonymous hash reference holds instance attributes

bless($self, $class);          # Say: $self is a $class

$self->Initialize() ;

return $self;

} #eof const

sub AUTOLOAD {

my $self = shift ;

no strict 'refs';

my $name = our $AUTOLOAD;

*$AUTOLOAD = sub {

my $msg = "BOOM! BOOM! BOOM! \n RunTime Error !!!\nUndefined Function $name(@_)\n" ;

print "$self , $msg";

};

goto &$AUTOLOAD;    # Restart the new routine.

sub get    {

my $self = shift;

my $name = shift;

return $self->{$name};

} #eof sub get

sub set    {

my $self = shift;

my $name = shift;

my $value = shift;

$self->{$name}=$value;

} #eof sub set

sub DESTROY {

my $self = shift;

#debug print "the DESTRUCTOR is called  \n" ;

return ;

# STOP OO

# =============================================================================

sub ExcelToCsv {

my $self = shift ;

$FileInputExcel =~ m/^(.*)(\\|\/)(.*)\.([a-z]*)/;

my $DirOutput = $1 ;

#Delete first the old csv files

my ($RefFilesAndDirs , $RefDirsToProcess , $RefFilesToProcess ) =

$objFileHandler->ReadDirRecursivelyReturnArrays ( $DirOutput , '.csv') ;

my @FilesToProcess = @$RefFilesToProcess ;

foreach my $FileToProcess ( @FilesToProcess ) {

unlink ( $FileToProcess ) ;

my ( $RefWorkSheets , $RefWorkSheetNames ) = $self->ParseExcel () ;

my @WorkSheetNames = @$RefWorkSheetNames ;

my @RefWorkSheets = @$RefWorkSheets ;

foreach my $WorkSheetRef ( @RefWorkSheets ) {

my @Rows = @$WorkSheetRef ;

my $StrToPrint = () ;

my $WorkSheetName = shift ( @WorkSheetNames ) ;

my $FileCsvToPrint = "$DirOutput/$WorkSheetName" . '.csv' ;

foreach my $RowRef ( @Rows ) {

my @Cols = @$RowRef ;

# from the first till the last number of the array

for ( 0 .. $#Cols )    {

my $token = "$Cols[$_]" ;

$StrToPrint .= "$DelimiterCsv" . "$token" if $_ ;

$StrToPrint .= "$token" unless $_ ;     #the elemen

} #eof for

$StrToPrint .= "\n" ;

} #eof foreach my $RowRef

$objFileHandler->PrintToFile($FileCsvToPrint , $StrToPrint )

if ( defined ( $StrToPrint));

} #eof foreach foreach my $WorkSheetRef

} #eof sub

# --- foreach worksheet create worksheet refs into array

# --- foreach row in worksheet create refs into array

# --- foreach column in row create refs into array

# --- add col refs , to row refs array , to worksheets refs array

# --- return the whole thingy

sub ParseExcel {

my $self = shift ;

#old my $strTemplate = shift ;

#old my $FileToPrintTemplated = shift ;

my $FileInputExcel = $confHolder->{'FileExcelInput'} ;

unless ( defined ( $FileInputExcel) or  -f $FileInputExcel ) {

$objLogger->LogInfoErrorMsg ( " Cannot parse Excel 2003 - No file to read !!! " ) ;

$objLogger->LogInfoErrorMsg ( " EXIT 1" ) ;

exit(1) ;

my $parser   = Spreadsheet::ParseExcel->new();

my $Workbook = $parser->Parse("$FileInputExcel");

if ( !defined $Workbook ) {

print STDERR "cannot parse \$FileInputExcel $FileInputExcel $! $parser->error()" ;

die $parser->error(), ".\n";

my @RefWorkSheets = () ;

my @WorkSheetNames = () ;

foreach my $worksheet (@{$Workbook->{Worksheet}}) {

my $WorkSheetRef = () ;

my $WorkSheetName = $worksheet->{'Name'} ;

push ( @WorkSheetNames , $WorkSheetName ) ;

my ( $ColMin , $ColMax , $RowMin , $RowMax ) ;

$ColMin = $worksheet->{MinCol} ;

$ColMax = $worksheet->{MaxCol} ;

$RowMin = $worksheet->{MinRow} ;

$RowMax= $worksheet->{MaxRow} ;

#the first row are the column headers

my $MinRowWithData= $RowMin +1 ;

$objLogger->LogDebugMsg ( "\$ColMin is $ColMin") ;

$objLogger->LogDebugMsg ( "\$ColMax is $ColMax") ;

$objLogger->LogDebugMsg ( "\$RowMin is $RowMin") ;

$objLogger->LogDebugMsg ( "\$RowMax is $RowMax") ;

my @RowRefs = () ;

for my $row ( $MinRowWithData .. $RowMax) {

my $RowRef = () ;

my @Row = () ;

for my $col ( $ColMin .. $ColMax ) {

# get the cell obj not it's value

my $cell = $worksheet->{Cells}[$row][$col]  ;

#deprec next unless $cell;

$objLogger->LogDebugMsg ( " Row, Col    = ($row, $col)");

# if the cell as a value it is defined

if ( $cell ) {

$cell->Value() ;

push ( @Row , $cell->Value () ) ;

#debug $objLogger->LogDebugMsg ( " Value = $cell->Value() ");                #The Value

else {

push ( @Row , undef ) ;

} #eof for col

push ( @RowRefs , \@Row ) ;

} #eof row

push ( @RefWorkSheets , \@RowRefs ) ;

} #eof worksheet

return ( \@RefWorkSheets , \@WorkSheetNames ) ;

} #eof sub

sub GetValue {

my $self = shift ;

my $RefWorkSheets = shift ;

my @RefWorkSheets = @$RefWorkSheets ;

my $WorkSheetNumber = shift ;

my $RowNumber = shift ;

my $ColNumber = shift ;

my $RefRows = $RefWorkSheets [$WorkSheetNumber ] ;

return undef unless ( $RefRows ) ;

my @Rows = @$RefRows ;

my $RefCols = $Rows[ $RowNumber ] ;

return undef unless ( $RefCols ) ;

my @Cols = @$RefCols ;

my $ValueToReturn = $Cols [$ColNumber ] ;

} #eof sub GetValue

sub DumpExcel {

my $self = shift ;

my $RefWorkSheets = $self->ParseExcel () ;

my @RefWorkSheets = @$RefWorkSheets ;

foreach my $WorkSheetRef ( @RefWorkSheets ) {

my @Rows = @$WorkSheetRef ;

foreach my $RowRef ( @Rows ) {

my @Cols = @$RowRef ;

foreach my $Col ( @Cols) {

$objLogger->LogDebugMsg ( "\$Col is $Col " );

} #eof foreach my $RowRef

} #eof foreach foreach my $WorkSheetRef

} #eof sub DumpExcel

1;

__END__

=head1 NAME

Excel2003Handler

=head1 SYNOPSIS

use Excel2003Handler  ;

=head1 DESCRIPTION

Provide a simple interface for handling Excel 2003 and print to csv files, a wrapper build around the Spreadsheet::ParseExcel module. This module has external dependancies on the modules of the morphus tool - google code morhpus

=head2 EXPORT

=head1 SEE ALSO

perldoc perlvars

. No mailing list for this module

=head1 AUTHOR

FirstName.LastName@gmail.com

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2011 Yordan Georgiev

This library is free software; you can redistribute it and/or modify

it under the same terms as Perl itself, either Perl version 5.8.1 or,

at your option, any later version of Perl 5 you may have available.

VersionHistory:

0.0.3 --- ysg --- Fixing bug with first char being a \t

0.0.2 --- ysg --- Refactoring. Tested. Works. Added documentation

0.0.1 --- ysg --- Initial version -  OO methods + Initialize , ParseExcel , GetValue , DumpExcel

=cut

Just how good the 3D printing can get ?

2011-07-10T11:14:00.002+03:00

The sky is the limit ...

how-to convert my dos files into unix files with cygwin windows

2011-07-08T23:18:00.001+03:00

for file in `ls -1` ; do perl -pi -e 's/\r\n/\n/g' $file;done;

ePolishing Math + English skills and preparing for biofuels prime time ...

2011-05-25T22:08:00.000+03:00

morphus out now ...

2011-05-24T23:02:00.002+03:00

Mindblow ... brain hacking

2011-05-21T09:19:00.001+03:00

how-to open all your desired source files in your favorite editor on windows

2011-05-20T21:31:00.000+03:00

@echo off

echo docs at the end ...

set _BaseDir=E:\perl\sfw

set _ProductName=PerlMinLogger

set _ProductVersion=1.1.0

set _ProductType=dev

set _ProductOwner=ysg

set _EnvironmentName=%_ProductName%.%_ProductVersion%.%_ProductType%.%_ProductOwner%

set _ProductVersionDir=%_BaseDir%\%_ProductName%\%_EnvironmentName%

set _TextEditorName=textpad

:: OPEN all the files from the sfw dir

for /f %%i in ('dir %_ProductVersionDir%\sfw\*.sh *.cmd /s /b') do start /max  %_TextEditorName%  "%%i"

:: OPEN all the files from the sfw dir

for /f %%i in ('dir %_ProductVersionDir%\sfw\perl\*.pm *.pl /s /b') do start /max  %_TextEditorName%  "%%i"

:: open all the files from the conf dir

for /f %%i in ('dir %_ProductVersionDir%\conf\*.ini /s /b') do start /max  %_TextEditorName%  "%%i"

:: OPEN all the files from the log dir

for /f %%i in ('dir %_ProductVersionDir%\data\log\*.log /s /b') do start /max  %_TextEditorName%  "%%i"

ECHO OPEN THE SearchAndReplace Utility

:: cmd start /max SearchAndReplace.exe

:: File: Open-PerlMinLogger.1.1.0.dev.ysg.hostName.cmd

:: Purpose: Single click for all desired files of types in your favorite text editor

:: Requirements

:: W2K and bigger. The name of your text editor should be in your path

:: Your texteditor should support TextEditor FileToOpen1 FileToOpen2  call syntax

how-to zip a relative path win winzip by specifying only specific files to include in package

2011-05-19T20:07:00.002+03:00

@echo off

:: VARS SETTING

set _ProductName=cas

set _ProductVersion=0.7.5

set _ProductType=dev

set _ProductOwner=ysg

set _MasterSourceRootPath=E:

set _ProductDir=%_MasterSourceRootPath%\%_ProductName%

set _EnvironmentName=%_ProductName%.%_ProductVersion%.%_ProductType%.%_ProductOwner%

set _ProductVersionDir=%_ProductDir%\%_EnvironmentName%

set _DeploymentPackageName=%_EnvironmentName%.zip

set _DeploymentPackageFilePath=%_MasterSourceRootPath%\%_DeploymentPackageName%

::CREATE THE LOG DIR IT WOULD BE NICE TO JUST DELETE IT FROM TIME TO TIME ...

mkdir %_ProductVersionDir%\log\

::SET ERROR LOG FILES AND INSTALL LOG FILES WITH TIMESTAMPING ... SETT

set _ERRORLOG=%_ProductVersionDir%\sfw\cmd\zip\%_DeploymentPackageName%_%computerName%_%NICETIME%%username%.error.log

set _INSTALLLOG=%_ProductVersionDir%\sfw\cmd\zip\%_DeploymentPackageName%_%computerName%_%NICETIME%.%username%.install.log

cd %_ProductVersionDir%

echo delete the _DeploymentPackageFilePath %_DeploymentPackageFilePath%

del /q %_DeploymentPackageFilePath%

:: GET THE %NICETIME% VARIABLE IN THE YYYYMMDD_HHmmssmm format ...

call GetNiceTime_on_%COMPUTERNAME%.CMD

echo CHECK ONES MORE ALL THE VARIABLES  :

ECHO =====================================================================¨

ECHO.

::ECHO ALL THE VARS STARTING WITH _

set _

:: WAIT FOR ONE SECOND

ping -n 3 127.0.0.1 >NUL

ECHO.

ECHO =====================================================================¨

ECHO CTRL + c , y TO ABOUT , PRESS ANYTHING ELSE TO PROCEED

PAUSE

cd %_ProductDir%

for /f %%i in ('type %_ProductVersionDir%\sfw\cmd\zip\FilesToInclude.%_EnvironmentName%.txt') do zip -v -9 %_DeploymentPackageName% %%i

:: zip [-options] [-b path] [-t mmddyyyy] [-n suffixes] [zipfile list] [-xi list]

:: -9   compress better

:: -ll CR LF to LF)

:: -v   verbose operation/print version info

:: -i   include only the following names

PAUSE

how-to quickly kill a process with PowerShell

2011-05-14T15:11:00.000+03:00

Start - Run :
powershell Stop-Process -processname textpad

how-to trouble shoot FW connections on Windows

2011-05-11T17:25:00.000+03:00

@echo off
echo This is a simple batch file to troubleshoot a FW connectivity between
echo 2 hosts to be run under Win host , set your own vars

call GetNiceTime_on_%computername%.cmd

set _SourceServerHostName=sourceHostname
set _DestinationServerHostName=target
set _SourceServerIpAddress=101.125.51.140
set _DestinationServerIpAddress=110.135.52.31
set _RunDir=%CD%
set _InConfigLog=%_RunDir%\ifconfig_%NiceTime%.txt
set _PingLog=%_RunDir%\ping_%NiceTime%.txt
set _TracertLog=%_RunDir%\tracert_%NiceTime%.txt
set _SysInfoLog=%_RunDir%\sysinfo_%NiceTime%.txt

echo who , where , when >%_InConfigLog%
echo %userName% , %computername% , %date% , %time% >> %_InConfigLog%
echo runing: ipconfig /all >> %_InConfigLog%
ipconfig /all >> %_InConfigLog%

echo who , where , when >%_PingLog%
echo %userName% , %computername% , %date% , %time% >> %_PingLog%
echo running ping %_DestinationServerIpAddress% >> %_PingLog%
ping %_DestinationServerIpAddress% >> %_PingLog%

echo who , where , when >%_TracertLog%
echo %userName% , %computername% , %date% , %time% >> %_TracertLog%
echo running tracert %_DestinationServerIpAddress% >> %_TracertLog%
tracert %_DestinationServerIpAddress% >> %_TracertLog%

echo who , where , when >%_SysInfo%
echo %userName% , %computername% , %date% , %time% >> %_SysInfo%
echo running sysinfo on %computername% >> %_SysInfo%
sysinfo %_DestinationServerIpAddress% >> %_SysInfo%

List of useful Perl modules - ppm query

2011-05-07T12:35:00.000+03:00

Data-Dumper [2.126 ] stringified perl data structures, suitable for both
printing and C<eval>
Devel-ptkdb [1.1092 ] Perl debugger using a Tk GUI
Tk [804.029] Tk - a Graphical User Interface Toolkit
Tk-JComboBox [1.14 ] Combo Box similar to the Java Component
Win32-Clipboard [0.56 ] Interaction with the Windows clipboard
pmtools [1.00 ] [Delphi|VB|Java]-like Perl preprocessor

how-to export your texpad settings

2011-05-04T21:58:00.003+03:00

or download from Google Code the whole thingy

@ECHO OFF

ECHO any comments suggestions are welcome at :

ECHO http://ysgitdiary.blogspot.com/search/label/textpad

ECHO This batch file copies some the needed settings of textpad

ECHO it depends on a simple GetNiceTime_on_%computername%.cmd

ECHO batch file producing the %_NICETIME% variable in YYYYMMDD_hhmmss

ECHO format

ECHO Tested on Win7 64 -bit TextPad v.5.4.2

ECHO you should call this batch file from its current directorry

:: GET A YYYYMMDD_hhmmss TIMESTAMP

call GetNiceTime_on_%computername%.cmd

SET _RegFileWithSettings=TextPadSettings_Helios_on_%COMPUTERNAME%_%NiceTime%.reg

SET _RunLog=%0.run.log

SET _ErrorLog=%0.error.log

SET _TextPadSynFilesDirOnWin64=%ProgramFiles(x86)%\TextPad 5\system

SET _PortableSynFilesDir=%CD%\system

SET _RegistryKey=HKEY_CURRENT_USER\Software\Helios\TextPad 5

SET _RegistryFilesDir=%CD%\reg

SET _RegistryFileWithSettings=%_RegistryFilesDir%\TextPadSettings_HeliosKey_on_%computername%_%NiceTime%.reg

ECHO START REGISTRY SETTINGS EXPORT AT %_NiceTime%

ECHO RUN LOG : START REGISTRY SETTINGS EXPORT AT %_NiceTime%  >%_RunLog%

ECHO ERROR LOG START REGISTRY SETTINGS EXPORT AT %_NiceTime%  >%_ErrorLog%

ECHO.1>>%_RunLog% 2>> %_ErrorLog%

ECHO create a directory called sysm in the current directory

ECHO create a directory called sysm in the current directory 1>>%_RunLog% 2>> %_ErrorLog%

ECHO.1>>%_RunLog% 2>> %_ErrorLog%

ECHO now copy alls the files from the %Program Files(x86)%\TextPad 5\system\

ECHO now copy alls the files from the %Program Files(x86)%\TextPad 5\system\ 1>>%_RunLog% 2>> %_ErrorLog%

ECHO IF NOT EXIST %_PortableSynFilesDir% MKDIR %_PortableSynFilesDir% 1>>%_RunLog% 2>> %_ErrorLog%

IF NOT EXIST %_PortableSynFilesDir% MKDIR %_PortableSynFilesDir% 1>>%_RunLog% 2>> %_ErrorLog%

ECHO.1>>%_RunLog% 2>> %_ErrorLog%

ECHO COPY EACH syn files

for /f "tokens=*" %%i in (' dir "%_TextPadSynFilesDirOnWin64%\*.syn" /s /b') do copy /y "%%i" "%_PortableSynFilesDir%" 1>>%_RunLog% 2>> %_ErrorLog%

ECHO.1>>%_RunLog% 2>> %_ErrorLog%

:: CREATE THE _RegistryFilesDir if it does not exist

ECHO IF NOT EXIST %_RegistryFilesDir% MKDIR %_RegistryFilesDir% 1>>%_RunLog% 2>> %_ErrorLog%

IF NOT EXIST %_RegistryFilesDir% MKDIR %_RegistryFilesDir% 1>>%_RunLog% 2>> %_ErrorLog%

ECHO.1>>%_RunLog% 2>> %_ErrorLog%

:: NOW PERFORM THE ACTUAL EXPORT OF THE CURRENT SETTINGS

ECHO REG EXPORT "%_RegistryKey%" "%_RegistryFileWithSettings%" 1>>%_RunLog% 2>> %_ErrorLog%

REG EXPORT "%_RegistryKey%" "%_RegistryFileWithSettings%"

ECHO DONE NOW OPEN THE LOG FILES TO SEE THE RESULTS  :

FOR /F %%i in ('dir "%CD%\*.log" /s /b') do cmd /c start /max textpad "%%i"

:: NOW OPEN TO VIEW THE REGISTRY FILE AS WELL

CMD /C START /MAX textpad %_RegistryFileWithSettings%

:: HINT: you could execute any dos file including this one by creating a new external tool

:: Command: cmd.exe , Parameters: CMD /C $FileName , Check Prompt for parameters

:: Check Save all documents first , Check Capture output , Check Suppress output untill completed

:: TODO: Add check for 32-bit or 64-bit and copy syn files for that

:: TODO: Create an NSIS script packing all this into single setup.exe

One more reason to be bullish on e-cars

2011-05-01T17:32:00.000+03:00

http://www.youtube.com/watch?v=0rL3aA4mMFE

ExcelToHtml 1.3 out now

2011-04-30T17:51:00.002+03:00

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

Happy Eastern ...

2011-04-23T22:59:00.000+03:00

http://code.google.com/p/exceltomssqlinsert/
http://code.google.com/p/perlminlogger/

A simple minimalistic perl logger out now ...

2011-04-21T23:27:00.000+03:00

Download from here

Solaris cheat sheet (revised)

2011-04-21T14:15:00.002+03:00

echo Solaris Cheat Sheet
echo this Cheat Sheet contains quick copy paste stuff for Sun's Solaris OS
echo caveat ... some of the stuff has been copied from my Linux Cheat Sheet
echo and you know Linux is not Unix ; )

echo the time now is `date +%Y.%m.%d-%H:%M:%S`
id
uname -a
du -ak . | sort -n | grep csv

echo record the current session via script
script -a /export/home/userName/SCRIPTSLOGS/`date +%Y%m%d%H%M%S`_script.log

echo /usr/bin is for normal user executables, /usr/sbin is for superuser executables, /usr/sfw is for external software (like gnu one), but provided with bundle of OS, /usr/ccs is for development utilities, usually not need for daily tasks like make, lex, yacc, sccs

echo where I have been lately ?
history | grep cd

echo take the last 5 commands for faster execution to the temp execution script

tail -n 5 /root/.bash_history >> /var/run.sh

echo I saw the command cd /to/some/suching/dir/which/was/very/long/to/type
so I redid it and saved my fingers
!345

history >history.txt ---- echo the last 1000 commands into a history.txt file

echo send that file to myself

cat history.txt | mail -s "test file sending" -c mail1@com
yordan.georgiev(boom)gmail.com

echo remove all trealing spaces from the history file works for TextPad

^([ ]*)([0-9]*)(.*)$

\3 --- replace with the pure commands

history | gawk -F1 'BEGIN {FS=" "};{print $2 , $3}' | less

echo display the history withouth the line numbers ...

history | perl -i -pe 's/^([ ]*)([0-9]*)(.*)$/$3/gi'

vi fileName anotherFile

echo how to deal with command outputs
command | filtercommand > command_output.txt 2>errors_from_command.txt

echo Hint after the less filter pressing s will prompt you for saving the
output to a file ...

echo find all files and folders containing the word toFind and pipe it to the less for easier viewing
find / -name "*toFind*" 2>/dev/null | less

echo find the files having os somewhere in their names and only those having linux
find . -name '*os*' | grep linux | less

echo find all xml type of files and display only the rows having wordToFindInRow
find . -name '*.xml' -exec cat {} \;| grep wordToFindInRow | less

echo The ultimate "find in files"
find / -name '*bash*' -exec grep -nH tty {} \;

echo or even faster , be aware of "funny file names xargs -0
find / -name '*bak' | xargs grep -nH tty

echo find and replace recursively
find . -name '*.html' -print0 | xargs -0 perl -pi -e 's/foo/bar/g'

echo putty , bash shortcuts
Ctrl + A --- Go to the beginning of the line you are currently typing on
Ctrl + E --- Go to the end of the line you are currently typing on

echo how-to mount an usb stick
echo remember to change the path other wise you will get the device is busy errror

mkdir /mnt/usbflash
mount /dev/sdb1 -t vfat /mnt/usbflash

umount /mnt/usbflash

head -n 20 tooLongFile -- display the first 20 lines of the file

echo change the uggly prompt

vi /etc/bashrc

echo get a nice prompt
PS1="\u@\h \t \w\n\\$ "

echo how to restart a process initiated at startup
/etc/rc.d/init.d/sendmail start | stop | status | restart

echo see all the rules associated with the firewall

iptables -L -v

gunzip *file.zip

echo decompress a tar achive
tar -xvf file.tar

echo add all *.bteq type of files into AllBteqs.tar.gz type of file
for file in *.bteq ; do tar cvf AllBteqs.tar.gz $file ;done;

echo zip all my txt files in the current directory into the zipArchiveName file
for file in *.txt
do zip zipArchiveName $file
done ;

for file in *.csv ; do rm -f $file ; done ;

To access the server download winscp.exe:

echo start winscp with a stored session from Win box
cmd /c start /max winscp oracle@192.168.255.12

echo To start remote session click on the putty screen , configure putty
settings to pull full screen with alt + Enter

echo right click on the title bar , settings , change the font , copy
paste from and to the terminal window text

echo how to ensure the sshd daemon is running

ps -ef | grep sshd

echo User and group management
echo add user with specifig home directory name and pass
useradd -p winscppass -r winscp -d /home/winscp --- to add a user with
useradd -u 10226425 -c "Yordan Georgiev, EXT, ext-yordan.1.georgiev@nokia.com" -m -d /export/home/userName -s /bin/bash userName
useradd -u -c"NPM platform OS level user" -m -d /opt/npm/npmobi -s /bin/bash -g npmobi npmobi

luserdel winscp --- delete the user

gpasswd: administer the /etc/group file
groupadd: Create a new group
groupmod: Modify a group
groupdel: Delete a new group

useradd: Create a new user or update default new user information
usermod: Modify a user account
userdel: Delete a user account and related files

echo how to kill process interactively

killall -v -i sshd

echo disk usage of users under the /home directory

echo on Solaris
du -ak /export/home | sort -n -r | less
du -ak . | sort -n | grep log

echo the most efficent way to search your history is to hit Ctrl R and
type the start of the command. It will autocomplete as soon as there’s
a match to a history entry, then you just hit enter. If you want to
complete the command (add more stuff to it ) use the right arrow to
escape from the quick search box ...

How to install Perl modules

gzip -dc yourmodule.tar.gz | tar -xof -

perl Makefile.PL

make test

make install

How to see better which file were opened , which directories were visited

type always the fullpath after the vi - use the $PWD env variable to
open files in the current directory , thus after opening the file
after:

vi /$PWD , press tab to complete the name of the current directory ,
type the name of the file

thus after

history | grep vi

the full list of opened files is viwed .

of course the same could be seen from the /home/username/.viinfo file /files

where to set the colors for the terminal (if you are lucky to have one
with colors; )

/etc/DIR_COLORS

open a file containing "sh" in its name bellow the "/usr/lib" directory

:r !find /usr/lib -name *sh*

go over the file and gf

uname -a --- which version of Linux I am using

rmp -qa --- show all installed packages

passwd [username] --- change the password for the specified user (own password)

How to copy paste text in the putty window from client to server -
click the right button of your pointing device

How to copy paste text from the putty window from server to client -
right-click the window title and select copy all to Clipboard.

To restart a service

service sshd restart

service --status-all --- show the status of all services

chown -R root:nortel Directory

echo perform action recursively on a set of files

find . -name '*.pl' -exec perl -wc -l {} \;

$ for file in *
> do cp $file $file.bak
> done

$ for file in `ls -R` ; do cp $file $file.bak; done

echo make Bash append rather than overwrite the history on disk:
shopt -s histappend

echo henever displaying the prompt, write the previous line to disk:
PROMPT_COMMAND='history -a'

gpm -- general "cut and paste" server

sh ScriptWithALotOfErrorMessages.sh | tee -a whereToSaveIt.log

echo run first the following command

$ script -a The_Log_File_To_Append_as_well_as_display_diagnostig_messages.log

echo than run the script

sh ScriptWithALotOfErrorMessages.sh

tr '\t' ',' < FileWithTabs > fileWithCommas

df -k --- disk usage

echo Allow access to the box from only one ip address

IPTables=/sbin/iptables
$ IPTables -A INPUT -s <Insert other Origin ip here> -p tcp
--source-port xxx -j ACCEPT
$ IPTables -A OUTPUT -d < Insert other Origin ip here > -p tcp
--destination-port xxx-j ACCEPT

echo has the root logged in over an unencrypted network ?

echo last | grep “^root “ | egrep –v “reboot|console” | more

echo start command in the background
command1 &

echo start another one
command2 &

echo bring the command in the foreground
fg %1

echo create a backup file based on the timestamp on bash

cp fileName.ext fileName.ext.`date +%Y%m%d%H%M%S`.bak

echo which box I am workign currently
uname -a
echo who am I on this machine
id
echo the current time is( in yyyy.mm.dd HH:MM:SS format )
echo `date +%Y.%m.%d.%H.%M.%S`

find /opt/npm/sfw/oracle/EPM/11.1.1.3 -name "*assembly.dat" | cut -d/ -f9 | sort -u

echo get my IP address
/sbin/ifconfig -a | less

telnet -e "^g" 10.176.246.138 1025
telnet -e "^g" xldb-prod 1025

echo which process the npmobi user is runnig and sort by process name
ps -fu npmobi | sort +7

echo check whether host in DNS
nslookup hostName

echo show the ports which npmobi user is using
/usr/local/bin/show-ports -u npmobi

echo port forwarding with ssh from one host to another via ssh
ssh -L1423:3esituo08lab:1423 2esituo08lab
ssh -L 1528:2esituo08lab:1528 hecop07lab.ntc.nokia.com

echo how-to setup port forwarding on Unix
ssh -L22:localhost:22 hostToForwardTo.domain.com

echo scp copy from local to remote host a file
scp /local/host/path userName@hostName.domain.com:/remote/host/path/
echo scp copy from remote to loca host files
scp userName@serverName.domain.com:/remote/host/path/* /local/host/path

echo ksh nice prompt
export PS1=$host.$LOGNAME:$PWD:`echo ``date +%Y.%m.%d-%H:%M:%S`` `:`echo "\n" $ " "`

export PS1=$host.$LOGNAME:$PWD:$TIME:$($(id) $

export PS1=$host.$LOGNAME:$PWD:`echo ``date +%Y.%m.%d-%H:%M:%S`` `:`echo "\n" $ " "`
$host.$LOGNAME:$PWD:$

copy a file with timestamp
cp file file_`date +%Y%m%d-%H%M%S`

# tar and compress all csv files
gzip -cd *log | tar -xf - || exit 1

# tar and compress all log files
gzip -cd *log | tar -xf - || exit 1

echo "The script you are running has basename `basename $0`, dirname `dirname $0`"
echo "The present working directory is `pwd`"

#The dir where the script runs ( Note no / at the end !!! )
RunFolder=`dirname $0`
case $RunFolder in
   /*);;
   *)RunFolder=`pwd`/$RunFolder;;
esac

#The dir where the logs are stored( Note no / at the end !!! )
LogFolder=`dirname $0`
case $LogFolder in
   /*);;
   *)LogFolder=`pwd`/$LogFolder;;
esac

find project -type f -print | \
egrep '(\.[ch]|[Mm]akefile)$' > Include
% tar cvf project.tar -I Include

echo how-to delete entire directory recursively without prompts for confirmation
rm -Rf /path/to/dir/toDelete/Without/Prompt/Recursively

sh shell shortcuts
Alt + K

echo two for loops
for i in `echo A B` ; do for j in `echo C D` ;do echo $i$j;done;done ;

echo mutliple rename of files with sed and regex
for file in *.txt; do mv $file `echo $file | sed 's/$[A-Za-z_]*$_$[0-9]*$$[A-Za-z\.]*$/\1\3/'` ; done ;

My predictions about electric cars coming true ... (revised)

2011-04-13T18:09:00.000+03:00

My predictions about electric cars coming true ... (revised)

I predicted in 2009 that electric cars will be in 10 years the dominating type of cars in ...

http://www.greenoptimistic.com/2011/04/13/dbm-energy-battery/

http://news.cnet.com/2300-11128_3-10005197.html?tag=mncol;txt

Well , that is coming true ... Believe it or not ; )

how-to get column meta data on sql server 2008

2011-04-12T22:13:00.001+03:00

/****** Object:  View [dbo].[viewMeta_TableColumns]    Script Date: 05/09/2010 09:13:14 ******/

IF  EXISTS (SELECT * FROM sys.views

WHERE object_id = OBJECT_ID(N'[dbo].[viewMeta_TableColumns]'))

DROP VIEW [dbo].[viewMeta_TableColumns]

GO

/****** Object:  View [dbo].[viewMeta_TableColumns]

Script Date: 05/09/2010 09:13:14 ******/

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

CREATE VIEW [dbo].[viewMeta_TableColumns]

AS

-- Action !!!

SELECT top 100000

db_name()                AS 'DataBaseName'

,isc.TABLE_SCHEMA        AS 'SchemaName'

,SysObjects.NAME        AS 'TableName'

,SC.NAME                AS 'ColumnName'

,isc.ORDINAL_POSITION    AS 'OrdinalPosition'

,st.name                AS 'DataType'

,sc.is_nullable            AS 'IsNullable'

,sc.is_identity            AS 'IsPrimaryKey'

,sc.max_length            AS 'MaxLength'

,SC.is_computed            AS 'IsComputed'

,sm.text                AS 'DefaultValue'

FROM dbo.sysobjects

INNER JOIN sys.all_columns SC ON SysObjects.id = SC.object_id

INNER JOIN sys.types st on st.system_type_id = sc.system_type_id

LEFT JOIN syscomments sm on SysObjects.id = sm.id

-- LEFT JOIN sys.tables stb on sc.object_id = SysObjects.parent_obj

LEFT JOIN INFORMATION_SCHEMA.COLUMNS  isc on

isc.TABLE_NAME=SysObjects.NAME and SC.NAME = isc.COLUMN_NAME

--LEFT JOIN dbo.syscomments SM ON SC.cdefault = SM.id

--inner join sys.types st

--on sc.xtype = st.system_type_id

WHERE SysObjects.xtype = 'U'

and st.name <> 'sysname' --to a bug with this one occurs if enabled

and sc.is_computed = 0 --todo a bug with this one occurs if enabled

--and SysObjects.name = @TableName --uncomment this line while debugging

ORDER BY DatabaseName , SchemaName , TableName , isc.ORDINAL_POSITION

GO

--select * from sys.schemas

select * from [viewMeta_TableColumns]

How-to define stupidity with BI ?!

2011-04-10T22:17:00.000+03:00

Let's admit it. Everybody has done something stupid in their life ... even the most brightest of us. I read somewhere that the wisdom is to avoid the done mistakes and to restrain from doing more than 5 min stupid things per day ...
I still do think that BI should be applied even to the most personal issues ... to draw some meaningful conclusions ...
So my conclusion for today:
If more than 5 min per day stupidity defines a person as stupid ... today I was I very stupid person ... since I did loose more than a month today ...
I hope I will learn something from today. So if I don't manage to become humble and restrict to those 5 minutes ... I will not pass to where I aim to ...

Принципи и поуки ...

2011-03-22T08:42:00.000+02:00

Пореден номер Принцип или поука
1 Едно е да си баеш на себе си и на другите, второ да знаеш какво искаш , трето наистина да го искаш , четвърто е да знаеш как да го направиш , пето да можеш да го направиш , шесто е наистина да го направиш , седмо да не съжаляваш че си го направил
2 Не си въобгъзявай. Правиж не само себе си , но и останалите на гъз.
3 Не лъжи – така или иначе истината излиза наяве своевременно.
4 Изправи се и горе главата. Не бъди надменен а горд.
5 Мисли тук и сега и действай според реалността, но знай че успешното бъдеще иска стратегическо планиране.
6 Не кради. Ако крадеш , значи не го заслужаваш.
7 Ако не обичаш и пазиш себе си, няма да имаш сили да обичаш и пазиш хората които обичаш около себе си.
8 Не е важно да спечелиш всяка една битка. Важното е да си победител във войната на живота
9 Когато бързаш без да мислиш и си стресиран, малките препъни-камъчета правят големи поражения
10 Виртуалният свят оправлява физическия, но той е нищо като му дръпнат шалтера
11 Не бъди по-краставичар от краставичаря. Ако няма какво да кажеш си мълчи като индианец. Като мълчиш не ги гледай във очите.
12 Черната овца никой не я обича както и да мечи или да се опитва да смени козината
13 Сдраво тяло, здрав дух. Можеш да разбереш колко е безценно здравето чак като го изгубиш.
14 Когато има междуособици във тима, не говори за личности а за обстоятелства и проблеми
15 Не се критикувай пред останалите, още по-малко не повдигай темата за твоите грешки …
16 Голмайсторите от чужбина ги търпят само докато правят голове, когато престанат ги ритат първи извън терена
17 В живота побеждават тези които могат и да губят
18 Една злоупотреба с алкохол може да ти струва от 15 дена до цял живот работа или дори живота. За наркотиците дори не си струва да се говори
19 Когато много ти се иска да кажеш нещо и да прекъснеш остананалите изчакай
20 Когато делегираш на някого нещо гледай да не започне да си прави каквото иска … а каквото трябва.
21 Ако казваш на другите :“ Не прави каквото аз правя а прави каквото аз казвам“ си въобгъзяваш и правиш не само другите а и себе си на гъз …
22 Защо пък трябва да се харесваш на останалите след като болшинството от тях така или иначе не те харесва и няма и да си променти отношението
23 Дойде ли момент когато списъкът ти от задачи стане много голям, може да започеш да си задаваш въпроси
24 Когато лайната ти стигнат до устата , горе главата !!!
25 Ако си сигурен че като кажеш нещо на слушащите те няма да те разберат или ефекта ще бъде 0 въобще има ли смисъл да си отваряш устата
26 С викане няма да стане. Колкото повече викаш толкова повече няма да стане !!! Рови се по-дълбоко в окопа и стискай менгемето …
27 Можеш да станеше лидер на нов успешен бизнес след разбереш възможността и убедиш хората които ще участват в него и действително го провеждаш така че всички да са доволни

28 Преди лайното да се удари във вентилатора започва да мирише … Помисли си докога има смисъл да стоиш във стаята на действието
29 Не показвай на другите без причина колкото си успял – завистта пречи при уреждането на взаимните работи
30 Ако някой ти губи времето разкарай го учтиво така че да не остане засегнат
31 Многото псувни и простотии и твърде цветистия език издават лъжеца и блъфьора
32 Когато съотборника ти се представи добре похвали го на всички и в никакъв случай не си предписвай неговите заслуги
33 Силата на участващите в разговора се разбира не по количеството на информацията изказана направо а по обема на неизказаното
34 Умението да мълчиш и слушаш когато другите говорят, е по-ценно от умението да говориш
35 If your actions inspire others to dream more, learn more, do more, and become more, you are a leader
36 Less is more
37 Щастието което човек може да получи от тялото си е като количеството вода в една чаша. Всички пороци изразват чашата само по-бързо. Лама Оле
38 Ако не си извадеш резервен ключ навреме ще изгубиш много нерви и усилия като изгубиш оригинала
39 When you define a task spent some time to define the deliverable as well. Make sure the person the task is given understands the deliverable. Make sure you can control it during the delivering process
40 Редовните тренировки поддържат добрата форма, но пренапъването поражда мускулна треска
41 First they ignore you, then they laugh at you, then they fight you, then you win. Gandhi

Worth reading ...

2011-03-22T08:38:00.002+02:00

http://www.jakonrath.blogspot.com/2011/03/ebooks-and-self-publishing-dialog.html

How-to close all active windows on windows session

2011-03-20T17:55:00.001+02:00

::How-to close all active windows on windows session

::PUT THIS TEXT INTO A BATCH FILE WITH FILE EXTENSION CMD OR BAT
::IF YOU DON'T KNOW HOW DON'T PLAY WITH THIS ;) ...
@ECHO OFF

ECHO CLOSING ALL THE WINDOWS EXCEPT THIS ONE ARE YOU SURE ??!!
ECHO ANY UNSAVED DATA IN OPEN ED PROGRAMS MIGHT BE LOOSED ??!!
ECHO.
ECHO HIT ENTER TO PROCEED WITH CLOSING , CTRL + C TO CANCEL
ECHO.
ECHO THIS BATCH FILE REQUIRES THE CMDOW COMMAND LINE UTILITY
ECHO DOWNLOAD IT FROM http://www.commandline.co.uk/cmdow/

ECHO PLACE THIS FILE IN YOUR PATH , CREATE SHORTCUT TO IT
ECHO PUT THE SHORTCUT ON THE DESKTOP , RIGHT CLICK , ASSIGN SHORTCUT TO IT ...

PAUSE

:: find the Handle of the window of this batch file
for /f %%l in ('cmdow @') do set c=%%l

:: FOR EACH OPEN WINDOW IF IT IT IS NOT THE NANDLE
:: OF THE CURRENT ONE CLOSE IT BY KILLING ITS PROCESS
for /f %%i in ('cmdow /b /t') do if not %%i==%c% cmdow %%i /END

::ENABLE THIS LINE BY REMOVING THE :: IN FRONT IF THE TASKBAR DISAPPEARS
::cmd /c explorer.exe

::ENABLE THIS LINE BY REMOVING THE :: IN FRONT IF YOU WOULD LIKE TO SHUTDOWN YOUR PC
::shutdown -f -s -t 00

how-to configure textpad for ctags and findtag

2011-03-18T14:28:00.003+02:00

The purpose of this “hack” is to provide web-like navigability to the source code, so that with Alt + right arrow and cursor positioned on an meta token instance (the instance name of function, variable, method etc. in a programming language) the cursor will jump on the definition of this meta token instance. For example in Perl if there is an object call of a method ($objectName->nameOfMethod( $optionalParams) when having the cursor on “nameOfMethod” and pressing Alt + right arrow the file having the definition of this method will be opened and the cursor positioned on that very definition. Respectively with Alt + left arrow one could navigate back from the place he came from.
This functionality is provided the open source ctags.exe executable, written by Darren Hiebert, supporting 33 languages (their meta data and structure) and contained as part of many Linux distributions. The stand-alone executable should be placed in a folder of the Path environmental variable and the following commands configured:
Command name: Generate ctags database
Command: cmd.exe
Parameters: ctags.exe -R -n --fields=+i+K+S+l+m+a
Initial folder: $FileDir
This command with generate the database for ctags.exe, containing all the meta names of the current code base , recursively by including selected extension fields of the code base. This command could be assigned with any shortcut in the TextPad interface (herewith Ctrl + 6 used)
Command name: Jump to tag definition
Command: C:\Path\to\findTag.exe
Parameter: -file $AppWnd $File $Line
Initial folder: $FileDir
This command could be configured with the Alt + right arrow as explained above.
The command to return back to the point where this command was issued is:
Command name: Tag Back
Command: C:\Path\to\FindTag.exe
Parameters: -back
Initial folder: $FileDir
This command could be configured with the Alt + left arrow shortcut.
This configuration combined with the Textpad’ s inbuilt “find in files” feature and the “FuncJumper” introduced bellow makes the navigability of even large projects, containing 20 or more source files under different folders with approximately 100 lines per file fast and easy.

textpad 5.4.2 keyboard shortcuts

2011-03-18T13:44:00.001+02:00

source:Straight copy paste from textpad help:

The Keyboard
These tables list the default command shortcuts for TextPad. If you have chosen to work in compatibility mode with another application, you can view the shortcuts on the Keyboard page of the Preferences dialog box.

Single Key Shortcuts:
Key Modifier Command
A Ctrl Select All.
B Ctrl Move the cursor back to start of word.
B Ctrl+Shift Select back to start of word.
C Ctrl Copy selection to clipboard.
C Ctrl+Shift Append selection to clipboard.
D Ctrl Move cursor back to end of word.
D Ctrl+Shift Select back to end of word.
E Ctrl Center text.
E Ctrl+Shift Right align text.
F Ctrl Find next instance of search pattern.
F Ctrl+Shift Find previous instance of search pattern.
G Ctrl Go to line.
I Ctrl Increase indentation.
I Ctrl+Shift Reduce indentation.
J Ctrl Join selected lines.
J Ctrl+Shift Reformat selected lines.
J Ctrl+Alt Split word-wrapped lines.
K Ctrl Invert case of selection.
L Ctrl Convert selection to lower case.
L Ctrl+Shift Insert a page break.
M Ctrl Find matching { [ (< or >) ] }
M Ctrl+Shift Select to matching { [ (< or >) ] }
N Ctrl Create a new document.
O Ctrl Open a document using the common Open File dialog box.
O Ctrl+Shift Open a document by typing its name.
P Ctrl Print active document.
P Ctrl+Shift Preview the active document as it will print.
Q Ctrl Prefix key for two key commands (see below).
R Ctrl Playback the scratch macro.
R Ctrl+Shift Record a new macro.
S Ctrl Save the active document.
S Ctrl+Shift Save all documents.
T Ctrl Transpose the lines or characters either side of the cursor.
T Ctrl+Shift Transpose the words either side of the cursor.
U Ctrl Convert selection to upper case.
U Ctrl+Shift Convert first character of selection to uppercase and the rest to lower case.
V Ctrl Paste text from the clipboard.
V Ctrl+Shift Insert the contents of a file at the cursor position.
W Ctrl Move cursor forward to start of word.
W Ctrl+Shift Select forward to start of word.
X Ctrl Cut the selection to the clipboard.
X Ctrl+Shift Cut and append the selection to the clipboard.
Y Ctrl Redo last Undo.
Y Ctrl+Shift Redo all Undos.
Z Ctrl Undo last edit.
Z Ctrl+Shift Undo all edits.
0 Alt Activate the Clip Library.
Break Ctrl Stop the tool running in the command window.
Backspace Delete selection, or character before the cursor, (replace it with a space in overtype mode).
Backspace Ctrl Delete back to the last start of word.
Delete Delete selection, or character after the cursor.
Delete Ctrl Delete forward to the next start of word.
Delete Ctrl+Shift Delete to the end of the line.
Delete Alt Delete all lines in the document.
End Cursor to end of line.
End Shift Select to end of line.
End Ctrl Cursor to end of document.
End Ctrl+Shift Select to end of document.
End Alt Cursor to the last visible line, in the current column, if possible.
Enter Start a new line in an edit document, or do a hypertext jump in a command or search results window.
Enter Ctrl Insert new line after current line.
Enter Ctrl+Shift Insert new line before current line.
Enter Alt Display in-context properties dialog box.
Escape Cancel any existing selection.
Home Cursor to start of line. Press twice to go to the left margin. Reassign this shortcut to "LineLeft" if you always want it to go to the left margin.
Home Shift Select to start of line. Press twice to select to the left margin. Reassign this shortcut to "LineLeftSel" if you always want it to select to the left margin.
Home Ctrl Cursor to start of document.
Home Ctrl+Shift Select to start of document.
Home Alt Cursor to the first visible line, in the current column, if possible.
Insert Switch between insert and overtype mode.
Scroll Lock Locks cursor position when scrolling with page up/down keys.
Tab Indent selected lines, or move cursor to next tab stop.
Tab Ctrl Next window (same as Ctrl+F6).
Tab Ctrl+Shift Previous window (same as Ctrl+Shift+F6).
Tab Shift Reduce indentation of selected lines, or move cursor to previous tab stop.
Left Arrow Cursor left one character.
Left Arrow Shift Select left one character.
Left Arrow Ctrl Cursor left one word.
Left Arrow Ctrl+Shift Select left one word.
Right Arrow Cursor right one character.
Right Arrow Shift Select right one character.
Right Arrow Ctrl Cursor right one word.
Right Arrow Ctrl+Shift Select right one word.
Down Arrow Cursor down one line.
Down Arrow Shift Select down one line.
Down Arrow Alt Cursor down to the start of the next paragraph.
Down Arrow Alt +Shift Select to the start of the next paragraph.
Down Arrow Ctrl Scroll the view up one line, without moving the cursor.
Up Arrow Cursor up one line.
Up Arrow Shift Select up one line.
Up Arrow Alt Cursor up to the start of the previous paragraph.
Up Arrow Alt+Shift Select to to the start of the previous paragraph.
Up Arrow Ctrl Scroll the view down one line, without moving the cursor.
F1 In-context help.
F1 Ctrl Display document statistics on status bar.
F1 Shift Invoke in-context help cursor.
F2 Go to next bookmark.
F2 Ctrl Set or clear a bookmark on the current line.
F2 Shift Go to previous bookmark.
F2 Ctrl+Shift Clear all bookmarks.
F3 Invoke the Manage Files dialog box.
F3 Ctrl Show or hide the Clip Library.
F3 Alt Invoke Windows File Manager or Explorer.
F4 Hypertext jump to next item in Search or Command Output window.
F4 Shift Hypertext jump to previous item in Search or Command Output window.
F4 Ctrl Close the active window.
F5 Invoke the Find dialog box.
F5 Ctrl Invoke Find in Files dialog box.
F6 Activate next view.
F6 Shift Activate previous view.
F6 Ctrl Activate next window.
F6 Ctrl+Shift Activate previous window.
F7 Check the spelling of the active document.
F7 Ctrl Invoke the Playback Macro dialog box.
F8 Invoke Replace dialog.
F8 Ctrl Replace next instance of search pattern.
F9 Sort.
F9 Ctrl Compare.
F10 Activate the main menu.
F10 Shift Popup the in-context document menu.
F10 Ctrl Popup the insert date/time menu.
F11 Invoke the Document Selector.
F11 Ctrl Activate the Command Results window.
F11 Shift Activate the Search Results window.
F12 Save As.

Two-key Shortcuts:
Keys Command
Ctrl+Q, B Switch in and out of block select mode.
Ctrl+Q, E Switch between read-only and edit modes.
Ctrl+Q, H Display/hide the horizontal scroll bar.
Ctrl+Q, I Display/hide visible spaces, tabs and paragraphs.
Ctrl+Q, L Display/hide line numbers.
Ctrl+Q, P Display the Preferences dialog box.
Ctrl+Q, R Set the right margin at the cursor position.
Ctrl+Q, S Switch in and out of selection mode.
Ctrl+Q, Y Switch in and out of synchronized scrolling mode.
Ctrl+Q, V Display/hide the vertical scroll bar.
Ctrl+Q, W Switch in and out of word-wrap mode.

See Also:
Typing International Characters

Typing Control Characters

Cool programs , utilities and programming environments for Windows, most of which free ( revised )

2011-03-17T21:08:00.002+02:00

Cool programs , utilities and programming environments for Windows, most of which free ( revised )

strawberry perl for Windows (with dmake for modules )

Process Explorer - shows resources usage per running process on Windows

Open diff - tool for comparing sql server 2005 databases

Skype - the best client for Internet and Video Telephony

NSIS - the best open source Windows installer maker

Free youtube to ipod converter -- get mp4 files easily to your phone

ArsClip remembers your clibboard stuff - Hint , Ctrl + Shift + Z , 2

Expresso - a GUI tool for building and verifying Regular Expressions

tortoise svn - a stable gui and command line to subversion for Windows

slik svn - the command line tools for svn for windows

Data Recovery - recover Shift + del removed programs

Grep , FGrep and Egrep for windows (remember the dll's also )

List of the countries' national debt to GDP ratio

Windows GNU utils

Cygwin

Open SSH for Windows - ssh and sftp

tags:programs, tools, utilities, windows

the link of the day

2011-03-11T17:43:00.000+02:00

how-to generate mssql insert statements from Excel with perl

2011-03-07T22:01:00.000+02:00

use Spreadsheet::ParseExcel;

use strict;

use warnings ;

package ExcelToSqlInsert;

my $VERSION = 0.2.0;

my $DebugLevel = 4 ;

my $ExcelFileToParse = "$ARGV[0]" ;

my $OutputDir="$ARGV[1]" ;

sub  main {

logMsg ( "$0 MAIN START " ) ;

my $delimiter = chr($ARGV[2]);

my $rowEnd = chr($ARGV[3]);

my $InputDir = "$ARGV[4]" ;

my $FileToPrint = $OutputDir . "/" . "output.sql" ;

logMsg ( "\$ExcelFileToParse is $ExcelFileToParse" ) ;

ParseExcel ( $ExcelFileToParse  , $delimiter ) ;

logMsg ( "$0 MAIN STOP " ) ;

} #eof sub main

sub ParseExcel {

my $ExcelFileToParse = shift ;

my $delimiter = shift ;

my $rowEnd = "\n";

my $strToReturn = "" ;

my $parser   = Spreadsheet::ParseExcel->new();

my $workbook = $parser->Parse("$ExcelFileToParse");

foreach my $worksheet (@{$workbook->{Worksheet}}) {

my $workSheetName = $worksheet->{'Name'} ;

my $FileToPrint = ToUnixDir("$OutputDir" . '/' . "$workSheetName" . "\.TableInsert\.sql") ;

$strToReturn .= "SET NOCOUNT ON;

SET XACT_ABORT ON;

GO

TRUNCATE TABLE [dbo].[" . $workSheetName .  "]  ;

SET IDENTITY_INSERT [dbo].[" . $workSheetName .  "] ON;

BEGIN TRANSACTION;

INSERT INTO [dbo].[" . $workSheetName .  "] ( \n" ;

my $RowMin = $worksheet->{MinRow} ;

my $RowMax= $worksheet->{MaxRow} ;

#    my ( $RowMin, $RowMax) = $worksheet->row_range();

#    my ( $col_min, $col_max ) = $worksheet->col_range();

for my $row ( ($RowMin ) .. $RowMax) {

my $col_min = $worksheet->{MinCol} ;

my $col_max = $worksheet->{MaxCol} ;

$strToReturn .= ") \n SELECT " if ( $row == 1) ;

$strToReturn .= "\n UNION ALL SELECT " if ( $row >1) ;

my $tokenStart = ();

$tokenStart = '\''  if ( $row>0) ;

$tokenStart = '['  if ( $row == 0) ;

my $tokenStop = () ;

$tokenStop = '\''  if ( $row>0) ;

$tokenStop = ']'  if ( $row == 0) ;

for my $col ( ($col_min ) .. $col_max ) {

my $cell = $worksheet->{Cells}[$row][$col]  ;

next unless $cell;

logMsg( " Row, Col    = ($row, $col)\n" ) ;

logMsg ( " Value = ", $cell->Value() );

my $cellValueToReplace = $worksheet->{Cells}[$RowMin][$col]  ;

print "\$cellValueToReplace is $cellValueToReplace \n" ;

my $StrValueToReplaceWith = $cell->Value() ;

print " \$StrValueToReplaceWith  is $StrValueToReplaceWith  \n" ;

my $token = $cell->Value() ;

$token =~ s/\'/\'\'/g ;     #replace ' with '' to escape sql

#NULL is a key word should not be tokenized in MSSQL sql

if ( $token eq 'NULL')

$strToReturn .= $token  .  ' , ';

else

$strToReturn .= $tokenStart . $token  . $tokenStop . ' , ' ;

#print "\$strToReturn is $strToReturn \n" ;

#$strToReturn .=  $cell->Value() . $delimiter       ;                #The Value

#print "Unformatted = ", $cell->Unformatted(), "\n";

} #eof column

chop ($strToReturn) ; #remove the latest delimiter

chop ($strToReturn) ; #remove the latest delimiter

$strToReturn .= $rowEnd ;     #end the row

print "\$FileToPrint  is $FileToPrint " ;

} #eof row

$strToReturn .=

"\n COMMIT;

RAISERROR (N\'[dbo].[" . $workSheetName .  "]: Insert Batch: 1.....Done!\', 10, 1) WITH NOWAIT;

GO

SET IDENTITY_INSERT [dbo].[" . $workSheetName .  "] OFF;

SELECT \'SELECT TOP 5 * FROM [dbo].[" . $workSheetName .  "]  ORDER BY 1 DESC ; \'

SELECT TOP 5 * FROM [dbo].[" . $workSheetName .  "]  ORDER BY 1 DESC ;

" ;

printToFile ( $FileToPrint , $strToReturn ) ;

$strToReturn = '' ;

} #eof worksheet

} #eof sub

sub printToFile {

my $FileOutput = shift ;

my $StringToPrint = shift ;

#READ ALL ROWS OF A FILE TO ALIST

open (FILEOUTPUT, ">$FileOutput") ||

print "could not open the \$FileOutput $FileOutput!\n";

print  FILEOUTPUT $StringToPrint ;

close FILEOUTPUT ;

#debug $strToReturn .=  $StringToPrint;

# =========================================== eof sub printToFile

sub trim

$_[0]=~s/^\s+//;

$_[0]=~s/\s+$//;

return $_[0];

sub readFileReturnString {

my $fileToRead = shift ;

print " readFileReturnString \$fileToRead is $fileToRead \n" ;

my $string = ();

local $/=undef;

open FILE, "$fileToRead " or print "Couldn't open \$fileToRead $fileToRead : $!";

$string = <FILE>;

close FILE;

return $string ;

} #eof sub readFileReturnString

# =========================================== eof sub trim

#log a message according to the DebugLevel

# use: logMsg ("msg");

sub logMsg

my $msg = shift || "empty msg" ;

my $importance =  shift || 0 ;

my $CurrentPerlScriptName = ToUnixDir("$0" );

my $niceMonth = GetANiceMonth ();

my $logFile = "$CurrentPerlScriptName" . '_' . "$niceMonth" .  '.log' ;

$msg = GetANiceTime () .' --- ' .   $msg . " \n" ;

if (defined  $importance && $importance == 1 )

$msg = "\n============================================================ \n" . $msg ;

$msg = $msg . "============================================================ \n" ;

#debug nothing

if ( $DebugLevel == 0 ) {     return ; }

#just print the message

if ( $DebugLevel == 1 ) { print "$msg"; }

#print the message in

if ( $DebugLevel == 2 )

#READ ALL ROWS OF A FILE TO ALIST

open (LOG, ">> $logFile") || print "could not open the \$logFile $logFile !!!\n";

print LOG $msg  ;

close LOG;

#print the message in

if ( $DebugLevel == 3 )

#READ ALL ROWS OF A FILE TO ALIST

open (LOG, ">> $logFile") || print "could not open the \$logFile $logFile !!!\n";

print LOG $msg  ;

close LOG;

print $msg ;

} #eof if ( $DebugLevel == 3 )

} #eof sub logMsg

#log a message according to the DebugLevel

sub logErrorMsg

my $errorMsg = shift ;

my $importance  = shift ;

my $CurrentPerlScriptName = "$0" ;

my $niceMonth = GetANiceMonth ();

my $errorLogFile = "$CurrentPerlScriptName" . "_" .  "$niceMonth" . '.error.log' ;

$errorMsg = GetANiceTime () .' --- ' .   $errorMsg . " \n" ;

if ( $importance == 1 )

$errorMsg = "\n============================================================ \n" . $errorMsg ;

$errorMsg= $errorMsg. "============================================================ \n" ;

#debug nothing

if ( $DebugLevel == 0 ) {     return ; }

#just print the message

if ( $DebugLevel == 1 )  {         print $errorMsg ;     }

#print the message in a error log file

if ( $DebugLevel == 2 )

#READ ALL ROWS OF A FILE TO ALIST

open (ERRLOG, ">> $errorLogFile") || print "could not open the \$errorLogFile $errorLogFile !!!\n";

print ERRLOG $errorMsg ;

close ERRLOG;

#print the message in

if ( $DebugLevel == 3 )

#READ ALL ROWS OF A FILE TO ALIST

open (ERRLOG, ">> $errorLogFile") || print "could not open the \$errorLogFile $errorLogFile !!!\n";

print ERRLOG $errorMsg  ;

close ERRLOG;

print $errorMsg ;

} #eof if ( $DebugLevel == 3 )

} #eof sub logErrorMsg

#GET A NICE TIME

sub GetANiceTime {

# Purpose: returns the time in yyyymmdd-format

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

#---- change 'month'- and 'year'-values to correct format ----

$min = "0$min" if ($min < 10);

$hour = "0$hour" if ($hour < 10);

$mon = $mon + 1;

$mon = "0$mon" if ($mon < 10);

$year = $year + 1900;

$mday = "0$mday" if ($mday < 10);

return "$year\.$mon\.$mday" . "-" . "$hour\:$min\:$sec";

} #eof sub GetANiceTime

sub GetANiceMonth {

# Purpose: returns the time in yyyymmdd-format

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

#---- change 'month'- and 'year'-values to correct format ----

$mon = $mon + 1;

$mon = "0$mon" if ($mon < 10);

$year = $year + 1900;

return "$year\.$mon" ;

} #eof sub GetANiceTime

sub ToUnixDir {

my $dir = shift || "";

#replace all the \ s with / s

$dir =~ s/\\/\//g ;

return $dir ;

} #eof sub ToUnixDir

# =========================================== eof sub trim

# Action !!!

main();

1 ;

__END__

=head1 NAME

ExcelToSqlInsert -

=head1 DESCRIPTION

This script generates files based on templates and a simple Excel input file.

=head1 README

for how-to use this script check the ReadMe.txt

=head1 PREREQUISITES

SpreadSheet::ParseExcel

=head1 COREQUISITES

CGI

=pod OSNAMES

any ( Windows 7 only tested )

=pod SCRIPT CATEGORIES

configurations

=cut

Cool programs , utilities and programming environments for Windows, most of which free ( revised )

2011-03-06T20:43:00.002+02:00

Cool programs , utilities and programming environments for Windows, most of which free ( revised )

strawberry perl for Windows (with dmake for modules )

Process Explorer - shows resources usage per running process on Windows

Open diff - tool for comparing sql server 2005 databases

Skype - the best client for Internet and Video Telephony

NSIS - the best open source Windows installer maker

Free youtube to ipod converter -- get mp4 files easily to your phone

ArsClip remembers your clibboard stuff - Hint , Ctrl + Shift + Z , 2

Expresso - a GUI tool for building and verifying Regular Expressions

tortoise svn - a stable gui and command line to subversion for Windows

slik svn - the command line tools for svn for windows

Data Recovery - recover Shift + del removed programs

Grep , FGrep and Egrep for windows (remember the dll's also )