[mythtv-users] Absolutely nothing is getting commercial flagging any more - backend log messages

[Mark Knecht]

On Wed, Nov 19, 2008 at 1:36 PM, Kevin Kuphal <kkuphal at gmail.com> wrote:
>
>
> On Wed, Nov 19, 2008 at 3:25 PM, Mark Knecht <markknecht at gmail.com> wrote:
>>
>> Over the last 2 days we've made 15 or 20 recordings. Not a single on
>> seems to have gotten commercial flagging. One (The Daily Show) was
>> marked as being flagged but commercial skipping didn't work. The
>> others weren't even marked as being flagged.
>>
>> Where might I look for clues about what's going on and what, if
>> anything, might I try in terms of verifying the current state of the
>> database? I am looking in mythbackend.log and I'm seeing messages
>> about not being able to log into the database which I suspect is
>> involved, or at least not healthy.
>
> Fix your database.  Either manually using the supplied mysql tools or look
> for the optimize_mythtv_db.pl script included with your installation
>
> Kevin

OK, having some trouble Kevin. I know nothing of perl.

I found the script in /usr/share/mythtv/contrib and changed its permissions:

Sector9 contrib # ls -la optimize_mythdb.pl
-rwxr-xr-x 1 root root 893 Oct  1 11:58 optimize_mythdb.pl
Sector9 contrib #

I created the script file copied from the periodic maintenance page
located here:

http://www.mythtv.org/wiki/index.php/User_Manual:Periodic_Maintenance

Sector9 ~ # pwd
/root
Sector9 ~ # cat optimize_mythdb.sh
###### optimize_mythdb.sh
#!/bin/sh

OPT_MYTHDB='/usr/share/mythtv/contrib/optimize_mythdb.pl'
LOG='/var/log/mythtv/optimize_mythdb.log'

echo "Started ${OPT_MYTHDB} on `date`" >> ${LOG}
${OPT_MYTHDB} >> ${LOG}
echo "Finished ${OPT_MYTHDB} on `date`" >> ${LOG}
Sector9 ~ #

However when I try to run it I'm getting lots of messages taht don't
seem to like my perl possibly? HEre they are:

Sector9 ~ # sh ./optimize_mythdb.sh
Can't locate HTTP/Request.pm in @INC (@INC contains: /etc/perl
/usr/lib/perl5/vendor_perl/5.8.8/i686-linux
/usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl
/usr/lib/perl5/site_perl/5.8.8/i686-linux
/usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl
/usr/lib/perl5/5.8.8/i686-linux /usr/lib/perl5/5.8.8
/usr/local/lib/site_perl .) at
/usr/lib/perl5/vendor_perl/5.8.8/MythTV.pm line 24.
BEGIN failed--compilation aborted at
/usr/lib/perl5/vendor_perl/5.8.8/MythTV.pm line 24.
Compilation failed in require at
/usr/share/mythtv/contrib/optimize_mythdb.pl line 15.
BEGIN failed--compilation aborted at
/usr/share/mythtv/contrib/optimize_mythdb.pl line 15.
Sector9 ~ #

I think line 15 is 'use MythTV;'. Not sure.

Sector9 ~ # eix -I dev-lang/perl
[I] dev-lang/perl
     Available versions:  5.8.8-r2 5.8.8-r3 5.8.8-r4 5.8.8-r5 {berkdb
build debug doc elibc_FreeBSD gdbm ithreads perlsuid}
     Installed versions:  5.8.8-r5(13:35:04 07/20/08)(berkdb gdbm
-build -debug -doc -elibc_FreeBSD -ithreads -perlsuid)
     Homepage:            http://www.perl.org/
     Description:         Larry Wall's Practical Extraction and Report Language

Sector9 ~ #

Not the least bit sure how to proceed. I can take it to the Gentoo
lists if this is too installation specific but hopefully I've just
made a simple mistake or oversight.

Thanks,
Mark