Actually remove disp.html and index.scml. Fix svn:ignore

git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@531 941c8c0f-9102-463b-b60b-cd22ce0e6858

1 files changed, 0 insertions, 66 deletions

diff --git a/index.scml b/index.scml
deleted file mode 100644
index d18368d..0000000
--- a/index.scml
+++ /dev/null
@@ -1,66 +0,0 @@
-<?guile
-;;;; Greek Dictionary Web Engine
-;;;; Copyright (C) 2006, 2007 Sergey Poznyakoff
-;;;; 
-;;;; This program is free software; you can redistribute it and/or modify
-;;;; it under the terms of the GNU General Public License as published by
-;;;; the Free Software Foundation; either version 3 of the License, or
-;;;; (at your option) any later version.
-;;;;
-;;;; This program is distributed in the hope that it will be useful,
-;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;;; GNU General Public License for more details.
-;;;;
-;;;; You should have received a copy of the GNU General Public License
-;;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
-;;;;
-
-(define ellinika-document-root "/home/gray/public_html/ellinika")
-(define ellinika-dispatcher "disp.html")
-
-(define (get-file-name)
-  (call-with-current-continuation
-   (lambda (return)
-     (for-each
-      (lambda (lang)
-	(let loop ((slang lang)
-		   (suff (list #\. #\_)))
-	  (let ((dir (string-append ellinika-document-root "/" slang)))
-	    (cond
-	     ((access? (string-append dir "/index.html") R_OK)
-	      (return (string-append dir "/index.html")))
-	     ((not (null? suff))
-	      (let ((p (let itr ((sl suff))
-			 (if (null? sl)
-			     #f
-			     (let ((x (string-split slang (car sl))))
-			       (if (null? (cdr x))
-				   (itr (cdr sl))
-				   (cons (car x) (cdr sl))))))))
-		(if p
-		    (loop (car p) (cdr p)))))))))
-      
-      (map
-       (lambda (s)
-	 (cond
-	  ((string-split s #\;) =>
-	   (lambda (l)
-	     (car l)))
-	  (else
-	   s)))
-       (string-split
-	(or (table:get (request-rec:subprocess-env Request) "HTTP_ACCEPT_LANGUAGE")
-	    "")
-	#\,)))
-     (string-append ellinika-document-root "/" ellinika-dispatcher))))
-
-(with-input-from-file
-    (get-file-name)
-  (lambda ()
-    (do ((line (read-line) (read-line)))
-	((eof-object? line))
-      (display line)
-      (newline))))
-
-?>