1 files changed, 36 insertions, 0 deletions
diff --git a/webroot/lxr.cgi b/webroot/lxr.cgi
new file mode 100755
index 0000000..7117d65
--- /dev/null
+++ b/webroot/lxr.cgi
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+#
+# Copyright (C) 2008 Arne Georg Gleditsch <lxr@linux.no> and others.
+#
+# 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 2 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, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+# The full GNU General Public License is included in this distribution
+# in the file called COPYING.
+
+use strict;
+
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+
+use LXRng ROOT => "$FindBin::Bin/..";
+use LXRng::Web;
+
+use CGI::Simple qw(-newstyle_urls);
+use CGI::Carp qw(fatalsToBrowser);
+
+my $query = CGI::Simple->new();
+
+LXRng::Web->handle($query);
+