скрипты на все случаи жизни

Сверяем хостнеймы с днс-записями

Mon, 23 Mar 2009 11:36:02 GMT

В моей сети все получают ip по dhcp, а виндовые хостнеймы должны соответствовать записям в dns (в моем случае это фамилия юзера транслитом). К несчастью, иногда не все хосты соответствую этому стандарту. Для нахождения таких хостов я использую вот этот скрипт, запуская кроном раз в пять минут.

#!/bin/bash
letter="/tmp/ns-mismatch.txt";
admin="admin@domain.tld";
copy="-c anykey@domain.tld";
exclude="grep -v 192.168.4.10"

sendto="${admin} ${copy}";

touch ${letter};

for ip in `tail -n 30 /var/log/dhcpd.log | grep -i dhcpack| ${exclude}| awk {'print $8'}`; do
        dns=`nslookup ${ip}| awk {'print $4'}| sed /^$/d| awk -F. {'print $1'}`;
       hostname=`nmblookup -A ${ip}| grep 00|awk {'print $1'}| head -n 1| tr [:upper:] [:lower:]`;

        if [ "${dns}" != "${hostname}" ]; then
        emailtext="Hostname ${hostname} does not match dns-record ${dns}.domain.tld for ${ip}";
        echo ${emailtext} >> ${letter};
        fi

done

if [ "`cat ${letter}`" != "" ]; then
        mail -s "Hostname mismatch" ${sendto} < ${letter};
fi

rm -f ${letter};

At

Wed, 25 Feb 2009 11:08:23 GMT

Кто-нибудь знает, очереди в аргументе команды at являются независимыми?

То есть реально ли добавить в очередь K пять команд, чтобы они выполнялись последовательно, и в очередь N так же 5 команд, чтобы две очереди работали независимо друг от друга?

передергиваем клиент DHCP, если нет пинга

Sat, 08 Nov 2008 12:54:42 GMT

Привет.
Есть такой полезняк:

/sbin/ping -q -c4 -i0.01 -W1 | /usr/bin/grep "100.0%"|| echo "inet down "`date +%Y-%m-%d-%H-%M-%S` >>/var/log/inetdown.log

(пингует днс провайдера и если нет коннекта, то выводит ругню в лог)

Нужно развить мысль, а именно - чтобы кроме писАния в лог еще выполнялось

# killall dhcpcd
и
# dhcpcd eth1
но! только если нет пинга.

Подскажите, а то я новичок и пока что совсем не чувствую вопроса.
Спасибо.

Passing arguments by pipe

Mon, 01 Sep 2008 14:24:44 GMT

Извините, пожалуйста.

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

Пишем меленький скрипт, который просто печатает количество переданных ему аргументов

temp.ksh:

#!/bin/ksh

echo "$#"

exit

Смотрим
]$ ./temp.ksh
0
]$ ./temp.ksh 3
1
]$ ./temp.ksh 3 | ./temp.ksh
0

Хм...
И даже если вот так:

]$ echo 3
3
]$ echo 3 | ./temp.ksh
0

Хм....
После некоторых размышлений появилась мысль, что может быть даже это и логично (типа каждый скрипт запускает свой новый шелл и т.п.).
Но все равно остались вопросы:
А логично ли все-таки?
Все-таки как же это сделать-то тогда?

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

Заранее спасибо, и извините если вопрос, как всегда, слишком ламерский.

MyICQbot

Tue, 26 Aug 2008 22:12:41 GMT

У всех ли есть внешний ip-адрес? Все ли могут, сидя на работе/в университете/где угодно скачивать на свой домашний ПК какие-либо файлы? Предположим, вам известен url фильма который вы хотели бы вечером посмотреть у себя дома. Но кому бы захотелось придя домой его скачивать, а не сразу смотреть? :)
Подобных примеров можно придумать очень много. Особенно, если нету внешнего ip-адреса (привет пользователям стрима;-) ).
Дабы решить эту вселенскую несправедливость, было решено написать icq-бота, который мог бы скачивать файлы на тот хост, на котором запущен. В качестве языка написания был выбран perl, потому как 1) для него уже существует Net::OSCAR.
2) За основу нашего бота был взят бот drmist'а написанный на perl %)

Прежде всего нужен работающий Net::OSCAR, которого у вас скорее всего нет. Ставится просто, через cpan.
# cpan
cpan > install Net::OSCAR

Бот понимает команды
!get url
!status filename

url может быть http или ftp. Или ещё что угодно, с чем умеет работать wget.
Ну и ещё, конечно, нужно зарегистрировать уин для бота на icq.com %)
Очень интересные вещи описаны в man Net::OSCAR

#!/usr/bin/perl
$mypath = "~/MyICQDownloads";

use IO::Socket::INET;
use Net::OSCAR;
use Net::DNS;
use Text::Iconv;

%functions = ("get" => \&icq_bot_get,
"status" => \&icq_bot_status);

$conv = Text::Iconv->new('utf-8','windows-1251');
$resolver = Net::DNS::Resolver->new();
$oscar = Net::OSCAR->new();
$oscar->set_callback_im_in(\&message_callback);
$oscar->signon(999999999, "MyPass1") or die("Login failed\n");
$quit = 0;
while(!$quit) { $oscar->do_one_loop(); }
sub message_callback {
local($cmd, $params, $result);
local $result = "";
local($client, $uin, $msg) = @_;
if(($cmd, $params) = $msg =~ /^\!([^\ ]+) (.+)$/)
{
$result = exists($functions{$cmd}) ? $functions{$cmd}($params) : "";
$client->send_im($uin, $result) if $result;
}
}

sub icq_bot_get {
$url = $_[0];
local $get = "/usr/bin/wget -b -P $mypath $url";
@url=split /(.*\/)/, $url;
local $prog = system "$get -o $mypath/@url[2].log 1>&2 > /dev/null";
return "$url >>> downloading to $mypath\n Use \"!status @url[2]\" without quotes for last logs";
}

sub icq_bot_status {
local $file = $_[0];
$log = `tail -n 2 $mypath/$file.log`;
return $log;
}

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

splitfd - автоматическая раскидка большого количества фаилов по каталогам

Tue, 26 Aug 2008 20:52:22 GMT

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

Так вот:

$ splitfd -s /home/user/10000_files -t /home/user/temp -p new_ -n 200

сделает примерно 50 директорий (new_01, new_02, ...) в /home/user/temp, в которых будут лежать те 10000 фаилов из каталога /home/user/10000_files

splitfd

PS: как обычно, я не проверил если уже есть утилита которая именно это может делать ;)

apt_search

Wed, 20 Aug 2008 19:35:51 GMT

Мой скрипт для поиска Debian пакетов. Быстрый, верный, и удобный ;)
Что бы заработал, сначало запустите apt_search_update.

http://www.freewebs.com/rozouvan/scripts/apt%5Fsearch
http://www.freewebs.com/rozouvan/scripts/apt%5Fsearch%5Fupdate

Отсюда:
http://v-rozouvan.livejournal.com/2008/08/19/

Подскажите кто знает

Wed, 30 Jul 2008 22:11:59 GMT

Может быть задаю странный вопрос но всё же, можно ли в Xcode 3.1 писать bash скрипты и прикручивать к ним gui и потом собирать это дело как standalone приложение?

Fri, 25 Jul 2008 05:35:35 GMT

Написал простенький скрипт для завершения программы через определенное количество минут.
Написан на perl'e

Пример использования: killprg.sh +10 xmms
т.е. через десять минут этот скрипт завершит xmms. Кстати регистронезависимый скрипт.
Пы. сы. в программировании не очень силен, так что сильно не пинайте :-)

#!/usr/bin/perl
# powered by mentax
$|=1;

sub usage{
print "\nUsage: killprg [program]\n";
print " killprg +[minutes to kill] [program]\n\n";
exit;
}

$time=@ARGV[0];
if($time=~s/\+//){
$time+=0;
$prg=@ARGV[1];
}else{
$prg=@ARGV[0];
$time=0;
}
$seconds=$time*60;

usage if($prg eq "");
print"Start at: ".localtime(time)."\n";
print"kill after $time minuts. Search: \"$prg\"\n";
$started=time;

for(;;){
if($started+$seconds

[Error: Irreparable invalid markup ('<time){>') in entry. Owner must fix manually. Raw contents below.]

Написал простенький скрипт для завершения программы через определенное количество минут.
Написан на perl'e
<lj-cut text="Читать дальше">
Пример использования: killprg.sh +10 xmms
т.е. через десять минут этот скрипт завершит xmms. Кстати регистронезависимый скрипт.
Пы. сы. в программировании не очень силен, так что сильно не пинайте :-)

#!/usr/bin/perl
# powered by mentax
$|=1;

sub usage{
print "\nUsage: killprg [program]\n";
print " killprg +[minutes to kill] [program]\n\n";
exit;
}

$time=@ARGV[0];
if($time=~s/\+//){
$time+=0;
$prg=@ARGV[1];
}else{
$prg=@ARGV[0];
$time=0;
}
$seconds=$time*60;

usage if($prg eq "");
print"Start at: ".localtime(time)."\n";
print"kill after $time minuts. Search: \"$prg\"\n";
$started=time;

for(;;){
if($started+$seconds<time){
@lines=split(/\n/,`ps aux`);
shift @lines;
for$line(@lines){
@columns=split(/[\t\s]+/,$line);
unless($line=~/killprg/){
if($line=~/$prg/i){
$cmd=join(" ",@columns[10..50]);
print "Found and kill process: @columns[1] -> $cmd\n";
`kill @columns[1]`;
exit;
}
}
}
print "+";
}else{
print ".";
}
sleep 1;
}
</lj-cut>

SSH

Tue, 22 Jul 2008 12:59:01 GMT

Друзья подскажите как можно по ssh соединиться с удалённым сервером, так чтобы в одной команде был и логин и пароль. Если просто логин то надо так ssh username@ip.add.re.ss? А как пароль добавить. Спасибо.

Проблема с cut в ksh

Thu, 17 Jul 2008 14:26:09 GMT

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

Система Fedora:
$more /etc/redhat-release
Fedora release 7 (Moonshine)

Есть два скриптика, test_ksh.ksh и test_csh.csh.
Разница только в первой линии (естественно), соответственно: #!/bin/ksh и #!/bin/csh

Дальше все одинаково:

head -1 res_121_1_bl.txt | cut -d";" -f10-14
head -1 res_121_1_bl.txt | cut -d";" -f10,14

res_121_1_bl.txt - просто некий текстовый файлик, в котором через точку с запятой в колонках находятся всякие цифирки. Хочу посмотреть названия колонок. В первой линии названия колонок с 10 по 14. Во второй только 10 и 14.

Вот результаты:
$./test_csh.csh
ns_lixiv;ns_no3_sol_fin;ns_nh4_sol_fin;ns_volat_engr;ns_denit
ns_lixiv;ns_denit

$./test_ksh.ksh
ns_no3_sol_fin;ns_nh4_sol_fin;ns_volat_engr;ns_denit
ns_lixiv;ns_nh4_sol_fin

Даже не знаю, что и делать.
Ну.. на всякий случай еще немного информации:

$ /bin/ksh
$ print ${.sh.version}
Version M 1993-12-28 s

Ну и... запустил те же самые скрипты, на Solaris-е, которым рулят умные админы. Там все работает нормально, вторая строка для обоих шеллов выдает 10 и 14 колонки.
Правда не нашел как посмотреть в solaris-овском ksh его версию.

Подскажите в чем может быть дело? Бага ksh? Бага Fedora? Бага Fedora, которая установила кривой ksh?
Или может быть как всегда кривые руки? Но в чем тогда кривизна?

Заранее спасибо.

P.S.: Да, извините, я пробовал добавить тэги к этой запсис, но ЖЖ зачем-то заргулася и отказался это делать.

Новичок и FTP

Thu, 19 Jun 2008 10:24:02 GMT

Простейшая проблема: не могу закачать локальный файл на ftp

если закачивать руками - то все получается, делаю так:
ftp -in ftp://username:pass@servername
put filename.zip
exit

Теперь делаю то же самое но через скрипт:
#!/usr/local/bin/bash
ftp -in ftp://username:pass@servername<<_EOF_
put filename.zip
_EOF_

Появляется ошибка:
...
250 OK. Current Directory is /
remote: filename.zip
: No such file or directory
...

Что я делаю не так???

В интернете все советуют делать примерно так:

>ftp -n << __END_OF_SCRIPT__
>     open my.server.at.my.office
>     binary
>     user userid password
>     get myfile.gif
>     bye
>__END_OF_SCRIPT__

Возникает ошибка:
ftp: hostname nor servername provided, or not known

Help me, мозги уже закипают потихоньку.

Mac OS X 10.5.x и NAT

Thu, 05 Jun 2008 10:44:50 GMT

Вот модифицированный мной скрипт tejinashi, делающий в макоси нат

#/bin/bash
interface="$2"
from_ip="any"
to_ip="any"

if [ "`whoami`" != 'root' ] ; then
echo "Go away, you are not root"
exit 1
fi
case $1 in
start)
if [ "$interface" = "" ] ; then
echo "I need an interface to NAT on"
exit 1
fi
echo "you may need to run 'ipfw flush'"
natd=`ps awux |grep -v grep|grep -v $0|grep natd|awk '{print $2}'`
kill -9 $natd
sleep 1
sysctl -w net.inet.ip.forwarding=1
alias_ip=$(ifconfig $interface | grep inet | grep -v inet6 | \
awk '{print $2}' | head -1)
/usr/sbin/natd -alias_address $alias_ip -interface $interface -use_sockets \
-same_ports -unregistered_only -dynamic -clamp_mss
#ipfw -f flush
ipfw add divert natd ip from "$from_ip" to "$to_ip" via "$interface"
;;
stop)
ipfw -f flush
sysctl -w net.inet.ip.forwarding=0
;;
*)
echo "Usage: $0 start en0 OR $0 stop";
;;
esac

автоматический dns сетевой инфраструктуры

Sun, 25 May 2008 01:37:58 GMT

Подскажите, существуют ли в природе какая-то автоматизация прописывания в DNS сетевых интерфейсов маршрутизаторов, например на основании данных полученых по snmp?
Я говорю вот об этом:

5 42 ms 42 ms 42 ms tengigabitethernet7-4.ar1.fra4.gblx.net [64.208.222.201]
6 42 ms 42 ms 42 ms ge2-3-1000m.ar3.fra3.gblx.net [67.17.95.1]
7 * * * Request timed out.
8 44 ms 53 ms * ae-31-55.ebr1.frankfurt1.level3.net [4.68.118.158]
9 * * 51 ms ae-1-100.ebr2.frankfurt1.level3.net [4.69.132.126]
10 55 ms 54 ms 53 ms ae-2.ebr1.dusseldorf1.level3.net [4.69.132.137]
11 56 ms 53 ms 53 ms ae-1-100.ebr2.dusseldorf1.level3.net [4.69.132.130]
12 46 ms 51 ms 54 ms ae-2.ebr1.amsterdam1.level3.net [4.69.133.89]
13 58 ms 53 ms 53 ms ae-1-100.ebr2.amsterdam1.level3.net [4.69.133.86]
14 53 ms 54 ms 54 ms ae-2.ebr2.london1.level3.net [4.69.132.133]
15 127 ms 126 ms 126 ms ae-42.ebr1.newyork1.level3.net [4.69.137.70]
16 134 ms 126 ms 126 ms ae-71-71.csw2.newyork1.level3.net [4.69.134.70]
17 129 ms 126 ms 125 ms ae-74-74.ebr4.newyork1.level3.net [4.69.134.117]
18 197 ms 197 ms 198 ms ae-2.ebr4.sanjose1.level3.net [4.69.135.185]
19 194 ms 194 ms 198 ms ae-74-74.csw2.sanjose1.level3.net [4.69.134.246]
20 195 ms 197 ms 197 ms ae-72-72.ebr2.sanjose1.level3.net [4.69.134.213]
21 194 ms 194 ms 194 ms ae-4-4.car2.sanfrancisco1.level3.net [4.69.133.157]
22 194 ms 193 ms 194 ms ae-11-11.car1.sanfrancisco1.level3.net [4.69.133.153]
23 194 ms 197 ms 198 ms six-apart-l.car1.sanfrancisco1.level3.net [4.53.128.2]
24 194 ms 195 ms 195 ms v101-sf-core1.sixapart.com [204.9.176.35]
25 193 ms 193 ms 193 ms livejournal.com [204.9.177.18]

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

Скрипт для скачивания фото-альбомов с picassaweb

Mon, 05 May 2008 12:38:54 GMT

#!/bin/bash
# Distributed under the terms of the GNU General Public License v3 or later
# AUTHOR: Loïc Cerf

# e-mail: magicbanana@gmail.com

WGET_OPT="-nv -T 180 -t 3 -c"

EX_USAGE=64
EX_NOHOST=68

if [ -z "$1" -o "$1" = "--help" -o "$1" = "-h" ]
then
echo "Usage: $0 url [destination]"
exit
fi
page=${1#*picasaweb.google.*/}
if [ "$page" = "$1" ]
then
echo "\"$1\" is not the URL of a PicasaWeb album or gallery" 1>&2
exit $EX_USAGE
fi
temp=`mktemp`
if wget $WGET_OPT -O $temp "$1"
then
finalPage=${page#*/}
if [ -z "$finalPage" -o "$finalPage" = "$page" ]
then
# $temp is a gallery
if [ -z "$2" ]
then
destination=`grep -m 1 "^var _user" $temp`
destination=${destination##*nickname:\"}
set "$1" "${destination%%\"*}"
fi
mkdir -p "$2"
cd "$2"
grep -E -o "$1"[/]?[[:alnum:]:.%~_-]+ $temp | sort | uniq |
while read album
do
"$0" $album
done
else
# $temp is an album
if [ -z "$2" ]
then
destination=`grep -m 1 "^var _album" $temp`
destination=${destination##*title:\"}
set "$1" "${destination%%\"*}"
fi
grep -E -o {id:\"[0-9]+\",s:\"[[:alnum:]:\\.%~_-]+ $temp |
while read picture
do
picture=${picture##*\"}
picture=${picture/\x2Fs144/}
wget $WGET_OPT -P "$2" ${picture//\x2F//}
done
fi
else
exit $EX_NOHOST
fi
rm $temp

MyWebPlayer -- remote Mplayer control

Tue, 26 Feb 2008 13:18:51 GMT

Некоторое время назад я написал ну очень простую веб-морду для управления mplayer'ом. Настолько простую, что она работает в любой posix-совместимой ОС без правки кода. Я пользуюсь ей со своего PDA, но, насколько я понимаю, ее можно юзать с любого устройства, на котором есть броузер с поддержкой html 4.0 и какое-то понятие о сетях.

Пока еще я периодически добавляю туда новые функции, скачать это можно через svn командой
svn co https://mywebplayer.svn.sourceforge.net/svnroot/mywebplayer
Для работы этой поделки нужно - веб-сервер с php (можно использовать встроенный веб-сервер, он запустится автоматически), bash и mplayer.
Кратко о включении: после скачивания mywebplayer отсюда http://sourceforge.net/projects/mywebplayer , нужно подправить файл config.php, в котором нужно указать путь до аудио/видео контента. Там же можно указать что именно нужно проигрывать - файлы, или плейлисты.
После, нужно перейти в директорию sh и выполнить ./fifo.sh start
Это все. После можно открыть веб-броузером index.php и пробовать чего-то сделать. Я уже несколько недель только так и смотрю фильмы - не подходя к комьютеру, просто запускаю что-то с кпк.
Для того чтобы все остановить, нужно выполнить ./fifo.sh stop
Интересно было бы услышать ваши замечания и предложения.

P.S. Internet Explorer в windows mobile не умеет html 4.0, если что...

Update: теперь список файлов для просмотра строится в зависимости от указанных в config.php расширений

Можно скачать эту штуку вот здесь - http://sourceforge.net/projects/mywebplayer/

DVD-Video в KDE4

Sat, 02 Feb 2008 04:46:20 GMT

Захотелось смотреть сабж. К сожалению, я так и не нашёл где можно добавлять Actions в Dolphin или Konqueror в kde4,

так что пока для совсем срочного решения, с которым справилась бы моя младшая сестра или мама, был написан /usr/bin/xine-dvd:

#!/bin/bash
dvd=$*;
xine dvd://"$dvd";

В файл-менеджере в kde4 я кликаю по директории с двд-видео, выбираю open with и там пишу xine-dvd. Использовать `pwd` там не получилось, даже незнаю почему - ни в какую не экранируются пробелы. Но это и не самое важное. Гораздо интереснее как бы это, несомненно работающее, но абсолютно наколенное решение добавить в Actions в Dolphin, чтобы на ряду с "open in terminal" и "archive & encrypt" можно было бы ткнуть что-то вроде "open dvd in xine".
Очень расчитываю на Вашу помощь в интеграции всякого барахла с kde4.

P.S. Подобная штука была в Kde3, вроде бы даже на kde-look.org кто-то пример выкладывал. Но с kde4 то решение не прокатило :(

программист bash

Tue, 28 Aug 2007 14:58:13 GMT

В компанию "Rambler" в отдел поисковых систем требуется программист bash для автоматизации, усовершенствования и мониторинга технологических процессов построения поискового индекса

Основные требования:
Необходимо: хорошие знания bash, командное окружение ОС UNIX

Желательно:
знания скриптовых языков (Perl,Python,awk), C/C++

Условия:
Зарплата по результатам собеседования. Оформление по ТК, соц.пакет, оплачиваемый отпуск, премии
Офис м. Автозаводская (в 2-х минутах ходьбы, удобный выезд на ТТК)

Контактное лицо: Букин Руслан Михайлович
br@rambler-co.ru
Телефон: 7453619 доб. 3352

С Днём Системного Администратора!

Fri, 27 Jul 2007 05:16:04 GMT

Хоть праздник этот и не совсем вписывается в формат нашего журнала, anw, я думаю среди нас есть люди, которых можно поздравить.
Happy sysadmin day@2K7 :-)

Видео для PDA

Sun, 08 Jul 2007 18:52:45 GMT

Что я захотел сделать, я думаю, понятно из сабжа :)
Это пока сырая версия. Тоесть, рабочая, но местами совсем не оптимизированна.
Ваши замечания приветствуются.

#!/bin/bash
echo "_____________________________________________________________"
echo "                                     _"
echo " _ __ ___   ___ _ __   ___ _ __   __| | __ _"
echo "| '_ ' _ \ / _ \ '_ \ / __| '_ \ / _' |/ _' |"
echo "| | | | | | __/ | | | (__| |_) | (_| | (_| |"
echo "|_| |_| |_|\___|_| |_|\___| .__/ \__,_|\__,_|"
echo "                          |_|"
echo
echo "(c)2007 by Grohman@ru_shell"
echo "_____________________________________________________________"
echo
files=$*
if [ "${files}" = '' ]; then
files=*
fi
echo "ВНИМАНИЕ! Имена файлов после запуска скрипта будут изменены. Нажмите Ctrl+c для отмены";
echo
echo
sleep 3
rm -f /tmp/mencpda.lst
touch /tmp/mencpda.lst
for orig_video in ${files}; do
        if [ "`echo $orig_video | grep -v pda`" != "" ]; then
                temp_pda_video=`echo $orig_video|tr ' ' '_'|sed "s/,//g"|sed "s/\\[/_/g"|sed "s/\\]/_/g"|tr ['A-Z'] ['a-z']`
                echo $temp_pda_video >> /tmp/mencpda.lst
                mv -vf "$orig_video" "$temp_pda_video"
        fi
done
        if [ "`cat /tmp/mencpda.lst`" = "" ]; then
        echo "Всё уже сконвертировали до нас";
        exit 1
                else
        echo
        echo "___________________________________________________"
        echo "Удалять оригинальные файлы после конвертации? (y/N)"; read ERASE;
                for i in `cat /tmp/mencpda.lst`; do
                        echo -e "\033[32m * \033[0m" Конвертируем "\033[32m" $i... "\033[0m"
                        mencoder -msglevel all=0:statusline=5 $i -ovc xvid -xvidencopts bitrate=200 -ofps 12 -vf scale=320:240 -oac mp3lame -o $i.pda.avi 2> /dev/null
                        echo
                        echo
                        sleep 1
                done

        fi

echo
echo
                case $ERASE in
                [yY])
                        for f in `cat /tmp/mencpda.lst`; do
                                echo -e "\033[32m * \033[0m "Удаляем "\033[32m" $f..."\033[0m"
                                rm -f $f
                        done
                ;;
                *)
                        for f in `cat /tmp/mencpda.lst`; do
                              echo -e "\033[32m * \033[0m "Файл "\033[32m"$f"\\033[0m не был удален."
                        done
                ;;
                esac

update:Спасибо h0rn за идею - теперь можно конвертировать не только все файлы, но и отдельно выбранные.
bug #1: нельзя указывать файлы с неэкранированными именами. Я думаю, это будет исправлено позже

update1: вынес case $erase за пределы цикла конвертирования. Теперь листинг обработанных файлов выдаётся по окончанию работы скрипта.

update2: список файлов теперь выдаётся целиком перед началом конвертации

_swap

Wed, 20 Jun 2007 12:10:47 GMT

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

# warning, use with caution!
function _swap {
    #set -x
    TMPF="/tmp/$1.for_swap"
    [[ -f $1 && -f $2 ]] || { echo "Not enough files to work with." >&2; return -1; }
    cp -f $1 $TMPF || { echo "Cannot create temporary file. TMPF=$TMPF" >&2; return -1; }
    cp -f $2 $1 && cp -f $TMPF $2 || { echo "Error, Rollback." >&2; cp -f $TMPF $1; }
    rm -f $TMPF
    #set +x
}

пример использования:

$ cat a b
a
b
$ _swap a b
$ cat a b
b
a

"версия" сырая, но мне нравится сама идея свопа D_D

mail via perl

Fri, 18 May 2007 14:53:19 GMT

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

#!/usr/bin/perl

open (SPAM, "~/rcpts") or die "Can't open rcpts list: $!\n";
while(<SPAM>)
{
$i=$i+1;
$arr[$i-1]="$_";
}
for ($u=0; $u!=$i; $u++) {

open(MAIL, "|/usr/sbin/sendmail -oi -t -odq -r mail\@domain.tld")
or die "Can't fork for sendmail: $!\n";
print MAIL <<"EOF";
From: root <mail\@domain.tld>
Subject: Enlarge your mind
To: $arr[$u]
Hello dude.
EOF
open(FILE, "uuencode price.zip price.zip|") or die;
while( <FILE> ) { print MAIL; };
sleep 1;
close(MAIL);
};

Экранирование кавычек

Fri, 23 Mar 2007 15:09:27 GMT

Простите мне мой блондинистый вопрос, но столкнулась с тем, что не могу верно заэкранивароть кавычки. (Или может быть дело вообще в другом)

В общем, есть скрипт convert.sh:
----------
#!/bin/sh

PATH=/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin
export TMPDIR=/www/tmp

ulimit -d 131072

if [ `ps ax | grep '/usr/local/bin/convert' | egrep -v '(grep|convert\.sh)' | wc -l` -le 15 ]; then
/usr/local/bin/convert $*
fi
---------

Этот срипт вызвает convert ImageMagick`а, но не больше 5ти зараз.
Пытаюсь к нему обращаться:
/usr/local/bin/convert.sh /tmp/test.jpg -scale "490x367" -sharpen 1 -gravity NorthWest -stroke none -fill 'rgba(204,0,0,1)' -font /fonts/timesbi.ttf -pointsize 36 -draw "translate 5,5 skewX 0 text 0,0 'testrtrtrtrtsdsdsd'" /tmp/test2.jpg

Ругается страшно:
convert: unable to open image `5,5': No such file or directory.
convert: unable to open image `skewX': No such file or directory.
convert: unable to open image `0': No such file or directory.
convert: unable to open image `text': No such file or directory.
convert: unable to open image `0,0': No such file or directory.
convert: unable to open image `"testrtrtrtrtsdsdsd"': No such file or directory.
convert: unable to open image `5,5': No such file or directory.
convert: unable to open image `skewX': No such file or directory.
convert: unable to open image `0': No such file or directory.
convert: unable to open image `text': No such file or directory.
convert: unable to open image `0,0': No such file or directory.

Причём напрямую обращение к convert работает:
convert /tmp/test.jpg -scale "490x367" -sharpen 1 -gravity NorthWest -stroke none -fill 'rgba(204,0,0,1)' -font /fonts/timesbi.ttf -pointsize 36 -draw "translate 5,5 skewX 0 text 0,0 'testrtrtrtrtsdsdsd'" /tmp/test2.jpg

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

Fri, 23 Mar 2007 05:14:26 GMT

Народ нужен хелп!!!
Как в win32 cmd в bat файле проверить пустали папка по средствам if!????