open $fph,">$fph" or die "$0: cannot write to $fph - $!\n";
print {$fph} $_;
close $fph;
- system "cp $FEXLIB/fup.pl $vhd/lib/fup.pl";
+ cpa("$FEXLIB/fup.pl","$vhd/lib");
foreach $i (qw'dop fex.pp fup.pl lf.pl reactivation.txt') {
# symlink "$FEXLIB/$i","$vhd/lib/$i";
symlink "../../lib/$i","$vhd/lib/$i";
$0 -M # list pending files with TO/FROM/FILE
$0 -M TO/FROM/FILE # resend notification email
$0 -m "reason" # enter maintenance mode (reason "exit" to leave)
-$0 -A alias:hostname # add new virtual server
-$0 -V virtualhost ... # operations on virtualhost (alias or hostname)
$0 -E # show usage examples
EOD
+# $0 -A alias:hostname # add new virtual server
+# $0 -V virtualhost ... # operations on virtualhost (alias or hostname)
if (-x "$FEXHOME/cgi-bin/fac") {
print "See also web admin interface $proto://$hostname$port/fac\n";
}