#!/usr/local/bin/perl
# Redirecting to Cli Command Log Page

require 'ippbx-lib.pl';
ui_print_header(undef, $module_info{'desc'}, "", undef, 1, 1);
use strict;
use warnings;
use feature 'say';
use Mojo::UserAgent;
our ($base_remote_user);
my $ua   = Mojo::UserAgent->new;
my $data = $ua->post('http://##IP:8061/system/generateRemoteToken' => form => {userName =>$base_remote_user})->res->json;
my $res = $data->{data};
print qq[
<h1>Please Wait While We Initialize Reboot For Server ##NAME</h1>
];
if ($res ne "")
{
	my $match_msg = "Reboot : ";
	my $reboot_req=$ua->post('http://##IP:8061/system/reboot' => form => {userName =>$base_remote_user,authKey =>$res})->res->json;
	my $msg = $reboot_req->{message};
	print "Message From Server $msg";
        if ($match_msg eq $msg)
        {
                print qq[
                <h3>Server Has Rebooted Server Successfully</h3>
                ];
        }
        else
        {
                print qq[
                <h3>Unable To Rebooted Server</h3>
                ];
        }
}
