shalk

# fix a  bug in LWP   'usc-cn' can not be recognized correctly.
#  
#  when i  use  method  HTTP::RESPONSE::decoded_content ,that can not decode 'usc-cn' html 
#  but it  use 'iso-8859-1' to decode html.
#  though   'iso-8859-1'  is  a universe code , the decode method can work well.
#  but    HTTP::RESPONSE::content_charset  can not get the right code name  .
# 
#   there are two causes   
#　　　　　　　　　one  is   Encode::Encoding::mime_name can not get usc-cn,  usc-cn is not in the IANA charset name list.
#                  the other is   HTTP::RESPONSE::decoded_content havdn't implement  usc-cn decode,we only can use iso-8859-1 to replace.

shalk

#./test.pl 2 4 5 8 12
#          *
#          *
#          *
#          *
#         **
#         **
#         **
#        ***
#       ****

shalk

sed -i -e '/splash/a\serial --unit=0 --speed=115200 --word=8 --parity=no --stop=1 terminal --timeout=5 serial console' grub.conf
sed -i -e '/vmlinuz/ s/$/& console=tty0 console=ttyS0,115200n8/' grub.conf
echo 'ttyS0' >> /etc/securetty
cat >> /etc/init/ttyS0.conf  <<EOF
start on runlevel [345]
stop on runlevel [S016]

respawn
instance  /dev/ttyS0
exec /sbin/agetty   ttyS0  115200 vt100-nav

shalk

"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
" Maintainer: 
"       Amir Salihefendic
"       http://amix.dk - [email protected]
"
" Version: 
"       5.0 - 29/05/12 15:43:36
"
" Blog_post: 
"       http://amix.dk/blog/post/19691#The-ultimate-Vim-configuration-on-Github

shalk

###########################################################

#!/usr/bin/perl -w

# this script printf to stdout and stderr.  It prints random
# characters and does not flush the output of stdout. stderr 
# is autoflushed by default.
# uncomment the line about autoflush STDOUT to see how that
# changes the behavior.  Also, you can uncomment the sleep 
# line to watch the script in slow motion.

shalk

#!/bin/bash

expect -c "
    set timeout 10
    spawn virsh console cvm1 
    expect {
	\"Escape character\" {send \"\r\r\" ; exp_continue} 
	\"Escape character\" {send \"\r\r\" ; exp_continue} 
	\"login:\" {send \"root\r\"; exp_continue}
	\"Password:\" {send \"111111\r\";} 

shalk

#!/bin/bash
usage(){
   echo " Usage :$0  10.0.50.181   10.0.50.254"
   echo "Description: set ipmi ip and  gateway"
   exit 1
}
if [ $# == 0]
then
   usage
fi

shalk

mkdir -p /cloudview/cvm/

qemu-img convert -f qcow2  cvm.qcow2  -O raw    /cloudview/cvm/cvm.raw 

virt-install    --hvm   --name coc --ram 4096  --vcpus 4  \ 
--disk  path=/cloudview/cvm/cvm.raw   --os-type "linux"  --network bridge=br0 --boot hd

shalk

perl -p -i -e "s/^.*PasswordAuthentication.*$/PasswordAuthentication yes/" /etc/ssh/sshd_config

perl -p -i -e "s/^.*PermitRootLogin.*$/PermitRootLogin yes/" /etc/ssh/sshd_config

service sshd restart

shalk

#!/bin/bash
usage(){
  echo "$0  ip
     egg  $0  10.0.50.171
   " 
   exit 1
}

if [[ $# != 1 ]]
then