From 348363b7a395b6440e2ec194c6a667b2815c9e93 Mon Sep 17 00:00:00 2001
From: Angel Ortega <angel@triptico.com>
Date: Wed, 14 Oct 2009 09:21:22 +0200
Subject: [PATCH] Fixed some bugs in gruta_mksite.

---
 bin/gruta_mksite | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/bin/gruta_mksite b/bin/gruta_mksite
index fc82936..9edae7e 100755
--- a/bin/gruta_mksite
+++ b/bin/gruta_mksite
@@ -124,7 +124,7 @@ if (!($r =~ /img/)) {
 
 @uploads = split(/\s/, $r);
 
-$g_cgi .= "my \$g = Gruta-new(\n";
+$g_cgi .= "my \$g = Gruta->new(\n";
 $g_cgi .= "\tid\t\t=> '" . $sitename . "',\n";
 
 if ($source eq 'FS') {
@@ -153,6 +153,7 @@ foreach my $d (@uploads) {
 }
 
 $g_cgi .= "\t\t\t],\n";
+$g_cgi .= "\t),\n";
 $g_cgi .= "\targs\t\t=> {\n";
 
 if ($baseurl) {
@@ -168,13 +169,15 @@ $g_cgi .= "\$g->run();\n";
 # start of build
 
 print "\nCreating...\n";
-mkdir $basename or die "Cannot create $basename: $!";
+mkdir $basename or warn "Cannot create $basename: $!";
 mkdir "$basename/var" or die "Cannot create $basename/var: $!";
 
 open O, ">$basename/g.cgi" or die "Cannot create $basename/g.cgi: $!";
 print O $g_cgi;
 close O;
 
+chmod 0755, "$basename/g.cgi";
+
 print <<EOF;
 
 Operation successful.
-- 
2.11.4.GIT