Оформление дискографий и треклистов - красиво, дёшево, надёжно и практично

#!/bin/bash
# This script is subject to GNU GPLv3
# NO WARRANTY.
# Usage: mkdiscog DIRECTORY TORRENT_PREFIX > trlist.txt
# Traverses the DIRECTORY, looks for flac, wav and mpg files
# Encodes all uncompressed wavs into flac, attaches cue sheet if available, embeds cover image (Artwork/front.jpg).
# Creates flac.cue based on wav.cue
# For mpeg videos (when included as bonus tracks on enhanced CDs) prints out stream technical information.
# Upload all cover images (Artwork/front.jpg) and video screenshots (Artwork/MPEGNAME-N.jpg) to photobucket under covers/TORRENT_PREFIX folder.
# Creates TORRENT_PREFIX.torrent if it doesn't exist yet.
process_dir(){
    pushd "$1" >/dev/null
    if [ -n "$2" ]
    then
        local album="$2"
    fi
    shopt -s nullglob
    [ -n "$album" ] && echo "[spoiler=\"$album\"]"
    for i in *
    do
        if [ -d "$i" -a "$i" != "Artwork" ]
        then
            process_dir "$i" "$i"
            continue
        fi
    done
    for wav in *wav
    do
        [ -f Artwork/front.jpg ] && {
            echo "Encoding file $wav" 1>&2
            flac -f --best "$wav" --picture=Artwork/front.jpg --cuesheet="$wav".cue --delete-input-file 1>&2
            flac=${wav%%wav}flac
            sed -e s@"$wav"@"$flac"@ -e s/WAVE/FLAC/ "$wav".cue > "$flac".cue
        }
    done
    local imgname="`ls *flac|head -1 2>/dev/null`"
    imgname=${imgname%%.flac}
    if [ -n "$imgname" -a -f Artwork/front.jpg ]
    then
        for jpg in Artwork*/front.jpg
        do
            dff=`echo $jpg|sed -e 's@^Artwork@@' -e 's@/front.jpg$@@'`
            ln -fs "$PWD/$jpg" "/tmp/$imgname$dff.jpg"
            images=("${images[@]}" "/tmp/$imgname$dff.jpg")
            echo "[img=right]http://i214.photobucket.com/albums/cc16/hexonut/covers/$trname/$imgname$dff.jpg[/img]"
        done
    fi
    for i in *flac
    do
            local trackname="${i%%.flac}"
        trlist.awk "$trackname.wav.toc"
        for j in `ls $trackname*.log|sort -r`
#        for j in `ls $trackname*.log|head -1`
        do
            case "$j" in
            $trackname.wav.log)
                echo "[spoiler=\"cdparanoia/ARCue.log\"]"
                ;;
            ${trackname}.log|${trackname}2.log|${trackname}eac.log)
                dos2unix "$j" >/dev/null 2>/dev/null
                echo "[spoiler=\"EAC Log\"]"
                ;;
            ${trackname}[3-9].log)
                dos2unix "$j" >/dev/null 2>/dev/null
                local number=${j##$trackname}
                number=${number%%.log}
                echo "[spoiler=\"EAC Log - re-rip $[number-1]\"]"
                ;;
            ${trackname}eac[2-9].log)
                dos2unix "$j" >/dev/null 2>/dev/null
                local number=${j##$trackname}
                number=${number%%.log}
                echo "[spoiler=\"EAC Log - re-rip $number\"]"
                ;;
            esac
            cat $j
            echo "[/spoiler]"
        done
        [ -f "$i.cue" ] || sed -e s@"$trackname.wav"@"$i"@ -e s/WAVE/FLAC/ "$trackname.wav".cue > "$i".cue
        if [ -f md5sums.txt ]
        then
            echo "[spoiler=\"md5sums.txt\"]"
            cat md5sums.txt
            echo "[/spoiler]"
        fi
    done
    for mpg in *.[mM][pP][gG]
    do
        echo "[spoiler=\"Video: $mpg\"]"|sed "s/\$mpg.[Mm][Pp][Gg]//"
        echo "[spoiler=\"Video technical data\"]"
        mpginfo "$mpg"
        echo "[/spoiler]"
        echo "[spoiler=\"Screenshots\"]"
        for jpg in ../Artwork/$mpg.*.jpg
        do
            dff="`basename ${jpg%%.jpg}|sed 's/\./-/g'`"
            ln -fs "$PWD/$jpg" "/tmp/$dff.jpg"
            images=("${images[@]}" "/tmp/$dff.jpg")
            echo "[img=right]http://i214.photobucket.com/albums/cc16/hexonut/covers/$trname/$dff.jpg[/img]"
        done
        echo "[/spoiler]"
        echo "[/spoiler]"
    done
    [ -n "$album" ] && echo "[/spoiler]"
    popd >/dev/null
}
# STARTS HERE
if [ -z "$1" -o -z "$2" ]
then
    echo "Invalid number of parameters"
    exit
fi
trname=$1
group=$2
unset images
declare -a images
process_dir "$group"
[ -f "$trname.torrent" ] || mktorr.sh "$group" "$trname" 1>&2
pb_upload.pl "covers/$trname" "${images[@]}"
rm "${images[@]}"
unset trname group images

#!/bin/bash
#This script is subject to GNU GPLv3
#NO WARRANTY
size=`du -s "$1"/|awk '{print $1;}'`
size=`perl -e "print int(log($size)/log(2))"`
if [ -z "$2" ]
then
    torrname="`echo \"$1\"|sed -e 's/[^[:alnum:]]//g' -e 's/.*/\L&/'`"
else
    torrname="$2"
fi
maketorrent-console --piece_size_pow2 $size --target $torrname.torrent http://bt.rutr.life "$1"

#!/usr/bin/perl -w -T
use strict;
use WWW::Mechanize;
use File::Basename;
# pb_upload.pl folder image [image...]
# first argument is FOLDER NAME.
# Can have subfolders: a/b/c will create folders a a/b a/b/c and put all images there.
# All other arguments are paths to images for upload.
# Can upload multiple images in one session.
my $folder   = shift @ARGV;
# Replace with your photobucket credentials
my $login    = "YOUR PHOTOBUCKET LOGIN NAME";
my $password = "YOUR PHOTOBUCKET PASSWORD";
# Replace with your photobucket server number and album path:
my $url = "http://s214.photobucket.com/albums/cc16/";
my $loginurl = "http://photobucket.com/login";
sub printforms
{
    my $mech=shift;
    my @forms = $mech->forms();
    my $i=0;
    foreach (@forms)
    {
        my @inputs=$_->inputs;
        print STDERR "Form: $i Inputs: ";
        foreach my $input (@inputs)
        {
            print STDERR $input->name . " ";
        }
        $i++;
        print STDERR "\n";
    }
}
sub CheckMkFolder
{
    my $mech = shift;
    my $baseurl = shift;
    my $login = shift;
    my $folder = shift;
    $mech->get("$baseurl/$login/$folder");
    my $title = $mech->title();
    my $pattern = ( $folder eq "" ) ? "$login " : "$login/$folder ";
    if ( ! ($title =~ m/$pattern/ )) # This folder is not present
    {
        print STDERR "Folder not present $login/$folder\n";
        die "The login folder not present $login" if ( "" eq "$folder" );
        my $updir= dirname $folder;
        $updir="" if ($updir eq ".") ;
        CheckMkFolder ($mech, $baseurl, $login, $updir);
        $mech->get("$baseurl/$login/$updir");
#printforms($mech);
        print STDERR "Creating folder $login/$folder\n";
        $mech->submit_form( with_fields => { album => basename $folder,},);
        $mech->get("$baseurl/$login/$folder");
        $title = $mech->title();
        print STDERR "$title\n";
        die "Folder not present after creation attempt $login/$folder" unless ($title =~ m/$pattern/  );
        print STDERR "Folder created $login/$folder\n";
    }
    else
    {
        print STDERR "Folder present $login/$folder\n";
    }
}
# login to your photobucket.com account
my $mech = WWW::Mechanize->new();
$mech->get($loginurl);
$mech->submit_form(
    form_name => "frmLogin",
    fields    => { usernameemail => $login,
                   password => $password },
);
die unless ($mech->success);
CheckMkFolder($mech, $url, $login, $folder);
# upload image files specified on command line
foreach (@ARGV) {
    my $resp = $mech->head("$url/$login/$folder/" . basename $_);
    if ($resp->content_type ne 'text/html')
    {
        print STDERR "Image $folder/" . basename $_ . " already present\n";
        next;
    }
    $mech->get("$url/$login/$folder");
    print STDERR "Uploading $_ into $folder\n";
    $mech->submit_form(
        form_name => "form_image_0",
        fields => { the_image => $_ },
        );
}

#!/bin/awk -f
function output_track (num, title, len) {
  len = int(len+0.5);
  min = int(len/60);
  sec = len - min*60;
  printf ("[color=gray]%02d.[/color] %s [color=gray](%02d:%02d)[/color]\n", num, title, min, sec);
  #printf ("%02d. %s (%02d:%02d)\n", num, title, min, sec);
}
BEGIN {track_descr = 0; tn = 1; offset = 0;}
/^TRACK AUDIO/ {
  if (track_descr == 1) {
    output_track(tn, title, seconds);
    tn++;
  }
  track_descr = 1;
}
/^CD_DA/ {
  if (track_descr == 1) {
    output_track(tn,title,seconds);
  }
    track_descr = 0; tn = 1; offset = 0;
}
/^[ \t]*PERFORMER/ {
    if (track_descr == 0) performer = gensub(/^.*\"(.*)\".*$/, "\\1", 1, $0);
}
/^[ \t]*TITLE/ {
    if (track_descr == 0) album = gensub(/^.*\"(.*)\".*$/, "\\1", 1, $0);
    if (track_descr == 1) title = gensub(/^.*\"(.*)\".*$/, "\\1", 1, $0);
}
/^FILE|AUDIOFILE/ {
  split($4, a, ":");
  seconds = strtonum(a[1] ".0")*60.0 + strtonum(a[2] ".0") + strtonum(a[3] ".0")/75.0;
}
END { output_track(tn, title, seconds); }