--- cf.schmorp.de/server/utils/cfutil.in 2007/03/12 17:26:41 1.12 +++ cf.schmorp.de/server/utils/cfutil.in 2007/03/12 17:33:12 1.13 @@ -69,14 +69,17 @@ sub inst_maps($) { my (undef, $path) = @_; - print "installing '$path' to '$DATADIR/maps'\n\n"; + print "installing '$path' to '$DATADIR/maps'\n"; if (!-f "$path/regions") { warn "'$path' does not look like a maps directory ('regions' file is missing).\n"; exit 1 unless $FORCE; } - system $RSYNC, "-av", "$path/.", "$DATADIR/maps/.", "--delete", "--exclude", "CVS", "--delete-excluded"; + system $RSYNC, "-av", "$path/.", "$DATADIR/maps/.", "--delete", "--exclude", "CVS", "--delete-excluded" + or die "map installation failed.\n"; + + print "maps installed successfully.\n"; } { @@ -306,7 +309,7 @@ sub inst_arch($) { my (undef, $path) = @_; - print "installing '$path' to '$DATADIR'\n\n"; + print "installing '$path' to '$DATADIR'\n"; if (!-d "$path/treasures") { warn "'$path' does not look like an arch directory ('treasures' directory is missing).\n"; @@ -366,8 +369,11 @@ for (qw(archetypes faces animations treasures smooth)) { chmod 0644, "$DATADIR/$_~"; - rename "$DATADIR/$_~", "$DATADIR/$_"; + rename "$DATADIR/$_~", "$DATADIR/$_" + or die "$DATADIR/$_: $!"; } + + print "archetype data installed successfully.\n"; } }