#!/usr/bin/perl
# Run rotate.pl now

require './bandwidth-lib.pl';
&ui_print_unbuffered_header(undef, $text{'rotate_title'}, "");
print &ui_text_wrap($text{'rotate_doing'});
my ($out) = &backquote_logged("$cron_cmd 2>&1");
$out = $out ? &text('rotate_failed', &html_strip($out)) : $text{'rotate_done'};
print &ui_text_wrap("<br>$out");
&webmin_log("rotate");
&ui_print_footer("", $text{'index_return'});