Server IP : 195.201.23.43 / Your IP : 3.12.107.192 Web Server : Apache System : Linux webserver2.vercom.be 5.4.0-192-generic #212-Ubuntu SMP Fri Jul 5 09:47:39 UTC 2024 x86_64 User : kdecoratie ( 1041) PHP Version : 7.1.33-63+ubuntu20.04.1+deb.sury.org+1 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/virtual-server/ |
Upload File : |
#!/usr/bin/perl # Show logs of backups this user has permissions on require './virtual-server-lib.pl'; &ReadParse(); &can_backup_log() || &error($text{'backuplg_ecannot'}); &ui_print_header(undef, $text{'backuplog_title'}, ""); # Show search form print &ui_form_start("backuplog.cgi"); print "<b>$text{'backuplog_search'}</b>\n"; print &ui_textbox("search", $in{'search'}, 30); print &ui_submit($text{'backuplog_ok'}); print &ui_form_end(),"<p>\n"; # Get backups to list $days = $in{'sched'} ? 365 : ($config{'backuplog_days'} || 7); @logs = &list_backup_logs($in{'search'} ? undef : time()-24*60*60*$days); if ($in{'search'}) { @logs = grep { $_->{'user'} eq $in{'search'} || $_->{'doms'} =~ /\Q$in{'search'}\E/i || $_->{'dest'} =~ /\Q$in{'search'}\E/i } @logs; } elsif ($in{'sched'}) { ($sched) = grep { $_->{'id'} eq $in{'sched'} } &list_scheduled_backups(); $sched || &error($text{'backuplg_esched'}); @logs = grep { $_->{'sched'} eq $in{'sched'} } @logs; } $anylogs = scalar(@logs); @logs = grep { &can_backup_log($_) } @logs; # Tell the user what he is searching for if ($in{'search'}) { print &text('backuplog_match', "<i>".&html_escape($in{'search'})."</i>"),"<br>\n"; } elsif ($in{'sched'}) { @dests = &get_scheduled_backup_dests($sched); @nices = map { &nice_backup_url($_, 1) } @dests; print &text('backuplog_sched', $nices[0]),"<br>\n"; } else { print &text('backuplog_days', $days),"<br>\n"; } if (@logs) { # Show in a table @table = ( ); $hasdesc = 0; foreach $log (@logs) { $hasdesc++ if ($log->{'desc'}); } foreach $log (sort { $b->{'start'} <=> $a->{'start'} } @logs) { @dnames = &backup_log_own_domains($log); next if (!@dnames); $ddesc = scalar(@dnames) == 0 ? $text{'backuplog_nodoms'} : scalar(@dnames) <= 2 ? join(", ", @dnames) : &text('backuplog_doms', scalar(@dnames)); push(@table, [ "<a href='view_backuplog.cgi?id=".&urlize($log->{'id'}). "&search=".&urlize($in{'search'})."'>". &nice_backup_url($log->{'dest'}, 1)."</a>", $ddesc, $hasdesc ? ( &html_escape($log->{'desc'}) ) : ( ), $log->{'user'} || "<i>root</i>", &make_date($log->{'start'}), &short_nice_hour_mins_secs( $log->{'end'} - $log->{'start'}), $log->{'increment'} == 1 ? $text{'viewbackup_inc1'} : $text{'viewbackup_inc0'}, &nice_size($log->{'size'}), $log->{'ok'} && !$log->{'errdoms'} ? $text{'backuplog_status_ok'} : $log->{'ok'} && $log->{'errdoms'} ? &ui_text_color($text{'backuplog_status_partial'}, 'warn') : &ui_text_color($text{'backuplog_status_failed'}, 'danger') ]); } print &ui_columns_table([ $text{'sched_dest'}, $text{'sched_doms'}, $hasdesc ? ( $text{'backuplog_desc'} ) : ( ), $text{'backuplog_who'}, $text{'backuplog_when'}, $text{'backuplog_len'}, $text{'backuplog_incr'}, $text{'backuplog_size'}, $text{'backuplog_status'} ], 100, \@table); } else { # None found print "<b>",($in{'search'} ? $text{'backuplog_nomatch'} : $anylogs ? $text{'backuplog_none2'} : $text{'backuplog_none'}),"</b><p>\n"; } &ui_print_footer("", $text{'index'});Private