xcc.in

一套客户/服务器模式的备份系统代码,跨平台,支持linux,AIX, IRIX, FreeBSD, Digital Unix (OSF1), Solaris and HP-UX.

#! /opt/bin/wish
################### Start of $RCSfile: xcc.in,v $ ##################
#
# $Source: /home/alb/afbackup/afbackup-3.3.8.1/RCS/xcc.in,v $
# $Id: xcc.in,v 1.3 2004/07/08 20:34:44 alb Exp alb $
# $Date: 2004/07/08 20:34:44 $
# $Author: alb $
#
#
####### description ################################################
#
#
#
####################################################################

set prefix "@prefix@"
set TEXTDOMAIN "@PACKAGE@"
set TEXTDOMAINDIR "@commondatadir@/locale"

proc T_ { text } {
  global TEXTDOMAIN TEXTDOMAINDIR

  return [ INTL_gettext $text $TEXTDOMAIN $TEXTDOMAINDIR ]
}

proc TN_ { text } {
  return $text
}

source "@commonshlibdir@/aftcllib.tcl"

if { [ llength $argv ] > 1 } {
  set usagestr [ T_ "Usage" ]
  append usagestr [ TN_ ": " ] [ file tail $argv0 ] { [ <config-file> ]}
  puts stderr $usagestr
  exit 2
}

# user settable section

set BACKUP_HOME_DEFAULT $env(BACKUP_HOME_DEFAULT)

if { [ info exists env(BACKUP_HOME) ] } {
  set BACKUP_HOME $env(BACKUP_HOME)
}

if { [ llength $argv ] == 1 } {
  set configfile [ lindex $argv 0 ]
} else {
  set found 0
  set configfiles "$BACKUP_HOME_DEFAULT/etc/backup.conf $BACKUP_HOME_DEFAULT/lib/backup.conf /etc/buclient.conf /etc/afbuclient.conf /etc/afclient.conf /etc/afbackup/client.conf"
  lappend configfiles "@clientconfdir@/@clientconf@" "@clientlibdir@/@clientconf@"
  foreach configfile "$configfiles" {
    if { [ file readable $configfile ] } {
      set found 1
      break
    }
  }

  if { ! $found } {
    puts stderr [ T_ "Error: Cannot read configuration file. Exiting." ]
    exit 2
  }
}

set configfile [ GFile_resolvePath $configfile ]

set textwidth	[ T_ "client-config-description-label-width" ]
if { $textwidth == "client-config-description-label-width" } {
  set textwidth	28
}
set entrywidth	40

set num_fix_params	34
set num_var_sp_idx	34

set comments(1) [ TN_ "\nThe backup server hosts" ]
set comments(2) [ TN_ "\nThe backup server port-numbers" ]
set comments(3) [ TN_ "\nThe cartridge sets to use" ]
set comments(4) [ TN_ "\nServer messages output configuration" ]
set comments(5) [ TN_ "\nThe programs to process the files, that are saved, and the counterpart\nto do the reverse processing, if desired. In most cases compression\nand uncompression" ]
set comments(6) {}
set comments(7) [ TN_ "\nLevel of built-in compression, if supported." ]
set comments(8) [ TN_ "\nThe part of the file, where the saved filenames\nare stored (current number appended)" ]
set comments(9) [ TN_ "\nThe programs to process the file indexes and the counterpart to do\nthe reverse processing, if desired. In most cases compression\nand uncompression" ]
set comments(10) {}
set comments(11) [ TN_ "\nWhether to process the saved files" ]
set comments(12) [ TN_ "\nWhether to process the index files" ]
set comments(13) [ TN_ "\nPatterns for names of files, no preprocessing\nis performed on" ]
set comments(14) [ TN_ "\nThe number of such files, that are maintained.\nMore (older ones) are removed." ]
set comments(15) [ TN_ "Alternatively the maximum age of index files to be kept in days.\nOlder ones are removed" ]
set comments(16) [ TN_ "\nThe maximum number of previous index files, that are scanned for restore" ]
set comments(17) [ TN_ "\nAlternatively the maximum age of index files in days to be scanned for\nrestore" ]
set comments(18) [ TN_ "\nFor restore: Check, whether the user has sufficient permissions\nto restore files to the same place, from where they were saved" ]
set comments(19) [ TN_ "\nThe file where to log events" ]
set comments(20) [ TN_ "\nThe directory for varying files" ]
set comments(21) [ TN_ "\nThe identifier for the client (needed, if several afbackup\ninstallations reside on one host)" ]
set comments(22) [ TN_ "\nLocking file to prevent several client program starts" ]
set comments(23) [ TN_ "\nThe file with the authentication encryption key" ]
set comments(24) [ TN_ "\nThe program to save startup information" ]
set comments(25) [ TN_ "\nThe program to be run before attempting a backup. If this program\nreturns an exit status unequal to 0, no backup is performed." ]
set comments(26) [ TN_ "\nThe program to be executed when everything requested is done.\n%l is replaced by the filename-logfile, %r by the file with\nthe report statistics, %e by the overall exit status,\n%i with the minimum restore information" ]
set comments(27) [ TN_ "\nThe directory, where to run the backup" ]
set comments(28) [ TN_ "\nNames of files to be skipped during the backup\n(wildcards are allowed)" ]
set comments(29) [ TN_ "\nNames of directories to be skipped during the backup\n(wildcards are allowed)" ]
set comments(30) [ TN_ "\nName of a file containing a (pattern-) list of files\nand directories to be skipped during the backup" ]
set comments(31) [ TN_ "\nFilesystem types to save, skip (-) or prune (/)" ]
set comments(32) [ TN_ "\nWhether to write CRC32 checksums to the backup or not" ]
set comments(33) [ TN_ "\nWhether to use the ctime in addition to mtime during incremental backup" ]
set comments(34) [ TN_ "\nThe number of parts of the full backup (if this takes a long time)" ]
set comments(35) [ TN_ "\nThe subdirectories of the RootDirectory to backup\n(wildcards are allowed)" ]
set comments(36) [ TN_ "\nThe subdirectories of the RootDirectory to backup, part #num#\n(wildcards are allowed)" ]

set names(1) {BackupHosts}
set names(2) {BackupPorts}
set names(3) {CartridgeSets}
set names(4) {PrintServerMessages}
set names(5) {ProcessCmd}
set names(6) {UnprocessCmd}
set names(7) {BuiltinCompressLevel}
set names(8) {IndexFilePart}
set names(9) {IndexProcessCmd}
set names(10) {IndexUnprocessCmd}
set names(11) {ProcessBackupedFiles}
set names(12) {ProcessIndexFiles}
set names(13) {DoNotProcess}
set names(14) {NumIndexesToStore}
set names(15) {DaysToStoreIndexes}
set names(16) {NumIndexesToScan}
set names(17) {DaysToScanIndexes}
set names(18) {CheckRestoreAccessPerms}
set names(19) {LoggingFile}
set names(20) {VarDirectory}
set names(21) {ClientIdentifier}
set names(22) {LockFile}
set names(23) {EncryptionKeyFile}
set names(24) {StartupInfoProgram}
set names(25) {InitProgram}
set names(26) {ExitProgram}
set names(27) {RootDirectory}
set names(28) {FilesToSkip}
set names(29) {DirsToSkip}
set names(30) {ExcludeListFile}
set names(31) {FilesystemTypes}
set names(32) {WriteChecksums}
set names(33) {UseCTime}
set names(34) {NumBackupParts}
set names(35) {DirsToBackup}
set names(36) {DirsToBackup#num#}

set patterns(1) {[Bb]ackup[ \t_-]*[Hh]osts?:?}
set patterns(2) {[Bb]ackup[ \t_-]*[Pp]orts?:?}
set patterns(3) {[Cc]artr?i?d?g?e?[-_ \t]*[Ss]ets?:?}
set patterns(4) {[Pp]rint[-_ \t]*[Ss]e?r?ve?r?[-_ \t]*[Mm]e?ss?a?ge?s?:?}
set patterns(5) {([Pp]rocess|[Cc]ompress)[-_ \t]*[Cc]o?m?ma?n?d:?}
set patterns(6) {([Uu]nprocess|[Uu]ncompress)[-_ \t]*[Cc]o?m?ma?n?d:?}
set patterns(7) {[Bb]uilt[-_ \t]*[iI]n[-_ \t]*[Cc]ompre?s?s?i?o?n?[-_ 	]*([Ll]evel)?:?}
set patterns(8) {[Ii]ndex[ \t_-]*[Ff]ile[ \t_-]*[Pp]art:?}
set patterns(9) {[Ii]ndex[ \t_-]*([Pp]rocess|[Cc]ompress)[-_ \t]*[Cc]o?m?ma?n?d:?}
set patterns(10) {[Ii]ndex[ \t_-]*([Uu]nprocess|[Uu]ncompress)[-_ \t]*[Cc]o?m?ma?n?d:?}
set patterns(11) {([Pp]rocess|[Cc]ompress)[-_ \t]*[Bb]ackupe?d?[-_ \t]*([Ff]iles)?:?}
set patterns(12) {([Pp]rocess|[Cc]ompress)[-_ \t]*([Ll]ogg?i?n?g?[-_ \t]*[Ff]iles?|[Ii]n?d(e?x|i?c)e?s?([Ff]iles?)?):?}
set patterns(13) {[Dd]o[-_ \t]*[Nn][\'o]?t[-_ \t]*([Pp]rocess|[Cc]ompress):?}
set patterns(14) {[Nn]um[-_ \t]*[Ii]nd(ic|ex)es[-_ \t]*[Tt]o[ \t_-]*[Ss]tore:?}
set patterns(15) {[Dd]ays[-_ \t]*[Tt]o[ \t_-]*[Ss]tore[-_\t]*[Ii]nd(ic|ex)es:?}
set patterns(16) {[Nn]um[-_ \t]*[Ii]nd(ic|ex)es[-_ \t]*[Tt]o[ \t_-]*[Ss]can:?}
set patterns(17) {[Dd]ays[-_ \t]*[Tt]o[ \t_-]*[Ss]can[-_\t]*[Ii]nd(ic|ex)es:?}
set patterns(18) {[Cc]heck[-_ \t]*[Rr]estore[-_ \t]*[Aa]ccess[-_ \t]*[Pp]ermi?s?s?i?o?n?s?:?}
set patterns(19) {[Ll]ogg?i?n?g?[-_ \t]*[Ff]ile:?}
set patterns(20) {[Vv][Aa][Rr][-_ \t]*[Dd]ire?c?t?o?r?y?:?}
set patterns(21) {([Cc]lient[-_ \t]*)?[Ii]denti(ty|fier):?[ \t]*}
set patterns(22) {[Ll]ocki?n?g?[-_ 	]*[Ff]ile:?}
set patterns(23) {([Ee]n)?[Cc]rypti?o?n?[ \t_-]*[Kk]ey[ \t_-]*[Ff]ile:?}
set patterns(24) {[Ss]tartu?p?[-_ \t]*[Ii]nfo[-_ \t]*[Pp]rogram:?}
set patterns(25) {[Ii]nit[-_ \t]*[Pp]rogram:?}
set patterns(26) {[Ee]xit[-_ \t]*[Pp]rogram:?}
set patterns(27) {[Rr]oot[ \t_-]*[Dd]ire?c?t?o?r?y?:?}
set patterns(28) {[Ff]iles[ \t_-]*[Tt]o[ \t_-]*[Ss]kip:?}
set patterns(29) {[Dd]ire?c?t?o?r?i?e?s[ \t_-]*[Tt]o[ \t_-]*[Ss]kip:?}
set patterns(30) {[Ee]xclu?d?e?[-_ \t]*[Ll]ist[-_ \t]*[Ff]ile[-_ \t]*[Nn]?a?m?e?:?}
set patterns(31) {[Ff]i?l?e?[ \t_-]*[Ss]y?s?t?e?m?[ \t_-]*[Tt]ypes:?}