chomp $kohadir;
my $kohahtmldir="/koha/koha/koha-html/";
-if (-e "/root/.kohaautobuild.conf") {
- open C, "/root/.kohaautobuild.conf";
+if (-e "$kohadir/.kohaautobuild.conf") {
+ open C, "$kohadir/.kohaautobuild.conf";
while (<C>) {
chomp;
if (/kohadir=(.*)/) {
$kohahtmldir=$input;
}
-open (C, ">/root/.kohaautobuild.conf");
+open (C, "> $kohadir/.kohaautobuild.conf") || die "unable to create kohaautobuild file";
print C qq|
kohadir=$kohadir
kohahtmldir=$kohahtmldir
system("mv $rootdir/intranet-cgi/News $rootdir");
system("mv $rootdir/intranet-cgi/README $rootdir");
system("mv $rootdir/intranet-cgi/TODO $rootdir");
-system("mv $rootdir/intranet-cgi/installer.pl $rootdir");
-system("mv $rootdir/intranet-cgi/koha.upgrade $rootdir");
+system("mv $rootdir/intranet-cgi/installer.pl $rootdir");
+system("mv $rootdir/intranet-cgi/koha.upgrade $rootdir");
chmod 0770, "$rootdir/installer.pl";
chmod 0770, "$rootdir/koha.upgrade";
system("mv $rootdir/intranet-cgi/koha.conf $rootdir");