$bweb->display_medias();
} elsif ($action eq 'eject') {
- my $a = Bweb::Autochanger::get('SDLT-1-2', $bweb);
+ my $a = Bweb::Autochanger::get('L80', $bweb);
$a->status();
foreach my $slot (CGI::param('slot')) {
$bweb->eject_media();
} elsif ($action eq 'clear_io') {
- my $a = Bweb::Autochanger::get('SDLT-1-2', $bweb);
+ my $a = Bweb::Autochanger::get('L80', $bweb);
$a->status();
$a->clear_io();
$a->display_content();
} elsif ($action eq 'ach_view') {
# TODO : get autochanger name and create it
$bweb->connect_db();
- my $a = Bweb::Autochanger::get('SDLT-1-2', $bweb);
+ my $a = Bweb::Autochanger::get('L80', $bweb);
$a->status();
$a->display_content();
} elsif ($action eq 'ach_load') {
my $arg = $bweb->get_form('drive', 'slot');
- my $a = Bweb::Autochanger::get('SDLT-1-2', $bweb);
+ my $a = Bweb::Autochanger::get('L80', $bweb);
$a->status();
$a->load($arg->{drive}, $arg->{slot}) ;
} elsif ($action eq 'ach_unload') {
my $arg = $bweb->get_form('drive', 'slot');
- my $a = Bweb::Autochanger::get('SDLT-1-2', $bweb);
+ my $a = Bweb::Autochanger::get('L80', $bweb);
$a->status();
$a->unload($arg->{drive}, $arg->{slot}) ;
my ($name, $bweb) = @_;
my $a = new Bweb::Autochanger(debug => $bweb->{debug},
bweb => $bweb,
- name => 'SDLT-1-2',
+ name => 'L80',
precmd => 'sudo',
- drive_name => ['SDLT-1', 'SDLT-2'],
+ drive_name => ['SDLT-0', 'SDLT-1'],
);
return $a;
}
my $all = $self->dbh_selectall_hashref($query, 'volumename');
- my $a = Bweb::Autochanger::get('SDLT-1-2', $self);
+ my $a = Bweb::Autochanger::get('L80', $self);
$a->status();
foreach my $vol (values %$all) {
<a href="?action=client"> Clients </a>|
<a href="?action=run_job"> Jobs </a>|
<a href="?action=running"> Running jobs </a>|
-<a href="?action=job"> Old Job </a>|
+<a href="?action=job"> Old Jobs </a>|
<a href="?action=next_job"> Next jobs </a|>|
<a href="?action=restore"> Restore </a>|
<a href="?action=graph"> Statistics </a>] [