[_Flame_]

А как ети скрипты вообще применять? Можно по-подробнее только
(MaNDRIVa)

[fossil]

Очищаем все файлы в каталоге и подкаталогах.

#!/bin/bash
path='/var/garbage'
for i in `ls $path`;do
    if [ ! -d $path$i ] ;then
    echo '' > $path$i;
    fi
    if [ -d $path$i ];then
        for s in `ls $path$i`;do
        echo '' > $path$i'/'$s;
        done
    fi
done

[BuGfiX]

Не буду говорить что я великий и могучий скриптописатель... Приятель попросил сделать задание на лабу - посчитать количество файлов в каталогах из $PATH и вывести на экран, отсортировав по количеству файлов:

#!/bin/bash
LANG=C
for i in `echo $PATH | sed -n s/\:/\ /gp`; do
  echo -ne "$i:\t"; ls -1R $i/ 2>/dev/null | grep -vE 'total|^$|\:$' | wc -l;
done | sort -k 2nr

[BuGfiX]

Скрипт для подбора кодировки текстового файла:

#!/bin/sh
ENC=KOI8-R           # в какую кодировку переводить
FILE=/tmp/file.txt   # файл
for i in `iconv -l | sed -e 1,5d -e 's/\/\///g'`; do
    echo -e "\n\n-----\n$i\n-----\n";
    iconv -c -f $i -t $ENC $FILE
    read;
done

[[mzd]]

Простой скрипт для отслеживания сайтов (англ. яз.)
Сам скрипт:

#!/bin/sh
# webtrack.sh

RECIP=user@host      # where notifications get sent
DUMPCMD="w3m -dump"  # text browser invocation


for url in $(cat list.txt); do

    md5=$(echo "$url" | md5sum | cut -d\  -f 1)

    touch $md5.txt

    $DUMPCMD "$url" > tmp.txt

    if diff $md5.txt tmp.txt >/dev/null; then
        : #echo no changes
    else
        : #echo "changes: "
        diff -Napu $md5.txt tmp.txt > diff.txt
        mv tmp.txt $md5.txt
        mail -s "Changes in $url found." "$RECIP" <<eof
The diff has $(wc -l diff.txt | cut -d\  -f 1) lines.

Changes are below.

$(cat diff.txt)
eof

    fi

done

Вспомогательный скрипт:

#!/bin/sh
# ww-add.sh

# if the list is local
echo '$1' >> /path/to/list.txt

# if the list is remote
ssh user@host "echo '$1' >> /path/to/list.txt"

[debug]

Показать 5 ip-адресов, с которых установлено больше всего коннектов на 25-й порт на сервер. Вместо 1.2.3.4 подставьте ваш ip-адрес Полезно для вылавливания спамеров.

netstat -antp|grep  "1.2.3.4:25" |awk '{a=$5;split (a,b,":");g[b[1]]++}END{for (h in g) print g[h]" "h}'|sort -n|tail -5

Скрипт для очистки очереди Qmail от спама.
Путь /var/qmail/ при необходимости заменяем на свой путь к qmail-у.
Длинную строчку find ... при необходимости модифицируем, с учётом специфики спама на вашем сервере

#!/bin/bash

TS=`date +%d.%m.%Y.%s`

find /var/qmail/queue/mess/ -type f -exec grep -lEi 'failure notice|ssbhomes.com|Unknown Recipient|WATCHDOG|nlarge your|Returned mail|The Best For Your Health|Hot Se with Viagra|Pharmacy for Everyone|Delivery Status Notification|failure notice|Mailer-daemon@|herbal|agra|ialis|vitra|porn|xgenconsulting.com|postmaster@|penis|Home Depot gift card|Your Loan Pre-Approval|Your Mortgage Pre-Approval|Happy NW|Time to make it bigger!|Do away with everything you are indebted for without paying an other cent|Size, Does It Really Matter!?!|Make it larger!|Hey MAN!|Ink & Toner - 2007 Bonanza Super Sale|Time to make it larger NOW!'  {} \; >> /tmp/76K_q.${TS}

/var/qmail/bin/qmail-qstat
/etc/init.d/qmail stop
sleep 5
/etc/init.d/qmail stop
sleep 5

cat /tmp/76K_q.${TS} | while read fn
do
        rm -f -- ${fn}
        echo ${fn} | sed "s/mess/local/g" | xargs rm -f --
        echo ${fn} | sed "s/mess/remote/g" | xargs rm -f --
        echo ${fn} | sed "s/mess/info/g" | xargs rm -f --
        echo ${fn} | sed "s/mess/todo/g" | xargs rm -f --
        short_fn=`echo ${fn} | sed 's#^.*/##'`
        rm -f -- /var/qmail/queue/bounce/${short_fn} /var/qmail/queue/intd/${short_fn} /var/qmail/queue/todo/${short_fn}
        echo ${fn}
done

/etc/init.d/qmail start
/var/qmail/bin/qmail-qstat

[alive_corpse]

Простой и короткий, но полезный скрипт, меняющий в директории и всех поддиректориях права доступа к файлам в зависимости от их расширения. В данном примере файлы с расширением php и tcl получат права доступа 755, а все остальные - 655.

#!/bin/bash
find . -name \*.* -exec chmod 655 {} \;
find . -name \*.php -exec chmod 755 {} \;
find . -name \*.tcl -exec chmod 755 {} \;

[voler]

Скрипт для создания бэкапов.

#!/bin/bash

DATE=`date '+%F'`
BACKUP="/Backup/office_$DATE.sql"
mysqldump -uuser -hlocalhost office > $BACKUP

Бэкапы делаю, на отдельный жесткий диск.

[voler]

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

читать дальше »

#!/usr/bin/perl -w
use Net::SMTP; #модуль для отправки
$smtp = Net::SMTP->new('smtp.masterhost.ru'); # сервер отправки
$smtp->mail('от кого'); 
$smtp->to('кому');
$smtp->data();
$smtp->auth("имя","пароль");
$smtp->datasend("From: <имя\@домен>\n");
#$smtp->datasend("To: <имя\@домен>\n");
$smtp->datasend("Subject:Ваша тема\n");
$smtp->datasend("Content-Type: text/plain; charset=windows-1251\n");
$smtp->datasend("Content-Transfer-Encoding: 8bit\n");
$smtp->datasend("\n");
$smtp->datasend("ваш текст\n");
$smtp->dataend();
$smtp->quit;

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