2 # Actually label a volume
4 require './bacula-backup-lib.pl';
8 &error_setup($text{'label_err'});
9 $in{'label'} =~ /\S/ || &error($text{'label_elabel'});
12 &ui_print_unbuffered_header(undef, $text{'label_title'}, "");
14 print "<b>",&text('label_run', "<tt>$in{'storage'}</tt>", $in{'label'}),"</b>\n";
19 &sysprint($h->{'infh'}, "label storage=$in{'storage'}\n");
20 $rv = &wait_for($h->{'outfh'}, 'name:',
22 print $wait_for_input;
24 &job_error($text{'label_estorage'});
26 &sysprint($h->{'infh'}, $in{'label'}."\n");
27 $rv = &wait_for($h->{'outfh'}, 'already exists',
28 'Connecting to Storage daemon',
29 '((.*\n)*)Select the Pool.*:');
30 print $wait_for_input;
32 &job_error($text{'label_eexists'});
35 # Need to choose a pool
36 if ($matches[1] =~ /(\d+):\s+\Q$in{'pool'}\E/) {
37 &sysprint($h->{'infh'}, "$1\n");
40 &job_error($text{'label_epool'});
44 $rv = &wait_for($h->{'outfh'}, 'success.*\\n', 'failed.*\\n');
45 print $wait_for_input;
47 &job_error($text{'label_efailed'});
51 print "<b>$text{'label_done'}</b><p>\n";
54 &webmin_log("label", $in{'storage'});
56 &ui_print_footer("label_form.cgi", $text{'label_return'});
62 print "<b>",@_,"</b><p>\n";
63 &ui_print_footer("label_form.cgi", $text{'label_return'});