blob: 0ee696925a1442a909393ef95f441512b2e90a9d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
#!/usr/bin/perl -X
# EDIT only! path2java
$ENV{PATH}="/bin:/sbin:/usr/bin:/usr/local/bin:/usr/lib/jvm/java-1.5.0-sun/jre/bin";
$artist = "$ARGV[0]";
$album = "\L$ARGV[1]";
$coverdir = "$ARGV[2]";
$tmpdir = "$ARGV[3]";
$maxdl = "$ARGV[4]";
$basedir = "$ARGV[5]";
$filename = "$ARGV[6]";
$logger = "$tmpdir/cover.log";
$path2java = "/usr/lib/jvm/java-1.5.0-sun/jre/bin";
print "\n
----------------------------------------------------------------------------------------------\n
NAME:
getcover.pl - Perl Script to download coverpictures
from amazons webservice.
\n
SYNOPSIS:
getcover.pl 'artist' 'album' 'coverdir' 'tempdir' 'maxdownloads' 'basedir' 'filename'
\n
DESCRIPTION:
This Perl script makes it a lot easier to fill your
musiccollection with coverpictures.
\n
OPTIONS:
artist = Artist of track
album = Name of album
coverdir = Path to artists cover directory
tempdir = Path to this script (getcover.pl)
maxdownloads = How much coverpicture do you want ?
basedir = Path to track
filename = Full path to track without suffix
\n
----------------------------------------------------------------------------------------------\n
\n";
# START.......
system("echo 'Cover download started !\n' > $logger");
# DON'T CHANGE ANYTHING HERE
system("echo 'Artist : $artist
Album : $album
Coverdir : $coverdir
Tempdir : $tmpdir
MaxDL : $maxdl
Logfile : $logger
Javapath : $path2java
\n
<value> ARTIST =$artist
<value> ALBUM =$album
<value> COVERDIR =$coverdir
<value> BASEDIR =$basedir
<value> FILENAME =$filename
\n' >> $logger");
if(!$artist) {
system("echo '\nArtist empty. Give up !' >> $logger");
die;
}
if(-r "$tmpdir/cover_0.jpg") {
system("echo '\nEntferne vorhandene Bilddateien\n' >> $logger");
system("rm -f $tmpdir/*.jpg");
}
system("echo 'Executing: $path2java/java -cp jdom.jar:coverdownload.jar:. cover.cover \"$artist\" \"$album\" \"cover\" $maxdl' >> $logger");
system("cd $tmpdir; $path2java/java -cp jdom.jar:coverdownload.jar:. cover.cover \"$artist\" \"$album\" \"cover\" $maxdl >/dev/null");
if(-r "$tmpdir/cover_0.jpg") {
system("echo '\nDownload von Cover erfolgreich !\n' >> $logger");
# $artist =~ s/\//-/g;
# $artist =~ s/\'/ /g;
# $artist =~ s/\"/ /g;
# if(-r "$coverdir/$artist.jpg") {
# system("echo 'Entferne altes Cover\n' >> $logger");
# system("rm -f \"$coverdir/$artist.jpg\"");
# }
# $cmd = "cp -f \"$tmpdir/cover_1.jpg\" \"$coverdir/$artist.jpg\"";
# system("echo 'Kopiere: $cmd\n' >> $logger");
# system("$cmd");
# if(-r "$coverdir/$artist.jpg") {
# system("echo '\nCover erfolgreich kopiert !\n' >> $logger");
# }
# else {
# system("echo '\nERROR: Cover wurde NICHT kopiert !\n' >> $logger");
# }
}
else {
system("echo '\nERROR: Download von Cover NICHT erfolgreich !\n' >> $logger");
}
system("cat '$logger'");
|
