A fix that permits OSCAR packages configuration to be updated. (ERROR: Invalid
table name at /usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Database.pm line 2250)
Log below should not appear again:
TOTO: /var/lib/oscar/packages/ganglia
TOTO: /var/lib/oscar/packages/sge
TOTO: /var/lib/oscar/packages/switcher
TOTO: /var/lib/oscar/packages/jobmonarch
TOTO: /var/lib/oscar/packages/sis
--> Checking if the OPKG has to be excluded...
--> OPKG sge: Analysing default values
ERROR: Invalid table name at /usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Database.pm
line 2250
at /usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Database_generic.pm line 189
OSCAR::Database_generic::do_update('DELETE FROM Packages_config WHERE
config_id=\'11\'', 'ARRAY(0xea52df0)', 'HASH(0xea52c00)', 'ARRAY(0xea52c20)')
called at /usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Database.pm line 2250
OSCAR::Database::del_pkgconfig_vars('opkg', 'sge', 'context', 'global',
'name', 'fullserver') called at
/usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Database.pm line 2159
OSCAR::Database::set_pkgconfig_var('opkg', 'sge', 'context', '',
'name', 'fullserver', 'value', 'ARRAY(0x10c68630)') called at
/usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Configbox.pm line 499
OSCAR::Configbox::writeOutConfigValues() called at
/usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Configbox.pm line 200
OSCAR::Configbox::saveAndExit() called at
/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi/Tk.pm line 247
eval {...} called at
/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi/Tk.pm line 247
Tk::__ANON__[/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi/Tk.pm:247]('Tk::Button=HASH(0x109489b0)')
called at
/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi/Tk/Button.pm line
113
Tk::Button::butUp('Tk::Button=HASH(0x109489b0)') called at
/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi/Tk.pm line 406
eval {...} called at
/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi/Tk.pm line 406
Tk::MainLoop() called at /usr/bin/oscar_wizard line 482
Tk::Error: /usr/bin/oscar_wizard:Failed to delete values via << DELETE FROM
Packages_config WHERE config_id='11' >> at
/usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Database.pm line 2250.
OSCAR::Database::del_pkgconfig_vars at
/usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Database.pm line 2250
OSCAR::Database::set_pkgconfig_var at
/usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Database.pm line 2159
OSCAR::Configbox::writeOutConfigValues at
/usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Configbox.pm line 499
OSCAR::Configbox::saveAndExit at
/usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Configbox.pm line 200
Tk callback for .toplevel.toplevel.button2
Tk::__ANON__[/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi/Tk.pm:247]
at /usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi/Tk.pm line 247
Tk::Button::butUp at
/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi/Tk/Button.pm line
113
<ButtonRelease-1>
(command bound to event)
at blib/lib/Tk.pm (autosplit into blib/lib/auto/Tk/Error.al) line 488
Tk::Error('MainWindow=HASH(0x107ca650)', '/usr/bin/oscar_wizard:Failed
to delete values via << DELETE F...', 'OSCAR::Database::del_pkgconfig_vars at
/usr/lib/perl5/vendor_...', 'OSCAR::Database::set_pkgconfig_var at
/usr/lib/perl5/vendor_p...', 'OSCAR::Configbox::writeOutConfigValues at
/usr/lib/perl5/vend...', 'OSCAR::Configbox::saveAndExit at
/usr/lib/perl5/vendor_perl/5...', 'Tk callback for .toplevel.toplevel.button2',
'Tk::__ANON__[/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-...',
'Tk::Button::butUp at /usr/lib64/perl5/vendor_perl/5.8.8/x86_6...', ...) called
at /usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi/Tk.pm line 406
eval {...} called at
/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi/Tk.pm line 406
--
Olivier LAHAYE
CEA Saclay
DRT-LIST-DETECS-SSTM
--- /usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Database_generic.pm.orig 2009-11-23 10:40:43.000000000 +0100
+++ /usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Database_generic.pm 2009-11-23 10:41:20.000000000 +0100
@@ -198,7 +198,7 @@
my $success = OSCAR::oda::do_sql_command($options_ref,
$sql,
- "UDATE Table $table",
+ "UPDATE Table $table",
"Failed to update $table table",
$error_strings_ref);
$error_strings_ref = \...@error_strings;
--- /usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Database.pm.orig 2009-11-23 10:30:33.000000000 +0100
+++ /usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Database.pm 2009-11-23 10:57:46.000000000 +0100
@@ -2246,9 +2246,9 @@
my $id = $e->{config_id};
my $sql = "DELETE FROM Packages_config WHERE config_id='$id'";
- my @result;
+# %options seems useless. No way to retrieve its value? (at least to know if --debug flag is on?) (OL).
die "$0:Failed to delete values via << $sql >>"
- if (!do_update($sql, \...@result, \%options, \...@errors));
+ if (!do_update($sql, "Packages_config", \%options, \...@errors));
}
return 1;
}
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
Oscar-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/oscar-devel
