5 Bweb - A Bacula web interface
6 Bacula® - The Network Backup Solution
8 Copyright (C) 2000-2006 Free Software Foundation Europe e.V.
10 The main author of Bweb is Eric Bollengier.
11 The main author of Bacula is Kern Sibbald, with contributions from
12 many others, a complete list can be found in the file AUTHORS.
14 This program is Free Software; you can redistribute it and/or
15 modify it under the terms of version two of the GNU General Public
16 License as published by the Free Software Foundation plus additions
17 that are listed in the file LICENSE.
19 This program is distributed in the hope that it will be useful, but
20 WITHOUT ANY WARRANTY; without even the implied warranty of
21 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
22 General Public License for more details.
24 You should have received a copy of the GNU General Public License
25 along with this program; if not, write to the Free Software
26 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
29 Bacula® is a registered trademark of John Walker.
30 The licensor of Bacula is the Free Software Foundation Europe
31 (FSFE), Fiduciary Program, Sumatrastrasse 25, 8006 Zurich,
32 Switzerland, email:ftf@fsfeurope.org.
41 use POSIX qw/strftime/;
44 use Digest::MD5 qw(md5_hex);
45 use File::Basename qw/basename dirname/;
47 my $conf = new Bweb::Config(config_file => $Bweb::config_file);
49 my $bweb = new Bweb(info => $conf);
52 my $arg = $bweb->get_form('where', 'jobid', 'pathid', 'filenameid');
53 my $where = $arg->{where} || '/';
54 my $jobid = $arg->{jobid};
55 my $pathid = $arg->{pathid};
56 my $fnid = $arg->{filenameid};
57 my $jobid_url = "jobid=$jobid";
60 my $batch = CGI::param("mode") || '';
62 my $md5_rep = md5_hex("$where:$jobid:$pathid:$fnid") ;
63 my $base_url = '/bweb/fv' ;
64 my $base_fich = $conf->{fv_write_path};
66 if ($jobid and $batch eq 'batch') {
67 my $root = fv_get_root_pathid($where);
69 fv_compute_size($jobid, $root);
75 print CGI::header('text/html');
76 $bweb->display_begin();
77 $bweb->display_job_zoom($jobid);
80 $bweb->error("Can't get where or jobid");
84 unless ($base_fich and -w $base_fich) {
85 $bweb->error("fv_write_path ($base_fich) is not writable." .
86 " See Bweb configuration.");
90 if (-f "$base_fich/$md5_rep.png" and -f "$base_fich/$md5_rep.tpl")
92 $bweb->display({}, "$base_fich/$md5_rep.tpl");
98 # if it's a file, display it
99 if ($fnid and $pathid)
101 my $attribs = fv_get_file_attribute_from_id($jobid, $pathid, $fnid);
102 if ($attribs->{found}) {
103 $bweb->display($attribs, 'fv_file_attribs.tpl');
104 $bweb->display_end();
110 my $attribs = fv_get_file_attribute($jobid, $where);
111 if ($attribs->{found}) {
112 $bweb->display($attribs, 'fv_file_attribs.tpl');
113 $bweb->display_end();
122 $where = fv_get_root_path($pathid);
125 if ($where !~ m!/$!) {
126 $where = $where . "/" ;
129 $root = fv_get_root_pathid($where);
133 $bweb->error("Can't find $where in catalog");
134 $bweb->display_end();
138 my $total = fv_compute_size($jobid, $root);
140 my $url_action = "bfileview.pl?opt_level=$opt_level" ;
141 my $top = new CCircle(
143 base_url => "$url_action;pathid=$root;$jobid_url;here=$where",
146 fv_display_rep($top, $total, $root, $opt_level) ;
148 $top->draw_labels() ;
149 $top->set_title(Bweb::human_size($total)) ;
151 open(OUT, ">$base_fich/$md5_rep.png") or die "$base_fich/$md5_rep.png $!";
152 # make sure we are writing to a binary stream
154 # Convert the image to PNG and print it on standard output
155 print OUT $CCircle::gd->png;
158 open(OUT, ">$base_fich/$md5_rep.tpl") or die "$base_fich/$md5_rep.tpl $!";
160 <form action='$url_action' method='get'>
162 <input title='jobids' type='hidden' name='jobid' value='$jobid'>
163 <input title='repertoire' type='text' name='where' value='$where'/>
164 <input type='submit' size='256' name='go' value='go'/>
170 print OUT $top->get_imagemap($where, "$base_url/$md5_rep.png") ;
173 $bweb->display({}, "$base_fich/$md5_rep.tpl");
174 $bweb->display_end();
178 my ($ccircle, $max, $rep, $level) = @_ ;
179 return if ($max < 1);
182 my $dirs = fv_list_dirs($jobid, $rep); # 0: pathid, 1: pathname
184 foreach my $dir (@{$dirs})
186 my $size = fv_compute_size($jobid, $dir->[0]);
189 my $per = $size * 100 / $max;
190 # can't use pathname when using utf or accent
192 $ccircle->{base_url} =~ s/pathid=\d+;/pathid=$dir->[0];/;
194 my $chld = $ccircle->add_part($per,
195 basename($dir->[1]) . '/',
197 . sprintf(' %.0f%% ', $per)
198 . Bweb::human_size($size)
201 if ($chld && $level > 0) {
202 fv_display_rep($chld, $size, $dir->[0], $level - 1) ;
206 # 0: filenameid, 1: filename, 2: size
207 my $files = fv_get_big_files($jobid, $rep, 3*100/$max, $max_file/($level+1));
208 foreach my $f (@{$files}) {
209 $ccircle->{base_url} =~ s/pathid=\d+;(filenameid=\d+)?/pathid=$rep;filenameid=$f->[0];/;
211 $ccircle->add_part($f->[2] * 100 / $max,
213 $f->[1] . "\n" . Bweb::human_size($f->[2]));
218 $ccircle->add_part(($max - $sum) * 100 / $max,
220 "other\n" . Bweb::human_size($max - $sum));
223 $ccircle->finalize() ;
228 my ($jobid, $rep) = @_;
230 my $size = fv_get_size($jobid, $rep);
235 $size = fv_get_files_size($jobid, $rep);
237 my $dirs = fv_list_dirs($jobid, $rep);
238 foreach my $dir (@{$dirs}) {
239 $size += fv_compute_size($jobid, $dir->[0]);
242 fv_update_size($jobid, $rep, $size);
248 my ($jobid, $rep) = @_;
250 my $ret = $bweb->dbh_selectall_arrayref("
252 ( SELECT Path FROM Path WHERE PathId = P.PathId) AS Path
255 FROM brestore_pathvisibility
256 INNER JOIN brestore_pathhierarchy USING (PathId)
265 sub fv_get_file_attribute
267 my ($jobid, $full_name) = @_;
269 my $filename = $bweb->dbh_quote(basename($full_name));
270 my $path = $bweb->dbh_quote(dirname($full_name) . "/");
272 my $attr = $bweb->dbh_selectrow_hashref("
275 base64_decode_lstat(8, LStat) AS size,
276 base64_decode_lstat(11, LStat) AS atime,
277 base64_decode_lstat(12, LStat) AS mtime,
278 base64_decode_lstat(13, LStat) AS ctime
280 FROM File INNER JOIN Filename USING (FilenameId)
281 INNER JOIN Path USING (PathId)
282 WHERE Name = $filename
287 $attr->{filename} = $full_name;
288 $attr->{size} = Bweb::human_size($attr->{size});
289 foreach my $d (qw/atime ctime mtime/) {
290 $attr->{$d} = strftime('%F %H:%M', localtime($attr->{$d}));
296 sub fv_get_file_attribute_from_id
298 my ($jobid, $pathid, $filenameid) = @_;
300 my $attr = $bweb->dbh_selectrow_hashref("
303 base64_decode_lstat(8, LStat) AS size,
304 base64_decode_lstat(11, LStat) AS atime,
305 base64_decode_lstat(12, LStat) AS mtime,
306 base64_decode_lstat(13, LStat) AS ctime,
307 Path.Path || Filename.Name AS filename
309 FROM File INNER JOIN Filename USING (FilenameId)
310 INNER JOIN Path USING (PathId)
311 WHERE FilenameId = $filenameid
316 $attr->{size} = Bweb::human_size($attr->{size});
317 foreach my $d (qw/atime ctime mtime/) {
318 $attr->{$d} = strftime('%F %H:%M', localtime($attr->{$d}));
325 my ($jobid, $rep) = @_;
327 my $ret = $bweb->dbh_selectrow_hashref("
329 FROM brestore_pathvisibility
337 sub fv_get_files_size
339 my ($jobid, $rep) = @_;
341 my $ret = $bweb->dbh_selectrow_hashref("
342 SELECT sum(base64_decode_lstat(8,LStat)) AS size
353 my ($jobid, $rep, $min, $limit) = @_;
355 my $ret = $bweb->dbh_selectall_arrayref("
356 SELECT FilenameId AS filenameid, Name AS name, size
358 SELECT FilenameId, base64_decode_lstat(8,LStat) AS size
362 ) AS S INNER JOIN Filename USING (FilenameId)
373 my ($jobid, $rep, $size) = @_;
375 my $nb = $bweb->dbh_do("
376 UPDATE brestore_pathvisibility SET Size = $size
384 sub fv_get_root_pathid
387 $path = $bweb->dbh_quote($path);
388 my $ret = $bweb->dbh_selectrow_hashref("SELECT PathId FROM Path WHERE Path = $path");
389 return $ret->{pathid};
395 my $ret = $bweb->dbh_selectrow_hashref("SELECT Path FROM Path WHERE PathId = $pathid");
402 CREATE OR REPLACE FUNCTION base64_decode_lstat(int4, varchar) RETURNS int8 AS $$
409 size := split_part($2, ' ', $1);
410 b64 := 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
412 FOR i IN 1..length(size) LOOP
413 val := val + (strpos(b64, substr(size, i, 1))-1) * (64^(length(size)-i));
417 $$ language 'plpgsql';
419 ALTER TABLE brestore_pathvisibility ADD Size int8;
423 ALTER TABLE brestore_pathvisibility ADD Files int4;