&johncdvorak - Revision history

Rabbi Bob at 19:39, 31 December 2007

2007-12-31T19:39:25Z

← Older revision		Revision as of 19:39, 31 December 2007
Line 100:		Line 100:
	</pre>		</pre>

	[[Category:2007-06]]		[[Category:Weblog-2007-06]]
	[[Category:Perl]]		[[Category:Perl]]

Rabbi Bob at 12:41, 9 June 2007

2007-06-09T12:41:40Z

← Older revision		Revision as of 12:41, 9 June 2007
Line 1:		Line 1:
	While writing my perl Sansa mp3 player podcast sync program, I came across the issue that the mp3 audio for the CrankyGeeks podcast is without id3 tag information. This royally messes up my list. As a short irony, I noticed that the last KFI Tech Guy with Leo Laporte was without a few tags, causing it to fall into the <unknown> category on the player.		While writing my perl Sansa mp3 player [[Podcast Synch Batch File\|podcast sync program]], I came across the issue that the mp3 audio for the CrankyGeeks podcast is without id3 tag information. This royally messes up my list. As a short irony, I noticed that the last KFI Tech Guy with Leo Laporte was without a few tags, causing it to fall into the <unknown> category on the player.

	Leo has enough stuff derived from his name, so I wrote the &johncdvorak subroutine		Leo has enough stuff derived from his name, so I wrote the &johncdvorak subroutine

Rabbi Bob at 12:25, 9 June 2007

2007-06-09T12:25:56Z

← Older revision		Revision as of 12:25, 9 June 2007
Line 2:		Line 2:

	Leo has enough stuff derived from his name, so I wrote the &johncdvorak subroutine		Leo has enough stuff derived from his name, so I wrote the &johncdvorak subroutine

			In the example below, only 1 mp3 file came through with any tag info (#66), the rest are artificial.

	[[Image:Johncdvorak.jpg]]		[[Image:Johncdvorak.jpg]]

Rabbi Bob at 12:24, 9 June 2007

2007-06-09T12:24:48Z

@@ Line 2: / Line 2: @@
 Leo has enough stuff derived from his name, so I wrote the &johncdvorak subroutine
 Here are the excerpts of the main file:
@@ Line 60: / Line 97: @@
 </pre>

Rabbi Bob: New page: While writing my perl Sansa mp3 player podcast sync program, I came across the issue that the mp3 audio for the CrankyGeeks podcast is without id3 tag information. This royally messes up ...

2007-06-09T12:02:31Z

New page: While writing my perl Sansa mp3 player podcast sync program, I came across the issue that the mp3 audio for the CrankyGeeks podcast is without id3 tag information. This royally messes up ...

New page

While writing my perl Sansa mp3 player podcast sync program, I came across the issue that the mp3 audio for the CrankyGeeks podcast is without id3 tag information. This royally messes up my list. As a short irony, I noticed that the last KFI Tech Guy with Leo Laporte was without a few tags, causing it to fall into the <unknown> category on the player.

Leo has enough stuff derived from his name, so I wrote the &johncdvorak subroutine

Here are the excerpts of the main file:

<pre>
use MP3::Info;

&johncdvorak($checkmp3tag,$checkmp3name);

sub johncdvorak
{
#This routine is dedicated to John C Dvorak by way of CrankyGeeks
my $file=$checkmp3tag;
my $mp3 = new MP3::Info $file;

my $newtag=();
if ($checkmp3name =~ m/(.*).mp3/)
{
$newtag=$1;

#Strip out numbers. If we're lucky
#we'll have a nice name for the tag w/o
#show/ep numbers

$newtag =~ s/[0-9]//g;
}

if ($mp3->title eq "")
{
$tag->{TITLE} = $newtag;
set_mp3tag($checkmp3tag, $tag);
}
if ($mp3->artist eq "")
{
$tag->{ARTIST} = $newtag;
set_mp3tag($checkmp3tag, $tag);
}
if ($mp3->album eq "")
{
$tag->{ALBUM} = $newtag;
set_mp3tag($checkmp3tag, $tag);
}
if ($mp3->genre eq "")
{
#You must edit MP3\Info.pm and add Podcast to the genres
#for this to work. If I remember, I'll email Chris Nandor
#and relay that. pudge@perl.org
$tag->{GENRE} = 'Podcast';
set_mp3tag($checkmp3tag, $tag);
}
$mp3 = new MP3::Info $file;
printf "Checked ID3v1 tags for $checkmp3name:\n title: %s - artist: %s - genre: %s\n",
$mp3->title, $mp3->artist, $mp3->genre;
#ref: FILE, TITLE, ARTIST, ALBUM, YEAR, COMMENT, GENRE
}

</pre>