-#!/usr/bin/perl -T
+#!/bin/perl -T
#============================================================= -*-perl-*-w
#
# BackupPC_Admin: Apache/CGI interface for BackupPC.
#
#========================================================================
#
-# Version 1.5.0beta0, released 30 Jun 2002.
+# Version 1.5.0_CVS, released 2 Aug 2002.
#
# See http://backuppc.sourceforge.net.
#
if ( $In{doit} ) {
if ( $start ) {
if ( $Hosts->{$host}{dhcp} ) {
- $reply = $bpc->ServerMesg(eval("qq{$Lang->{backup__In_hostIP___host}}"));
+ $reply = $bpc->ServerMesg("backup $In{hostIP} $host"
+ . " $User $doFull");
$str = eval("qq{$Lang->{Backup_requested_on_DHCP__host}}");
} else {
- $reply = $bpc->ServerMesg(eval("qq{$Lang->{backup__host__host__User__doFull}}"));
+ $reply = $bpc->ServerMesg("backup $host $host $User $doFull");
$str = eval("qq{$Lang->{Backup_requested_on__host_by__User}}");
}
} else {
- $reply = $bpc->ServerMesg(eval("qq{$Lang->{stop__host__User__In_backoff}}"));
+ $reply = $bpc->ServerMesg("stop $host $User $In{backoff}");
$str = eval("qq{$Lang->{Backup_stopped_dequeued_on__host_by__User}}");
}
} else {
ErrorExit(eval("qq{$Lang->{Can_t_open_create}}"));
}
- $reply = $bpc->ServerMesg(eval("qq{$Lang->{restore__ipAddr}}"));
+ $reply = $bpc->ServerMesg("restore $ipAddr"
+ . " $hostDest $User $reqFileName");
$str = eval("qq{$Lang->{Restore_requested_to_host__hostDest__backup___num}}");
Header(eval("qq{$Lang->{Restore_Requested_on__hostDest}}"));
print (eval("qq{$Lang->{Reply_from_server_was___reply}}"));
sub Action_GeneralInfo
{
- GetStatusInfo($Lang->{info_jobs_hosts_queueLen});
+ GetStatusInfo("info jobs hosts queueLen");
my $Privileged = CheckPermission();
- my($jobStr, $statusStr, $tarPidHdr, $ rivLinks);
+ my($jobStr, $statusStr, $tarPidHdr);
foreach my $host ( sort(keys(%Jobs)) ) {
my $startTime = timeStamp2($Jobs{$host}{startTime});
next if ( $host eq $bpc->trashJob