-#!/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}}"));
}
printf("Making init.d scripts\n");
-foreach my $init ( qw(linux-backuppc solaris-backuppc) ) {
+foreach my $init ( qw(linux-backuppc solaris-backuppc debian-backuppc) ) {
InstallFile("init.d/src/$init", "init.d/$init", 0444);
}
#
# Startup init script for BackupPC on Redhat linux.
#
-# Distributed with BackupPC version 1.5.0, released 2 Aug 2002.
+# Distributed with BackupPC version __VERSION__, released __RELEASEDATE__.
#
# chkconfig: - 91 35
# description: Starts and stops the BackupPC server
#
# Startup init script for BackupPC for solaris.
#
-# Distributed with BackupPC version 1.5.0, released 2 Aug 2002.
+# Distributed with BackupPC version __VERSION__, released __RELEASEDATE__.
#
# Not tested...
#
-#!/usr/bin/perl -w
+#!/bin/perl -T
#my %lang;
start this request from the client machine itself.
EOF
-# ------------------------------------
-# !! Server Mesg !!
-# ------------------------------------
-
-# do not translate the firsts, used by server
-$Lang{backup__In_hostIP___host} = "backup \$In{hostIP} \$host"
- . " \$User \$doFull";
-$Lang{backup__host__host__User__doFull} = "backup \$host \$host \$User \$doFull";
-$Lang{restore__ipAddr} = "restore \$ipAddr"
- . " \$hostDest \$User \$reqFileName";
-$Lang{stop__host__User__In_backoff} = "stop \$host \$User \$In{backoff}";
-
########################
# ok you can do it then
########################
-#!/usr/bin/perl -w
+#!/bin/perl -T
#my %lang;
#use strict;
. "sauvegarde n° \$num,"
. " par \$User depuis \$ENV{REMOTE_ADDR}";
-##########################
-##########################
-
-#$Lang{backup__In_hostIP___host} = "Sauvegarde \$In{hostIP} \$host"
-# . " \$User \$doFull";
-#
-#$Lang{backup__host__host__User__doFull} = "backup \$host \$host \$User \$doFull";
-#$Lang{restore__ipAddr} = "Restauration \$ipAddr"
-# . " \$hostDest \$User \$reqFileName";
-#$Lang{stop__host__User__In_backoff} = "Arrêt \$host \$User \$In{backoff}";
-
-
# -------------------------------------------------
# ------- Stuff that was forgotten ----------------
# -------------------------------------------------
umask(0022);
my $Version = "1.5.0_CVS";
-my $ReleaseDate = "2 Aug 2002";
+my $ReleaseDate = "17 Sep 2002";
my $DistDir = "dist/BackupPC-$Version";
my @PerlSrc = qw(
conf/config.pl
conf/hosts
init.d/README
+ init.d/src/debian-backuppc
init.d/src/linux-backuppc
init.d/src/solaris-backuppc
doc/BackupPC.pod