Better error reporting.
git-svn-id: https://samskivert.googlecode.com/svn/trunk@620 6335cc39-0255-0410-8fd6-9bcaacd3b74c
This commit is contained in:
@@ -1,6 +1,6 @@
|
|||||||
#!/usr/bin/perl -w
|
#!/usr/bin/perl -w
|
||||||
#
|
#
|
||||||
# $Id: setid3,v 1.2 2002/03/03 05:46:54 mdb Exp $
|
# $Id: setid3,v 1.3 2002/03/03 05:54:33 mdb Exp $
|
||||||
#
|
#
|
||||||
# A script for setting the id3 tags of the MP3 files in the RoboDJ
|
# A script for setting the id3 tags of the MP3 files in the RoboDJ
|
||||||
# repository. The data from the database must be dumped into two files:
|
# repository. The data from the database must be dumped into two files:
|
||||||
@@ -50,7 +50,7 @@ while (<SONGS>) {
|
|||||||
"--artist", "$artist",
|
"--artist", "$artist",
|
||||||
"--album", "$album",
|
"--album", "$album",
|
||||||
"--track", "$position", "$location");
|
"--track", "$position", "$location");
|
||||||
warn "\nFailed to set tag on $songid\n" unless (system(@cmd) == 0);
|
warn "\nFailed to set tag on $location\n" unless (system(@cmd) == 0);
|
||||||
|
|
||||||
if ($counter++ % 100 == 99) {
|
if ($counter++ % 100 == 99) {
|
||||||
print ".";
|
print ".";
|
||||||
|
|||||||
Reference in New Issue
Block a user