What does dowarn need to work? I get errors because of it, what else do I
need to do?
Use::dowarn; ??
On Mon, 22 Jul 2002, Stijn Hoop wrote:
> On Mon, Jul 22, 2002 at 08:38:46AM -0400, Christopher J. Umina wrote:
> > Hi guys,
> >
> > Is there a command that I can use to strip the tags off of Mp3's?
> > I want to strip the ID3v1 and ID3v2 tags out. Or does anybody have a clue
> > about how I could do it in C or C++?
>
> You could use the perl library /usr/ports/audio/p5-MP3-Info. The following
> snippet shows how I did it:
>
> # Now remove ID3v{1,2} tags
> my $tag = get_mp3tag($filename);
> if (defined($tag)) {
> # make a backup
> my $backupname = $filename . ".BAK";
> system("cp", $filename, $backupname);
> my $bytes = remove_mp3tag($filename, "ALL");
> if (!defined($bytes)) {
> # restore backup
> system("mv", "-f", $backupname, $filename);
> dowarn("could not remove ID3 tag from $path");
> } elsif ($bytes == -1) {
> # restore backup
> system("mv", "-f", $backupname, $filename);
> dowarn("no ID3 tag found in $path, should not happen");
> } else {
> system("rm", $backupname);
> dowarn("mp3 changed ($path): tag of $bytes bytes " .
> "removed");
> }
> }
>
> HTH,
>
> --Stijn
>
> --
> In the force if Yoda's so strong, construct a sentence with words in
> the proper order then why can't he?
>
To Unsubscribe: send mail to [EMAIL PROTECTED]
with "unsubscribe freebsd-questions" in the body of the message
