xsc.in

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

#! /opt/bin/wish
################### Start of $RCSfile: xsc.in,v $ ##################
#
# $Source: /home/alb/afbackup/afbackup-3.3.8.1/RCS/xsc.in,v $
# $Id: xsc.in,v 1.5 2005/01/15 08:59:32 alb Exp alb $
# $Date: 2005/01/15 08:59:32 $
# $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/buserver.conf /etc/afbuserver.conf /etc/afserver.conf /etc/afbackup/server.conf"
  lappend configfiles "@serverconfdir@/@serverconf@"
  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_ "server-config-description-label-width" ]
if { $textwidth == "server-config-description-label-width" } {
  set textwidth	28
}
set entrywidth	40

set num_fix_params	37
set num_var_sp_idx	0

set comments(1) [ TN_ "\nSERVER SPECIFICATION\n\nThe identifier for the server" ]
set comments(2) [ TN_ "\nDEVICE SPECIFICATION\n\nThe device name (No-Rewind-Version !)" ]
set comments(3) [ TN_ "\nThe blocksize of the device" ]
set comments(4) [ TN_ "\nSpecification of the tape buffer (size, high-, lowmark, filename)" ]
set comments(5) [ TN_ "\nFlag, whether the device is a robot / cartridge handling system (0 or 1)" ]
set comments(6) [ TN_ "\nInsert your number of cartridges, whether you have a robot or not" ]
set comments(7) [ TN_ "\nThe specifiers of different cartridge sets, if requested.\nDefault is 1 set with cartridges ranging from 1 up to the\nprevious parameter. Specifiers of cartridge sets must be\nseparated by whitespace and may contain digits, commas and\ndashes. Examples: 1-3 4,8-10 6,7" ]
set comments(8) [ TN_ "\nThe maximum number of bytes per file on tape" ]
set comments(9) [ TN_ "\nThe maximum number of bytes per tape" ]
set comments(10) [ TN_ "\nAppend also to explicitly deselected cartridges" ]
set comments(11) [ TN_ "\nWrite to any supplied cartridge, that has space" ]
set comments(12) [ TN_ "\nRefuse to write to tapes, that do not have a valid label" ]
set comments(13) [ TN_ "\nPrefer writable cartridges available in a changer" ]
set comments(14) [ TN_ "\nTime to wait from the moment, a new cartridge has been inserted\nuntil a new action is attempted on the tape device" ]
set comments(15) [ TN_ "\nTime to wait while the device is unavailable until a mail is\nsent to the user in charge" ]
set comments(16) [ TN_ "\nTime to wait while the device is unavailable until abort" ]
set comments(17) [ TN_ "\nThe interval in seconds for probing, if device is ready, when\ninserting another cartridge is requested. 0 for no probing." ]
set comments(18) [ TN_ "\nConfiguration file for a media changer" ]
set comments(19) [ TN_ "\n\nSHELL-COMMANDS FOR TAPE HANDLING\n\nIn these commands %d is replaced by the device name,\n%n by the number, if within the command the count starts with 1,\n%m by the number, if the count starts with 0.\n\nCommand to set the file # on tape" ]
set comments(20) [ TN_ "\nCommand to skip to the next %n-th file on tape" ]
set comments(21) [ TN_ "\nIf there is a command to set the cartridge directly, supply it here" ]
set comments(22) [ TN_ "\nIf the cartridges can only by changed successively, insert the\ncommand to change them here. This is also the command, that unloads\nthe tape, if you have no cartridge handler." ]
set comments(23) [ TN_ "\nIf the media must be prepared for access in some way,\nthe appropriate command can be supplied here." ]
set comments(24) [ TN_ "\nThe command to erase the tape. This is necessary on some systems." ]
set comments(25) [ TN_ "\nCommand, that is called, when a tape is full." ]
set comments(26) [ TN_ "\n\nCONFIGURATION FOR NON-EXISTING CARTRIDGE HANDLING SYSTEM\n\nThe user to inform, if a cartridge should be changed manually" ]
set comments(27) [ TN_ "\nThe mail-program to use.\n\nInsert %u for the position, where the username has to appear,\n%U for the remote user, %H for the remote client host." ]
set comments(28) [ TN_ "\n\nFILES TO SAVE THE STATE AND LOGGINGS\n\nDirectory for changing and persistent files" ]
set comments(29) [ TN_ "\nFilename to save the current tape position" ]
set comments(30) [ TN_ "\nFilename for error loggings etc." ]
set comments(31) [ TN_ "\nFilename to write the current server status to" ]
set comments(32) [ TN_ "\nLocking file to prevent several server starts" ]
set comments(33) [ TN_ "\nLockfile for accessing a media changer" ]
set comments(34) [ TN_ "\nThe file with the authentication encryption key" ]
set comments(35) [ TN_ "\n\nCONFIGURATION FOR REMOTE_EXECUTION\n\nDirectory, where remotely started programs must reside" ]
set comments(36) [ TN_ "\n\nSERVER-STARTUP AND SHUTDOWN ACTIONS\n\nshell-command to perform, when the server starts" ]
set comments(37) [ TN_ "\nshell-command to perform, when the server exits" ]

set names(1) {ServerIdentifier}
set names(2) {Backup-Device}
set names(3) {Tape-Blocksize}
set names(4) {Tape-Buffer}
set names(5) {Cartridge-Handler}
set names(6) {Number Of Cartridges}
set names(7) {Cartridge-Sets}
set names(8) {Max Bytes Per File}
set names(9) {Max Bytes Per Tape}
set names(10) {Full Append Mode}
set names(11) {Variable Append Mode}
set names(12) {Reject Unlabeled Tapes}
set names(13) {Prefer Cartridge in Changer}
set names(14) {Cart-Insert-Gracetime}
set names(15) {Device Unavail Send mail after min}
set names(16) {Device Unavail give up after min}
set names(17) {Device-Probe Interval}
set names(18) {Changer-Configuration-File}
set names(19) {SetFile-Command}
set names(20) {SkipFiles-Command}
set names(21) {Set-Cart-Command}
set names(22) {Change-Cart-Command}
set names(23) {Init-Media-Command}
set names(24) {Erase-Tape-Command}
set names(25) {Tape-Full-Command}
set names(26) {User To Inform}
set names(27) {Mail-Program}
set names(28) {VarDirectory}
set names(29) {Tape-Pos-File}
set names(30) {Logging-file}
set names(31) {Status-file}
set names(32) {Lock-file}
set names(33) {Changer-Lockfile}
set names(34) {Encryption-Key-File}
set names(35) {Program-Directory}
set names(36) {Init-Command}
set names(37) {Exit-Command}

set patterns(1) {[Ss]erver[-_ \t]*[Ii]denti(ty|fier):?}
set patterns(2) {[Bb]ackup[-_ \t]*[Dd]evi?c?e?s?:?}
set patterns(3) {[Tt]ape[-_ \t]*[Bb]lock[-_ \t]*[Ss]ize:?}
set patterns(4) {([Ss]treamer|[Tt]ape)[-_ \t]*[Bb]uffer:?}
set patterns(5) {[Cc]artr?i?d?g?e?[-_ \t]*[Hh]andler:?}
set patterns(6) {[Nn]umb?e?r?[-_ \t]*[Oo]f[-_ \t]*[Cc]artr?i?d?g?e?s[-_ \t]*:?}
set patterns(7) {[Cc]artr?i?d?g?e?[-_ \t]*[Ss]ets[-_ \t]*:?}
set patterns(8) {[Mm]axi?m?u?m?[-_ \t]*[Bb]ytes[-_ \t]*[Pp]er[-_ \t]*[Ff]ile:?}
set patterns(9) {[Mm]axi?m?u?m?[-_ \t]*[Bb]ytes[-_ \t]*[Pp]er[-_ \t]*[Tt]apes?:?}
set patterns(10) {([Ff]ull[-_ \t]*)?[Aa]ppend([-_ \t]*[Mm]ode)?:?}
set patterns(11) {[Vv]ar(iable)?[-_ \t]*[Aa]ppend([-_ \t]*[Mm]ode)?:?}
set patterns(12) {[Rr]eject[-_ \t]*[Uu]nlabeled([-_ \t]*[Tt]apes?)?:?}
set patterns(13) {[Pp]refer[-_ \t]*[Cc]artr?i?d?g?e?s?[-_ \t]*[Ii]n[-_ \t]*[Cc]hanger:?}
set patterns(14) {[Cc]artr?i?d?g?e?[-_ \t]*[Ii]nse?r?t?[-_ \t]*[Gg]race[-_ \t]*[Tt]ime:?}
set patterns(15) {[Dd]evi?c?e?[-_ \t]*[Uu]n[Aa]vaila?b?l?e?[-_ \t]*[Ss]end[-_ \t]*[Mm]ail[-_ \t]*([Aa]fter[-_ \t]*)?[Mm]inu?t?e?s?:?}
set patterns(16) {[Dd]evi?c?e?[-_ \t]*[Uu]n[Aa]vaila?b?l?e?[-_ \t]*[Gg]ive[-_ \t]*[Uu]p[-_ \t]*([Aa]fter[-_ \t]*)?[Mm]inu?t?e?s?:?}
set patterns(17) {[Dd]evi?c?e?[-_ \t]*[Pp]rob(e|ing)[-_ \t]*[Ii]nterval:?}
set patterns(18) {[Cc][Hh][Aa][Nn][Gg][Ee][Rr][-_ \t]*[Cc][Oo][Nn][Ff][Ii][Gg]([Uu][Rr][Aa][Tt][Ii][Oo][Nn])?[-_\t]*([Ff][Ii][Ll][Ee][-_ 	]*)?:?}
set patterns(19) {[Ss]et[-_ \t]*[Ff]ile[-_ \t]*[Cc]o?mm?a?n?d:?}
set patterns(20) {[Ss]kip[-_ \t]*[Ff]iles?[-_ \t]*[Cc]o?mm?a?n?d:?}
set patterns(21) {[Ss]et[-_ \t]*[Cc]artr?i?d?g?e?[-_ \t]*[Cc]o?mm?a?n?d:?}
set patterns(22) {[Cc]hange[-_ \t]*[Cc]artr?i?d?g?e?[-_ \t]*[Cc]o?mm?a?n?d:?}
set patterns(23) {[Ii]nit[-_ \t]*[Mm]edia[-_ \t]*[Cc]o?mm?a?n?d:?}
set patterns(24) {[Ee]rase[-_ \t]*[Tt]ape[-_ \t]*[Cc]o?mm?a?n?d:?}
set patterns(25) {[Tt]ape[-_ \t]*[Ff]ull[-_ \t]*[Cc]o?mm?a?n?d:?}
set patterns(26) {[Uu]ser[-_ \t]*[Tt]o[-_ \t]*[Ii]nfor?m?:?}
set patterns(27) {[Mm]ail[-_ \t]*[Pp]rogram:?}
set patterns(28) {[Vv][Aa][Rr][-_ \t]*[Dd]ire?c?t?o?r?y?:?}
set patterns(29) {[Tt]ape[-_ \t]*[Pp]osi?t?i?o?n?[-_ \t]*[Ff]ile:?}
set patterns(30) {[Ll]ogg?i?n?g?[-_ \t]*[Ff]ile:?}
set patterns(31) {[Ss]tatus[-_ \t]*[Ff]ile:?}
set patterns(32) {[Ll]ocki?n?g?[-_ \t]*[Ff]ile:?}
set patterns(33) {[Cc][Hh][Aa][Nn][Gg][Ee][Rr][-_ 	]*[Ll][Oo][Cc][Kk]([Ii][Nn][Gg])?[-_ \t]*[Ff][Ii][Ll][Ee]:?}
set patterns(34) {([Ee]n)?[Cc]rypti?o?n?[-_ \t]*[Kk]ey[-_ \t]*[Ff]ile:?}
set patterns(35) {[Pp]rogram[-_ \t][Dd]ire?c?t?o?r?y?:?}
set patterns(36) {[iI]niti?a?l?i?z?a?t?i?o?n?[-_ \t]*[Cc]o?mm?a?n?d:?}
set patterns(37) {[eE]xit[-_ \t]*[Cc]o?mm?a?n?d:?}

set prompts(1) [ TN_ "Server Identifier:" ]