--- xi1.tcl 2004-06-29 07:08:30.000000000 -0400 +++ xi1.new.tcl 2005-08-21 22:59:55.000000000 -0400 @@ -20,6 +20,7 @@ #----- installation proc's ---------------------------------------------------------------------------------------------- +proc XiCopy {to from} {XiProtokoll "\tcopying file $from -> $to"; exec cp $to $from} proc XiLinkSym {to from} {XiProtokoll "\tgenerating symbolic link $from -> $to"; exec ln -s $to $from} @@ -332,7 +333,7 @@ } else {# must be updated if [file writable $BINPATH] {# update can be done XiProtokoll "\nInstallation of Shell script: $BINPATH/xtem" - XiUnlink $BINPATH/xtem; XiLinkSym $INSTPATH/xtem/xtem $BINPATH/xtem + XiUnlink $BINPATH/xtem; XiCopy $INSTPATH/xtem/xtem $BINPATH/xtem } else {# needs update, but cannot be updated! XiProtokollEnd4 "\n$BINPATH/xtem [XiNotInstalledText]" XiProtokollEnd4 "\trm $BINPATH/xtem\n ln -s $INSTPATH/xtem/xtem $BINPATH/xtem" ; XiProtokoll "" @@ -348,7 +349,7 @@ } else {# changecode must be updated if [file writable $BINPATH] {# update can be done XiProtokoll "\nInstallation of program: $BINPATH/changecode" - XiUnlink $BINPATH/changecode; XiLinkSym $INSTPATH/xtem/changecode $BINPATH/changecode + XiUnlink $BINPATH/changecode; XiCopy $INSTPATH/xtem/changecode $BINPATH/changecode } else {# needs update, but cannot be updated! XiProtokollEnd4 "\n$BINPATH/changecode [XiNotInstalledText]" XiProtokollEnd4 "\trm $BINPATH/changecode\n ln -s $INSTPATH/xtem/changecode $BINPATH/changecode" @@ -368,7 +369,7 @@ } else {# hyphen_show must be updated if [file writable $BINPATH] {# update can be done XiProtokoll "\nInstallation of program: $BINPATH/hyphen_show" - XiUnlink $BINPATH/hyphen_show; XiLinkSym $INSTPATH/xtem/hyphen_show $BINPATH/hyphen_show + XiUnlink $BINPATH/hyphen_show; XiCopy $INSTPATH/xtem/hyphen_show $BINPATH/hyphen_show } else {# needs update, but cannot be updated! XiProtokollEnd4 "\n$BINPATH/hyphen_show [XiNotInstalledText]" XiProtokollEnd4 "\trm $BINPATH/hyphen_show\n ln -s $INSTPATH/xtem/hyphen_show $BINPATH/hyphen_show" @@ -388,7 +389,7 @@ } else {# must be updated if [file writable $MANPATH] {# update can be done XiProtokoll "\nInstallation of man page: $MANPATH/xtem.1" - XiUnlink $MANPATH/xtem.1; XiLinkSym $INSTPATH/xtem/xtem.1 $MANPATH/xtem.1 + XiUnlink $MANPATH/xtem.1; XiCopy $INSTPATH/xtem/xtem.1 $MANPATH/xtem.1 } else {# needs update, but cannot be updated! XiProtokollEnd4 "\n$MANPATH/xtem.1 [XiNotInstalledText]" XiProtokollEnd4 "\trm $MANPATH/xtem.1\n ln -s $INSTPATH/xtem/xtem.1 $MANPATH/xtem.1"; XiProtokoll "" @@ -404,7 +405,7 @@ } else {# must be updated if [file writable $MANPATH] {# update can be done XiProtokoll "\nInstallation of man page: $MANPATH/hyphen_show.1" - XiUnlink $MANPATH/hyphen_show.1; XiLinkSym $INSTPATH/xtem/hyphen_show.1 $MANPATH/hyphen_show.1 + XiUnlink $MANPATH/hyphen_show.1; XiCopy $INSTPATH/xtem/hyphen_show.1 $MANPATH/hyphen_show.1 } else {# needs update, but cannot be updated! XiProtokollEnd4 "\n$MANPATH/hyphen_show.1 [XiNotInstalledText]" XiProtokollEnd4 "\trm $MANPATH/hyphen_show.1\n ln -s $INSTPATH/xtem/hyphen_show.1 $MANPATH/hyphen_show.1"