Exercícios e exemplos do livro

Programação Shell do Linux – 10ª Edição

Autor: Julio Cezar Neves

==== add ====

$ cat add

#
# Adiciona Pessoas ao Arquivo de Telefones - Versao 2
#

echo "$1 $2" >> telefones
sort -o telefones telefones


==== alfa ====

$ cat alfa

acd
cdr
swax


==== aluado ====

$ cat aluado

Lua Nova
Linguagem Lua
Lua Cheia
Luanda é a capital de Angola
Essa linha é louca


==== anilhas.sh ====

$ cat anilhas.sh

#!/bin/bash
# O prg serve para contar a quantidade de cada anilha teria de usar
#+ para fazer uma cabeação.
#+ Anilhas são aqueles pequenos anéis numerados que você vê nos cabos
#+ de rede, que servem para identificá-los.
[[ $# != 2 ]] && {
echo "Uso: $0 '' ''"
exit 1
}
Tudo=$(eval echo {$1..$2}) # Recebe os num. entre $1 e $2
Tudo=${Tudo// /} # Tira os brancos gerados pelo cmd anterior
echo $Tudo::::${#Tudo}; read
for ((i=0; i<${#Tudo}; i++)) { let Algarismo[${Tudo:i:1}]++ # Incrementa vetor do algarismo } for ((i=0; i<=9; i++)) { printf "Algarismo %d = %2d\n" \ $i ${Algarismo[$i]:-0} # Se o elemento for vazio, lista zero }

==== animal.sh ====

$ cat animal.sh

#!/bin/bash
# Separa animais selvagens e domésticos
declare -A Animais
Animais[cavalo]=doméstico
Animais[zebra]=selvagem
Animais[gato]=doméstico
Animais[tigre]=selvagem
Animais[urso pardo]=selvagem
for Animal in "${!Animais[@]}"
do
if [[ "${Animais[$Animal]}" == selvagem ]]
then
Sel=("${Sel[@]}" "$Animal")
else
Dom=("${Dom[@]}" "$Animal")
fi
done
Maior=$[${#Dom[@]} > ${#Sel[@]}?${#Dom[@]}:${#Sel[@]}]
clear
tput bold; printf "%-15s%-15s\n" Domésticos Selvagens; tput sgr0
for ((i=0; i<$Maior; i++)) { tput cup $[1+i] 0; echo ${Dom[i]} tput cup $[1+i] 14; echo ${Sel[i]} }

==== aniv ====

$ cat aniv

1919-11-08 Hedy Coutinho
1947-07-05 Silvina Duarte
1980-01-17 Juliana Duarte
1984-11-08 Paula Duarte


==== AnoNovo.sh ====

$ cat AnoNovo.sh

#!/bin/bash
#
# Brincadeira de Ano Novo
# Autor: Julio Neves
#
trap 'tput cnorm; tput sgr0; clear; exit' 0 2 3 15
Feliz[1]="FFFFFFF EEEEEEE LLL III ZZZZZZZ 22222 0000 1111 33333 "
Feliz[2]="FFFFFFF EEEEEEE LLL III ZZZZZZZ 2222222 000000 11111 333 333 "
Feliz[3]="FFF EEE LLL III ZZZ 22 222 000 000 11 111 33 333"
Feliz[4]="FFFFF EEEEE LLL III ZZZ 222 000 000 111 333 "
Feliz[5]="FFFFF EEEEE LLL III ZZZ 222 000 000 111 333 "
Feliz[6]="FFF EEE LLL III ZZZ 222 000 000 111 33 333"
Feliz[7]="FFF EEEEEEE LLLLLLL III ZZZZZZZ 2222222 000000 1111111 333 333 "
Feliz[8]="FFF EEEEEEE LLLLLLL III ZZZZZZZ 2222222 0000 1111111 33333 "
LargTela=$(tput cols)
while ((${#Feliz[1]}>=LargTela))
do
zenity --error --title "Feliz Natal" --text "Esta arte ascii ;) precisa de uma tela com uma largura mínima de ${#Feliz[1]} caracteres" || exit 1
LargTela=$(tput cols)
done

ColCab=$((($(tput cols)-${#Feliz[1]})/2))
Cor=6

function ApagaAcende
{
tput cup $[Lin - 4] $[Meio + 1]
((n == 0)) && {
echo "TIM TIM"
n=1
return
}
tput el
n=0
}
function Cab
{
Cor=$[Cor == 7?0:++Cor]
tput setaf $Cor; tput bold
for ((kk=1; kk<9; kk++)) { tput cup $((kk-1)) $ColCab echo "${Feliz[kk]}" } tput setaf 3 } function FazBolha { for k in 1 2 do y=0 for Sai in 2 4 6 6 do C1=$[Sai == 2?$[Meio + 1]:$[Sai == 4?Meio - 0:Meio - 1]] C2=$[Sai == 2?$[Meio + 7]:$[Sai == 4?Meio + 6:Meio + 5]] Var= for ((j=1; j<=Sai; j++)) { Var=$Var$[RANDOM % 2]" " } x=0 let y++ for SN in $Var do ((SN)) && { tput cup $[Lin + 2 - y] $[k == 1?C1 + x:C2 + x] echo . } let x++ done done done } Cols=5 Fim=$(tput cols) while ((Fim < 96)) do tput flash zenity --error --text "Ponha o terminal em\nModo de tela cheia" || exit 1 Fim=$(tput cols) done Meio=$[Fim / 2 - 5] Lin=$[$(tput lines) - 7] tput civis tput setab 1 tput bold tput setaf 3 clear for ((i=1; i<$Meio; i++)) do tput cup $Lin $[i - 1]; echo ' ' tput cup $[Lin + 1] $[i - 1]; echo ' ' tput cup $[Lin + 2] $[i - 1]; echo ' ' tput cup $[Lin + 3] $[i - 1]; echo ' ' tput cup $[Lin + 4] $[i - 1]; echo ' ' tput cup $[Lin + 5] $[i - 1]; echo ' ' tput cup $Lin $i; echo '\____/' tput cup $[Lin + 1] $i; echo ' \ /' tput cup $[Lin + 2] $i; echo ' \/' tput cup $[Lin + 3] $i; echo ' ||' tput cup $[Lin + 4] $i; echo ' ||' tput cup $[Lin + 5] $i; echo ' (__)' tput cup $Lin $[Fim - i - 5]; echo ' ' tput cup $[Lin + 1] $[Fim - i - 5]; echo ' ' tput cup $[Lin + 2] $[Fim - i - 5]; echo ' ' tput cup $[Lin + 3] $[Fim - i - 5]; echo ' ' tput cup $[Lin + 4] $[Fim - i - 5]; echo ' ' tput cup $[Lin + 5] $[Fim - i - 5]; echo ' ' tput cup $Lin $[Fim - i - 6]; echo '\____/' tput cup $[Lin + 1] $[Fim - i - 6]; echo ' \ /' tput cup $[Lin + 2] $[Fim - i - 6]; echo ' \/' tput cup $[Lin + 3] $[Fim - i - 6]; echo ' ||' tput cup $[Lin + 4] $[Fim - i - 6]; echo ' ||' tput cup $[Lin + 5] $[Fim - i - 6]; echo ' (__)' Cab done for ((f=0; f<5; f++)) { tput flash sleep 0.02 } while true do ((++Conta % 6)) || ApagaAcende FazBolha Cab sleep 0.05 y=0 for Sai in 2 4 6 6 do let y++ C1=$[Sai == 2?$[Meio + 1]:$[Sai == 4?Meio - 0:Meio - 1]] C2=$[Sai == 2?$[Meio + 7]:$[Sai == 4?Meio + 6:Meio + 5]] for ((j=1; j<=Sai; j++)) { Trab="$Trab"$(((Sai == 4)) && echo -n _ || echo -n ' ') } tput cup $[Lin + 2 - y] $C1 echo "$Trab" tput cup $[Lin + 2 - y] $C2 echo "$Trab" Trab= done Cab sleep 0.05 done

==== Arq ====

$ cat Arq

Lua Nova
Linguagem Lua
Lua Cheia
Luanda é a capital de Angola
Essa linha é louca


==== arq.DOS ====

$ cat arq.DOS

Este arquivo foi
gerado por um ftp
mal feito do DOS
ou rWin para o Linux.


==== ArqOLs ====

$ cat ArqOLs

01 durjcv01 bolpetti cgrippi jneves lcarlos rhudson ngerhard lfurtado ecardoso rlegaria
02 dualco01 walfredo dlima mlourdes frodrigu magali avoss
03 duamcd01 mbranco jbrito aguedes mdutra mandrade
04 dubapo01 vgomes lmattos cneri slima mandrade wsantos lleite rmacedo
05 ducesd01 francis sfelicio leonardo jacque ervedosa
06 dumsap01 igormang rmurillo aroracio rosgomes mishikaw cbraz
07 duesjm01 d306487 d200034 d243442 d285706
08 dugoae01 oclotild rgaleno santonia sgildazi cnatal jpeixoto
09 dumaec01 chicoc raquiles adiniz cpinto lcaldas mbarros jcoelho
10 dumtgv01 nneves isouza abueno
11 dumgpm01 jortiz jribeiro ocastro cmilu mcosta omaciel lleite mbela ecastro echaves
12 dupadc01 mbraga ssilva jbarbosa hkikuchi jmatos jademir
13 dupbgp01 ttania tdaniel semanuel bmichele
14 duprtl01 d226807 d223336 d271241 d324612 d324566
15 dupedb01 alyra soraya edilson erika gsilva marcos venicio mmelo
16 dupiss01 jroberto jteodoro cgercira abezerra
17 durjbf01 d230910 d222127 d227480 d226149 d213195 d220655 d296996 d299316
18 durnap01 acamara gmary george solon acosta mbarbosa
19 dursbm01 d290343 d209228 d211788 d223638 d324299 d219657 d301639 d324302 d244651 d240109 d305391 d226262 d324329
20 duscfs01 palves ademirf jamirs luizfi
21 duspmv01 esatiro jjunior tlucia pfreire kikegami
22 duseip01 marcia prado denise sergio milson ecorreia alima msilva
23 dudfas01 ovania fjuci gidenis sleo
28 dutons01 afeitosa esilva ijunior hcoelho


==== ArteAscii1.sh ====

$ cat ArteAscii1.sh

#!/bin/bash
# Versão 2.0
# Isso foi feito para mostrar que em shell se
# pode fazer de tudo, inclusive na tela.
#
# Autor: Julio Neves
#

trap "tput reset; tput cnorm; exit" 2

# Troque Julio Neves pelo seu nome para enviar a amigos, mas
#+ sempre pelo menos 2 e somente 2 nomes ;)
#+ O nome tb pode ser passado como parâmetro.
NomeIni=(${*:-Julio Neves})

# Feliz Ano ...
#+ Se já passou do meio do ano, este ano mais 1, senão este ano
Ano=$[$(date +%j)>365/2?$(date +%Y)+1:$(date +%Y)]

function MontaArr
{
# Monta um array Arr[$Lin$Col] (ambas com zeros à esqueda)
#+ com o caracteres que está naquela posição
local i
local l
for ((i=0; i<${#3}; i++)) { l="${3:i:1}" Arr[$(printf "$1%02i" $[$2+$i])]="$l:$4" } } # Preparando nome para escrever no canto inferior direito da tela for ((Pos=0; ;Pos++)) { s0=${NomeIni[0]:$Pos:1} s0=${s0:- } s1=${NomeIni[1]:$Pos:1} s1=${s1:- } [[ $s0 == ' ' && $s1 == ' ' ]] && break Nome="$Nome$s0 $s1" } # UltLin="São os votos de "$Nome" para você e sua família" # UltCol=$[($(tput cols) - ${#UltLin}) / 2] # Montando a Árvore ColLogo=$[$(tput cols)-4] LinLogo=$[$(tput lines)-$Pos-1] LogoTrab=0 tput civis lin=2 col=$(($(tput cols) / 2)) ccnev=$[col - 13] c=$((col-1)) est=$((c-2)) cor=0 tput setab 0; clear tput setaf 2; tput bold for ((i=1; i<20; i+=2)) { tput cup $lin $col for ((j=1; j<=i; j++)) { echo -n \* MontaArr $lin $[col+j] \* 2 } let lin++ let col-- } tput sgr0; tput setab 0; tput setaf 3; tput bold for ((i=1; i<=2; i++)) { MontaArr $lin $[c+1] mWm 3 tput cup $((lin++)) $c echo mWm } tput setab 0; tput setaf 7; tput bold tput cup $lin $((c - 4)); echo BOAS FESTAS MontaArr $lin $[c-3] "BOAS FESTAS" 7 tput cup $((lin + 1)) $((c - 11)); echo E muito suSHELLso em $Ano MontaArr $((lin + 1)) $((c - 10)) "E muito suSHELLso em $Ano" 7 # tput cup $((lin + 3)) $UltCol; echo $UltLin let c++ k=1 # Pendurando as bolas (da árvore, claro!) while true do for ((i=1; i<=35; i++)) { # Apagando a bola que foi ligada há 35 rodadas atras [ $k -gt 1 ] && { tput setab 0; tput setaf 2; tput bold tput cup ${linha[$[k-1]$i]} ${coluna[$[k-1]$i]}; echo \* MontaArr ${linha[$[k-1]$i]} ${coluna[$[k-1]$i]} \* 2 unset linha[$[k-1]$i]; unset coluna[$[k-1]$i] # Mantenha limpo o vetor } li=$((RANDOM % 9 + 3)) ini=$((c-li+2)) fim=$((c+li+2)) co=$((RANDOM % (li-2) * 2 + 1 + ini)) tput setab 0; tput setaf $cor; tput bold # Troca cor das bolas tput cup $li $co echo o linha[$k$i]=$li coluna[$k$i]=$co MontaArr $li $co o $cor sh=1 for l in S H E L L do tput cup $((lin+1)) $((c-3+sh)) echo $l let sh++ done # Olha a neve for ((n=0; n<15; n++)) { [ "${nev[n]}" ] || { nev[n]=$[$RANDOM % 12 + 1]$(printf "%02i" $[RANDOM % 28 + ccnev]) } lnev=$[nev[n] / 100] cnev=$[nev[n] % 100] idx=$lnev$(printf "%02i" $cnev) Antigo=${Arr[10#$idx-100]%:*} Antigo=${Antigo:-' '} CorAnt=${Arr[10#$idx-100]#*:} CorAnt=${CorAnt:-0} tput setab 0 tput setaf $CorAnt tput cup $[lnev-1] $[cnev-1] echo "$Antigo" tput setab 0; tput setaf 7; tput cup $lnev $[cnev-1]; echo . let lnev++ nev[n]=$lnev$(printf "%02i" $cnev) [ $lnev -gt 16 ] && { tput setab 0; tput setaf 7; tput cup $[lnev-1] $[cnev-1]; echo " " unset nev[n] } tput setaf $[n%7+1] tput cup $[LinLogo+LogoTrab] $ColLogo echo "${Nome:$[LogoTrab*3]:3}" (( LogoTrab++ == Pos-1)) && { LogoTrab=0 } } cor=$(((cor+1)%8)) } k=$((k % 2 + 1)) done

==== ArteAscii2.sh ====

$ cat ArteAscii2.sh

#!/bin/bash
#
# Brincadeira de Ano Novo
# Autor: Julio Neves
#
trap 'tput cnorm; tput sgr0; clear; exit' 0 2 3 15
Feliz[1]="FFFFFFF EEEEEEE LLL III ZZZZZZZ 22222 0000 1111 33333 "
Feliz[2]="FFFFFFF EEEEEEE LLL III ZZZZZZZ 2222222 000000 11111 333 333 "
Feliz[3]="FFF EEE LLL III ZZZ 22 222 000 000 11 111 33 333"
Feliz[4]="FFFFF EEEEE LLL III ZZZ 222 000 000 111 333 "
Feliz[5]="FFFFF EEEEE LLL III ZZZ 222 000 000 111 333 "
Feliz[6]="FFF EEE LLL III ZZZ 222 000 000 111 33 333"
Feliz[7]="FFF EEEEEEE LLLLLLL III ZZZZZZZ 2222222 000000 1111111 333 333 "
Feliz[8]="FFF EEEEEEE LLLLLLL III ZZZZZZZ 2222222 0000 1111111 33333 "
LargTela=$(tput cols)
while ((${#Feliz[1]} >= LargTela))
do
zenity --entry --title "Feliz Ano Novo" --text "Esta arte ascii ;) precisa de uma tela com\numa largura mínima de ${#Feliz[1]} caracteres.\n\n\t\t- Amplie a tela e clique OK\n\t\t- Clique Cancelar para sair" || exit 1
LargTela=$(tput cols)
done

ColCab=$((($(tput cols)-${#Feliz[1]})/2))
Cor=6

function ApagaAcende
{
tput cup $[Lin - 4] $[Meio + 1]
((n == 0)) && {
echo "TIM TIM"
n=1
return
}
tput el
n=0
}
function Cab
{
Cor=$[Cor == 7?0:++Cor]
tput setaf $Cor; tput bold
for ((kk=1; kk<9; kk++)) { tput cup $((kk-1)) $ColCab echo "${Feliz[kk]}" } tput setaf 3 } function FazBolha { for k in 1 2 do y=0 for Sai in 2 4 6 6 do C1=$[Sai == 2?$[Meio + 1]:$[Sai == 4?Meio - 0:Meio - 1]] C2=$[Sai == 2?$[Meio + 7]:$[Sai == 4?Meio + 6:Meio + 5]] Var= for ((j=1; j<=Sai; j++)) { Var=$Var$[RANDOM % 2]" " } x=0 let y++ for SN in $Var do ((SN)) && { tput cup $[Lin + 2 - y] $[k == 1?C1 + x:C2 + x] echo . } let x++ done done done } Cols=5 Fim=$(tput cols) # while ((Fim < 96)) # do # tput flash # zenity --error --text "Ponha o terminal em\nModo de tela cheia" || exit 1 # Fim=$(tput cols) # done Meio=$[Fim / 2 - 5] Lin=$[$(tput lines) - 7] tput civis tput setab 1 tput bold tput setaf 3 clear for ((i=1; i<$Meio; i++)) do tput cup $Lin $[i - 1]; echo ' ' tput cup $[Lin + 1] $[i - 1]; echo ' ' tput cup $[Lin + 2] $[i - 1]; echo ' ' tput cup $[Lin + 3] $[i - 1]; echo ' ' tput cup $[Lin + 4] $[i - 1]; echo ' ' tput cup $[Lin + 5] $[i - 1]; echo ' ' tput cup $Lin $i; echo '\____/' tput cup $[Lin + 1] $i; echo ' \ /' tput cup $[Lin + 2] $i; echo ' \/' tput cup $[Lin + 3] $i; echo ' ||' tput cup $[Lin + 4] $i; echo ' ||' tput cup $[Lin + 5] $i; echo ' (__)' tput cup $Lin $[Fim - i - 5]; echo ' ' tput cup $[Lin + 1] $[Fim - i - 5]; echo ' ' tput cup $[Lin + 2] $[Fim - i - 5]; echo ' ' tput cup $[Lin + 3] $[Fim - i - 5]; echo ' ' tput cup $[Lin + 4] $[Fim - i - 5]; echo ' ' tput cup $[Lin + 5] $[Fim - i - 5]; echo ' ' tput cup $Lin $[Fim - i - 6]; echo '\____/' tput cup $[Lin + 1] $[Fim - i - 6]; echo ' \ /' tput cup $[Lin + 2] $[Fim - i - 6]; echo ' \/' tput cup $[Lin + 3] $[Fim - i - 6]; echo ' ||' tput cup $[Lin + 4] $[Fim - i - 6]; echo ' ||' tput cup $[Lin + 5] $[Fim - i - 6]; echo ' (__)' Cab done for ((f=0; f<5; f++)) { tput flash sleep 0.02 } while true do ((++Conta % 6)) || ApagaAcende FazBolha Cab sleep 0.05 y=0 for Sai in 2 4 6 6 do let y++ C1=$[Sai == 2?$[Meio + 1]:$[Sai == 4?Meio - 0:Meio - 1]] C2=$[Sai == 2?$[Meio + 7]:$[Sai == 4?Meio + 6:Meio + 5]] for ((j=1; j<=Sai; j++)) { Trab="$Trab"$(((Sai == 4)) && echo -n _ || echo -n ' ') } tput cup $[Lin + 2 - y] $C1 echo "$Trab" tput cup $[Lin + 2 - y] $C2 echo "$Trab" Trab= done Cab sleep 0.05 done

==== ave ====

$ cat ave

avestruz
ave-do-paraíso
trave
cavei
traveco

==== bb ====

$ cat bb

Eu vi um velho com um fole velho nas costas. Tanto fede o fole do velho, quanto o velho do fole fede.
Um desafio: diga isso bem rápido!


==== bdb ====

$ cat bdb

#
# Avisa que determinada usuaria se conectou - versao 2
#

MandaMail=
if [ "$1" = -m ]
then
Eu=`who am i | cut -f1 -d" "`
MandaMail=1
shift
fi

if [ "$#" -ne 1 ]
then
echo "Erro -> Uso: bdb [-m] usuario"
echo " -m manda aviso via mail"
exit 1
fi

until who | grep $1 > /dev/null
do
sleep 30
done

if [ "$MandaMail" ]
then
echo "$1 se logou" | mail $Eu
else
echo "$1 se logou"
fi


==== besteira.txt ====

$ cat besteira.txt

Eu vi um velho com um fole velho nas costas . Tanto fede o fole do velho,quanto o velho do fole fede.

Um desafio :diga isso bem rápido !


==== bronze ====

$ cat bronze

#
# Lista multiplos de 11 a partir de 11 ate 99 - Versco 2
#

i=1
while [ $i -le 9 ]
do
echo $i$i
i=`expr $i + 1`
done


==== c3e1 ====

$ cat c3e1

#!/bin/bash

#
# Capitulo 3 exercicio 1
#

grep ^.*" "${1}" ".* telefones

==== c3e2 ====

$ cat c3e2

#!/bin/bash

#
# Capitulo 3 exercicio 2
#

fgrep "("$1")" telefones


==== c3e3 ====

$ cat c3e3

#!/bin/bash

#
# Capitulo 3 exercicio 3
#

Data=`date "+%b %e"`
who | grep -v "$Data"


==== c4e1 ====

$ cat c4e1

#!/bin/bash

hh=`date "+%H"` # Horas em hh
mm=`date "+%M"` # Minutos em mm
ap=am # am ou pm em ap
if [ "$hh" -gt 12 ]
then
hh=`expr $hh - 12`
ap=pm
fi
echo $hh:$mm $ap
exit


==== c4e2 ====

$ cat c4e2

#!/bin/bash

if [ "$#" -ne 2 ] # Recebi 2 parametros?
then
echo "uso: $0 "
exit 1
fi

if ls $2 1>/dev/null 2>&1 # O mesmo que: __ [ -_ "$_" ] Complete os _
then
if sed $1 $2 >/tmp/$$ 2>/dev/null # Testa o status da execucao do sed
then
echo sed bem sucedido
mv /tmp/$$ $2
exit
else
echo Houve erro na passagem de parametros para o sed.
rm /tmp/$$ 2>/dev/null
exit 2
fi
else
echo Arquivo $2 nao existe
exit 3
fi


==== c4e3 ====

$ cat c4e3

#!/bin/bash

#
# Capitulo 4 exercicio 3
#

Hora=`date +%H`
case $Hora in
0? | 1[01]) echo Bom Dia
;;
1[2-7] ) echo Boa Tarde
;;
* ) echo Boa Noite
;;
esac
exit

==== c5e1 ====

$ cat c5e1

#!/bin/bash
#
# Capitulo 5 exercicio 1
#

if [ $# -ne 2 ] # Recebi 2 parametros?
then
echo "Uso: $0 "
exit 1
fi

# Vou testar se o $1 eh numerico (No. OL) ou nao (Nome da maquina)
# Sera que exite a OL ou Maquina informada?

if expr $1 + 1 > /dev/null 2>/dev/null
then
Reg=`grep "^$1" ArqOLs` # Estou pesquisando No. OL no inicio do registro
if [ ! "$Reg" ]
then
echo Nao conheco OL=$1
exit 2
fi
Maquina=`echo "$Reg" | cut -f2` # $Reg tem que estar entre aspas para nao perder as
else
Reg=`grep " $1 " ArqOLs` # Estou pesquisando em ArqOLs
if [ ! "$Reg" ]
then
echo Nao conheco Site=$1
exit 3
fi
Maquina=$1
fi
Opers=`echo "$Reg" | cut -f3`

# E o arquivo? Serah que ele existe?

if ls $2 1> /dev/null 2> /dev/null
then
for Oper in $Opers
do
echo "$Oper@$Maquina < $2" done exit fi echo $2 nao existe neste diretorio exit 4

==== c6e1 ====

$ cat c6e1

#!/bin/bash
#
# Capitulo 6 exercicio 1
#

if [ $# -ne 1 ] # Recebi 1 parametro?
then
echo "Uso: $0 "
exit 1
fi

# Serah que o arquivo existe?

if ls $1 > /dev/null 2>&1
then
cat ArqOLs |
while read lixo Maquina Opers
do
echo 'mail '`echo $Opers | cut -f1 -d" "`"@$Maquina < $1" done else echo $1 nao existe neste diretorio exit 2 fi ### O ultimo if e seu conteudo poderia (e deveria) ser escrito assim: ### # # if [ -f "$1" ] # then # cat ArqOLs | # while read lixo Maquina Oper lixo # do # echo "mail $Oper@$Maquina < $1" # done # else # echo $1 nao existe neste diretorio # exit 2 # fi # ###########################################################################

==== c6e2 ====

$ cat c6e2

#!/bin/bash
#
# Exercicio 6.2
#
#

clear

echo "

TRANSMISSAO DE ARQUIVOS
=======================

1 - Maquina ...

2 - Login .....

3 - Senha .....

4 - Arquivos a serem transmitidos

Informe os dados acima ... "

while true
do
tput cup 5 32
echo " "
tput cup 5 32
read maq
# A maquina existe no /etc/hosts ???
if [ "$maq" -a \( `fgrep -c " $maq " /etc/hosts` -eq 1 \) ]
then
break
else
tput cup 21 25
echo "Maquina nao definida no arquivo de hosts\007" # \007 dah BEEP
read # Soh para esperar ateh teclar
tput cup 21 25
echo " " # Limpei a linha
continue
fi
done
tput cup 7 32
read acesso
tput cup 9 32
stty -echo # Inibindo o eco do teclado
read senha
stty echo

Arquivos=
while true
do
tput cup 13 21
read Arquivo

if [ ! "$Arquivo" ]
then
tput cup 17 16
echo "Finaliza entrada de arquivos (s/n) \c"
read Sair
tput cup 17 16
echo " "
if [ `echo "$Sair" | tr S s` = s ]
then
break
else
continue
fi
fi

if ls $Arquivo > /dev/null 2>&1
then
Arquivos="$Arquivos `echo $Arquivo`"
tput bold
tput cup 21 01
echo $Arquivos
tput sgr0
else
tput cup 17 16
echo "Arquivo nao existe..."
read
tput cup 17 16
echo " "
fi

tput cup 13 21
echo " "
done

for trans in $Arquivos
do
tput cup 19 16
echo " "
tput cup 19 16
tput smso
echo "Transmitindo $trans ... "
ftp -ivn "$maq" << fimftp >> /tmp/$$
user "$acesso" "$senha"
bin
put "$trans"
bye
fimftp
done

tput cup 23 16
echo "Fim de Transmissao .... Tecle "
read
tput sgr0
clear


==== c7e1 ====

$ cat c7e1

#!/bin/bash
#
# Capitulo 7 exercicio 1
#

if [ $# -lt 1 ] # Recebi pelo menos 1 parametro?
then
echo "Uso: $0 .
Obs. Vale metacaracteres como arqs*"
exit 1
fi

if [ ! "$MAXFILES" ]
then
MAXFILES=10
fi

Qtd=`ls $* 2> /dev/null | wc -l`
if [ "$Qtd" -eq 0 ]
then
echo Nao ha arquivos a serem deletados
exit 2
fi
if [ "$Qtd" -le "$MAXFILES" ]
then
echo "Deveria fazer rm `echo $*`"
exit
fi

if [ "$Qtd" -gt 1 ]
then
echo "Existem $Qtd Arquivos a deletar... \c"
else
echo "So existe 1 arquivo a deletar...\c"
fi
echo " Posso remover? (S/n) \c"
read sn
if [ "$sn" != n ]
then
echo "Deveria fazer rm -f `echo $*`"
exit
fi


==== c7e2 ====

$ cat c7e2

#!/usr/bin/bash
#
# Este programa chama o programa c7e2.1 que coletara os dados necessarios,
# devolvendo-os aa este, que procederah aa inclusao, exclusao ou alteracao
# necessaria.
#

export Opc=0
while [ "$Opc" -lt 1 -o $Opc -gt 4 ]
do
clear
echo "
+-----------------------------------------------------+
| |
| Programas de Manutencao de ArqOLs |
| |
+-----------------------------------------------------+

OPCAO ACAO
===== ====

1 Inclui OL em ArqOLs
2 Exclui OL de ArqOLs
3 Altera OL em ArqOLs
4 Termina

Entre Com a Opcao Desejada: \c"
read Opc
done
if [ $Opc -eq 4 ]
then
exit
fi

Reg=`c7e2.1`
echo "\n\n OL a ser \c"
case $Opc
in
1) echo "incluida\c"
;;
2) echo "excluida\c"
;;
*) echo "alterada\c"
;;
esac
echo ": ==> $Reg \n
Confirma? (S/n) \c"
read sn
if [ "$sn" = n -o "$sn" = N ]
then
exit
fi
OLinf=`echo "$Reg" | cut -f1`
case $Opc in
1) if grep "^$OLinf" ArqOLs > /dev/null
then
echo "\n\nJah existe registro referente aa OL $OLinf"
read
exit 1
fi
echo "$Reg" >> ArqOLs
sort ArqOLs > /tmp/ArqOLs$$
mv -f /tmp/ArqOLs$$ ArqOLs
;;
2) if grep "^$OLinf" ArqOLs > /dev/null
then
grep -v "^$OLinf" ArqOLs > /tmp/ArqOLs$$
mv -f /tmp/ArqOLs$$ ArqOLs
else
echo "\n\nNao existe registro referente aa OL $OLinf"
read
exit 2
fi
;;
3) if grep "^$OLinf" ArqOLs > /dev/null
then
grep -v "^$OLinf" ArqOLs > /tmp/ArqOLs$$
mv -f /tmp/ArqOLs$$ ArqOLs
echo "$Reg" >> ArqOLs
sort ArqOLs > /tmp/ArqOLs$$
mv /tmp/ArqOLs$$ ArqOLs
else
echo "\n\nNao existe registro referente aa OL $OLinf"
read
exit 2
fi
;;
esac


==== c7e2.1 ====

$ cat c7e2.1

#!/usr/bin/bash
#
# Este programa foi chamado pelo c7e2 para coletar os dados necessarios.
# As rotinas de exclusao e alteracao ainda nao foram implementadas.
#
# Repare que os blocos de programa situados entre chaves, redirecionam aa
# saida para /dev/tty, que eh a saida no terminal corrente, isto eh, o
# terminal que voce estah usando.
#

{
clear
echo "
+-----------------------------------------------------+
| |
| Programas de Manutencao de ArqOLs |
| |
+-----------------------------------------------------+"

tput cup 8 22
echo "Dados para \c"
} > /dev/tty
case $Opc in
1) {
echo Inclusao
tput cup 11 22
echo "Numero da OL: \c"
read OL
tput cup 13 22
echo "Nome da Maquina: \c"
read Maq
i=0
while [ $i -le 7 ]
do
Lin=`expr 15 + $i / 2 \* 2`
Col=`expr 22 + $i % 2 \* 30`
i=`expr $i + 1`
tput cup $Lin $Col
echo "Operador$i: \c"
read Oper
if [ ! "$Oper" ]
then
break
fi
Opers=$Opers$Oper" "
done
} > /dev/tty
echo "$OL $Maq $Opers"
exit
;;
2) echo "rotina nao implementeda" > /dev/tty
exit
;;
3) echo "rotina nao implementeda" > /dev/tty
exit
;;
esac

==== c8e1 ====

$ cat c8e1

#! /bin/bash

#
# Capitulo 8 - Exercicio 1
#

Erro () # # # Este nome eh porque a funcao pode ser usada para erros de critica
{
if [ "$#" -lt 2 -o \( "$#" -gt 3 \) ]
then
echo "Uso: $0 [ ]"
exit 1
fi

if [ "$#" -eq 3 ]
then
C=$3
else
Len=`expr length "$1"`
C=`expr "(" 80 - "$Len" ")" / 2`
fi
tput cup $2 $C
echo "$1\07\c"
read a < /dev/tty tput cup $2 $C echo " " return } # Inicio do bacalho clear if [ "$#" -ge 2 -a \( "$#" -le 3 \) ] then Mens=$1 shift 1 Erro "$Mens" $* ## Se $Mens nao estiver entre aspas, dara zebra. Porque?? else Erro "Estou passando a mensagem, a linha e a coluna" 21 20 Erro "Estou passando a mensagem e a linha sem a coluna" 21 Erro "Estou passando soh a mensagem" fi

==== c8e2 ====

$ cat c8e2

#!/bin/bash

#
# capitulo 8 - exercicio 2
# Este exercicio soh estara correto com, no maximo, 9 parametros
#

NumArgs=$#
if [ "$NumArgs" -lt 2 ]
then
echo Nao ha parametros suficientes.
exit 1
fi

while [ "$NumArgs" -gt 0 ]
do
eval echo \$$NumArgs
NumArgs=`expr $NumArgs - 1`
done


==== carros ====

$ cat carros

Corsa-3portas 150 15.20 12.20 16068.00
Corsa-4portas 182 11.10 10.00 16928.44
Corsa-Sedan 182 11.10 10.00 17376.49
Corsa-Wagon 183 12.20 12.71 20253.45
Palio 188 9.50 10.90 19974.15
Palio-Weekend 185 11.92 10.65 21200.44
Tipo 176 11.70 11.00 18310.70
Gol 175 12.40 11.60 16960.50
Parati 173 12.20 11.31 18809.22


==== case.sh ====

$ cat case.sh

#!/bin/bash
# Recebe um código formado pela soma de 4 tipos
#+ de erro e dá as msgs correspondentes. Assim,
#+ se houveram erros tipo 4 e 2, o script receberá 6
#+ Se os erros foram 1 e 2, será passado 3. Enfim
#+ os códigos de erro seguem uma formação binária.

Bin=$(bc <<< "obase=2; $1") # Passa para binário Zeros=0000 Len=${#Bin} # Pega tamanho de $Bin Bin=${Zeros:$Len}$Bin # Preenche com zeros à esquerda # Poderíamos fazer o mesmo que foi feito acima #+ com um cmd printf, como veremos no capítulo 6 case $Bin in 1[01][01][01]) echo Erro tipo 8;;& [01]1[01][01]) echo Erro tipo 4;;& [01][01]1[01]) echo Erro tipo 2;;& [01][01][01]1) echo Erro tipo 1;;& 0000) echo Não há erro;;& *) echo Binário final: $Bin esac

==== colunador.sh ====

$ cat colunador.sh

#!/bin/bash
# Recebe parâmetros via pipe e os coloca em coluna numerando-os

Parms=$(cat -)
set $Parms
for ((i=1; i<="$#"; i++)) { Lista=$(for ((i=1; i<="$#"; i++)); { printf "%0${##}i %s\n" $i ${!i}; }) } echo "$Lista" | column -c $(tput cols)

==== confusao ====

$ cat confusao

cd $HOME;pwd;date;ls -la;echo $LOGNAME x${SHELL}x

==== cop.awk ====

$ cat cop.awk

#
# Conta Ocorrencias de Palavras
#

awk '{
for (w = 1; w <= NF; w++) conta[$w] ++ } END { for (w in conta) print conta[w], w | "sort -nr" }' $1

==== coprocesso1.sh ====

$ cat coprocesso1.sh

#!/bin/bash
coproc { read -u ${COPROC[1]} Entrada; echo Recebi $Entrada; sleep 3; }
# Main
COPROC[1]=fff
read -u ${COPROC[0]} Saida
echo O coprocesso disse: \"$Saida\"
kill $COPROC_PID


==== cores1.sh ====

$ cat cores1.sh

#!/bin/bash
# cores1.sh - Lista cores de fonte e de fundo
#+ usando setf e setb

for ((b=0; b<=7; b++)) { tput setb 9; tput setf 9; echo -n "|" for ((f=0; f<=7; f++)) { tput setb $b; tput setf $f; echo -n " b=$b f=$f " tput setb 9; tput setf 9; echo -n "|" } echo } tput setb 9; tput setf 9

==== cores2.sh ====

$ cat cores2.sh

#!/bin/bash
# cores1.sh - Lista cores de fonte e de fundo
#+ usando setaf e setab (algumas cores
#+ diferem de setf e setb

for ((b=0; b<=7; b++)) { tput setab 9; tput setaf 9; echo -n "|" for ((f=0; f<=7; f++)) { tput setab $b; tput setaf $f; echo -n " b=$b f=$f " tput setab 9; tput setaf 9; echo -n "|" } echo } tput setab 9; tput setaf 9

==== cores3.sh ====

$ cat cores3.sh

#!/bin/bash
# cores3.sh - Lista as cores da console com bold

clear
for Modo in sgr0 bold
{
echo Em modo $([ $Modo = sgr0 ] && echo Normal || echo Bold)
eval tput $Modo
for ((Cor=0; Cor <=7; Cor++)) { tput setf $Cor eval printf '%"$(($(tput cols)+1))"s' | tr ' ' '█' } tput sgr0 }

==== cores4.sh ====

$ cat cores4.sh

#!/bin/bash
# cores4.sh - Lista as cores da console com bold

clear
for ((Cor=0; Cor <=7; Cor++)) { for Modo in sgr0 bold { tput $Modo tput setf $Cor eval printf '%-$(tput cols)s\\n' \"-Em-modo-$([ $Modo = sgr0 ] && echo Normal || echo Bold)-\" | tr ' ' '█' } tput sgr0 }

==== cores.sh ====

$ cat cores.sh

#!/bin/sh
# cores.sh - mostra todas as cores do console
#+ usando escapes sequences

for letra in 0 1 2 3 4 5 6 7; do
for bold in '' ';1'; do
for fundo in 0 1 2 3 4 5 6 7; do
seq="4$fundo;3$letra"
echo "\033[$seq${bold}m $seq${bold:- } \033[m\c"
done; echo
done
done


==== cp1.sh ====

$ cat cp1.sh

coproc while read coisa
do
echo $coisa
done


==== creditos ====

$ cat creditos

Tadeu 4321.00
Silveira 123.45
Tadeu 22.34
Silveira 678.89
Miltom 7654.25


==== cripta.sed ====

$ cat cripta.sed

#!/bin/sed -f
y/12z05b7zsTumvc3aip4mXutisCxg8rycdhqbf6oCnleBZjwkMSaQZRWYNI9@LAVHUIMKPEAOJGDSBUF/FUBSDGJAEPKMIUHVAL@9INYWRZQaSMkwjZBelnCo6fbqhdcyr8gxCsituXm4pia3cvmuTszO7b50z21/


==== d ====

$ cat d

#!/bin/bash
# lista diretorios
#
# Julio Cezar Neves
#

case "$#" in
0) Dir=${PWD}
Opc="d"
;;
1) if [ $1 = '-l' ]
then
Opc="ld"
Dir=$PWD
else
Opc="d"
Dir=$1
fi
;;
*) if [ $1 = '-l' ]
then
Opc="ld"
Dir=
shift
for i in $*
do
if [ ! -d "$i" ]
then
continue
fi
Dir="${Dir}${i} "
done
else
Opc="d"
Dir=
for i in $*
do
if [ ! -d "$i" ]
then
continue
fi
Dir="${Dir}${i} "
done
fi
;;
esac
# echo $Dir ; read a
for D in $Dir
do
echo "${D}:"
ls -a $D |
{
while read Arq
do
[ "$Arq" = "." -o "(" "$Arq" = ".." ")" ] && continue
if [ -d "$D/$Arq" ]
then
echo " \c"
ls "-$Opc" "$D/$Arq"
fi
done # 2>/dev/null
}
# a=$?
# [ "$a" -ne 0 ] && echo "l: $a too many parameters";exit $a
done

exit

==== debitos ====

$ cat debitos

Miltom 2345.22
Silveira 100.00
Silveira 50.00
Miltom 2340.99
Tadeu 200.00


==== decripta.sed ====

$ cat decripta.sed

#!/bin/sed -f
y/'FUBSDGJAEPKMIUHVAL@9INYWRZQaSMkwjZBelnCo6fbqhdcyr8gxCsituXm4pia3cvmuTszO7b50z21'/'12z05b7zsTumvc3aip4mXutisCxg8rycdhqbf6oCnleBZjwkMSaQZRWYNI9@LAVHUIMKPEAOJGDSBUF'/


==== div ====

$ cat div

if [ $# -ne 3 ]
then
echo "$0: Sintaxe: $0 "
exit 1
fi
Divid=$1
Divis=$2
Decim=$3
Resp=`expr $Divid / $Divis`,
while [ "$Decim" -gt 0 ]
do
Divid=`expr $Divid % $Divis \* 10`
Resp=$Resp`expr $Divid / $Divis`
Decim=`expr $Decim - 1`
done
echo $Resp


==== DOS.txt ====

$ cat DOS.txt

Este arquivo
foi gerado pelo
DOS/rwin e foi
baixado por um
ftp mal feito.


==== DuLoren ====

$ cat DuLoren

#
# Meu Primeiro Script em Shell
#

echo Eu tenho `cat telefones | wc -l` telefones cadastrados
echo "Que sao:"
cat telefones


==== empregado ====

$ cat empregado

clear
if Matric=`lematric`
then
:
else
exit
fi
echo "A Matricula informada foi $Matric"
# . . . Le os outros dados do empregado

==== erreeme ====

$ cat erreeme

#
# Salvando Copia de Arquivo Antes de Remove-lo
#

if [ $# -eq 0 ]
then
echo "Erro -> Uso: $0 arq [arq] ... [arq]"
echo " O uso de metacaracteres eh permitido. Ex. erreeme arq*"
exit 1
fi

MeuDir="/tmp/$LOGNAME"
if [ ! -d $MeuDir ]
then
mkdir $MeuDir
fi

if [ ! -w $MeuDir ]
then
echo Impossivel salvar arquivos em $MeuDir. Mude permissao e tente novamente...
exit 2
fi

Erro=0
for Arq
do
if [ ! -f $Arq ]
then
echo $Arq nao existe.
Erro=3
continue
fi

DirOrig=`dirname $Arq`
if [ ! -w $DirOrig ]
then
echo Sem permissao de remover no diretorio de $Arq
Erro=4
continue
fi

if [ "$DirOrig" = "$MeuDir" ]
then
echo $Arq ficara sem copia de seguranca
rm -i $Arq
[ -f $Arq ] || echo $Arq removido
continue
fi

cd $DirOrig
pwd >> $Arq
mv $Arq $MeuDir
echo $Arq removido
done
exit $Erro

==== exclui ====

$ cat exclui

/^postfix:/d
/^hplip:/d
/^gdm:/d
/^bin:/d
/^pulse:/d


==== folha.awk ====

$ cat folha.awk

awk 'BEGIN { print "Relacao de Proventos\n" ; Titulo=" Nome: Salario: Extra: Anuenio: " }
{
for ( i = 1; i <= NF; i++ ) { print substr (Titulo, (i - 1) * 9 + 1, 9), $i } printf "\n" }' funcionarios

==== folha.for.awk ====

$ cat folha.for.awk

awk 'BEGIN { print "Relacao de Proventos\n" ; Titulo=" Nome: Salario: Extra: Anuenio: " }
{
for ( i = 1; i <= NF; i++ ) { print substr (Titulo, (i - 1) * 9 + 1, 9), $i } printf "\n" }' funcionarios

==== frutas ====

$ cat frutas

abacate
maçã
morango
pera
tangerina
uva


==== funcionario ====

$ cat funcionario

#
# Le Dados dos Funcionarios
#
clear
if Matric=`lematric`
then
: ## O dois-pontos (:) e' o Comando Nulo
else
exit
fi
echo "A Matricula informada foi $Matric"
# . . . Le os outros dados do empregado

==== funcionarios ====

$ cat funcionarios

Francisco 3245,00 430,30 32,45
Guilherme 2345,67 422,34 23,45
Lee 5210,00 234,00 52,10
Paulo 4333,33 123,45 43,33


==== getoptst.sh ====

$ cat getoptst.sh

#!/bin/sh
# Execute assim:
#
# getoptst.sh -h -Pimpressora arq1 arq2
#
# e note que as informacoes de todas as opcoes sao exibidas
#
# A cadeia 'P:h' diz que a opcao -P eh uma opcao complexa
# e requer um argumento, e que h eh uma opcao simples que nao requer
# argumentos.
while getopts 'P:h' OPT_LETRA
do
echo "getopts fez a variavel OPT_LETRA igual a '$OPT_LETRA'"
echo " OPTARG eh '$OPTARG'"
done
used_up=`expr $OPTIND - 1`
echo "Dispensando os primeiros \$OPTIND-1 = $used_up argumentos"
shift $used_up
echo "O que sobrou da linha de comandos foi '$*'"


==== grepr ====

$ cat grepr

#
# Grep recursivo
# Pesquisa a cadeia de caracteres definida em $2 a partir do diretorio $1
#

find $1 -type f -print | xargs grep -l "$2" # -type f = arquivos normais

==== hora ====

$ cat hora

Hora=`date | cut -f4 -d" " | cut -f1 -d:`
Resto=`date | cut -f4 -d" " | cut -f2- -d:`
if [ "$Hora" -gt 12 ]
then
Hora=`expr $Hora - 12`
Resto=$Resto" PM"
else
Resto=$Resto" AM"
fi
echo $Hora:$Resto
exit


==== indexauto.awk ====

$ cat indexauto.awk

awk '{
Registros [$1] = $0
Velocidades [$1] = $2
}
END {
for ( Modelo in Velocidades )
print Modelo, "\t", Velocidades[Modelo] | "sort"
}' carros


==== justifica.sed ====

$ cat justifica.sed

prompt$ chmod +x justifica.sed
prompt$ ./justifica.sed arquivo.txt > arquivo-justificado.txt

se quiser alterar, o nzmero de colunas maximo, troque todos os 65
do script pelo nzmero desejado.

se quiser usar no vim, selecione o texto com o modo visual e
:'<,'>!justifica.sed

ah! esta mensagem foi justificada por ele &:)

justifica.sed

#!/bin/sed -f
# justify.sed
#
# it gets a text already wrapped on the desired number of columns
# and add extra white spaces, from left to right, word by word,
# to justify all the lines. there is a maximum of 5 spaces to be
# inserted between the words. if this limit is reached, the line
# is not justified (come on, more than 5 is horrible). empty
# lines are ignored. btw, this comments were justified with this
# script &:)
#
# 20000715 <aurelio@conectiva.com.br>

# we'll only justify lines with less than 65 chars
/^.\{65\}/!{

# cleaning extra spaces of the line
s/^ \+//
s/ \+/ /g
s/ \+$//

# don't try to justify blank lines
/^$/b

# backup of the line
h

# spaces -> pattern
# convert series of spaces to a internal pattern `n
:s2p
s/ /`5/g
s/ /`4/g
s/ /`3/g
s/ /`2/g
s/ /`1/g
t 1space
b

# pattern -> spaces
# restore the spaces converted to the internal pattern `n
:p2s
s/`5/ /g
s/`4/ /g
s/`3/ /g
s/`2/ /g
s/`1/ /g
t check
b

# check if we've reached our right limit
# if not, continue adding spaces
:check
/^.\{65\}/!b s2p
b

# here's the "magic":
# add 1 space to the first and minor internal pattern found.
# this way, the extra spaces are always added from left to right,
# always balanced, one by one.
# right after the substitution, we'll restore the spaces and
# test if our limit was reached.
:1space
s/`1/`2/ ; t p2s
s/`2/`3/ ; t p2s
s/`3/`4/ ; t p2s
s/`4/`5/ ; t p2s

# we don't want to justify with more than 5 added spaces between
# words, so let's restore the original line
/`5/x

}


==== kadeo ====

$ cat kadeo

echo -n "$1 esta logado desde "
who | grep $1 | cut -c25-


==== lematric ====

$ cat lematric

#
# Rotina de leitura e critica de matricula
#
while true
do
tput cup 10 20
echo "Digite a Matricula:"
tput cup 10 40
read Matric
if [ ! "$Matric" ]
then
tput cup 21 35
echo "Deseja Abandonar? (S/n)"
tput cup 21 59
read SN
if [ "`echo "$SN" | tr n N`" = N ] # Se digitou n ou N virara' N
then
tput cup 21 35
echo " " # Apagando a pergunta
continue
fi
exit 1 # Abandonou o programa entao codigo de retorno = 1
fi
# . . . Rotina de verificacao de DV e Critica . . .
break
done > /dev/tty # A saida de todo o loop sera' na tela
echo $Matric
exit 0

==== listcar.awk ====

$ cat listcar.awk

awk '
BEGIN { printf "%15s %10s %9s %7s %10s\n",
"Modelo", "Vel.Max.", "0 a 100", "Cons.", "Preco" }
{ printf "%15s %7s %11s %8s %11s\n",
$1, $2, $3, $4, $5
VelM = VelM + $2 ; Pr = Pr + $5 }
END { printf "\n%7s\n%10s %7s\n%5s %10s\n",
"MEDIAS:", "Velocidade", VelM / NR, "Preco", Pr / NR }' carros

==== listdir ====

$ cat listdir

echo Os Arquivos do Diretorio Corrente Sao:
ls -l


==== listdir1 ====

$ cat listdir1

cd $1
echo Os Arquivos do Diretorio $1 Sao:
ls -l


==== lt ====

$ cat lt

#
# Lista o conteudo do arquivo de telefones
#

ContaLinha=0
clear
echo "
Nome Telefone
"
cat telefones |
while read Linha
do
if [ $ContaLinha -ge 21 ]
then
tput cup 24 28
echo "Tecle para prosseguir ou X para terminar...\c"
read a < /dev/tty if [ "$a" = X ] then exit fi clear echo " Nome Telefone " ContaLinha=0 fi echo " $Linha" ContaLinha=`expr $ContaLinha + 1` done tput cup 24 49 echo "Tecle para terminar...\c"
read a
clear
exit

==== maimin.sh ====

$ cat maimin.sh

#!/bin/sh
# Transforma arquivos com nomes em MAIUSCULAS para minusculas
#
# Testando se vc passou o diretorio como parametro
# default = diretorio corrente.

if [ $# -eq 1 ]
then
Dir=$1
else
Dir="."
fi
cd $Dir

for ArqMai in `ls | grep '^[A-Z].*$'`
do
# Da forma que eu coloquei acima todos os arquivos
# cujos nomes fossem formados somente por maiusculas.
# Se vc quiser carac especiais tb, como _ ou . fa(ss)a:
# for ArqMai in `ls | grep '^[^a-z].*$'`
ArqMin=`echo $ArqMai | tr "[A-Z]" "[a-z]"`
if [ -f "$ArqMin" ] #Existe minusculo?
then
# listando os 2 em ordem cronologica (-t) e
# pegando o + novo (head -1). Se for o Maiusculo...
[ `ls -t $ArqMai $ArqMin | head -1` -eq $ArqMai ] && mv -f $ArqMai $ArqMin
fi
done


==== medieval ====

$ cat medieval

#
# medieval - Modulo-Exemplo Da Instrucao EVAL
#

echo $# argumentos.
i=1
while [ "$i" -le $# ]
do
echo "parametro $i = \c"
eval echo \$$i
i=`expr $i + 1`
done


==== misto ====

$ cat misto

123
234
acd
342
cdr
swax
1b2c3


==== natal1.sh ====

$ cat natal1.sh

#!/bin/bash
# Versão 2.0
trap "tput reset; exit" 2
clear
tput civis
lin=2
col=$(($(tput cols) / 2))
c=$((col-1))
est=$((c-2))
cor=0
tput setaf 2; tput bold
# Montando a Árvore
for ((i=1; i<20; i+=2)) { tput cup $lin $col for ((j=1; j<=i; j++)) { echo -n \* } let lin++ let col-- } tput sgr0; tput setaf 3 for ((i=1; i<=2; i++)) { tput cup $((lin++)) $c echo 'mWm' } tput setaf 1; tput bold tput cup $lin $((c - 4)); echo BOAS FESTAS let c++ k=1 # Pendurando as bolas (da árvore, claro!) while true; do for ((i=1; i<=35; i++)) { # Apagando a bola que foi ligada há 25 rodadas atras [ $k -gt 1 ] && { tput setaf 2; tput bold tput cup ${linha[$[k-1]$i]} ${coluna[$[k-1]$i]}; echo \* unset linha[$[k-1]$i]; unset coluna[$[k-1]$i] # Mantenha limpo o vetor } li=$((RANDOM % 9 + 3)) ini=$((c-li+2)) fim=$((c+li+2)) co=$((RANDOM % (li-2) * 2 + 1 + ini)) tput setaf $cor; tput bold # Troca cor das bolas tput cup $li $co echo o linha[$k$i]=$li coluna[$k$i]=$co cor=$(((cor+1)%8)) sleep 0.05 } k=$((k % 2 + 1)) done

==== natal2.sh ====

$ cat natal2.sh

#!/bin/bash
# Versão 2.0
trap "tput reset; tput cnorm; exit" 2
clear
tput civis
lin=2
col=$(($(tput cols) / 2))
c=$((col-1))
est=$((c-2))
cor=0
tput setaf 2; tput bold
# Montando a Árvore
for ((i=1; i<20; i+=2)) { tput cup $lin $col for ((j=1; j<=i; j++)) { echo -n \* } let lin++ let col-- } tput sgr0; tput setaf 3 for ((i=1; i<=2; i++)) { tput cup $((lin++)) $c echo 'mWm' } tput setaf 1; tput bold tput cup $lin $((c - 4)); echo BOAS FESTAS tput cup $((lin + 1)) $((c - 11)); echo E muito suSHELLso em 2010 let c++ k=1 # Pendurando as bolas (da árvore, claro!) while true; do for ((i=1; i<=35; i++)) { # Apagando a bola que foi ligada há 25 rodadas atras [ $k -gt 1 ] && { tput setaf 2; tput bold tput cup ${linha[$[k-1]$i]} ${coluna[$[k-1]$i]}; echo \* unset linha[$[k-1]$i]; unset coluna[$[k-1]$i] # Mantenha limpo o vetor } li=$((RANDOM % 9 + 3)) ini=$((c-li+2)) fim=$((c+li+2)) co=$((RANDOM % (li-2) * 2 + 1 + ini)) tput setaf $cor; tput bold # Troca cor das bolas tput cup $li $co echo o linha[$k$i]=$li coluna[$k$i]=$co cor=$(((cor+1)%8)) # sleep 0.05 sh=1 for l in S H E L L do tput cup $((lin+1)) $((c-3+sh)) echo $l let sh++ sleep 0.01 done } k=$((k % 2 + 1)) done

==== natal3.sh ====

$ cat natal3.sh

#!/bin/bash
# Versão 2.0
trap "tput reset; tput cnorm; exit" 2
clear
Nome="Julio Neves" # Troque pelo seu Nome para enviar a amigos
UltLin="São os votos de "$Nome" para você e sua família"
UltCol=$[($(tput cols) - ${#UltLin}) / 2]
tput civis
lin=2
col=$(($(tput cols) / 2))
c=$((col-1))
est=$((c-2))
cor=0
tput setaf 2; tput bold
# Montando a Árvore
for ((i=1; i<20; i+=2)) { tput cup $lin $col for ((j=1; j<=i; j++)) { echo -n \* } let lin++ let col-- } tput sgr0; tput setaf 3 for ((i=1; i<=2; i++)) { tput cup $((lin++)) $c echo 'mWm' } tput setaf 1; tput bold tput cup $lin $((c - 4)); echo BOAS FESTAS tput cup $((lin + 1)) $((c - 11)); echo E muito suSHELLso em 2010 tput cup $((lin + 3)) $UltCol; echo $UltLin let c++ k=1 # Pendurando as bolas (da árvore, claro!) while true; do for ((i=1; i<=35; i++)) { # Apagando a bola que foi ligada há 25 rodadas atras [ $k -gt 1 ] && { tput setaf 2; tput bold tput cup ${linha[$[k-1]$i]} ${coluna[$[k-1]$i]}; echo \* unset linha[$[k-1]$i]; unset coluna[$[k-1]$i] # Mantenha limpo o vetor } li=$((RANDOM % 9 + 3)) ini=$((c-li+2)) fim=$((c+li+2)) co=$((RANDOM % (li-2) * 2 + 1 + ini)) tput setaf $cor; tput bold # Troca cor das bolas tput cup $li $co echo o linha[$k$i]=$li coluna[$k$i]=$co cor=$(((cor+1)%8)) # sleep 0.05 sh=1 for l in S H E L L do tput cup $((lin+1)) $((c-3+sh)) echo $l let sh++ sleep 0.01 done } k=$((k % 2 + 1)) done

==== NatalComNeve.sh ====

$ cat NatalComNeve.sh

#!/bin/bash
# Versão 2.0
# Isso foi feito para mostrar que em shell se
# pode fazer de tudo, inclusive na tela.
#
# Autor: Julio Neves
#

trap "tput reset; tput cnorm; exit" 2
function MontaArr
{
# Monta um array Arr[$Lin$Col] (ambas com zeros à esqueda)
#+ com o caracteres que está naquela posição
local i
local l
for ((i=0; i<${#3}; i++)) { l="${3:i:1}" Arr[$(printf "$1%02i" $[$2+$i])]="$l:$4" } } NomeIni=(Julio Neves) # Troque $NomeIni para enviar a amigos, mas # sempre pelo menos 2 e somente 2 nomes ;) Ano=$(($(date +%m) < 10 ? $(date +%Y) : $(date +%Y) + 1)) # Preparando nome para escrever no canto inferior direito da tela for ((Pos=0; ;Pos++)) { s0=${NomeIni[0]:$Pos:1} s0=${s0:- } s1=${NomeIni[1]:$Pos:1} s1=${s1:- } [[ $s0 == ' ' && $s1 == ' ' ]] && break Nome="$Nome$s0 $s1" } # UltLin="São os votos de "$Nome" para você e sua família" # UltCol=$[($(tput cols) - ${#UltLin}) / 2] # Montando a Árvore ColLogo=$[$(tput cols)-4] LinLogo=$[$(tput lines)-$Pos-1] LogoTrab=0 tput civis lin=2 col=$(($(tput cols) / 2)) ccnev=$[col - 13] c=$((col-1)) est=$((c-2)) cor=0 tput setab 0; clear tput setaf 2; tput bold for ((i=1; i<20; i+=2)) { tput cup $lin $col for ((j=1; j<=i; j++)) { echo -n \* MontaArr $lin $[col+j] \* 2 } let lin++ let col-- } tput sgr0; tput setab 0; tput setaf 3; tput bold for ((i=1; i<=2; i++)) { MontaArr $lin $[c+1] mWm 3 tput cup $((lin++)) $c echo mWm } tput setab 0; tput setaf 7; tput bold tput cup $lin $((c - 4)); echo BOAS FESTAS MontaArr $lin $[c-3] "BOAS FESTAS" 7 tput cup $((lin + 1)) $((c - 11)); echo E muito suSHELLso em $Ano MontaArr $((lin + 1)) $((c - 10)) "E muito suSHELLso em $Ano" 7 # tput cup $((lin + 3)) $UltCol; echo $UltLin let c++ k=1 # Pendurando as bolas (da árvore, claro!) while true do for ((i=1; i<=35; i++)) { # Apagando a bola que foi ligada há 35 rodadas atras [ $k -gt 1 ] && { tput setab 0; tput setaf 2; tput bold tput cup ${linha[$[k-1]$i]} ${coluna[$[k-1]$i]}; echo \* MontaArr ${linha[$[k-1]$i]} ${coluna[$[k-1]$i]} \* 2 unset linha[$[k-1]$i]; unset coluna[$[k-1]$i] # Mantenha limpo o vetor } li=$((RANDOM % 9 + 3)) ini=$((c-li+2)) fim=$((c+li+2)) co=$((RANDOM % (li-2) * 2 + 1 + ini)) tput setab 0; tput setaf $cor; tput bold # Troca cor das bolas tput cup $li $co echo o linha[$k$i]=$li coluna[$k$i]=$co MontaArr $li $co o $cor sh=1 for l in S H E L L do tput cup $((lin+1)) $((c-3+sh)) echo $l let sh++ done # Olha a neve for ((n=0; n<15; n++)) { [ "${nev[n]}" ] || { nev[n]=$[RANDOM % 12 + 1]$(printf "%02i" $[RANDOM % 25 + ccnev]) } lnev=$[nev[n] / 100] cnev=$[nev[n] % 100] idx=$lnev$(printf "%02i" $cnev) Antigo=${Arr[10#$idx-100]%:*} Antigo=${Antigo:-' '} CorAnt=${Arr[10#$idx-100]#*:} CorAnt=${CorAnt:-0} tput setab 0 tput setaf $CorAnt tput cup $[lnev-1] $[cnev-1] echo "$Antigo" tput setab 0; tput setaf 7; tput cup $lnev $[cnev-1]; echo . let lnev++ nev[n]=$lnev$(printf "%02i" $cnev) [ $lnev -gt 16 ] && { tput setab 0; tput setaf 7; tput cup $[lnev-1] $[cnev-1]; echo " " unset nev[n] } tput setaf $[n%7+1] tput cup $[LinLogo+LogoTrab] $ColLogo echo "${Nome:$[LogoTrab*3]:3}" (( LogoTrab++ == Pos-1)) && { LogoTrab=0 } } cor=$(((cor+1)%8)) } k=$((k % 2 + 1)) done

==== natal.sh ====

$ cat natal.sh

#!/bin/bash
# Escrito por Leandro Santiago da Silva
# leandrosansilva@gmail.com
# Script escrito por mim em shell script, baseado num programa em c de
Victorine Viviane Mizrahi.
# Depois eu comento direito ele, mas acho que dá para entender bem.
echos_verde()
{
echo -e -n "\033[42;31;1m$*"; echo -ne "\033[m"
}
echos_marrom()
{
echo -e "\033[43;32m$*"; echo -ne "\033[m"
}

echos_borda_esq()
{
echo -e "\033[40;32m$*"; echo -ne "\033[m"
}
echos_borda_dir()
{
echo -e -n "\033[40;32m$*"; echo -ne "\033[m"
}

Natal()
{
clear
for ((i=0;i0)) && ((caule<6)) && ((caule>0)); then
Natal
else
echo
echo Uso: natal \ \
echo
echo Onde 1 \<\= altura_da_arvore \<\= 10 e 1 \<\= altura_do_caule \<\= 5 echo fi else altura=6 caule=2 Natal fi

==== nautilus-scripts/Leia-me ====

$ cat nautilus-scripts/Leia-me

ATENÇÃO!
Os arquivos desta pastas, exceto este que você está lendo, devem:
- Ser copiados para ~/.gnome2/nautilus-scripts;
- Receber permissão de execução.

Depois disso, basta clicar com o botão direito em cima de um ou mais arquivo(s) e escolher "scripts" e clicar no script que se deseja executar sobre o(s) arquivo(s) selecionado(s).

OBS: A pasta Varios tem alguns scripts que achei na Internet. Confesso que testei a maioria, mas não todos. Coloquei-os no CD como uma fonte de inspiração para que você os use, ou os aprimorem adaptando-os às suas necessidades (coisas que só nós que usamos Software Livre podemos fazer. OBA!!!!)


==== nautilus-scripts/RootScripts/gedit_root.sh ====

$ cat nautilus-scripts/RootScripts/gedit_root.sh

#!/bin/bash
# Executa uma sessão de gedit como root.
#+ O gksudo para pegar rapidamente a senha de root
#+ caso o tempo de sudo tenha expirado.
#+ O comando executado pelo gksudo não produz nada
#+ isso foi feito para o sudo da linha seguinte ganhar
#+ o privilégio de root, sem pedir senha pela
#+ linha de comando, o que complicaria.

gksudo -u root -k -m "Informe sua senha" true
sudo gedit $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS


==== nautilus-scripts/RootScripts/naut_root.sh ====

$ cat nautilus-scripts/RootScripts/naut_root.sh

#!/bin/bash
# Executa uma sessão de Nautilus como root
#+ O gksudo para pegar rapidamente a senha de root
#+ caso o tempo de sudo tenha expirado.
#+ O comando executado pelo gksudo é um echo vazio.
#+ isso foi feito para o sudo da lina seguinte ganhar
#+ o privilégio de root, sem pedir senha pela
#+ linha de comando, o que complicaria.

gksudo -u root -k -m "Informe sua senha" echo
sudo nautilus --no-desktop $NAUTILUS_SCRIPT_CURRENT_URI


==== nautilus-scripts/TratamentoImagem/convert_to_jpeg ====

$ cat nautilus-scripts/TratamentoImagem/convert_to_jpeg

#!/bin/bash

while [ $# -gt 0 ]; do
picture=$1
jpg_file=`echo "$picture" | sed 's/\.\w*$/.jpg/'`
/usr/bin/convert -quality 75 "$picture" jpeg:"$jpg_file"
shift
done


==== nautilus-scripts/TratamentoImagem/convert_to_png ====

$ cat nautilus-scripts/TratamentoImagem/convert_to_png

#!/bin/bash

while [ $# -gt 0 ]; do
picture=$1
png_file=`echo "$picture" | sed 's/\.\w*$/.png/'`
/usr/bin/convert "$picture" png:"$png_file"
shift
done


==== nautilus-scripts/TratamentoImagem/Create_Thumbnail ====

$ cat nautilus-scripts/TratamentoImagem/Create_Thumbnail

#!/bin/bash
#
# Nautilus script -> Create big Thumbnails (upto 200x200) for selected files
#
# Owner : Hans-Bernhard Tr\FCtken
# hb.truetken@htp-tel.de
#
# Licence : GNU GPL
#
# Ver :1.0 Date 06.03.2002
#
# angelehnt an: http://www-user.tu-chemnitz.de/~kbo/linux/shellskript/conv.htm
#
# Dependency : ImageMagick, GNU shell utilities

for Datei in $*
do
if [ -f $Datei ]
then
echo "Bearbeite Datei $Datei ..."
DateiName=`basename $Datei`
DirName=`dirname $Datei`/.thumbnails
convert -geometry 200x200 $Datei $DirName/$DateiName.png
fi
done

exit 0


==== nautilus-scripts/TratamentoImagem/redimen_char.sh ====

$ cat nautilus-scripts/TratamentoImagem/redimen_char.sh

#!/bin/bash
# Coleta informações para fazer redimensionamento
#+ de imagens diretamente do nautilus
#+ Autor: Julio Neves
#+ Colaboração: Luiz Carlos Silveira (aka Dom)

# Abre um xterm para executar o programa
#+ a sintaxe pode parecer estranha, mas
#+ acho que esta é a melhor forma
# xterm -T "Redimensiona Imagens" -geometry 500x500 -bg darkred -fg lightgray -fn 7x14 -e bash -c "source <(tail -n +15 $0)" xterm -T "Redimensiona Imagens" -geometry 500x500 -bg darkred -fg lightgray -fn '-dejavu-dejavu sans mono-medium-r-*-*-*-*-*-*-*-*-*-*' -e bash -c "source <(tail -n +15 $0)" exit 0 ################Programa propriamente dito. Verde=$(tput setaf 2; tput bold) # Valores default em verde Norm=$(tput sgr0) # Restaura cor clear # Preparando o basename dos arquivos para listá-los for Arq in "$NAUTILUS_SCRIPT_SELECTED_FILE_PATHS" do Arqs=$(echo -e "$Arqs${Arq%%*/}\n") done echo Os arquivos a redimensionar são: echo == ======== = ============= ==== column -c$(tput cols) <(echo "$Arqs") # Listando arqs em colunas read -n1 -p " Certo? (${Verde}S${Norm}/n): " [[ $REPLY == [Nn] ]] && exit 1 echo read -n1 -p "Informe se redimensionamento é: ${Verde}P${Norm} - ${Verde}P${Norm}ercentual ${Verde}A${Norm} - ${Verde}A${Norm}bsoluto ==> " Tipo

case ${Tipo^} in # Conteudo passa para maiuscula (bash 4.0)
P) echo ercentual
read -p "Informe o percentual de redução: " Val
grep -Eq '^[0-9]+$' <<< $Val || { # $Val não numérico tput flash read -n1 -p"Percentual inválido" exit 1 } Val=$Val% ;; A) echo bsoluto read -p "Informe a largura final da imagem: " Val grep -Eq '^[0-9]+$' <<< $Val || { tput flash read -n1 -p"Largura inválida" exit 1 } ;; *) tput flash read -n1 -p"Informação inválida" exit 1 esac read -n1 -p " Informe a saída da imagem que vc deseja: ${Verde}D${Norm} - saída da imagem em outro ${Verde}D${Norm}iretório ${Verde}S${Norm} - saída da imagem com ${Verde}S${Norm}ufixo ${Verde}G${Norm} - saída da imagem sobre${Verde}G${Norm}ravando a inicial ==> " Saida

case ${Saida^^} in
D) echo -e '\010Outro diretório'
read -p 'Informe o diretório: ' Dir
[ -d "$Dir" ] || {
tput flash
read -n1 -p "Diretório inexistente"
exit 1
}
;;
S) echo -e '\010Sufixo'
read -p "Informe o sufixo dos arquivos (${Verde}_redim${Norm}): " Suf
Suf=${Suf:-_redim}
;;
G) echo -e '\010Sobregravando'
mogrify --resize $Val $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS
exit
;;
*) read -n1 -p "Você devia ter escolhido ${Verde}D${Norm}, ${Verde}S${Norm} ou ${Verde}G${Norm}"
exit 1
esac
IFS='
' # A variável $IFS ficou só com um \n ()
# Agora vamos redimensionar
for Arq in $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS
do
if [ ${Saida^^} = D ]
then
convert "$Arq" -resize $Val "$Dir/${Arq##*/}"
echo "$Dir/${Arq##*/}" redimensionado
else
convert "$Arq" -resize $Val "${Arq%%.*}$Suf.${Arq#*.}"
echo "${Arq%%.*}$Suf.${Arq#*.}" redimensionado
fi
done

==== nautilus-scripts/TratamentoImagem/redimen_zen.sh ====

$ cat nautilus-scripts/TratamentoImagem/redimen_zen.sh

#!/bin/bash
# Redimensiona fotos direto no Nautilus

IFS="
" # IFS passa a ser somente o new line
Tipo=$(zenity --list \
--title "Redimensiona imagens" \
--text "Informe se redimensionamento\né percentual ou absoluto" \
--radiolist --column Marque --column "Tipo" \
true Percentual false Absoluto) || exit 1

if [ $Tipo = Percentual ]
then
Val=$(zenity --entry \
--title "Redimensiona imagens" \
--text "Informe o percentual de redução" \
--entry-text 50)% || exit 1 # Concatenando % em $Val
else
Val=$(zenity --entry \
--title "Redimensiona imagens" \
--text "Informe a largura final da imagem" \
--entry-text 200)x || exit 1
fi

Var=$(zenity --list --title "Redimensiona imagens" \
--text "Escolha uma das opções abaixo" \
--radiolist --height 215 --width 390 --hide-column 2 \
--column Marque --column "" --column Opções \
false 0 "Saída da imagem em outro diretório" \
false 1 "Saída da imagem com sufixo" \
true 2 "Saída da imagem sobregravando a inicial") || exit 1
case $Var in
0) Dir=$(zenity --file-selection \
--title "Escolha diretório" \
-–directory) || exit 1 ;;
1) Suf=$(zenity --entry \
--title "Redimensiona imagens" \
--text "Informe o sufixo dos arquivos" \
--entry-text _redim) || exit 1 ;;
2) mogrify --resize $Val
"$NAUTILUS_SCRIPT_SELECTED_FILE_PATHS"
exit ;;
esac
Arqs=$(echo "$NAUTILUS_SCRIPT_SELECTED_FILE_PATHS" | wc -l)
# No for a seguir um echo numérico atualiza
#+ a barra de progresso e um echo seguido de um
#+ jogo-da-velha (#) atualiza o texto do cabeçalho
for Arq in $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS
do
echo $((++i * 100 / $Arqs))
echo "# Redimensionando $(basename $Arq)"
sleep 3
if [ $Var -eq 0 ]
then
convert "$Arq" -resize $Val "$Dir/${Arq##*/}"
else
convert "$Arq" -resize $Val "${Arq%%.*}$Suf.${Arq#*.}"
fi
done | zenity --progress \
--title "Aguarde. Em redimensionamento" \
--auto-close --auto-kill


==== nautilus-scripts/TratamentoImagem/watermark ====

$ cat nautilus-scripts/TratamentoImagem/watermark

#!/bin/bash
#
# watermark.sh
# $Id: watermark,v 1.1 2004/10/03 10:52:21 ullgren Exp $
#
# Add a defined watermark to a series of pictures
#

# Absolute Location of the Watermark file
WM="/home/hajo/data/Pics/Var/watermark.gif"

if [ ! -n "$1" ]
then
zenity --error --text "Please select Pics to be watermarked!"
exit $E_BADARGS
fi

typeset -i CNT=1
typeset -i CUR=0

(
for pic in "$@"
do
echo "#Watermarking $pic"

composite -gravity SouthEast "$WM" "$pic" "$pic"

CUR=$CNT*100/$#
echo $CUR
CNT=$CNT+1
done
) | zenity --progress --auto-close --percentage=0


==== nautilus-scripts/Varios/Archiving/archiver-unarchiver ====

$ cat nautilus-scripts/Varios/Archiving/archiver-unarchiver

#!/bin/bash -x
#
#
# Nautilus script -> Ultimate Archive Tool for Nautilus
# Compress and decompress dynamic
# Multilang
#
# Owner : Largey Patrick Switzerland
# patrick.largey@nazeman.org
# www.nazeman.org
# Co-Owner : David Westlund
# daw@wlug.westbo.se
#
# Licence : GNU GPL
#
# Copyright (C) Nazeman
#
# Dependency : zenity
# : tar, bzip2, gzip, zip
# : gunzip, bunzip2, unzip, unrar
# : Nautilus
# : unace -> http://www.winace.com/
# : and Gnu tools -> grep, sed, which, etc...
#
# Encoding UTF-8
#
# Ver: 1.40 Date 24.03.2004
# Remove gdialog and add support for zenity
#
# Ver: 1.30 Date: 04.04.2003
# Add compatibilty with Nautilus 2.x
#
# Ver: 1.21 Date 06.01.2002
# Add compatibility with Xdialog + some improvemenz in code thanks to shellscript-fr(at)debianworld.org
#
# Ver: 1.20 Date 04.01.2002
# Add decompress file witout extension or with a false extension !!yeah!!
# + some small fixes + better scripting
#
# Ver: 1.15 Date 20.10.2002
# Add check and recover action for parchive (http://parchive.sourceforge.net)
# + make a .par
#
# Ver: 1.13 Date 13.06.2002
# Add Italian from Gianluca Romito
#
# Ver: 1.12 Date 10.5.2002
# Fix Bug with "ace" format from Boris de Laage de Meux (emak(at)free.fr)
#
# Ver: 1.11 Date 22.03.2002
# Add please wait dialog in decompress mode
#
# Ver: 1.10 Date 11.03.2002
# Add possibilty default config (archiver-config script)
# Add Estonian from Tõivo Leedjärv (toivo(at)linux.ee)
#
# Ver: 1.01 Date 28.02.2002
# Bug fix (thanks Shane) Add Portuguese from Rafael Rigues (rigues(at)conectiva.com.br)
#
# Ver: 1.00 Date 27.02.2002
# Yeah ! version 1.00 (I hope is no BUG)
# Add translation in "Esperanto" from Eric (eclesh(at)pacbell.net)
# Bugfix with Unzip (space file) + German update
#
# Ver : 0.9.9-6 Date 7.2.2002
# Add idea from David (check if programm is available)
# Add rar format
#
# Ver : 0.9.9-5 Date 31.01.2002
# Bugfix with : zip a directory , is recursive yet
# Add no case sensitiv (tgz, TGZ, TgZ,...)
#
# Ver : 0.9.9-4 Date 22.01.2002
# me: Add dialog for unarchive "yes or no"
# Please test all possibility to find bug to ver 1.00
#
# Ver: 0.9.9-2 Date 21.01.2002
# me: Add .Z Format compress and uncompress
# Add .ace format to decompress
# Add Dialog for decompress to overwrite file by David
# Some correction in force to decompress
# better recognise file if archive or not
#
# Ver: 0.9.9-1 Date 20.01.2002
# me: Add script uncompress_all, please wait ....
# Add some correction by David Westlund
# make a check to find what is for file
# if file is an archive -> decompress else compress
#
# Ver: 0.9.8 Date 12.01.2002
# me: Add Dialog with compressor choice
# tar.gz, tar.bz2, zip, gz, bz2
# Please update with rar and unrar (I don't have)
#
# Ver: 0.9.4 Date: 11.05.2001
# Support for swedish
# Don't create files with names like archive.tar.gz.tar.gz or archive.tgz.tar.gz
# If the input is just one file, the archive will be called .tar.gz as default
# Added by David Westlund
#
# Ver: 0.9.3 Date: 10.09.2001
# me: added file mit space !!!
#
# Ver: 0.9.2 Date: Sept 9, 2001
# me: added confirm windows + German Support
#
# Ver: 0.9.1 Date: Sept 5, 2001
# Shane Mueller added patch from Manuel Clos to add Spanish support
#
# Ver : 0.9 Date : 11.08.2001
#
curpath=`echo $NAUTILUS_SCRIPT_CURRENT_URI | sed 's/file\:\/\///'`
if [ ! -z $curpath ]
then
cd $curpath
else
cd `pwd`
fi
#
# Default language
#
filename="File name?"
fileexist="File exists. Overwrite?"
title="Archiver-Unarchiver"
archive="archive"
compressor="extension: archive: "
decompressor="Do you want to uncompress: "
valid="available"
notvalid="not available"
pleasewait="Please wait...."
warning="Warning!"
beuh="Unknown format."
ncompr="could not be uncompressed."
compr="has been uncompressed."
rec="was created successfully."
overwrite="The following files will be overwritten: "
proceed="Do you want to proceed?"
parchive="Parchive : "
parmiss="Cannot recover, too many file missing"
parok="parity archive valid"
parnotok=" lacking, recover ?"
format="format"
info="information"
choix="choice"
case $LANG in
fr* )
filename="Nom du Fichier ?"
fileexist="Fichier existant, écraser ?"
title="Archiveur-Desarchiveur"
archive="archive"
decompressor="Voulez vous désarchiver : "
compressor="Extension de l'archive : "
valid="disponible"
notvalid="non disponible"
pleasewait="Veuillez patientez ....."
warning="! Attention !"
beuh="format inconnu."
ncompr="ne peut être décompressé."
compr="est décompressé."
rec="est enregistré."
overwrite="les fichiers suivant seront écrasé: "
proceed="Voulez-vous poursuirvre ?"
parchive="Parchive : "
parmiss="Impossible de reconstruire, trop de fichier manquant."
parok="archive de parité valide."
parnotok=" manquant, reparez ?"
format="extension"
info="information"
choix="choice";;
es* )
filename="¿Nombre del archivo?"
fileexist="El archivo ya existe, ¿sobreescribir?"
title="Archivar"
archive="archivo"
compressor="¿extensión del archivo?"
decompressor="¿ Quiere descomprimir "
valid="disponible"
notvalid="no disponible"
pleasewait="Por favor, espere..."
warning="¡ Cuidado !"
beuh="Formato desconocido"
ncompr="no se puede descomprimir"
compr="se descomprimió correctamente."
rec="se creó correctamente"
overwrite="los archivos suiguientes serán sobreescritos: "
proceed="¿ Quiere continuar ?" ;;
de* )
filename="Dateiname ?"
fileexist="Datei existiert bereits, überschreiben ?"
title="Archiver-Desarchiver"
archive="archiv"
compressor="Extension von Archiv : "
decompressor="wollen Sie dekomprimieren : "
valid="Gültig"
notvalid="Nicht gültig"
pleasewait="Bitte warten ...."
warning="! Warnung !"
beuh="unbekanntes Format"
ncompr="kann nicht dekomprimieren"
compr="ist komprimiert"
rec="ist gespeichert"
overwrite="soll(en) diese Datei(en) überschriebenerden: "
proceed="Wollen Sie weitermachen ?" ;;
eo* )
filename="Dosiera nomo?"
fileexist="Dosiero ekzistas. Æu superskribu?"
title="Ar¶igilo-Malar¶ivigilo"
archive="ar¶ivo"
compressor="Fina¼o de la ar¶ivo?"
decompressor="Æu vi volas malar¶ivigi: "
valid="havebla"
notvalid="nehavebla"
pleasewait="Bonvolu atendi..."
warning="Avertu!"
beuh="Nekonata formato"
ncompr="Ne povis kompresigi"
compr="estas kompresigita"
rec="øuste kreita"
overwrite="La sekvantaj dosieroj superskribiøos: "
proceed="Æu vi volas procedi?";;
pt* )
filename="Nome do arquivo?"
fileexist="O arquivo já existe. Sobrescrever?"
title="Compactador-Descompactador"
archive="arquivo"
compressor="extensão: arquivo: "
decompressor="Você quer descompactar: "
valid="disponível"
notvalid="não disponível"
pleasewait="Aguarde...."
warning="Aviso!"
beuh="Formato desconhecido."
ncompr="não pôde ser descompactado."
compr="foi descompactado."
rec="foi criado com sucesso."
overwrite="Os seguintes arquivos serão sobrescritos: "
proceed="Deseja continuar?" ;;
sv* )
filename="Filnamn?"
fileexist="Filen existerar, vill du skriva över?"
title="tar.gz-arkiverare"
compressor="Filändelse arkiv :"
decompressor="Vill du packa upp : "
archive="arkiv"
#valid="????"
#notvalid="????"
pleasewait="Var god vänta..."
warning="! Varning !"
beuh="Okänt format"
ncompr="kunde inte packas upp korrekt"
compr="är uppackad"
rec="är sparad"
overwrite="Följande filer kommer skrivas över: "
proceed="Vill du fortsätta?" ;;
et* )
filename="Faili nimi?"
fileexist="Fail on juba olemas. Kas kirjutada üle?"
title="Arhivaator"
archive="arhiiv"
compressor="laiend: arhiiv: "
decompressor="Kas sa tahad lahti pakkida: "
valid="võimalik"
notvalid="ei ole võimalik"
pleasewait="Palun oota...."
warning="Hoiatus!"
beuh="Tundmatu vorming."
ncompr=": ei saa lahti pakkida."
compr="lahti pakitud."
rec="edukalt loodud."
overwrite="Järgnevad failid kirjutatakse üle: "
proceed="Kas tahad jätkata?" ;;
it* )
filename="Nome File?"
fileexist="Il file esiste. Sovrascriverlo?"
title="Compressore Decompressore"
archive="archivio"
compressor="estensione: archivio: "
decompressor="Vuoi decomprimere: "
valid="disponibile"
notvalid="non disponivile"
pleasewait="Attendere per favore...."
warning="Attenzione!"
beuh="Formato sconosciuto."
ncompr="non puo' essere decompresso."
compr="e' stato decompresso."
rec="e' stato creato con successo."
overwrite="I seguenti files saranno sovrascritti: "
proceed="Vuoi procedere?" ;;
esac
#
# check the config file
#
if [ ! -f ~/.archiver.conf ]
then echo "" > ~/.archiver.conf
fi
#
# Fonction
#
pleasewait() {
zenity --title "$title" --info --text "$pleasewait" --width 200 --height 25&
dialogpid=$!
}
#
# Fonction decompress
#
tardec() {
fto=`ls -d --color=never \`tar -tf "$1" | sed 's/ /\?/g'\` 2>&1 | grep -v "^ls"`
if [ ! -z "$fto" ]
then
if zenity --title "$title" --question --text "$overwrite \n$fto\n$proceed" --width 200 --height 25
then
pleasewait
tar -xf "$1" || error=1
else
exit 0
fi
else
pleasewait
tar -xf "$1" || error=1
fi
}
targzdec() {
fto=`ls -d --color=never \`tar -ztf "$1" | sed 's/ /\?/g'\` 2>&1 | grep -v "^ls"`
if [ ! -z "$fto" ]
then
if zenity --title "$title" --question --text "$overwrite \n$fto\n$proceed" --width 200 --height 25
then
pleasewait
tar -xzf "$1" || error=1
else
exit 0
fi
else
pleasewait
tar -xzf "$1" || error=1
fi
}
tarbzip2dec() {
fto=`ls -d --color=never \`tar -jtf "$1" | sed 's/ /\?/g'\` 2>&1 | grep -v "^ls"`
if [ ! -z "$fto" ]
then
if zenity --title "$title" --question --text "$overwrite \n$fto\n$proceed" --width 200 --height 25
then
pleasewait
tar -jxf "$1" || error=1
else
exit 0
fi
else
pleasewait
tar -jxf "$1" || error=1
fi
}
gzdec() {
fto=`ls -d --color=never \`echo "$1" | sed 's/.gz//'\` 2>&1 | grep -v -e "^ls"`
if [ ! -z "$fto" ]
then
if zenity --title "$title" --question --text "$overwrite \n$fto\n$proceed" --width 200 --height 25
then
pleasewait
gunzip -fN "$1" || error=1
else
exit 0
fi
else
pleasewait
gunzip -N "$1" || error=1
fi
}
bzip2dec() {
fto=`ls -d --color=never \`echo "$1" | sed 's/.bz2//'\` 2>&1 | grep -v -e "^ls"`
if [ ! -z "$fto" ]
then
if zenity --title "$title" --question --text"$overwrite \n$fto\n$proceed" --width 200 --height 25
then
pleasewait
bunzip2 -fk "$1" || error=1
else
exit 0
fi
else
pleasewait
bunzip2 -k "$1" || error=1
fi
}
zipdec() {
fto=`ls -d --color=never \`zipinfo -1 "$1" | sed 's/ /\?/g'\` 2>&1 | grep -v -e "^ls"`
if [ ! -z "$fto" ]
then
if zenity --title "$title" --question --text "$overwrite \n$fto\n$proceed" --width 200 --height 25
then
pleasewait
unzip -o "$1" || error=1
else
exit 0
fi
else
pleasewait
unzip -o "$1" || error=1
fi
}
rardec() {
fto=`ls -d --color=never \`rar l "$1" | gawk '/2.0$/{ print $1 }'\` 2>&1 | grep -v -e "^ls"`
if [ ! -z "$fto" ]
then
if zenity --title "$title" --question --text "$overwrite \n$fto\n$proceed" --width 200 --height 25
then
pleasewait
unrar x -kb -o+ "$1" || error=1
else
exit 0
fi
else
pleasewait
unrar x -kb -o+ "$1" || error=1
fi
}
zdec() {
fto=`ls -d --color=never \`zcat -l "$1" | gawk '/%/{ print $4 }'\` 2>&1 | grep -v -e "^ls"`
if [ ! -z "$fto" ]
then
if zenity --title "$title" --question --text "$overwrite \n$fto\n$proceed" --width 200 --height 25
then
pleasewait
uncompress -f "$1" || error=1
else
exit 0
fi
else
pleasewait
uncompress "$1" || error=1
fi
}
acedec() {
pleasewait
unace x "$1" || error=1
}
#
# test archive or not
#
test_parity=`echo "$1" | grep [.][pP][aA][rR]$`
test_arch1=`file -b "$1" | grep -v 'PARity' | grep 'archive'`
test_arch2=`file -b "$1" | grep 'compress'`
test_arch3=`echo "$1" | grep [.][aA][cC][eE]$`
test_arch="$test_arch1$test_arch2$test_arch3"
if [ ! -z "$test_arch" ]
then
#
# is one archive -> decompress
#
allfiles=`echo $@ | sed 's/\ /\\n/g'`
decompressed=""
error=0
if zenity --title "$title" --question --text "$decompressor \n\n$allfiles ?\n" --width 200 --height 25
then
while [ $# -gt 0 ]
do
if
echo "$1" | grep -i '\.tar\.gz$' 2>&1
then
targzdec "$1"
elif
echo "$1" | grep -i '\.tgz$' 2>&1
then
targzdec "$1"
elif
echo "$1" | grep -i '\.tar$' 2>&1
then
tardec "$1"
elif
echo "$1" | grep -i '\.gz$' 2>&1
then
gzdec "$1"
elif
echo "$1" | grep -i '\.tar\.bz2$' 2>&1
then
tarbzip2dec "$1"
elif
echo "$1" | grep -i '\.bz2$' 2>&1
then
bzip2dec "$1"
elif
echo "$1" | grep -i '\.zip$' 2>&1
then
zipdec "$1"
elif
echo "$1" | grep -i '\.rar$' 2>&1
then
rardec "$1"
elif
echo "$1" | grep -i '\.z$' 2>&1
then
zdec "$1"
elif
echo "$1" | grep -i '\.ace$' 2>&1
then
acedec "$1"
#
# Decompress if file is an archive with no extension and test what is for archive type
#
else
ifnoextension=`file -b "$1" | gawk '/compress/{ print $1 }'`
ifnoextensiona=`file -b "$1" | gawk '/archive/{ print $1 }'`
if [ "$ifnoextension" = "bzip2" ]
then
if tar -tjf "$1" 2>/dev/null
then tarbzip2dec "$1"
else bzip2dec "$1"
fi
elif [ "$ifnoextension" = "gzip" ]
then
if tar -tzf "$1" 2>/dev/null
then targzdec "$1"
else gzdec "$1"
fi
elif [ "$ifnoextension" = 'compress'\''d' ]
then
zdec "$1"
elif [ "$ifnoextensiona" = "GNU" ]
then
tardec "$1"
elif [ "$ifnoextensiona" = "Zip" ]
then
zipdec "$1"
elif [ "$ifnoextensiona" = "RAR" ]
then
rardec "$1"
else
zenity --title "$title" --warning --text "$1 $beuh $noextension" --width 200 --height 25
fi
fi
#
# End script for decompression
#
if [ $error = 0 ]
then
decompressed="$decompressed $1\n"
fi
if [ $error = 1 ]
then
zenity --title "$title" --warning --text "$1 $beuh $noextension" --width 200 --height 25
fi
kill $dialogpid
shift
done
else
exit 0
fi
if [ ! -z "$decompressed" ]
then
zenity --title "$title" --info --text "$decompressed $compr" --width 200 --height 25
fi
#
# parity test or recovery
#
elif [ ! -z "$test_parity" ]
then
parbinary=`which par || which parchive`
testpar=`$parbinary c "$1" 2>&1 | gawk '/NOT FOUND/{ print $1 }'`
testrecover=`$parbinary c "$1" 2>&1 | grep "Too many missing files:"`
if [ -z "$testpar" ]
then zenity --title "$title" --info --text "$parchive$parok" --width 200 --height 25
else
if zenity --title "$title" --question --text "$parchive$testpar$parnotok" --width 200 --height 25
then
if [ -z "$testrecover" ]
then
pleasewait
$parbinary r "$1"
kill $dialogpid
else
zenity --title "$title" --warning --text "$parmiss" --width 200 --height 25
fi
else
exit 0
fi
fi
else
#
# test if programm are availlable
#
listcompprg="tar zip gzip bzip2 rar compress"
for u in $listcompprg
do
if which $u 2>/dev/null
then
eval a$u="$valid"
else
eval a$u="$notvalid"
fi
done
if which par 2> /dev/null || which parchive 2> /dev/null
then
apar="$valid"
else
apar="$notvalid"
fi
#
# is not one archive -> compress
#
if [ $# = 1 ]
then
archive="$1"
fi
if
nom=`zenity --title "$title" --entry --text "$filename" --entry-text "$archive" --width 200 --height 25 2>&1`
then
if [ ! -d "$1" -a $# = 1 ]
then
configsingle=`cat ~/.archiver.conf | gawk '/single/{ print $2 }'`
if [ -z "$configsingle" ]
then
compres=`zenity --title "$title" --list --radiolist --column "$choix" --column "$format" --column "$info" --text "$compressor" FALSE ".zip" "$azip" TRUE ".gz" "$agzip" FALSE ".bz2" "$abzip2" FALSE ".Z" "$acompress" FALSE ".rar" "$arar" FALSE ".par" "$apar" --width 200 --height 220 2>&1`
else
compres="$configsingle"
fi
else
configmulti=`cat ~/.archiver.conf | gawk '/multi/{ print $2}'`
if [ -z "$configmulti" ]
then
compres=`zenity --title "$title" --list --radiolist --column "$choix" --column "$format" --column "$info" TRUE ".tar.gz" "$agzip" FALSE ".tar.bz2" "$abzip2" FALSE ".zip" "$azip" FALSE ".tar" "$atar" FALSE ".rar" "$arar" FALSE ".par" "$apar" --width 200 --height 220 2>&1`
else
compres="$configmulti"
fi

fi
compres=`echo $compres | sed 's/\"//g'`
nom="${nom%$compres}"
if [ ! -z "$compres" ]
then
while [ -f ./"$nom"$compres ]
do
if zenity --title "$title" --question --text "$fileexist" --width 200 --height 25
then
rm -f ./"$nom"$compres
else
if zenity --title "$title" --entry --text "$filename" --entry-text "$archive" --width 200 --height 25
then
continue
else
exit 0
fi
fi
done
else
exit 0
fi
pleasewait
case $compres
in
.tar.gz )
while [ $# -gt 0 ]
do
if [ -f ./"$nom".tar ]
then
tar -rf ./"$nom".tar "$1"
else
tar -cf ./"$nom".tar "$1"
fi
shift
done
gzip -f -9 ./"$nom".tar ;;
.tar.bz2 )
while [ $# -gt 0 ]
do
if [ -f ./"$nom".tar ]
then
tar -rf ./"$nom".tar "$1"
else
tar -cf ./"$nom".tar "$1"
fi
shift
done
bzip2 -f -9 ./"$nom".tar ;;
.zip )
while [ $# -gt 0 ]
do
if [ -f ./"$nom".zip ]
then
zip -r -9 ./"$nom".zip "$1"
else
zip -r -u -9 ./"$nom".zip "$1"
fi
shift
done ;;
.tar )
while [ $# -gt 0 ]
do
if [ -f ./"$nom".tar ]
then
tar -rf ./"$nom".tar "$1"
else
tar -cf ./"$nom".tar "$1"
fi
shift
done ;;
.gz )
while [ $# -gt 0 ]
do
gzip -cN -9 "$1" >> ./"$nom".gz
shift
done ;;
.rar )
while [ $# -gt 0 ]
do
rar a -r0 "$nom".rar "$1"
shift
done ;;
.bz2 )
bzip2 -c -9 "$1" >> ./"$nom".bz2 ;;
.Z )
compress -c "$1" >> ./"$nom".Z ;;
.par )
parbinary=`which par || which parchive`
rm "$nom".p[0-9][0-9]
$parbinary a "$nom".par "$@";;
* )
echo "error" ;;
esac
kill $dialogpid
sleep 1
zenity --title "$title" --info --text "$PWD/$nom$compres $rec" --width 200 --height 25
else
exit 0
fi
fi


==== nautilus-scripts/Varios/Archiving/Compress__.bz2_ ====

$ cat nautilus-scripts/Varios/Archiving/Compress__.bz2_

#!/bin/sh
#
# BZIP2 wrapper for Nautilus Scripts menu.
#
# AUTHOR: Roberto Piscitello
# VERSION: 1.1
# LICENSE: public domain
# DEPENDENCIES: Nautilus, nautilus-error-dialog | gdialog | xmessage, bzip2
# CHANGES:
# v1.1: 17 Mar 2002
# * made public domain (no more GPL)
# * removed beep stuff, since it doesn't seem to work
# * added nautilus-error-dialog support
# * use "which" to avoid hardcoded paths (as suggested by Dylan Griffiths)
# v1.0: 21 May 2001
# * first public release
# INSTALL NOTES:
# * open a Nautilus window and select, from the menu, File->Script->Open Scripts directory.
# * copy this file in that directory.
# * right-click on the copied file and open the Properties window.
# * from the first tab: (if you want) change its icon (I suggest
# "/usr/share/pixmaps/nautilus/gnome-compressed.png") and name.
# * from the third tab: give executable permissions to the file owner.
#

TMP_FILE=`tempfile 2> /dev/null` || TMP_FILE="/tmp/nautilus-script.$$"
IFS="
"

trap "rm -f $TMP_FILE" EXIT

for F in $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS; do
cd `dirname $F`
if ! bzip2 `basename $F` 2> $TMP_FILE; then
# Some error happened: show an error message
if which nautilus-error-dialog; then
nautilus-error-dialog --title bzip2 --message "`cat $TMP_FILE`."
elif which gdialog; then
gdialog --title bzip2 --msgbox "`cat $TMP_FILE`." 20 100
elif which xmessage; then
xmessage -buttons OK -file $TMP_FILE
fi
fi
done


==== nautilus-scripts/Varios/Archiving/Compress__.gz_ ====

$ cat nautilus-scripts/Varios/Archiving/Compress__.gz_

#!/bin/sh
#
# GZIP wrapper for Nautilus Scripts menu.
#
# AUTHOR: Roberto Piscitello
# VERSION: 1.1
# LICENSE: public domain
# DEPENDENCIES: Nautilus, nautilus-error-dialog | gdialog | xmessage, gzip
# CHANGES:
# v1.1: 17 Mar 2002
# * made public domain (no more GPL)
# * removed beep stuff, since it doesn't seem to work
# * added nautilus-error-dialog support
# * use "which" to avoid hardcoded paths (as suggested by Dylan Griffiths)
# v1.0: 21 May 2001
# * first public release
# INSTALL NOTES:
# * open a Nautilus window and select, from the menu, File->Script->Open Scripts directory.
# * copy this file in that directory.
# * right-click on the copied file and open the Properties window.
# * from the first tab: (if you want) change its icon (I suggest
# "/usr/share/pixmaps/nautilus/gnome-compressed.png") and name.
# * from the third tab: give executable permissions to the file owner.
#

TMP_FILE=`tempfile 2> /dev/null` || TMP_FILE="/tmp/nautilus-script.$$"
IFS="
"

trap "rm -f $TMP_FILE" EXIT

for F in $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS; do
cd `dirname $F`
if ! gzip `basename $F` 2> $TMP_FILE; then
# Some error happened: show an error message
if which nautilus-error-dialog; then
nautilus-error-dialog --title gzip --message "`cat $TMP_FILE`."
elif which gdialog; then
gdialog --title gzip --msgbox "`cat $TMP_FILE`." 20 100
elif which xmessage; then
xmessage -buttons OK -file $TMP_FILE
fi
fi
done


==== nautilus-scripts/Varios/Archiving/Decompress ====

$ cat nautilus-scripts/Varios/Archiving/Decompress

#!/bin/sh
#
# GUNZIP and BUNZIP2 wrapper for Nautilus Scripts menu.
#
# AUTHOR: Roberto Piscitello
# VERSION: 1.1
# LICENSE: public domain
# DEPENDENCIES: Nautilus, nautilus-error-dialog | gdialog | xmessage, gzip, bzip2, awk
# CHANGES:
# v1.1: 17 Mar 2002
# * made public domain (no more GPL)
# * removed beep stuff, since it doesn't seem to work
# * added nautilus-error-dialog support
# * use "which" to avoid hardcoded paths (as suggested by Dylan Griffiths)
# v1.0: 21 May 2001
# * first public release
# INSTALL NOTES:
# * open a Nautilus window and select, from the menu, File->Script->Open Scripts directory.
# * copy this file in that directory.
# * right-click on the copied file and open the Properties window.
# * from the first tab: (if you want) change its icon (I suggest
# "/usr/share/pixmaps/nautilus/gnome-compressed.png") and name.
# * from the third tab: give executable permissions to the file owner.
#

TMP_FILE=`tempfile 2> /dev/null` || TMP_FILE="/tmp/nautilus-script.$$"
IFS="
"

trap "rm -f $TMP_FILE" EXIT

for F in $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS; do
cd `dirname $F`
if [ `echo $F|awk '{ print substr($0,length($0)-2) }'` = "bz2" -o `echo $F|awk '{ print substr($0,length($0)-1) }'` = "bz" ]; then
UZIP="bunzip2"
else
UZIP="gunzip"
fi
if ! $UZIP `basename $F` 2> $TMP_FILE; then
# Some error happened: show an error message
if which nautilus-error-dialog; then
nautilus-error-dialog --title $UZIP --message "`cat $TMP_FILE`."
elif which gdialog; then
gdialog --title $UZIP --msgbox "`cat $TMP_FILE`." 20 100
elif which xmessage; then
xmessage -buttons OK -file $TMP_FILE
fi
fi
done


==== nautilus-scripts/Varios/Archiving/gnome-archive ====

$ cat nautilus-scripts/Varios/Archiving/gnome-archive

#!/bin/sh
##This invokes the Gnome Archiver (meatgrinder) with the selected files
##meat-grinder is a gnome-base graphical tar.gz creator.
meat-grinder $@


==== nautilus-scripts/Varios/Archiving/super-extractor ====

$ cat nautilus-scripts/Varios/Archiving/super-extractor

#!/bin/bash

# This script tests the file type of the file then extracts
# it with the correct program. If the program supports it,
# it will prompt you for a directory to extract it to.
#
# Distributed under the terms of GNU GPL version 2 or later
#
# Copyright (C) Keith Conger
#
# Install in your ~/Nautilus/scripts directory.
# You need to be running Nautilus 1.0.3+, gnome-utils, unrar,
# unace, unarj and unzip. The rest should already be installed.

DEFAULT_DIR=~/tmp/

UNRAR_PATH=/usr/local/bin #Path to unrar binary.
UNZIP_PATH=/usr/bin #Path to unzip binary.
UNACE_PATH=/usr/local/bin #Path to unace binary.
UNARJ_PATH=/usr/bin #Path to unarj binary.
BUNZIP2_PATH=/usr/bin #Path to bzip2 binary.
GUNZIP_PATH=/usr/bin #Path to gunzip binary.
TAR_PATH=/bin #Path to tar binary.

FILE_TYPE=$(file -b $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS|awk '{ print $1}')
MIME_TYPE=$(file -b $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS)

if [ "$FILE_TYPE" = "bzip2" ]; then
TAR_TEST=$(echo $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS|grep .tar.)
if [ $TAR_TEST = $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS ]; then
$BUNZIP2_PATH/bzcat $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS|tar xv >> /tmp/extract-script.log
gdialog --separate-output --title "Extraction Log" --textbox /tmp/extract-script.log 50 70 2>&1
rm /tmp/extract-script.log
else
$BUNZIP2_PATH/bunzip2 -d $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS >> /tmp/extract-script.log
gdialog --separate-output --title "Extraction Log" --textbox /tmp/extract-script.log 50 70 2>&1
rm /tmp/extract-script.log
fi
elif [ "$FILE_TYPE" = "RAR" ]; then
DIR=$(gdialog --title "Extract compressed file to..." --inputbox "Directory to extract to:" 200 400 "$DEFAULT_DIR" 2>&1)
mkdir $DIR
$UNRAR_PATH/unrar x -kb $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS $DIR/ >> /tmp/extract-script.log
gdialog --separate-output --title "Extraction Log" --textbox /tmp/extract-script.log 50 70 2>&1
rm /tmp/extract-script.log
elif [ "$FILE_TYPE" = "Zip" ]; then
DIR=$(gdialog --title "Extract compressed file to..." --inputbox "Directory to extract to:" 200 400 "$DEFAULT_DIR" 2>&1)
mkdir $DIR
$UNZIP_PATH/unzip $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS -d $DIR/ >> /tmp/extract-script.log
gdialog --separate-output --title "Extraction Log" --textbox /tmp/extract-script.log 50 70 2>&1
rm /tmp/extract-script.log
elif [ "$FILE_TYPE" = "gzip" ]; then
TAR_TEST=$(echo $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS|grep .tar.)
if [ $TAR_TEST = $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS ]; then
TAR="1"
fi

TAR_TEST=$(echo $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS|grep .tgz)
if [ $TAR_TEST = $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS ]; then
TAR="1"
fi

if [ $TAR = 1 ]; then
$TAR_PATH/tar zxvf $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS >> /tmp/extract-script.log
gdialog --separate-output --title "Extraction Log" --textbox /tmp/extract-script.log 50 70 2>&1
rm /tmp/extract-script.log
else
$GUNZIP_PATH/gunzip $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS >> /tmp/extract-script.log
gdialog --separate-output --title "Extraction Log" --textbox /tmp/extract-script.log 50 70 2>&1
rm /tmp/extract-script.log
fi
elif [ "$FILE_TYPE" = "ARJ" ]; then
$UNARJ_PATH/unarj x $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS >> /tmp/extract-script.log
gdialog --separate-output --title "Extraction Log" --textbox /tmp/extract-script.log 50 70 2>&1
rm /tmp/extract-script.log
elif [ "$FILE_TYPE" = "ACE" ]; then
$UNACE_PATH/unace x -y $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS >> /tmp/extract-script.log
gdialog --separate-output --title "Extraction Log" --textbox /tmp/extract-script.log 50 70 2>&1
rm /tmp/extract-script.log
elif [ "$FILE_TYPE" = "GNU" ]; then
$TAR_PATH/tar xvf $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS >> /tmp/extract-script.log
gdialog --separate-output --title "Extraction Log" --textbox /tmp/extract-script.log 50 70 2>&1
rm /tmp/extract-script.log
else
echo -e "\007"
gdialog --separate-output --title "File error" --msgbox " File $1 is not a known archive type. File type reported as: $MIME_TYPE " 50 100 2>&1
fi


==== nautilus-scripts/Varios/Archiving/unrar ====

$ cat nautilus-scripts/Varios/Archiving/unrar

#!/bin/sh
#
# This script unrars to a directory specified in gdialog and
# redirects stdout to a log file.
#
# Distributed under the terms of GNU GPL version 2 or later
#
# Copyright (C) Keith Conger
#
# Install in your ~/Nautilus/scripts directory.
# You need to be running Nautilus 1.0.3 +

UNRAR_PATH=/usr/local/bin #Path to unrar binary.

DIR=$(gdialog --title "unrar to..." --inputbox "unrar to..." 200 350 ~/tmp/"$1" 2>&1)

mkdir $DIR

$UNRAR_PATH/unrar x -kb "$1" $DIR/ >> $DIR/"$1".log

gdialog --separate-output --title "unrar log" --textbox $DIR/"$1".log 50 70 2>&1
rm $DIR/"$1".log

==== nautilus-scripts/Varios/Execute/command_prompt_here ====

$ cat nautilus-scripts/Varios/Execute/command_prompt_here

#!/usr/bin/env python

# Open command prompt in a single selected directory
# or otherwise in current dir

# Put this (executable) file in ~/.gnome2/nautilus-scripts/
# Then right click a directory or anywhere in current dir window
# to get the scripts->command_prompt_here menu option

# This has been tested on nautilus 2.2 and 2.4

def nautilus_script_display_error():
"""This is a general error message display for nautilus scripts"""
import sys
#errors_fd,errors_name=tempfile.mkstemp() #This not available until python 2.3
errors_name=os.tmpnam()
errors_fd=file(errors_name,"w")
etype, emsg, etb = sys.exc_info()
errors_fd.write('line '+str(etb.tb_lineno)+': '+str(etype)+': '+str(emsg)+'\n')
errors_fd.write('\n$PWD: %s' % os.getcwd())
errors_fd.write('\nsys.argv: %s' % str(sys.argv[1:]))
for var in os.environ:
if var.startswith("NAUTILUS_"):
errors_fd.write("\n%s: %s" % (var,os.environ[var].replace('\n',"\\n")))
errors_fd.close()
pid = os.fork()
if pid == 0:
cmd = ["zenity", "--text-info", "--filename=%s" % errors_name, "--title=error", "--width=640", "--height=220"]
os.execvp(cmd[0],cmd)
os.waitpid(pid,0)
os.unlink(errors_name)

import os
import urllib, urlparse
try:
home_dir=os.environ["HOME"]

# An alternative to below could be:
# 1. get where we are (CURRENT_URI (file://, trash:, x-nautilus-desktop:///))
# 2. use argv to see if 1 selected dir under that?
dir_to_open=""
selected=os.environ["NAUTILUS_SCRIPT_SELECTED_URIS"].split("\n")[:-1]
#Note getting SELECTED_URIS rather than SELECTED_FILE_PATHS as later
#is not set when ~/Desktop and ~/.Trash selected??
if len(selected) == 1:
uri_bits=urlparse.urlparse(urllib.unquote(selected[0]))
if uri_bits[0] == "file":
dir_to_open=uri_bits[2]
elif uri_bits[0] == "x-nautilus-desktop":
if uri_bits[2] == "///trash":
dir_to_open=home_dir+'/.Trash'
elif uri_bits[2] == "///home":
dir_to_open=home_dir+'/Desktop'
if not os.path.isdir(dir_to_open):
dir_to_open=""
if not dir_to_open: #we didn't select 1 directory so open current dir
current_uri=os.environ["NAUTILUS_SCRIPT_CURRENT_URI"]
uri_bits=urlparse.urlparse(urllib.unquote(current_uri))
if uri_bits[0] == "file":
dir_to_open=uri_bits[2]
elif uri_bits[0] == "x-nautilus-desktop":
dir_to_open=home_dir+'/Desktop'
elif uri_bits[0] == "trash":
dir_to_open=home_dir+'/.Trash'
shell_cmd=["gnome-terminal", "--working-directory=%s"%dir_to_open]
os.execvp(shell_cmd[0],shell_cmd)
except:
nautilus_script_display_error()


==== nautilus-scripts/Varios/Execute/gedit ====

$ cat nautilus-scripts/Varios/Execute/gedit

#!/bin/bash
#
# Nautilus script -> open gedit
#
# Owner : Largey Patrick from Switzerland
# patrick.largey@nazeman.org
# www.nazeman.org
#
# Licence : GNU GPL
#
# Copyright (C) Nazeman
#
# Ver. 0.9-1 Date: 16.02.2002
# Add multiple file open in the same windows
#
# Ver: 0.9 Date: 27.10.2001
# Initial release
#
# Dependence : Nautilus (of course)
# Gnome-utils (gdialog)
#
filesall=""
while [ $# -gt 0 ]
do
files=`echo "$1" | sed 's/ /\?/g'`
filesall="$files $filesall"
shift
done
gedit $filesall&

==== nautilus-scripts/Varios/Execute/ghex ====

$ cat nautilus-scripts/Varios/Execute/ghex

#!/bin/sh
#This script opens the selected file in ghex--a hex editor
#It will only open a single file
ghex $@

==== nautilus-scripts/Varios/Execute/glimmer ====

$ cat nautilus-scripts/Varios/Execute/glimmer

#!/bin/bash
#
# Nautilus script -> open glimmer
#
# Owner : Largey Patrick from Switzerland
# patrick.largey@nazeman.org
# www.nazeman.org
#
# Licence : GNU GPL
#
# Copyright (C) Nazeman
#
# Ver. 0.9-1 Date: 16.02.2002
# Add multiple file open in the same windows
#
# Ver: 0.9 Date: 27.10.2001
# Initial release
#
# Dependence : Nautilus (of course)
# Glimmer http://glimmer.sourceforge.net/
#
filesall=""
while [ $# -gt 0 ]
do
files=`echo "$1" | sed 's/ /\?/g'`
filesall="$files $filesall"
shift
done
glimmer $filesall&

==== nautilus-scripts/Varios/Execute/gnome2-terminal-here ====

$ cat nautilus-scripts/Varios/Execute/gnome2-terminal-here

#!/bin/sh
# From Chris Picton
# Replaces a Script by Martin Enlund
# Modified to work with spaces in path by Christophe Combelles

# This script either opens in the current directory,
# or in the selected directory

base="`echo $NAUTILUS_SCRIPT_CURRENT_URI | cut -d'/' -f3- | sed 's/%20/ /g'`"
if [ -z "$NAUTILUS_SCRIPT_SELECTED_FILE_PATHS" ]; then
dir="$base"
else
while [ ! -z "$1" -a ! -d "$base/$1" ]; do shift; done
dir="$base/$1"
fi

gnome-terminal --working-directory="$dir"


==== nautilus-scripts/Varios/Execute/Open_Terminal_Here ====

$ cat nautilus-scripts/Varios/Execute/Open_Terminal_Here

#!/usr/bin/perl -w
#
# Open terminal here
#
# Nautilus script that opens a gnome-terminal at the current location, if it's
# a valid one. This could be done in shell script, but I love Perl!.
#
# 20020930 -- Javier Donaire
# http://www.fraguel.org/~jyuyu/
# Licensed under the GPL v2+
#
# Modified by: Dexter Ang [thepoch@mydestiny.net]
# 2003-12-08: Modified for Gnome 2.4
# - Added checking if executed on Desktop "x-nautilus-desktop:///"
# so that it opens in /home/{user}/Desktop

use strict;

$_ = $ENV{'NAUTILUS_SCRIPT_CURRENT_URI'};
if ($_ and m#^file:///#) {
s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
s#^file://##;
exec "gnome-terminal --working-directory='$_'";
}

# Added 2003-12-08 Dexter Ang
if ($_ == "x-nautilus-desktop:///") {
$_ = $ENV{'HOME'};
$_ = $_.'/Desktop';
exec "gnome-terminal --working-directory='$_'";
}

==== nautilus-scripts/Varios/Execute/Play_in_XMMS ====

$ cat nautilus-scripts/Varios/Execute/Play_in_XMMS

#!/bin/sh
#
# Jani Soila 2001
# Public domain

# Gets arguments sorts them in alphabetical order
# and adds the list to xmms playlist.

# get arguments in array

i=0
for n ;
do
  a[$((i++))]=$n ;
done

# sort array

for (( i=0; $i<(${#a[@]}-1); i++ )) ; do   for (( j=i+1; $j<(${#a[@]}); j++ )) ;   do     if [[ ${a[$j]} < ${a[$i]} ]] ;     then       t=${a[$j]};       a[$j]=${a[$i]};       a[$i]=$t;     fi   done done # launch xmms with sorted list xmms -e "${a[@]}"

==== nautilus-scripts/Varios/Execute/root-nautilus-here ====

$ cat nautilus-scripts/Varios/Execute/root-nautilus-here

#!/bin/sh
# root-nautilus-here
# opens a root-enabled instance of a nautilus window in selected location
# requires sudo priviledges and gksudo, which may involve security risks.
#Install in your ~/Nautilus/scripts directory.
#
# Placed in the public domain by Shane T. Mueller 2001
# Fixes provided by Doug Nordwall
#
# 2004.04.18 -- keith@penguingurus.com - Added gksudo usage to provide popup
# password window if sudo has expired. Line only echos got
# root to std output. But gksudo updates your sudo access
# privs, so running nautilus with sudo will succeed
# without asking for a password.

foo=`gksudo -u root -k -m "enter your password for nautilus root access" /bin/echo "got r00t?"`
sudo nautilus --no-desktop $NAUTILUS_SCRIPT_CURRENT_URI


==== nautilus-scripts/Varios/Execute/root-terminal-here ====

$ cat nautilus-scripts/Varios/Execute/root-terminal-here

#!/bin/sh
#
#
#This script opens a root-based gnome-terminal in the directory you select.
# You need to have appropriate sudo priveleges.
#Install in your ~/Nautilus/scripts directory.

cd $NAUTILUS_SCRIPT_CURRENT_URI
sudo gnome-terminal

==== nautilus-scripts/Varios/Execute/run ====

$ cat nautilus-scripts/Varios/Execute/run

#!/bin/sh
appname=`gdialog --title "Execute Command" --inputbox "Enter name of application to execute\n on selected file(s)" 200 100 "" 2>&1`
for arg
do
exec "$appname" "$arg" &
done

==== nautilus-scripts/Varios/Execute/terminal-here ====

$ cat nautilus-scripts/Varios/Execute/terminal-here

#!/bin/sh
#
# This script opens a gnome-terminal in the directory you select.
#
# Distributed under the terms of GNU GPL version 2 or later
#
# Copyright (C) Keith Conger
#
# Install in your ~/Nautilus/scripts directory.
# You need to be running Nautilus 1.0.3+ to use scripts.

cd $NAUTILUS_SCRIPT_CURRENT_URI
exec gnome-terminal

==== nautilus-scripts/Varios/Execute/xemacs ====

$ cat nautilus-scripts/Varios/Execute/xemacs

#!/bin/sh
#This script opens the selected file(s) in xemacs
xemacs $@

==== nautilus-scripts/Varios/Execute/xine ====

$ cat nautilus-scripts/Varios/Execute/xine

#!/bin/bash
#
# Nautilus script -> Laucher media file with Xine
#
# Owner : Largey Patrick Switzerland
# patrick.largey@nazeman.org
# www.nazeman.org
#
# Licence : GNU GPL
#
# Copyright (C) Nazeman
#
# Ver :1.01 Date 09.07.2002
# start xine without file://
#
# Ver :1.0 Date 04.02.2002
#
# Xine : http://xine.sourceforge.net/
#
video_file=""$PWD""/$1""
if [ -d "$1" ]
then
exit 0
else
xine "$video_file"&
fi

==== nautilus-scripts/Varios/Execute/XMMS ====

$ cat nautilus-scripts/Varios/Execute/XMMS

#!/usr/bin/perl

my @mp3list = @ARGV;
exec 'xmms', reverse (@mp3list);

==== nautilus-scripts/Varios/Execute/xsu-terminal-here ====

$ cat nautilus-scripts/Varios/Execute/xsu-terminal-here

#!/bin/sh
#
# Nautilus script -> Launch gnome-terminal as root using Xsu
#
# Author: Dan Whitfield
# danrw.geo@yahoo.com
# http://www.geocities.com/danrw.geo/
#
# License: free (public domain)
#
# Date: 20.02.2002
#
# Xsu: http://freshmeat.net/projects/xsu/ or http://xsu.freax.eu.org/
#
#
# This script uses Xsu (http://xsu.freax.eu.org/)to allow
# you to su to a specific username and password and then,
# open a gnome-terminal in the directory you select.
# The default user is root.
# Install this script in your ~/.gnome/nautilus-scripts or
# ~/.gnome/nautilus-scripts/Execute directory.

cd $NAUTILUS_SCRIPT_CURRENT_URI
xsu -c "gnome-terminal" -u "root" -m "To run the gnome-terminal with root access,^Enter the root password below." -i "/usr/share/pixmaps/gnome-terminal.png"


==== nautilus-scripts/Varios/FileInfo/filetype ====

$ cat nautilus-scripts/Varios/FileInfo/filetype

#!/bin/sh
# Copyright (C) Sept 13, 2001 Shane Mueller
# http://g-scripts.sourceforge.net
# Released into the public domain.
#
for arg
do

filetype=$(file "$arg")

gdialog --title "File-Type Determinator" --msgbox "File $filetype" 200 200

done


==== nautilus-scripts/Varios/FileInfo/FileUsedBy ====

$ cat nautilus-scripts/Varios/FileInfo/FileUsedBy

#!/bin/sh
a=$(lsof | grep "$@")
if [ $a == ""] ; then
gdialog --backtitle "Process File Usage" --msgbox "No Users" 25 20
else
gdialog --backtitle "Word Count Script" --msgbox "$a" 25 20fi

==== nautilus-scripts/Varios/FileInfo/ggrep ====

$ cat nautilus-scripts/Varios/FileInfo/ggrep

#!/usr/bin/perl -w
#
# ggrep -- A gtk-frontend for grep. You will need
# libgtk-perl to run this program
#
# Distributed under GNU GPL v2.0 or later
#
# Copyright (C) David Westlund

use Gtk;
use strict;

init Gtk;
set_locale Gtk;

my $true = 1;
my $false = 0;

# These will be used as gtk-widgets
my $window;
my $vbox;
my $hbox;
my $parameters_label;
my $parameters_entry;
my $regexp_label;
my $regexp_entry;
my $grep_button;
my $table;
my $scroll;
my $text;
my $close_button;

# The gtk-signals
my $signal;

$window = new Gtk::Window( 'toplevel' );
$signal = $window->signal_connect( 'delete_event', sub { Gtk->exit( 0 ); } );
$window->border_width( 15 );
$window->set_title( "gtk-grep" );

$vbox = new Gtk::VBox ( $false, 0 );
$window->add( $vbox );

$hbox = new Gtk::HBox ( $false, 0 );
$vbox->pack_start ($hbox, $false, $false, 0);
$hbox->show();

$parameters_label = new Gtk::Label ( "Parameters" );
$hbox->pack_start ($parameters_label, $false, $false, 0);
$parameters_label->show();

$parameters_entry = new Gtk::Entry ();
$hbox->pack_start ($parameters_entry, $false, $false, 0);
$parameters_entry->set_usize ( 200, undef );
$parameters_entry->show();

$regexp_label = new Gtk::Label ( "Search for: " );
$hbox->pack_start ($regexp_label, $false, $false, 0);
$regexp_label->show();

$regexp_entry = new Gtk::Entry ();
$hbox->pack_start ($regexp_entry, $false, $false, 0);
$regexp_entry->set_usize ( 300, undef );
$regexp_entry->show();

$grep_button = new Gtk::Button ( "Grep" );
$grep_button->signal_connect ('clicked', \&grep );
$hbox->pack_start ($grep_button, $false, $false, 0);
$grep_button->show();

$table = new Gtk::Table (2, 1, $false);
$table->set_usize ( 600, 500 );
$vbox->pack_start ($table, $false, $false, 0);
$table->show();

$text = new Gtk::Text ( undef, undef );
$text->set_editable ($false);
$table->attach( $text, 0, 1, 0, 1,
[ 'expand', 'fill' ],
[ 'expand', 'fill' ],
0, 0 );
$text->show;

$scroll = new Gtk::VScrollbar ( $text->vadj );
$table->attach( $scroll, 1, 2, 0, 1, 'fill',
[ 'expand', 'fill' ], 0, 0 );

$scroll->show;

$close_button = new Gtk::Button( "Close" );
$close_button->signal_connect( 'clicked', sub { Gtk->exit( 0 ); } );
$vbox->pack_start( $close_button, $false, $false, 0 );
$close_button->show();

$vbox->show();
$window->show();

main Gtk;
exit (0);

sub grep
{
my $length;
my $row;
my $parameters;
my $regexp;
my $files = " ";

$length = $text->get_length ();
$text->backward_delete ($length);

foreach (@ARGV) {
print ("$_");
$files = $files . $_ . " ";
}

$parameters = $parameters_entry->get_text();
$regexp = $regexp_entry->get_text();

open GREP, "grep $parameters '$regexp' $files 2>&1 |";

while ( $row = ) {

$text->insert ( undef, undef,undef , $row );

}

close GREP;
}


==== nautilus-scripts/Varios/FileInfo/gtk2-du ====

$ cat nautilus-scripts/Varios/FileInfo/gtk2-du

#!/usr/bin/env python
#
# gtk2-du -- gtk2 frontend to du.
#
# Author: Krzysztof Luks
#
# Copyright (C) 2002 Krzysztof Luks
# Licence: GNU GPL v 2 or later.
#
# Dependency: python-gtk2
#
# This script is based on gtk-du. Gtk-du is copyright (C) David Westlund
#
#
# Version 0.1 -- 06-Nov-2002
# * initial pre-release
#
# Version 0.2 -- 07-Nov-2002
# * added scrollbar to text view
# * some layout adjustments
# * 'du' button replaced with 'execute' stock button
#

import gtk
import sys
import os

#set_locale Gtk;

def destroy(*args):
""" Callback function that is activated when the program is destoyed """
window.hide()
gtk.main_quit()

def du(*args):
buffer = text.get_buffer()
buffer.delete(buffer.get_start_iter(), buffer.get_end_iter())

files = ""
for i in sys.argv[1:]:
files = files +"\"" + i + "\" "

parameters = parameters_entry.get_text()
out = os.popen("du " + parameters + " " + files, "r")

buffer.insert(buffer.get_start_iter(), out.read())

out.close()

window = gtk.Window(gtk.WINDOW_TOPLEVEL)
window.connect("destroy", destroy)
window.set_border_width(15)
window.set_title("gtk2-du")
window.set_default_size(400, 300)

vbox = gtk.VBox(gtk.FALSE, 0)
window.add(vbox)

hbox = gtk.HBox(gtk.FALSE, 0)
vbox.pack_start(hbox, gtk.FALSE, gtk.FALSE, 0)

parameters_label = gtk.Label("Parameters: ")
hbox.pack_start(parameters_label, gtk.FALSE, gtk.FALSE, 0)
parameters_label.show()

parameters_entry = gtk.Entry()
hbox.pack_start(parameters_entry, gtk.TRUE, gtk.TRUE, 10)
parameters_entry.set_text("-chs")

du_button = gtk.Button(stock='gtk-execute')
du_button.connect('clicked', du)
hbox.pack_start(du_button, gtk.TRUE, gtk.TRUE, 0)

scroll_win = gtk.ScrolledWindow()
scroll_win.set_policy(gtk.POLICY_NEVER, gtk.POLICY_AUTOMATIC)
vbox.pack_start(scroll_win, gtk.TRUE, gtk.TRUE, 0)

text = gtk.TextView()
text.set_editable(gtk.FALSE)

scroll_win.add(text)

close_button = gtk.Button(label = "Close")
close_button.connect('clicked', destroy)
vbox.pack_start(close_button, gtk.FALSE, gtk.FALSE, 0)

du()
window.show_all()
gtk.main()


==== nautilus-scripts/Varios/FileInfo/gtk2-grep ====

$ cat nautilus-scripts/Varios/FileInfo/gtk2-grep

#!/usr/bin/env python2.2
#
# gtk2-grep -- gtk2 frontend to grep.
#
# Copyright (C) 2003 David Westlund
# All rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
# Dependency: python-gtk2
#
# This script is based on gtk2-du. Gtk2-du is copyright (C) Krzysztof Luks

import pygtk
pygtk.require('2.0')
import gtk
import sys
import os

#set_locale Gtk;

def destroy(*args):
""" Callback function that is activated when the program is destoyed """
window.hide()
gtk.main_quit()

def grep(*args):
buffer = text.get_buffer()
buffer.delete(buffer.get_start_iter(), buffer.get_end_iter())

files = os.environ.get('NAUTILUS_SCRIPT_SELECTED_FILE_PATHS')
files = files.split("\n")
files_string = ""
for i in files[0:]:
files_string = files_string +"\"" + i + "\" "

search = grep_entry.get_text()
parameters = parameters_entry.get_text()
out = os.popen("grep " + parameters + " \"" + search + "\" " + files_string, "r")

buffer.insert(buffer.get_start_iter(), out.read())

out.close()

if buffer.get_char_count() == 0:
buffer.insert(buffer.get_start_iter(), "No match found")

def check_enter(widget, key):
if key.keyval == 65293:
grep()

def check_escape(widget, key):
if key.keyval == 65307:
destroy()

window = gtk.Window(gtk.WINDOW_TOPLEVEL)
window.connect("destroy", destroy)
window.connect("key_press_event", check_escape)
window.set_border_width(12)
window.set_title("Search in files")
window.set_default_size(400, 300)

vbox = gtk.VBox(gtk.FALSE, 12)
window.add(vbox)

table = gtk.Table(2, 3, gtk.FALSE)
vbox.pack_start(table, gtk.FALSE, gtk.FALSE, 0)
table.show()

parameters_label = gtk.Label("Parameters for grep: ")
table.attach(parameters_label, 0, 1, 0, 1, gtk.FILL, gtk.FILL, 3, 3)
parameters_label.show()

parameters_entry = gtk.Entry()
parameters_entry.connect("key_press_event", check_enter)
table.attach(parameters_entry, 1, 3, 0, 1, gtk.FILL, gtk.FILL, 3, 3)
parameters_entry.show()

alignment = gtk.Alignment(0, 0, 0, 1)
grep_label = gtk.Label("Search after: ")
alignment.add(grep_label)
table.attach(alignment, 0, 1, 1, 2, gtk.FILL, gtk.FILL, 3, 3)
grep_label.show()

grep_entry = gtk.Entry()
grep_entry.connect("key_press_event", check_enter)
table.attach(grep_entry, 1, 2, 1, 2, gtk.FILL, gtk.FILL, 3, 3)
grep_entry.grab_focus()
grep_entry.show()

grep_button = gtk.Button(stock='gtk-find')
grep_button.connect('clicked', grep)
table.attach(grep_button, 2, 3, 1, 2, gtk.FILL, gtk.FILL, 3, 3)
grep_button.show()

scroll_win = gtk.ScrolledWindow()
scroll_win.set_policy(gtk.POLICY_AUTOMATIC, gtk.POLICY_AUTOMATIC)
vbox.pack_start(scroll_win, gtk.TRUE, gtk.TRUE, 0)

text = gtk.TextView()
text.set_editable(gtk.FALSE)

scroll_win.add(text)

button_box = gtk.HButtonBox()
button_box.set_layout(gtk.BUTTONBOX_END)
button_box.show()
vbox.pack_start(button_box, gtk.FALSE, gtk.FALSE, 0)
close_button = gtk.Button(stock='gtk-close')
close_button.connect('clicked', destroy)
button_box.add(close_button)

window.show_all()
gtk.main()


==== nautilus-scripts/Varios/FileInfo/gtk-du ====

$ cat nautilus-scripts/Varios/FileInfo/gtk-du

#!/usr/bin/perl -w
#
# gtk-du -- gtk frontend to du. You will need
# libgtk-perl to run the program.
#
# Distributed under the terms of GNU GPL v 2.0 or later
#
# Copyright (C) David Westlund

use Gtk;
#use strict;

init Gtk;
set_locale Gtk;

my $true = 1;
my $false = 0;

# These will be used as gtk-widgets
my $window;
my $vbox;
my $hbox;
my $parameters_label;
my $parameters_entry;
my $du_button;
my $table;
my $scroll;
my $text;
my $close_button;

# The gtk-signals
my $signal;

$window = new Gtk::Window( 'toplevel' );
$signal = $window->signal_connect( 'delete_event', sub { Gtk->exit( 0 ); } );
$window->border_width( 15 );
$window->set_title( "gtk-du" );

$vbox = new Gtk::VBox ( $false, 0 );
$window->add( $vbox );

$hbox = new Gtk::HBox ( $false, 0 );
$vbox->pack_start ($hbox, $false, $false, 0);
$hbox->show();

$parameters_label = new Gtk::Label ( "Parameters" );
$hbox->pack_start ($parameters_label, $false, $false, 0);
$parameters_label->show();

$parameters_entry = new Gtk::Entry ();
$hbox->pack_start ($parameters_entry, $false, $false, 0);
$parameters_entry->set_text ( "-chs" );
$parameters_entry->show();

$du_button = new Gtk::Button ( "du" );
$du_button->signal_connect ('clicked', \&du );
$hbox->pack_start ($du_button, $false, $false, 0);
$du_button->show();

$table = new Gtk::Table (2, 1, $false);
$table->set_usize ( 300, 200 );
$vbox->pack_start ($table, $false, $false, 0);
$table->show();

$text = new Gtk::Text ( undef, undef );
$text->set_editable ($false);
$table->attach( $text, 0, 1, 0, 1,
[ 'expand', 'fill' ],
[ 'expand', 'fill' ],
0, 0 );
$text->show;

$scroll = new Gtk::VScrollbar ( $text->vadj );
$table->attach( $scroll, 1, 2, 0, 1, 'fill',
[ 'expand', 'fill' ], 0, 0 );
$scroll->show;

$close_button = new Gtk::Button( "Close" );
$close_button->signal_connect( 'clicked', sub { Gtk->exit( 0 ); } );
$vbox->pack_start( $close_button, $false, $false, 0 );
$close_button->show();

$vbox->show();
$window->show();

du ();

main Gtk;
exit (0);

sub du
{
my $length;
my $row;
my $parameters;
my $files = " ";

$length = $text->get_length ();
$text->backward_delete ($length);

foreach (@ARGV) {
$files = $files . "\"$_\"" . " ";
}

$parameters = $parameters_entry->get_text();

open DU, "du $parameters $files 2>&1 |";

while ( $row = ) {

$text->insert ( undef, undef,undef , $row );

}

close DU;
}


==== nautilus-scripts/Varios/FileInfo/mimetype ====

$ cat nautilus-scripts/Varios/FileInfo/mimetype

#!/bin/sh
# Copyright (C) Sept 13, 2001 Shane Mueller
# http://g-scripts.sourceforge.net
# Released into the public domain.
#
for arg
do

filetype=$(file -i "$arg")

gdialog --title "File-Type Determinator" --msgbox "File $filetype" 200 200

done


==== nautilus-scripts/Varios/FileInfo/Search_Here ====

$ cat nautilus-scripts/Varios/FileInfo/Search_Here

#!/bin/sh
# From Johnathan Bailes
# This script opens a gnome-search-tool in the directory you select.
#
# Distributed under the terms of GNU GPL version 2 or later
#
# Install in your ~/Nautilus/scripts directory.
# You need to be running Nautilus 1.0.3+ to use scripts.

cd $NAUTILUS_SCRIPT_CURRENT_URI
exec gnome-search-tool


==== nautilus-scripts/Varios/FileInfo/Show_MD5_Sum ====

$ cat nautilus-scripts/Varios/FileInfo/Show_MD5_Sum

#!/usr/bin/perl

###############################################################################
# Display the MD5 sums of the selected files
###############################################################################
#
# AUTHOR: Brian Connelly #
# DESCRIPTION: This script displays the names and MD5 sums of the selected
# files
#
# REQUIREMENTS: Nautilus file manager
# gdialog, which is included in the gnome-utils package
# Perl
#
# INSTALLATION: GNOME 1.4.x: copy this script to the ~/Nautilus/scripts
# directory
# GNOME 2.x: copy to the ~/.gnome2/nautilus-scripts directory
#
# USAGE: Select the files that you would like to display in Nautilus,
# right click, go to Scripts, and then select this script.
# A dialog window will then appear with the results for the
# selected files.
#
# VERSION INFO:
# 0.1 (20021009) - Initial public release
#
# COPYRIGHT: Copyright (C) 2002 Brian Connelly
#
# LICENSE: GNU GPL
#
###############################################################################

$script_title="MD5 Sum";
$temp_file = "/tmp/md5" . "-" . `date +'%s'`;

if(!@ARGV)
{
system("gdialog --title \"$SCRIPT_TITLE Error\" --msgbox \"No files have been selected\" 400 400 2>&1");
exit;
}

$num_files = @ARGV;

if($num_files < 30) { $num_rows = $num_files * 5; } elsif($num_files < 100) { $num_rows = $num_files } else { # just to make sure that the output window can't be too large $num_rows = 80; } foreach $file (@ARGV) { if(-d $file) { system("echo \"Cannot calculate MD5 sum for directory '$file'\" 2>&1 >> $temp_file");
}
else
{
system("md5sum \"$file\" 2>&1 >> $temp_file");
}
}

chomp($temp_file);
system("gdialog --title \"$script_title Results\" --textbox $temp_file $num_rows 80 2>&1");

system("rm $temp_file");

==== nautilus-scripts/Varios/FileInfo/Show_Parameters ====

$ cat nautilus-scripts/Varios/FileInfo/Show_Parameters

#!/bin/sh
#
# Nautilus Script:
# Show the parameters passed by nautilus.
#
# Owner:
# Barak Korren
# ifireball@yahoo.com
#
# Licence: GNU GPL
# Copyright (C) Barak Korren
#
# Dependency:
# xmessage
#
# Change log:
# Mon, Apr 05, 2004 - Created.
#
# Known Issues:
# I'd like to use zentity instead of xmessage, but it doesn't currently
# support showing text from the standard input, too bad gless doesn't seem
# to be shipped with gnome-utils anymore, maybe one can use the builtin
# Nautilus text viewer?
#

(
echo "AGRS"
for arg in "$@"; do
echo "\"$arg\""
done
echo NAUTILUS_SCRIPT_SELECTED_FILE_PATHS
echo -e "$NAUTILUS_SCRIPT_SELECTED_FILE_PATHS"
echo NAUTILUS_SCRIPT_SELECTED_URIS
echo -e "$NAUTILUS_SCRIPT_SELECTED_URIS"
echo NAUTILUS_SCRIPT_CURRENT_URI
echo -e "$NAUTILUS_SCRIPT_CURRENT_URI"
echo NAUTILUS_SCRIPT_WINDOW_GEOMETRY
echo -e "$NAUTILUS_SCRIPT_WINDOW_GEOMETRY"
) | xmessage -file -


==== nautilus-scripts/Varios/FileInfo/wordcount ====

$ cat nautilus-scripts/Varios/FileInfo/wordcount

#!/bin/sh
a=$(wc -w "$@")
gdialog --backtitle "Word Count Script" --msgbox "Words: $a" 25 20


==== nautilus-scripts/Varios/FileProcessing/concatenate ====

$ cat nautilus-scripts/Varios/FileProcessing/concatenate

#!/bin/bash
# concatenates selected files in one file and moves the old ones to Trash
# to be used with files generated by 'split' GNU/Linux utility
# Marius Andreiana
# Licence: GPL
#
# TODO
# how to do it without temp file 'nautilus_script_files' ?
# force nautilus refresh after exec
#
concat_file_name=$( echo $1 | sed s/'..$'/""/g )
#cd $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS
for arg
do
echo "$arg" >> nautilus_script_files
done

cat $( cat nautilus_script_files | sort ) > $concat_file_name
rm -f nautilus_script_files

for arg
do
mv "$arg" ~/.Trash
done


==== nautilus-scripts/Varios/FileProcessing/dos2unix ====

$ cat nautilus-scripts/Varios/FileProcessing/dos2unix

#!/bin/sh
#
# This script removes ^M carriage return characters from dos text files for proper unix formatting
# Placed in the public domain 2/2002 by Shane T. Mueller
for arg
do
uname=`date +/tmp/$arg-%m%d%Y.%H%M%S`
## uname should really be checked to see if it exists, and regenerated
## otherwise

tr -d '\015' < "$arg" > "$uname"
mv "$uname" "./$arg"
done


==== nautilus-scripts/Varios/FileProcessing/doublespace ====

$ cat nautilus-scripts/Varios/FileProcessing/doublespace

#!/bin/sh
#doublespace: Double-spaces selected file(s)
#requires unix sed
for arg
do
(sed G "$arg") > ds-"$arg"
done


==== nautilus-scripts/Varios/FileProcessing/latex ====

$ cat nautilus-scripts/Varios/FileProcessing/latex

#!/bin/bash
#
# LaTeX/TeX script for nautilus
#
# Copyright GPL
#

gdialog --msgbox `echo $*` 20 30
for file in "$*"
do
# Make sure that it is a TeX / LaTeX file
file_type=`file "$file"`
case "${file_type/*TeX*/TeX}" in
TeX)
output_type=`gdialog --title "(La)TeX script)" --radiolist "What form of output do you want" 200 400 3 '1' PDF on '2' PS off '3' DVI off '4' HTML off 2>&1`
echo .latex_$$.log
case $output_type in
1)
echo q | pdflatex $file >> .latex_$$.log
rm -f ${file/%tex/aux} ${file/%tex/log}
;;
2)
echo q | latex $file >> .latex_$$.log
dvips ${file/%tex/dvi} >> .latex_$$.log
rm -f ${file/%tex/aux} ${file/%tex/log} ${file/%tex/dvi}
;;
3)
echo q | latex $file >> .latex_$$.log
rm -f ${file/%tex/aux} ${file/%tex/log}
;;
4)
echo q | latex2html $file >> .latex_$$.log
;;
*)
exit 0;
esac
gdialog --title "(La)TeX script)" --textbox .latex_$$.log 25 80
rm -f .latex_$$.log
;;
*)
gdialog --title "(La)TeX script)" --msgbox "Could not process $file - Unsupported type: $file_type" 200 400
;;
esac
done


==== nautilus-scripts/Varios/FileProcessing/latex2ps ====

$ cat nautilus-scripts/Varios/FileProcessing/latex2ps

# Bubba's improved nautilus latex2ps script
# V3 - bibtex and re-run for references
# phurd@ualberta.ca

cd $NAUTILUS_SCRIPT_CURRENT_URI

BASENAME=`echo $1 | cut -d"." -f1`

TMPFILE=`echo ~/.latex2ps.$RANDOM.temp`

# something is stripping off a backslashes throughout when posting to
# the g-scripts-devel list... should be two before nonstopmode and two
# before input
latex \\nonstopmode\\input $@ > $TMPFILE

BIBTEX_PRESENT=`grep -c "bibliographystyle" $@`

if [ $BIBTEX_PRESENT ]
then
bibtex $BASENAME >> $TMPFILE
latex \\nonstopmode\\input $@ >> $TMPFILE
fi

UNDEFINED_REFERENCE=`grep -c "undefined references" $TMPFILE`

UNDEFINED_CITATION=`grep -c "undefined citations" $TMPFILE`

UNDEFINED=$UNDEFINED_REFERENCE+$UNDEFINED_CITATION

if [ $UNDEFINED ]
then
latex \\nonstopmode\\input $@ >> $TMPFILE
fi

BASENAME=`echo $1 | cut -d"." -f1`

dvips $BASENAME -o $BASENAME.ps

gless $TMPFILE
rm $TMPFILE

==== nautilus-scripts/Varios/FileProcessing/mail_file ====

$ cat nautilus-scripts/Varios/FileProcessing/mail_file

#!/bin/bash
#
# TODO: Fix the problem with space in the name in a better way
# (which may be any other possible way at all...)
#
case $LANG in
sv* )
EMAILADDR='Epost-addresser'
WRITEMESSAGE='Skriv meddelande'
SUBMES='Skriv meddelande (\C4mne:Meddelande)'
SEND='Skicka';;
* )
EMAILADDR='Email addresses'
WRITEMESSAGE='Write message'
SUBMES='Write message (subject:message)'
SEND='Send';;
esac

EMAILS="`gdialog --title "$EMAILADDR" --inputbox "$EMAILADDR" 200 100 2>&1`"
echo $EMAILS
MESSAGE="`gdialog --title "$SUBMES" --inputbox "$WRITEMESSAGE" 200 100 2>&1`"
echo $SUBMES

FILES=""
while [ $# -gt 0 ]; do
FILE=$PWD/$1
FILE=`echo $FILE | sed 's/ /\?/g'`
FILES="$FILES $FILE"
shift
done

SUBJECT=`echo $MESSAGE | sed 's/:.*//'`
MESSAGE=`echo $MESSAGE | sed 's/.*://'`

echo "$MESSAGE" | uuenview -a $FILES -s "$SUBJECT" -b -m "$EMAILS"


==== nautilus-scripts/Varios/FileProcessing/mail_file2 ====

$ cat nautilus-scripts/Varios/FileProcessing/mail_file2

#!/bin/bash

# FILE: mail_file --
# AUTHOR: W. Michael Petullo
# DATE: 31 May 2001
#
# Copyright (C) 2001 W. Michael Petullo
# All rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

# ============================= shrink_image () ===============================
shrink_image()
{
cp $1 $tmpdir
tmpfile=${tmpdir}/`basename $1`
mogrify -geometry '640x480>' $tmpfile
echo ${tmpfile}
}

# ============================= main () =======================================
tmpdir=`mktemp -d /tmp/mail-image-XXXXXX`

trap 'rm -rf $tmpdir' SIGHUP SIGINT SIGTERM EXIT

if [ -z $MAILER ]; then
MAILER=balsa
MAILER_NEEDS_GNOME_TERMINAL=false
fi

for i in $*; do
MAGIC=`file $i`
echo $MAGIC
case `echo $MAGIC | tr 'A-Z' 'a-z'` in
*jpeg* )
attachments="${attachments} -a `shrink_image $i`" ;;
*gif* )
attachments="${attachments} -a `shrink_image $i`" ;;
*png* )
attachments="${attachments} -a `shrink_image $i`" ;;
*tiff* )
attachments="${attachments} -a `shrink_image $i`" ;;
* )
attachments="${attachments} -a $i"
esac
done

if [ x$MAILER_NEEDS_GNOME_TERMINAL = xtrue ]; then
gnome-terminal -x $MAILER $attachments
else
$MAILER $attachments
fi


==== nautilus-scripts/Varios/FileProcessing/Mail_In_Evolution ====

$ cat nautilus-scripts/Varios/FileProcessing/Mail_In_Evolution

#!/usr/bin/perl -w
# By John Russell

# This script sends the selected file(s) with evolution.

use strict;

my $MAILTO_URL="mailto:?";
my @files = split("\n", $ENV{NAUTILUS_SCRIPT_SELECTED_FILE_PATHS});
my $count = 0;
foreach my $file (@files)
{
if ( ! -f $file && ! -l $file )
{
my @dialog = ("gdialog","--title","Error","--msgbox", "\nError: Can not send $file. \n\n Only regular files can be mailed. ","200", "300");
system (@dialog);
}
else
{
$MAILTO_URL = $MAILTO_URL . "attach=" . $file . "&";
shift;
$count += 1;
}
}

if ($count > 0)
{
my @command = ("evolution", $MAILTO_URL);
system(@command);
}


==== nautilus-scripts/Varios/FileProcessing/maker ====

$ cat nautilus-scripts/Varios/FileProcessing/maker

#!/bin/sh

case $LANG in
fr* )
title="Decompacteur"
beuh="format inconnu"
ncompr="ne peut \EAtre d\E9compress\E9"
compr="est d\E9compress\E9" ;;
sv* )
title="Packa upp"
beuh="Ok\E4nt format"
ncompr="kunde inte packas upp korrekt"
compr="\E4r uppackad" ;;
* )
title="Uncompress"
beuh="Unknown format"
ncompr="could not be decompressed"
compr="is decompressed" ;;
esac
decompressed=""
errors=""
while [ $# -gt 0 ]
do
error=0
#
# tar.gz format
#
if
ext=`echo "$1" | grep [.]tar.gz$ 2>&1`
[ "$ext" != "" ]
then
mkdir tmp
mv "$1" tmp
cd tmp
tar -xzf "$1" || error=1
dir=`ls | cut -f 2 -d 'z'`
#
# tgz format
#
elif
ext=`echo "$1" | grep [.]tgz$ 2>&1`
[ "$ext" != "" ]
then
mkdir tmp
mv "$1" tmp
cd tmp
tar -xzf "$1" || error=1
dir=`ls | cut -f 2 -d 'z'`
#
# tar format
#
elif
ext=`echo "$1" | grep [.]tar$ 2>&1`
[ "$ext" != "" ]
then
mkdir tmp
mv "$1" tmp
cd tmp
tar -xf "$1" || error=1
dir=`ls | cut -f 2 -d 'r'`
#
# gz format
#
elif
ext=`echo "$1" | grep [.]gz$ 2>&1`
[ "$ext" != "" ]
then
mkdir tmp
mv "$1" tmp
cd tmp
gunzip -N "$1" || error=1
dir=`ls | cut -f 2 -d 'z'`
#
# tar.bz2 format
#
elif
ext=`echo "$1" | grep [.]tar.bz2$ 2>&1`
[ "$ext" != "" ]
then
mkdir tmp
mv "$1" tmp
cd tmp
tar -jxf "$1" || error=1
dir=`ls | cut -f 2 -d 'z'`
#
# bz2 format
#
elif
ext=`echo "$1" | grep [.]bz2$ 2>&1`
[ "$ext" != "" ]
then
mkdir tmp
mv "$1" tmp
cd tmp
bunzip2 -k "$1" || error=1
dir=`ls | cut -f 2 -d 'z'`
#
# zip format
#
elif
ext=`echo "$1" | grep [.]zip$ 2>&1`
[ "$ext" != "" ]
then
unzip "$1" || error=1
dir=`ls | cut -f 2 -d 'z'`
#
# rar format
#
elif
ext=`echo "$1" | grep [.]rar$ 2>&1`
[ "$ext" != "" ]
then
mkdir tmp
mv "$1" tmp
cd tmp
unrar x -kb -o+ "$1" || error=1
dir=`ls | cut -f 2 -d 'r'`
#
# ??? format
#
else
gdialog --title "$title" --msgbox "$1 $beuh" 200 100
error=-1;
fi

if [ $error != -1 ]; then
if [ $error = 0 ]; then
decompressed="$decompressed $1"
else
errors="$errors $1"
fi
fi

shift
done

if [ "$decompressed" != "" ]; then
gdialog --title "$title" --msgbox "$decompressed $compr" 200 100
fi

if [ "$errors" != "" ]; then
gdialog --title "$title" --msgbox "$errors $ncompr" 200 100
fi

cd $NAUTILUS_SCRIPT_CURRENT_URI
cd $dir
./configure --prefix=/usr
make
gdialog --title "Maker" --msgbox "Compiled and made" 200 100

==== nautilus-scripts/Varios/FileProcessing/new-text-document ====

$ cat nautilus-scripts/Varios/FileProcessing/new-text-document

#!/bin/sh
#
# Add a new text file in the current directory.
#
# Distributed under the terms of GNU GPL version 2 or later
#
# Copyright (C) 2003 Dexter Ang [thepoch@mydestiny.net
# based on work by Jeffrey Philips and Johnathan Bailes
# and a script I found on themedepot.org

# KNOWN BUGS:
# - Never tested with an invalid directory. Don't know how.
# - When you enter a blank filename, it generates a .txt hidden file.
# - There's probably more.
# 2003-12-08 Dexter Ang [thepoch@mydestiny.net]
# Modified for Nautilus 2.4
# -- now detects if executed on desktop "x-nautilus-desktop:///"
# so that it creates the file in /home/{user}/Desktop

# Remove comment to set Debug Mode. Displays crucial variable values
#DEBUG_MODE=1

# Remove comment to automatically generate filename. Set to 1 to ask for filename
#ASK_MODE=1

# Set the default extension of your preference here
EXTENSION="txt"

# Function for displaying variable values and anything else I want
debug() {
[ -n "$DEBUG_MODE" ] && gdialog --title "Debug Mode" --msgbox "$*" 200 100
}

# This gets the current directory. It is "space-space" as it replaces %20 with spaces
Current_Dir="`echo "$NAUTILUS_SCRIPT_CURRENT_URI" | sed -e 's/^file:\/\///' -e 's/%20/\ /g'`"

# Added 2003-12-08 Dexter Ang
if [ $Current_Dir == "x-nautilus-desktop:///" ]; then
Current_Dir=$HOME"/Desktop"
fi

debug "Current_Dir = $Current_Dir"

if [ $ASK_MODE == "1" ]; then
debug "In Ask Mode"
New_Document="`gdialog --title "New Filename" --inputbox "Enter a new filename" 200 100 2>&1`"
if [ $? -ne "0" ]; then
debug "Canceled"
exit 1
fi
else
debug "In Non-Ask Mode"
New_Document="New Text Document"
fi
debug "New_Document = $New_Document"

COUNT=1

# If file doens't exist, touch it
if ! [ -a "$Current_Dir/$New_Document.txt" ] ; then
touch "$Current_Dir/$New_Document.txt"
# else, go loop until you get a number that works!
else
while ! [ "$retry" ] ; do
let $((COUNT++))
if ! [ -a "$Current_Dir/$New_Document($COUNT).txt" ] ; then
touch "$Current_Dir/$New_Document($COUNT).txt"
retry=1
fi
done
fi


==== nautilus-scripts/Varios/FileProcessing/New_Text_Document ====

$ cat nautilus-scripts/Varios/FileProcessing/New_Text_Document

#!/bin/sh
#
# Add a new text file in the current directory.
#
# Distributed under the terms of GNU GPL version 2 or later
#
# Copyright (C) 2003 Dexter Ang [thepoch@mydestiny.net
# based on work by Jeffrey Philips and Johnathan Bailes
# and a script I found on themedepot.org

# KNOWN BUGS:
# - Never tested with an invalid directory. Don't know how.
# - When you enter a blank filename, it generates a .txt hidden file.
# - There's probably more.
#
# 2003-12-08 Dexter Ang [thepoch@mydestiny.net]
# Modified for Nautilus 2.4
# -- now detects if executed on desktop "x-nautilus-desktop:///"
# so that it creates the file in /home/{user}/Desktop

# Remove comment to set Debug Mode. Displays crucial variable values
#DEBUG_MODE=1

# Remove comment to automatically generate filename. Set to 1 to ask for filename
#ASK_MODE=1

# Set the default extension of your preference here
EXTENSION="txt"

# Function for displaying variable values and anything else I want
debug() {
[ -n "$DEBUG_MODE" ] && gdialog --title "Debug Mode" --msgbox "$*" 200 100
}

# This gets the current directory. It is "space-space" as it replaces %20 with spaces
Current_Dir="`echo "$NAUTILUS_SCRIPT_CURRENT_URI" | sed -e 's/^file:\/\///' -e 's/%20/\ /g'`"

# Added 2003-12-08 Dexter Ang
if [ $Current_Dir == "x-nautilus-desktop:///" ]; then
Current_Dir=$HOME"/Desktop"
fi

debug "Current_Dir = $Current_Dir"

if [ $ASK_MODE == "1" ]; then
debug "In Ask Mode"
New_Document="`gdialog --title "New Filename" --inputbox "Enter a new filename" 200 100 2>&1`"
if [ $? -ne "0" ]; then
debug "Canceled"
exit 1
fi
else
debug "In Non-Ask Mode"
New_Document="New Text Document"
fi
debug "New_Document = $New_Document"

COUNT=1

# If file doens't exist, touch it
if ! [ -a "$Current_Dir/$New_Document.txt" ] ; then
touch "$Current_Dir/$New_Document.txt"
# else, go loop until you get a number that works!
else
while ! [ "$retry" ] ; do
let $((COUNT++))
if ! [ -a "$Current_Dir/$New_Document($COUNT).txt" ] ; then
touch "$Current_Dir/$New_Document($COUNT).txt"
retry=1
fi
done
fi


==== nautilus-scripts/Varios/FileProcessing/pdf2ps ====

$ cat nautilus-scripts/Varios/FileProcessing/pdf2ps

#!/usr/bin/python
# PDF to Postscript - converts a PDF file to Postcript
# by invoking pdf2ps
# Christopher Culver

from os import execvp
from sys import argv

pdf_file = []
pdf_file.append(argv[1])
execvp('pdf2ps', ['pdf2ps']+pdf_file)


==== nautilus-scripts/Varios/FileProcessing/pixdir2html.pl ====

$ cat nautilus-scripts/Varios/FileProcessing/pixdir2html.pl

#!/usr/bin/perl
# $Revision: 1.1 $
# Luis Mondesi 2002-01-17
#
# USAGE:
# SEE HELP:
# pixdir2html.pl --help
#
# For the Impatient:
# pixdir2html.pl . # passes current directory to script as root
# # this is assumed by default
#
# pixdir2html.pl -f # force copies the root/.pixdir2htmlrc
# # to all other directories within this tree
# pixdir2html.pl --menuonly # generates a menu.$EXT file only
# # see "menuheader_footer" var
# # in case you don't want headers/
# # footers in that file (as if
# # that file is a .php and will
# # be included in other files...
# # or if you don't want menus in the
# # html files created
# # set to 0: no menus whatsoever
#
# DESCRIPTION:
#
# Use this non-interactive script in Nautilus to create HTML files
# with their proper thumbnails for pictures (.jpeg, .gif or .png)
#
# Make this file executable and put it in:
# ~/.gnome/nautilus-scripts
# or
# ~/.gnome2/nautilus-scripts
#
# Then run it from from the File::Scripts::script_name menu in Nautilus
#
# You could customize each directory differently by having a
# file named .pixdir2htmlrc in the directory containing the
# pictues. This file has the form:
#
# uri=http://absolute.path.com/images # must be absolute. no trailing /
# header=
# percent=30% #size of the thumbnails for this folder
# title=
# meta=
# stylesheet=
# html_msg=


Free form using HTML tags

# body=
# p=

# table=

# td= # new=http://absolute.path.com/images/new.png # for dirs with .new files
# footer=A footer here
# # set this to 1 to avoid printing a header
# # or footer in the menu file menu.$EXT
# menuheader_footer=0
# ext=php
#
# These are the only tags that you can customize for now :-)
#
# If you don't create a file, a sample will be done for you
# at the root level of the directory from which you execute
# this script.
#
# REQUIRED: ImageMagick's Perl module and it's dependancies
#
# TODO:
#
# * read TODO scatter thru the script...
#
# * do html_msg per photo in a .pixdir2htmlrc file:
# pix_"filename" = message for this file
#
# * clean() function to cleanup all files created by this script
# HINT:
# find . -name "[$LOGFILE*|*.$EXT|$html_dir|$thumbnails_dir]" -exec rm
-fr {} \;
# * internationalization of strings
# * test in windows or other non-unix that run Perl
#
# BUGS:
# * config file should not contain double quotes (") without
# escaping them first (\")
#
# TIPS:
#
# Put a .nopixdir2htmlrc file in directories for which you do not want
# thumbnails and/or index.$EXT to be written
#

# standard modules
use strict;
use vars qw( $VERSION @INC );
use Config;

use Getopt::Long;
Getopt::Long::Configure('bundling');

use File::Copy;
use File::Find; # find();
use File::Basename; # basename();

# for progressbar
use FileHandle;

# non-standard modules:
eval "use Image::Magick";
if ($@)
{
print STDERR "\nERROR: Could not load the Image::Magick module.\n" .
" Please install this module before continuing\n".
" Use: perl -e shell -MCPAN to install it.\n".
" On Debian just: apt-get install perlmagic \n\n";
print STDERR "$@\n";
exit 1;
}
# TODO else use "convert" if found

# borrowed ideas from UDPM.pm for the progressbar.
# didn't use it because it's too bloated for what
# I needed, and it created an extra module that
# users would have to install... nice work though
#
#eval "use UDPM";

# end of loading needed modules

my $VERSION="1.4";

$|++; # disable buffer (autoflush)

my $USAGE = "
pixdir2html.pl [-n|--nomenu]
[-N|--noindex]
[-f|--force]
[-M|--menuonly]
[-E|--extension] (php)
[-t|--thumbsonly]
[-D|--directory] (.)
[-l|--menulinks]
[-c|--cut-dirs]
[-h|--help]

force - creates a .pixdir2htmlrc in every subdir overriding
any file with that name
nomenu - do not create menu file after finishing creating thumbnails
noindex - do not create the index.EXT files after creating thumbnails
menuonly - only create a menu file and exit
menulinks- number of links to put in the Menu per row. Default is 10
cut-dirs - number of directories to cut from the Menu string. Default is 0
extension- use this extension instead of default (php)
directory- use this directory instead of default (current)
menu_td - How many cells in menu?
td - How many cells in e/a file
str_limit- What's the size of the longest string allowed in menus?
help - prints this help and exit\n

e.g.
cd /path/to/picture_directory
pixdir2html --extension='html'

is the same as:
pixdir2html -E html

";

# Get Nautilus current working directory, if under Natilus:

my $nautilus_root = "";

if ( exists $ENV{'NAUTILUS_SCRIPT_CURRENT_URI'}
&& $ENV{'NAUTILUS_SCRIPT_CURRENT_URI'} =~ m#^file:///#
)
{
($nautilus_root = $ENV{'NAUTILUS_SCRIPT_CURRENT_URI'} ) =~
s#%([0-9A-Fa-f]{2})#chr(hex($1))#ge;
($nautilus_root = $nautilus_root ) =~ s#^file://##g;
}

my $ROOT_DIRECTORY= ( -d $nautilus_root ) ? $nautilus_root : ".";
my $LOG="$ROOT_DIRECTORY/pixdir2html.log";
my $CONFIG_FILE=".pixdir2htmlrc";
my $THUMBNAIL="t"; # individual thumnails files will be placed here
my $HTMLDIR="h"; # individual HTML files
my $EXT="php"; # default extension for generated HTML files
my $THUMB_PREFIX = "t"; # no need to ever change this... this starts
# the name for all thumbnail images

# list directories that should be skipped here
# separated by |
my $EXCEPTION_LIST = "CVS|RCS";
# regex of files we want to include
my $EXT_INCL_EXPR = "\.(jpg|png|jpeg|gif)";
# How big are the thumbnails?
# This is the default, in case the config file
# doesn't exist or do not have this item in it
my $PERCENT="20%";
# How many TDs per table in e/a index.EXT?
my $TD=4;
# How many TDs per menu table?
my $menu_td=10;
# How big are strings in menus?
my $STR_LIMIT = 32;

# dont worry if you don't have a log rotation facility...
# just leave it as is
my $SAVELOG = "/usr/bin/savelog";

###Nothing below this line should need to be configured.###
#**************************************************************#

my @pixdir = (); # for menu
my @pixfile = (); # for thumbfiles/pictures
my %config = (); # hash of hashes to hold config per directories
my $total_directories=0;
my $total_links=0;
my $FORCE=0;
my $NOMENU=0;
my $MENUONLY=0;
my $THUMBSONLY=0;
my $CUT_DIRS=0;
my $NOINDEX=0;
my $HELP=0;
# progressbar stuff here:
# initialization:
my $GAUGE = new FileHandle;

#my $tty = qx/tty/; # this returns text from system("tty")
my $MODE = "text";
my $DIA = "";

# xdialog is a better implementation than gdialog
# thus, if we find that, we use that first
# else, we try an alternate name
# TODO make sure this works in different systems/shells
# Go thru the PATH variable and finding the binaries:
# (this might not work on some systems...)
my @xbinaries = ("Xdialog","xdialog","gdialog","kdialog");
my @binaries = ("dialog","whiptail","cdialog");
my $FOUND = 0; # flag
foreach my $path ( split(/:/,$ENV{"PATH"}) )
{
next if ( $FOUND == 1 );
if ( exists $ENV{"NAUTILUS_SCRIPT_CURRENT_URI"} )
{
$MODE = "x";
foreach my $binary ( @xbinaries ) {
next if ( $FOUND == 1 );
if ( -x "$path/$binary" ) {
$DIA = "$path/$binary";
# gets out of these loops
$FOUND = 1;
}
} # end foreach @xbinaries
} else {
$MODE = "text";
foreach my $binary ( @binaries ) {
next if ( $FOUND == 1 );
if ( -x "$path/$binary" ) {
$DIA = "$path/$binary";
$FOUND = 1;
}
} # end foreach @binaries
} # end if NAUTILUS_SCRIPT_CURRENT_URI
} # end foreach $PATH

# make sure DIA is set or exit abnormally
if ( $MODE eq "x" ) {
if ( $DIA eq "" ) {
# error
print STDERR ("Graphical Dialog was not found.\n");
print STDERR ("Please install any of these programs:\n");
print STDERR join(" ",@xbinaries)."\n";
exit 1;
}
} elsif ( $MODE eq "text" )
{
if ( $DIA eq "" ) {
# error
print STDERR ("Console Dialog was not found.\n");
print STDERR ("Please install any of these programs:\n");
print STDERR join(" ",@binaries)."\n";
exit 1;
}
}

# get options
GetOptions(
# flags
'n|nomenu' => \$NOMENU,
'f|force' => \$FORCE,
'h|help' => \$HELP,
'M|menuonly' => \$MENUONLY,
't|thumbsonly' => \$THUMBSONLY,
'N|noindex' => \$NOINDEX,
'l|menulinks=i' => \$menu_td,
# strings
'E|extension=s' => \$EXT,
'D|directory=s' => \$ROOT_DIRECTORY,
# numbers
'menu_td=i' => \$menu_td,
'td=i' => \$TD,
'str_limit=i' => \$STR_LIMIT,
'c|cut-dirs=i' => \$CUT_DIRS
);

die $USAGE if $HELP;

my $FILE_NAME="index";
my $MENU_NAME="menu";
my $menu_str="";

my $LOGFILE = new FileHandle;

my $THUMBNAILSDIR="$ROOT_DIRECTORY/$THUMBNAIL";
my $HTMLSDIR="$ROOT_DIRECTORY/$HTMLDIR";

warn << "__EOF__"; Perl pixdir2html v$VERSION (Luis Mondesi / LatinoMixed.com)
(running with Perl $] on $Config{'archname'}) \n \n
__EOF__

main();

#-------------------------------------------------#
# FUNCTIONS #
#-------------------------------------------------#
sub main {

$LOGFILE->open("> $LOG");
$LOGFILE->autoflush(1);

# for now --clear is the same for all dialogs:
# ( $MODE eq "x" ) ? " --clear ":
my $ARGS = " --clear ";

$GAUGE->open("| $DIA $ARGS --backtitle 'Picture Directory to HTML'
--title 'Picture Progress' --gauge 'Thumbnails Creation' 8 70 0 2>&1");
$GAUGE->autoflush(1);

# which progressbar are we using?
print $LOGFILE ("Mode $MODE\n");

# are we creating a menu file only?
if ( $MENUONLY > 0 ) {
print $LOGFILE ("= Creating menu file\n");
menu_file();
return 0;
}

print $LOGFILE "= Start directory $ROOT_DIRECTORY \n";

if ( ! -f "$ROOT_DIRECTORY/$CONFIG_FILE" )
{
print $LOGFILE ( "Missing main $CONFIG_FILE. Creating one for you
\n");
init_config($ROOT_DIRECTORY,"true");
}

# get menu string
# TODO
# this will generate a list of all
# directories that don't have a .nopixdir2htmlrc
# file in them and assume that a index.$EXT file
# will be created later during this script
# execution. I don't like this assumption
# and will fix this later...
# For now it just works. This way we get a uniform
# Menu string for all index files.
unless ( $NOMENU == 1 ) {
print $LOGFILE ("= Creating menu string\n");
$menu_str = menu_file();
}

# make all thumbnails and indices
mkthumb($ROOT_DIRECTORY,$menu_str);

if ( $THUMBSONLY > 0 ) {
# this is a quick "dirty" way of getting only
# thumbnails and their respetive index.html files
return 0;
}

# make all supporting HTML files
thumb_html_files($ROOT_DIRECTORY);

# close GAUGE
#print $GAUGE "\x04";
#$GAUGE->close();
eof($GAUGE);
undef($GAUGE); # this also closes the gauge... but...

# close log
print $LOGFILE ("$total_directories directories.\n\n");
$LOGFILE->close();

if ( -x $SAVELOG ) {
system("$SAVELOG $LOG > /dev/null 2>&1");
}

return 0;
} # endmain

sub init_config {
# Takes one argument:
# ROOT = directory from which we will take the config file
my %config_tmp = ();
my $ROOT = shift;
my $create_config = shift;
my $line="";

# some defaults:
#
# it's very important to set this to a
# full URI:
# file:///path/to/root/directory
# http://www.server.tld/path/to/root/directory
# where "root directory" is the main dir
# where all other directories reside (and not
# the / root filesystem of UNIX/Linux/...).
# For now, ".." do the trick for a simple
# tree of directories:
# ROOT/
# ROOT/dir_a
# ROOT/dir_b
# ROOT/dir_c
#
# and not
# ROOT/
# ROOT/dir_a/dir_a1/dir_a2
# ROOT/dir_b ...
# for which case you will need a full path
$config_tmp{$ROOT}{"uri"}="..";
$config_tmp{$ROOT}{"percent"}=$PERCENT;
$config_tmp{$ROOT}{"title"}="Images";
$config_tmp{$ROOT}{"meta"}="";
$config_tmp{$ROOT}{"stylesheet"}=" ";
$config_tmp{$ROOT}{"html_msg"}="

Free form HTML

";
$config_tmp{$ROOT}{"body"}="";
$config_tmp{$ROOT}{"p"}="

";
$config_tmp{$ROOT}{"table"}="

# tr=

";
$config_tmp{$ROOT}{"td"}=" ";
# when header is set, title, meta, stylesheet, etc...
# are discarded. So do a complete set
# such as

"; $config_tmp{$ROOT}{"tr"}="