Changeset 1292

Timestamp:

11/11/07 16:18:47 (6 years ago)

Author:

tokuhirom

Message:

sledge-starter: なんか htdocs がイマイチなのと,えらーはんどりんぐヲナオシア。

Files:

• lang/perl/misc/sledge-starter/sledge-starter.pl (modified) (4 diffs)

lang/perl/misc/sledge-starter/sledge-starter.pl

@@ -122 +122 @@
         case '/' {
             return {controller => '<% proj %>::C::Root', page => 'index'};
+        }
+        else {
+            die "unknown path: $path";
         }
     }
@@ -192 +195 @@
     {
         fcgi_path =>
-          File::Spec->catfile( $FindBin::Bin, '<% proj | lower %>.fcgi' )
+          File::Spec->catfile( $FindBin::Bin, '<% proj | lower %>.fcgi' ),
+        htdocs_path =>
+          File::Spec->catfile( $FindBin::Bin, '..', 'htdocs' ),
     },
     $fh
@@ -200 +205 @@
 
 __END__
-server.document-root = "htdocs"
+server.document-root = "[% htdocs_path %]"
 server.port = 1192
 
@@ -206 +211 @@
     "mod_fastcgi",
     "mod_setenv",
+)
+
+mimetype.assign = (
+    "css" => "text/css",
 )