git.sur5r.net Git - bacula/bacula/blob - gui/bweb/cgi/bweb.pl

   1 #!/usr/bin/perl -w
   2 use strict ;
   3
   4 =head1 LICENSE
   5
   6    Bweb - A Bacula web interface
   7    Bacula® - The Network Backup Solution
   8
   9    Copyright (C) 2000-2006 Free Software Foundation Europe e.V.
  10
  11    The main author of Bweb is Eric Bollengier.
  12    The main author of Bacula is Kern Sibbald, with contributions from
  13    many others, a complete list can be found in the file AUTHORS.
  14
  15    This program is Free Software; you can redistribute it and/or
  16    modify it under the terms of version two of the GNU General Public
  17    License as published by the Free Software Foundation plus additions
  18    that are listed in the file LICENSE.
  19
  20    This program is distributed in the hope that it will be useful, but
  21    WITHOUT ANY WARRANTY; without even the implied warranty of
  22    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  23    General Public License for more details.
  24
  25    You should have received a copy of the GNU General Public License
  26    along with this program; if not, write to the Free Software
  27    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  28    02110-1301, USA.
  29
  30    Bacula® is a registered trademark of John Walker.
  31    The licensor of Bacula is the Free Software Foundation Europe
  32    (FSFE), Fiduciary Program, Sumatrastrasse 25, 8006 Zurich,
  33    Switzerland, email:ftf@fsfeurope.org.
  34
  35 =head1 VERSION
  36
  37     $Id$
  38
  39 =cut
  40
  41 use Data::Dumper;
  42 use Bweb;
  43 use CGI;
  44
  45 my $client_re = qr/^([\w\d\.-]+)$/;
  46
  47 my $action = CGI::param('action') || 'begin';
  48
  49 if ($action eq 'restore') {
  50     print CGI::header('text/brestore'); # specialy to run brestore.pl
  51
  52 } else {
  53     print CGI::header('text/html');
  54 }
  55
  56 # loading config file
  57 my $conf = new Bweb::Config(config_file => $Bweb::config_file);
  58 $conf->load();
  59
  60 my $bweb = new Bweb(info => $conf);
  61
  62 # just send data with text/brestore content
  63 if ($action eq 'restore') {
  64     $bweb->restore();
  65     exit 0;
  66 }
  67
  68 my $arg = $bweb->get_form('jobid', 'limit', 'offset', 'age');
  69
  70 $bweb->display_begin();
  71
  72 # if no configuration, we send edit_conf
  73 if ($action ne 'apply_conf' and !$bweb->{info}->{dbi}) {
  74     $action = 'edit_conf';
  75 }
  76
  77 if ($action eq 'begin') {               # main display
  78     print "<div style='left=0;'><table border='0'><tr><td valign='top' width='100%'>\n";
  79     $bweb->display_general(age => $arg->{age});
  80     $bweb->display_running_jobs(0);
  81     print "</td><td valign='top'>";
  82     $bweb->display({}, "stats.tpl");
  83     print "</td></tr></table></div>";
  84     $bweb->display_job(limit => 10);
  85
  86 } elsif ($action eq 'view_conf') {
  87     $bweb->can_do('r_configure');
  88     $conf->view()
  89
  90 } elsif ($action eq 'edit_conf') {
  91     $bweb->can_do('r_configure');
  92     $conf->edit();
  93
  94 } elsif ($action eq 'apply_conf') {
  95     $bweb->can_do('r_configure');
  96     $conf->modify();
  97
  98 } elsif ($action eq 'user_del') {
  99     $bweb->users_del();
 100
 101 } elsif ($action eq 'user_add') {
 102     $bweb->users_add();
 103
 104 } elsif ($action eq 'user_edit') {
 105     $bweb->display_user();
 106
 107 } elsif ($action eq 'user_save') {
 108     $bweb->users_add();
 109
 110 } elsif ($action eq 'users') {
 111     $bweb->display_users();
 112
 113 } elsif ($action eq 'client') {
 114     $bweb->display_clients();
 115
 116 } elsif ($action eq 'pool') {
 117     $bweb->display_pool();
 118
 119 } elsif ($action eq 'location_edit') {
 120     $bweb->location_edit();
 121
 122 } elsif ($action eq 'location_save') {
 123     $bweb->location_save();
 124
 125 } elsif ($action eq 'location_add') {
 126     $bweb->location_add();
 127
 128 } elsif ($action eq 'location_del') {
 129     $bweb->location_del();
 130
 131 } elsif ($action eq 'media') {
 132     print "<div><table border='0'><tr><td valign='top'>\n";
 133     my $fields = $bweb->get_form(qw/db_locations db_pools expired
 134                                     qlocations qpools volstatus qre_media
 135                                     limit  qmediatypes db_mediatypes/);
 136     $bweb->display($fields, "display_form_media.tpl");
 137
 138     print "</td><td valign='top'>";
 139     $bweb->display_media(offset => $arg->{offset},
 140                          limit => $arg->{limit});
 141     print "</td></tr></table></div>";
 142
 143 } elsif ($action eq 'allmedia') {
 144     $bweb->display_allmedia();
 145
 146 } elsif ($action eq 'eject') {
 147     $bweb->can_do('r_autochanger_mgnt');
 148
 149     my $arg = $bweb->get_form("ach");
 150     my $a = $bweb->ach_get($arg->{ach});
 151
 152     if ($a) {
 153         $a->status();
 154         foreach my $slot (CGI::param('slot')) {
 155             print $a->{error} unless $a->send_to_io($slot);
 156         }
 157
 158         foreach my $media (CGI::param('media')) {
 159             my $slot = $a->get_media_slot($media);
 160             print $a->{error} unless $a->send_to_io($slot);
 161         }
 162
 163         $a->display_content();
 164     }
 165
 166 } elsif ($action eq 'eject_media') {
 167     $bweb->eject_media();
 168
 169 } elsif ($action eq 'clear_io') {
 170     $bweb->can_do('r_autochanger_mgnt');
 171
 172     my $arg = $bweb->get_form('ach');
 173
 174     my $a = $bweb->ach_get($arg->{ach});
 175     if (defined $a) {
 176         $a->status();
 177         $a->clear_io();
 178         $a->display_content();
 179     }
 180
 181 } elsif ($action eq 'ach_edit') {
 182     $bweb->ach_edit();
 183
 184 } elsif ($action eq 'ach_del') {
 185     $bweb->ach_del();
 186
 187 } elsif ($action eq 'ach_view') {
 188     $bweb->can_do('r_autochanger_mgnt');
 189
 190     # TODO : get autochanger name and create it
 191     $bweb->connect_db();
 192     my $arg = $bweb->get_form('ach');
 193
 194     my $a = $bweb->ach_get($arg->{ach});
 195     if ($a) {
 196         $a->status();
 197         $a->display_content();
 198     }
 199
 200 } elsif ($action eq 'ach_add') {
 201     $bweb->ach_add();
 202
 203 } elsif ($action eq 'ach_load') {
 204     $bweb->can_do('r_autochanger_mgnt');
 205
 206     my $arg = $bweb->get_form('ach', 'drive', 'slot');
 207
 208     my $a = $bweb->ach_get($arg->{ach});
 209
 210     if (defined $a and defined $arg->{drive} and defined $arg->{slot})
 211     {
 212         my $b = new Bconsole(pref => $conf, timeout => 300, log_stdout => 1) ;
 213         # TODO : use template here
 214         print "<pre>\n";
 215         $b->send_cmd("mount slot=$arg->{slot} drive=$arg->{drive} storage=\"" . $a->get_drive_name($arg->{drive}) . '"');
 216         print "</pre>\n";
 217     } else {
 218         $bweb->error("Can't get drive, slot or ach");
 219     }
 220
 221 } elsif ($action eq 'ach_unload') {
 222     $bweb->can_do('r_autochanger_mgnt');
 223
 224     my $arg = $bweb->get_form('drive', 'slot', 'ach');
 225
 226     my $a = $bweb->ach_get($arg->{ach});
 227
 228     if (defined $a and defined $arg->{drive} and defined $arg->{slot})
 229     {
 230         my $b = new Bconsole(pref => $conf, timeout => 300, log_stdout => 1) ;
 231         # TODO : use template here
 232         print "<pre>\n";
 233         $b->send_cmd("umount drive=$arg->{drive} storage=\"" . $a->get_drive_name($arg->{drive}) . '"');
 234         print "</pre>\n";
 235
 236     } else {
 237         $bweb->error("Can't get drive, slot or ach");
 238     }
 239 } elsif ($action eq 'intern_media') {
 240     $bweb->help_intern();
 241
 242 } elsif ($action eq 'compute_intern_media') {
 243     $bweb->help_intern_compute();
 244
 245 } elsif ($action eq 'extern_media') {
 246     $bweb->help_extern();
 247
 248 } elsif ($action eq 'compute_extern_media') {
 249     $bweb->help_extern_compute();
 250
 251 } elsif ($action eq 'extern') {
 252     $bweb->can_do('r_media_mgnt');
 253     $bweb->can_do('r_autochanger_mgnt');
 254
 255     print "<div style='float: left;'>";
 256     my @achs = $bweb->eject_media();
 257     for my $ach (@achs) {
 258         CGI::param('ach', $ach);
 259         $bweb->update_slots();
 260     }
 261     print "</div><div style='float: left;margin-left: 20px;'>";
 262     $bweb->move_media('no');    # enabled = no
 263     print "</div>";
 264
 265 } elsif ($action eq 'move_email') {
 266     $bweb->move_email();
 267
 268 } elsif ($action eq 'change_location') {
 269     $bweb->location_change();
 270
 271 } elsif ($action eq 'location') {
 272     $bweb->location_display();
 273
 274 } elsif ($action eq 'about') {
 275     $bweb->display($bweb, 'about.tpl');
 276
 277 } elsif ($action eq 'intern') {
 278     $bweb->move_media('yes'); # TODO : remove that
 279
 280 } elsif ($action eq 'move_media') {
 281     my $a = $bweb->get_form('enabled');
 282     $bweb->move_media($a->{enabled});
 283
 284 } elsif ($action eq 'save_location') {
 285     $bweb->save_location();
 286
 287 } elsif ($action eq 'update_location') {
 288     $bweb->update_location();
 289
 290 } elsif ($action eq 'update_media') {
 291     $bweb->update_media();
 292
 293 } elsif ($action eq 'do_update_media') {
 294     $bweb->do_update_media();
 295
 296 } elsif ($action eq 'update_slots') {
 297     $bweb->update_slots();
 298
 299 } elsif ($action eq 'graph') {
 300     $bweb->display_graph();
 301
 302 } elsif ($action eq 'next_job') {
 303     $bweb->director_show_sched();
 304
 305 } elsif ($action eq 'enable_job') {
 306     $bweb->enable_disable_job(1);
 307
 308 } elsif ($action eq 'disable_job') {
 309     $bweb->enable_disable_job(0);
 310
 311 } elsif ($action eq 'groups') {
 312     $bweb->display_groups();
 313
 314 } elsif ($action eq 'groups_edit') {
 315     $bweb->groups_edit();
 316
 317 } elsif ($action eq 'groups_save') {
 318     $bweb->groups_save();
 319
 320 } elsif ($action eq 'groups_del') {
 321     $bweb->groups_del();
 322
 323 } elsif ($action eq 'job') {
 324     $bweb->can_do('r_view_job');
 325     print "<div><table border='0'><tr><td valign='top'>\n";
 326     my $fields = $bweb->get_form(qw/status level filter db_clients
 327                                     db_filesets
 328                                     limit age offset qclients qfilesets
 329                                     jobtype qpools db_pools
 330                                     db_client_groups qclient_groups/); # drop this to hide
 331
 332     $bweb->display($fields, "display_form_job.tpl");
 333
 334     print "</td><td valign='top'>";
 335     $bweb->display_job(age => $arg->{age},  # last 7 days
 336                        offset => $arg->{offset},
 337                        limit => $arg->{limit});
 338     print "</td></tr></table></div>";
 339 } elsif ($action eq 'job_group') {
 340     $bweb->can_do('r_view_job');
 341     print "<div><table border='0'><tr><td valign='top'>\n";
 342     my $fields = $bweb->get_form(qw/limit level age filter
 343                                     db_client_groups qclient_groups/); # drop this to hide
 344
 345     $fields->{hide_status} = 1;
 346     $fields->{hide_type} = 1;
 347     $fields->{action} = 'job_group';
 348
 349     $bweb->display($fields, "display_form_job.tpl");
 350
 351     print "</td><td valign='top'>";
 352     $bweb->display_job_group(age => $arg->{age},  # last 7 days
 353                              limit => $arg->{limit});
 354     print "</td></tr></table></div>";
 355 } elsif ($action eq 'client_stats') {
 356
 357     foreach my $client (CGI::param('client')) {
 358         if ($client =~ m/$client_re/) {
 359             $bweb->display_client_stats(clientname => $1,
 360                                         age => $arg->{age});
 361         }
 362     }
 363
 364 } elsif ($action eq 'group_stats') {
 365     $bweb->display_group_stats(age => $arg->{age});
 366
 367 } elsif ($action eq 'running') {
 368     $bweb->display_running_jobs(1);
 369
 370 } elsif ($action eq 'dsp_cur_job') {
 371     $bweb->display_running_job();
 372
 373 } elsif ($action eq 'update_from_pool') {
 374     $bweb->can_do('r_media_mgnt');
 375     my $elt = $bweb->get_form(qw/media pool/);
 376     unless ($elt->{media} || $elt->{pool}) {
 377         $bweb->error("Can't get media or pool param");
 378     } else {
 379         my $b = new Bconsole(pref => $conf) ;
 380
 381         $bweb->display({
 382  content => $b->send_cmd("update volume=$elt->{media} fromPool=$elt->{pool}"),
 383  title => "Update pool",
 384  name => "update volume=$elt->{media} fromPool=$elt->{pool}",
 385         }, "command.tpl");
 386     }
 387
 388     $bweb->update_media();
 389
 390 } elsif ($action eq 'client_status') {
 391     $bweb->can_do('r_client_status');
 392     my $b;
 393     foreach my $client (CGI::param('client')) {
 394         if ($client =~ m/$client_re/) {
 395             $client = $1;
 396             $b = new Bconsole(pref => $conf)
 397                 unless ($b) ;
 398
 399             $bweb->display({
 400                 content => $b->send_cmd("st client=$client"),
 401                 title => "Client status",
 402                 name => $client,
 403             }, "command.tpl");
 404
 405         } else {
 406             $bweb->error("Can't get client selection");
 407         }
 408     }
 409
 410 } elsif ($action eq 'cancel_job') {
 411     $bweb->cancel_job();
 412
 413 } elsif  ($action eq 'media_zoom') {
 414     $bweb->display_media_zoom();
 415
 416 } elsif  ($action eq 'job_zoom') {
 417     if ($arg->{jobid}) {
 418         $bweb->display_job_zoom($arg->{jobid});
 419         $bweb->get_job_log();
 420     }
 421 } elsif ($action eq 'job_log') {
 422     $bweb->get_job_log();
 423
 424 } elsif ($action eq 'prune') {
 425     $bweb->prune();
 426
 427 } elsif ($action eq 'purge') {
 428     $bweb->purge();
 429
 430 } elsif ($action eq 'run_job') {
 431     $bweb->run_job();
 432
 433 } elsif ($action eq 'run_job_mod') {
 434     $bweb->run_job_mod();
 435
 436 } elsif ($action eq 'run_job_now') {
 437     $bweb->run_job_now();
 438
 439 } elsif ($action eq 'label_barcodes') {
 440     $bweb->label_barcodes();
 441
 442 } elsif ($action eq 'delete') {
 443     $bweb->delete();
 444
 445 } elsif ($action eq 'fileset_view') {
 446     $bweb->fileset_view();
 447
 448 } else {
 449     $bweb->error("Sorry, this action doesn't exist");
 450 }
 451
 452 $bweb->display_end();
 453
 454 $bweb->dbh_disconnect();
 455
 456 __END__
 457
 458 TODO :
 459
 460  o Affichage des job en cours, termines
 461  o Affichage du detail d'un job (status client)
 462  o Acces aux log d'une sauvegarde
 463  o Cancel d'un job
 464  o Lancement d'un job
 465
 466  o Affichage des medias (pool, cf bacweb)
 467  o Affichage de la liste des cartouches
 468  o Affichage d'un autochangeur
 469  o Mise a jour des slots
 470  o Label barcodes
 471  o Affichage des medias qui ont besoin d'etre change
 472
 473  o Affichage des stats sur les dernieres sauvegardes (cf bacula-web)
 474  o Affichage des stats sur un type de job
 475  o Affichage des infos de query.sql
 476
 477  - Affichage des du TapeAlert sur le site
 478  - Recuperation des erreurs SCSI de /var/log/kern.log
 479
 480  o update d'un volume
 481  o update d'un pool
 482
 483  o Configuration des autochanger a la main dans un hash dumper