Oh, right - after reading over the previous posts - I did manage to figure
it out on my lonesome.. Strange, that doesn't usually happen. Oh well.
Does AddFiles.pl need to read the obs.conf file?
I hope you aren't expecting me to do anything with that "patch".... perl
is just a bunch of funnily strewned letters like @$(@($*&@$ to me... pure
gibberish.
Almost lunch time :-)
Tom
At 16:34 1/02/2001 -0500, you wrote:
>Tom Peck wrote:
>
> > Chris
> > That was one of the problems you helped me with a week ago :-)
>
>No, actually it wasn't - that one was all you. If I can't apt-get
>install it, I'm lost.
>
> > To fix it, I found and installed the "Tag::MP3" package which is
> > here: http://tagged.sourceforge.net
>
>Thanks! I wget'd the file, apt-get install'd libcompress-zlib-perl,
>then make, make test, make install, success!
>
>AddFiles.pl is complaining that it can't read the obs.conf file, and I
>don't know why...
>
>[hack hack hack]
>
>Here's another patch:
>
>---------------------------------------------------------------------
>---------------------------------------------------------------------
>
>Index: tools/AddFiles.pl
>===================================================================
>RCS file: /src/repository/obs/tools/AddFiles.pl,v
>retrieving revision 1.7
>diff -u -r1.7 AddFiles.pl
>--- tools/AddFiles.pl 2000/12/28 01:12:52 1.7
>+++ tools/AddFiles.pl 2001/02/01 21:28:17
>@@ -33,7 +33,6 @@
> my $FileMask;
> my $UpdateTracks = 0;
> my $Testing = 0;
>-my ($DB, $Host, $Port, $User, $Password);
> my ($dbh, $Volume, $UrlPath);
>
> sub GetInfoFromFileName
>@@ -303,7 +302,6 @@
>
> my $Dummy;
> ($Dummy, $FileMask, $AllowedChars) = Obs::Defs::GetLocalAccessInfo();
>-($DB, $Host, $Port, $User, $Password) = Obs::Defs::GetDBInfo();
>
> if (!defined $FileMask || $FileMask eq '' ||
> !defined $AllowedChars || $AllowedChars eq '')
>@@ -319,7 +317,8 @@
> }
>
> $dbh = Obs::LocalIO::new();
>-exit if !$dbh->ConnectDb("dbi:mysql:$DB", $User, $Password);
>+exit if !$dbh->ConnectDb(Obs::Defs::DSN, Obs::Defs::DB_USER,
>+ Obs::Defs::DB_PASSWD );
>
> print("Connected to database.\n");
>
>---------------------------------------------------------------------
>---------------------------------------------------------------------
>
>Chris
>_______________________________________________
>Obs-dev mailing list
>[EMAIL PROTECTED]
>http://www.freeamp.org/mailman/listinfo/obs-dev
_______________________________________________
Obs-dev mailing list
[EMAIL PROTECTED]
http://www.freeamp.org/mailman/listinfo/obs-dev
