Forum Debian Users Gang

#!/bin/sh
######################
## sciagacz ver 0.1 ##
## licencja gnu :)  ##
#############################################
## sciagaj muze z wrzuty bez ograniczen :) ##
## autor "aki" podziekowanie dla :         ##
## forum.dug.net.pl :)                     ##
## jezeli uwazasz ze powinienes sie        ##
## znalezc na tej liscie napisz do mnie :) ##
#############################################
# zmodyfikowane przez kwachu

program () {
echo "Podaj adres strony z mp3 :"
read adres
nr=`echo $adres | cut -f5 -d'/'`
nazwa=`echo $adres | cut -f6 -d'/'`
mkdir ~/tmp_mp3/
cd ~/tmp_mp3/

echo "adres strony z plikiem to:"

echo http://www.wrzuta.pl/aud/file/$nr

echo "zaczynam pobieranie:"

wget http://www.wrzuta.pl/aud/file/$nr

echo "Sciagniety plik to:"
echo $nazwa
sleep 1
echo "zmieniam nazwe i kopiuje do katalogu mp3:"

mv "`ls`" ~/mp3/$nazwa.mp3

cd ..
rm -r ~/tmp_mp3/
echo "skonczone !!!!"
}
if [ -e ~/mp3/ ]; then
program
else
mkdir ~/mp3/
program
fi

#!/bin/bash


###################################################################
### Wrzuta Downloader by Grzegorz "Ventrue" Woźniak             ###
###  GG: 1730301, JID:   ventrue@jabster.pl                     ###
###                                                             ###
###                                                             ###
### sob, 17 maj 2008, 17:44:59 CEST   2008                      ### 
### Skrypt może mało elegancko napisany, ale działa i ściąga    ### 
### pliki :-)                                                   ###
### GREETS: azhag - za regexpy, forum dug.net.pl,               ###
### debian.linux.pl, Niszczyciel Światów                        ###
###                                                             ###
###   TODO:                                                     ###
###   - Jakiś progressbar by się przydał                        ###
###   - Zmiana kdialog na coś innego - propozycje?              ###
###   - Jakaś konwersja plików filmowych po ściągnięciu?        ###
###                   ...                                       ###
###   URUCHAMIANIE:                                             ###
###       chmod +x wrzuta-downloader                            ###
###      a potem ./wrzuta-downloader                            ###
###     Wymagany: kdialog, wget                                 ###
###################################################################


################################################################ Konfiguracja
#Komunikaty
MESG_CHOOSE_FILETYPE="Wybierz typ pliku:" 
MESG_ENTER_FILENAME="Wprowadź adres pliku do ściągnięcia"
MESG_PROG_NAME="Wrzuta downloader"
MESG_DOWNLOADING="Za chwilę rozpocznie się pobieranie pliku. Po ściągnięciu ujrzysz stosowny komunikat."
MESG_OK="Plik $filename pobrany prawidłowo!"
AUDIO_FILES="Pliki multimedialne"
VIDEO_FILES="Pliki Flash Video"
FILETYPE1="Audio"
FILETYPE2="Video"

#Generowanie plików potrzebnych do działania :) :
LOGFILE="/tmp/wd-wget-log.$$"
ADDRESS="/tmp/wd-address.$$"
#Koniec konfiguracji
################################################################## Skrypt

function downloading
{
kdialog --title "$MESG_PROG_NAME" --msgbox "$MESG_DOWNLOADING"
wget -o $LOGFILE "$nowyadres" -O "$filename"
}

function removing
{
rm -rf $LOCK
rm -rf $LOGFILE
rm -rf $ADDRESS
}

function title
{
remote=`kdialog --title "$MESG_PROG_NAME" --inputbox "$MESG_ENTER_FILENAME"` 
}

function allok
{
kdialog --title "$MESG_PROG_NAME" --msgbox "$MESG_OK"
}
typ=`kdialog --title "$MESG_PROG_NAME" --combobox "$MESG_CHOOSE_FILETYPE" "$FILETYPE1" "$FILETYPE2"`
if [ "$typ" = "Audio" ]; then
title
#echo "1" > $LOCK
echo "$remote" > $ADDRESS
if [ -z $remote ]; then
exit
fi
nowyadres=`cat $ADDRESS | sed -r "s:http\://(.*).wrzuta.pl/audio/(.*)/(.*):http\://www.wrzuta.pl/aud/file/\2/1:g"`
filename=`kdialog --getsavefilename :label1 "*.mp3 *.wav |$AUDIO_FILES"`
if [ -z $filename ]; then
exit
else
downloading
allok
removing
fi

elif [ "$typ" = "Video" ]; then
title

echo "$remote" > $ADDRESS
nowyadres=`cat $ADDRESS | sed -r "s:http\://(.*).wrzuta.pl/film/(.*)/(.*):http\://www.wrzuta.pl/vid/file/\2/1:g"`

filename=`kdialog --getsavefilename :label1 "*.flv |Flash Video"`
if [ -z $filename ]; then
exit

else
downloading
allok
removing
fi
fi