The script was failing to listen to your answers to the yes or no
questions. A simple mistake of not doing proper perl string
comparisons in the if test.
--
Scott Roland
Index: myth.rebuilddatabase.pl
===================================================================
RCS file: /var/lib/mythcvs/mythtv/contrib/myth.rebuilddatabase.pl,v
retrieving revision 1.5
diff -u -r1.5 myth.rebuilddatabase.pl
--- myth.rebuilddatabase.pl 20 Nov 2004 05:37:19 -0000 1.5
+++ myth.rebuilddatabase.pl 17 Feb 2005 17:02:39 -0000
@@ -298,7 +298,7 @@
print("Non-nuv file $show found.\n");
print("Do you want to import? (y/n): ");
chomp(my $do_import = <STDIN>);
- if ($do_import = "y") {
+ if ($do_import eq "y") {
print("Enter channel: ");
chomp(my $tmp_channel = <STDIN>);
if ($tmp_channel) {$channel = $tmp_channel;}
@@ -365,7 +365,7 @@
print("Building a seek table should improve FF/RW and JUMP functions
when watching this video\n");
print("Do you want to build a seek table for this file? (y/n): ");
chomp(my $do_commflag = <STDIN>);
- if ($do_commflag = "y") {
+ if ($do_commflag eq "y") {
if (!$test_mode) {
exec("mythcommflag --file $new_file --rebuild");
} else {
_______________________________________________
mythtv-dev mailing list
[email protected]
http://mythtv.org/cgi-bin/mailman/listinfo/mythtv-dev
