pQmars/scripts qcw-fixup.pl,NONE,1.1

[alexander sasha wait]

Update of /cvsroot/corewar/pQmars/scripts
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18066/scripts

Added Files:
qcw-fixup.pl
Log Message:
add qcw-fixup.pl to "fixup" .htaccess from localhost


--- NEW FILE: qcw-fixup.pl ---
#! /usr/bin/perl -w

use strict;

my $echo_prefix = "$ENV{HOME}/public_html/pQmars/qcw-prod/standalone";

my $command =
"echo \"SetEnv COREWORLD_BIN $echo_prefix/bin\" ".
">$echo_prefix/admin/.htaccess";

print "$command\n";
system ($command);

$command =~ s/qcw-prod/qcw-dev/g;
print "$command\n";
system ($command);

$command =~ s/admin/qcw/g;
print "$command\n";
system ($command);

$command =~ s/qcw-dev/qcw-prod/g;
print "$command\n";
system ($command);