if ( $ConfigPath ne "" && -r $ConfigPath ) {
(my $topDir = $ConfigPath) =~ s{/[^/]+/[^/]+$}{};
die("BackupPC::Lib->new failed\n")
- if ( !($bpc = BackupPC::Lib->new($topDir, ".")) );
+ if ( !($bpc = BackupPC::Lib->new($topDir, ".", 1)) );
%Conf = $bpc->Conf();
%OrigConf = %Conf;
$Conf{TopDir} = $topDir;
BackupPC/Xfer/Smb.pm BackupPC/Xfer/Rsync.pm
BackupPC/Xfer/RsyncFileIO.pm BackupPC/Zip/FileMember.pm
BackupPC/Lang/en.pm BackupPC/Lang/fr.pm BackupPC/Lang/es.pm
+ BackupPC/Lang/de.pm
) ) {
InstallFile("lib/$lib", "$Conf{InstallDir}/lib/$lib", 0444);
}
}
printf("Making init.d scripts\n");
-foreach my $init ( qw(linux-backuppc solaris-backuppc debian-backuppc) ) {
+foreach my $init ( qw(gentoo-backuppc gentoo-backuppc.conf linux-backuppc
+ solaris-backuppc debian-backuppc suse-backuppc) ) {
InstallFile("init.d/src/$init", "init.d/$init", 0444);
}
Enjoy!
EOF
+if ( $ENV{LANG} =~ /utf/i && $^V ge v5.8.0 ) {
+ print <<EOF;
+
+WARNING: Your LANG environment variable is set to $ENV{LANG}, which
+doesn't behave well with this version of perl. Please set the
+LANG environment variable to en_US before running BackupPC.
+
+On RH-8 this setting is in the file /etc/sysconfig/i18n, or you
+could set it in BackupPC's init.d script.
+EOF
+}
+
+exit(0);
+
###########################################################################
# Subroutines
###########################################################################