Host: i686-pc-linux-gnu - redhat (CentOS4)
Bacula version: 2.0.2 (28 January 2007)
I have bweb running and can view jobs as well as change the
configuration file in /etc/bacula/bweb.conf. However when I try to use
a command through bweb it doesn't work. I suspected it was bconsole and
did some searching through the support archives. I ran across a test.pl
to verify output using bconsole and instead of getting the expected
information I received the error messages below. Can anyone help me
figure out what is missing or misconfigured so that I can execute
bconsole commands through bweb?
Test.pl script
[EMAIL PROTECTED] bweb]# vi test.pl
#!/usr/bin/perl -w
use strict;
use Bconsole;
my $c = new Bconsole(pref => {
bconsole => '/etc/bacula/bconsole -n -c /bacula/etc/bconsole.conf',
},
debug => 1);
print "fileset : ", join(',', $c->list_fileset()), "\n";
print "job : ", join(',', $c->list_job()), "\n";
print "storage : ", join(',', $c->list_storage()), "\n";
print "status client :\n";
$c->send_cmd("status client=bacula");
test.pl ouput is below.
[EMAIL PROTECTED] bweb]# ./test.pl
Spawned '/etc/bacula/bconsole -n -c /bacula/etc/bconsole.conf'
spawn id(3)
Pid: 16252
Tty: /dev/pts/2
at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 179
Expect::spawn('Expect=GLOB(0x975d7bc)', '/etc/bacula/bconsole',
'-n', '-c', '/bacula/etc/bconsole.conf') called at
/usr/lib/perl5/5.8.5/Bconsole.pm line 152
Bconsole::connect('Bconsole=HASH(0x9428b3c)') called at
/usr/lib/perl5/5.8.5/Bconsole.pm line 186
Bconsole::send_cmd('Bconsole=HASH(0x9428b3c)', '.filesets')
called at /usr/lib/perl5/5.8.5/Bconsole.pm line 319
Bconsole::list_fileset('Bconsole=HASH(0x9428b3c)') called at
./test.pl line 9
Use of uninitialized value in scalar assignment at
/usr/lib/perl5/5.8.5/Bconsole.pm line 153.
Starting EXPECT pattern matching...
at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 559
Expect::expect('Expect=GLOB(0x975d7bc)', 20, '*') called at
/usr/lib/perl5/5.8.5/Bconsole.pm line 107
Bconsole::expect_it('Bconsole=HASH(0x9428b3c)', '*') called at
/usr/lib/perl5/5.8.5/Bconsole.pm line 164
Bconsole::connect('Bconsole=HASH(0x9428b3c)') called at
/usr/lib/perl5/5.8.5/Bconsole.pm line 186
Bconsole::send_cmd('Bconsole=HASH(0x9428b3c)', '.filesets')
called at /usr/lib/perl5/5.8.5/Bconsole.pm line 319
Bconsole::list_fileset('Bconsole=HASH(0x9428b3c)') called at
./test.pl line 9
Connecting to Director bacula:9101
1000 OK: bacula-dir Version: 2.0.2 (28 January 2007)
Enter a period to cancel a command.
*Starting EXPECT pattern matching...
at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 559
Expect::expect('Expect=GLOB(0x975d7bc)', 20, 'gui on') called at
/usr/lib/perl5/5.8.5/Bconsole.pm line 107
Bconsole::expect_it('Bconsole=HASH(0x9428b3c)', 'gui on') called
at /usr/lib/perl5/5.8.5/Bconsole.pm line 190
Bconsole::send_cmd('Bconsole=HASH(0x9428b3c)', 'gui on') called
at /usr/lib/perl5/5.8.5/Bconsole.pm line 165
Bconsole::connect('Bconsole=HASH(0x9428b3c)') called at
/usr/lib/perl5/5.8.5/Bconsole.pm line 186
Bconsole::send_cmd('Bconsole=HASH(0x9428b3c)', '.filesets')
called at /usr/lib/perl5/5.8.5/Bconsole.pm line 319
Bconsole::list_fileset('Bconsole=HASH(0x9428b3c)') called at
./test.pl line 9
Starting EXPECT pattern matching...
at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 559
Expect::expect('Expect=GLOB(0x975d7bc)', 20, '-re',
'Regexp=SCALAR(0x976daa4)') called at /usr/lib/perl5/5.8.5/Bconsole.pm
line 107
Bconsole::expect_it('Bconsole=HASH(0x9428b3c)', '-re',
'Regexp=SCALAR(0x976daa4)') called at /usr/lib/perl5/5.8.5/Bconsole.pm
line 192
Bconsole::send_cmd('Bconsole=HASH(0x9428b3c)', 'gui on') called
at /usr/lib/perl5/5.8.5/Bconsole.pm line 165
Bconsole::connect('Bconsole=HASH(0x9428b3c)') called at
/usr/lib/perl5/5.8.5/Bconsole.pm line 186
Bconsole::send_cmd('Bconsole=HASH(0x9428b3c)', '.filesets')
called at /usr/lib/perl5/5.8.5/Bconsole.pm line 319
Bconsole::list_fileset('Bconsole=HASH(0x9428b3c)') called at
./test.pl line 9
Starting EXPECT pattern matching...
at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 559
Expect::expect('Expect=GLOB(0x975d7bc)', 20, '.filesets') called
at /usr/lib/perl5/5.8.5/Bconsole.pm line 107
Bconsole::expect_it('Bconsole=HASH(0x9428b3c)', '.filesets')
called at /usr/lib/perl5/5.8.5/Bconsole.pm line 190
Bconsole::send_cmd('Bconsole=HASH(0x9428b3c)', '.filesets')
called at /usr/lib/perl5/5.8.5/Bconsole.pm line 319
Bconsole::list_fileset('Bconsole=HASH(0x9428b3c)') called at
./test.pl line 9
Starting EXPECT pattern matching...
at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 559
Expect::expect('Expect=GLOB(0x975d7bc)', 20, '-re',
'Regexp=SCALAR(0x97841e8)') called at /usr/lib/perl5/5.8.5/Bconsole.pm
line 107
Bconsole::expect_it('Bconsole=HASH(0x9428b3c)', '-re',
'Regexp=SCALAR(0x97841e8)') called at /usr/lib/perl5/5.8.5/Bconsole.pm
line 192
Bconsole::send_cmd('Bconsole=HASH(0x9428b3c)', '.filesets')
called at /usr/lib/perl5/5.8.5/Bconsole.pm line 319
Bconsole::list_fileset('Bconsole=HASH(0x9428b3c)') called at
./test.pl line 9
fileset :
Starting EXPECT pattern matching...
at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 559
Expect::expect('Expect=GLOB(0x975d7bc)', 20, '.jobs') called at
/usr/lib/perl5/5.8.5/Bconsole.pm line 107
Bconsole::expect_it('Bconsole=HASH(0x9428b3c)', '.jobs') called
at /usr/lib/perl5/5.8.5/Bconsole.pm line 190
Bconsole::send_cmd('Bconsole=HASH(0x9428b3c)', '.jobs') called
at /usr/lib/perl5/5.8.5/Bconsole.pm line 313
Bconsole::list_job('Bconsole=HASH(0x9428b3c)') called at
./test.pl line 10
Starting EXPECT pattern matching...
at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 559
Expect::expect('Expect=GLOB(0x975d7bc)', 20, '-re',
'Regexp=SCALAR(0x978603c)') called at /usr/lib/perl5/5.8.5/Bconsole.pm
line 107
Bconsole::expect_it('Bconsole=HASH(0x9428b3c)', '-re',
'Regexp=SCALAR(0x978603c)') called at /usr/lib/perl5/5.8.5/Bconsole.pm
line 192
Bconsole::send_cmd('Bconsole=HASH(0x9428b3c)', '.jobs') called
at /usr/lib/perl5/5.8.5/Bconsole.pm line 313
Bconsole::list_job('Bconsole=HASH(0x9428b3c)') called at
./test.pl line 10
job :
Starting EXPECT pattern matching...
at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 559
Expect::expect('Expect=GLOB(0x975d7bc)', 20, '.storage') called
at /usr/lib/perl5/5.8.5/Bconsole.pm line 107
Bconsole::expect_it('Bconsole=HASH(0x9428b3c)', '.storage')
called at /usr/lib/perl5/5.8.5/Bconsole.pm line 190
Bconsole::send_cmd('Bconsole=HASH(0x9428b3c)', '.storage')
called at /usr/lib/perl5/5.8.5/Bconsole.pm line 325
Bconsole::list_storage('Bconsole=HASH(0x9428b3c)') called at
./test.pl line 11
Starting EXPECT pattern matching...
at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 559
Expect::expect('Expect=GLOB(0x975d7bc)', 20, '-re',
'Regexp=SCALAR(0x976d804)') called at /usr/lib/perl5/5.8.5/Bconsole.pm
line 107
Bconsole::expect_it('Bconsole=HASH(0x9428b3c)', '-re',
'Regexp=SCALAR(0x976d804)') called at /usr/lib/perl5/5.8.5/Bconsole.pm
line 192
Bconsole::send_cmd('Bconsole=HASH(0x9428b3c)', '.storage')
called at /usr/lib/perl5/5.8.5/Bconsole.pm line 325
Bconsole::list_storage('Bconsole=HASH(0x9428b3c)') called at
./test.pl line 11
storage :
status client :
Starting EXPECT pattern matching...
at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 559
Expect::expect('Expect=GLOB(0x975d7bc)', 20, 'status
client=bacula') called at /usr/lib/perl5/5.8.5/Bconsole.pm line 107
Bconsole::expect_it('Bconsole=HASH(0x9428b3c)', 'status
client=bacula') called at /usr/lib/perl5/5.8.5/Bconsole.pm line 190
Bconsole::send_cmd('Bconsole=HASH(0x9428b3c)', 'status
client=bacula') called at ./test.pl line 14
Starting EXPECT pattern matching...
at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 559
Expect::expect('Expect=GLOB(0x975d7bc)', 20, '-re',
'Regexp=SCALAR(0x9784248)') called at /usr/lib/perl5/5.8.5/Bconsole.pm
line 107
Bconsole::expect_it('Bconsole=HASH(0x9428b3c)', '-re',
'Regexp=SCALAR(0x9784248)') called at /usr/lib/perl5/5.8.5/Bconsole.pm
line 192
Bconsole::send_cmd('Bconsole=HASH(0x9428b3c)', 'status
client=bacula') called at ./test.pl line 14
Closing spawn id(3).
at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 1415
Expect::hard_close('Expect=GLOB(0x975d7bc)') called at
/usr/lib/perl5/site_perl/5.8.5/Expect.pm line 1605
Expect::DESTROY('Expect=GLOB(0x975d7bc)') called at ./test.pl
line 0
eval {...} called at ./test.pl line 0
spawn id(3) closed.
Pid 16252 of spawn id(3) terminated, Status: 0x01
[EMAIL PROTECTED] bweb]#
This e-mail message and its attachments may contain confidential or legally
privileged information and are for the sole use of the designated recipient(s).
If you are not a designated recipient of this message, please do not read,
copy, use, or disclose this message or its attachments; and notify the sender
by replying to this message, and delete or destroy all copies of this message
and attachments in all media. Thank you. -------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Bacula-users mailing list
Bacula-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/bacula-users
