From 0a4b5d24845fb86bade3ab3c38a6202862d6caad Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Sun, 23 Sep 2012 20:43:08 +0200
Subject: List creation via a Postfix local alias.

---
 cgi-bin/index.fcgi | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100755 cgi-bin/index.fcgi

(limited to 'cgi-bin/index.fcgi')

diff --git a/cgi-bin/index.fcgi b/cgi-bin/index.fcgi
new file mode 100755
index 0000000..8e551d8
--- /dev/null
+++ b/cgi-bin/index.fcgi
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+
+use 5.010_000;
+use strict;
+use warnings;
+use utf8;
+
+=head1 NAME
+
+index.fcgi -
+
+=cut
+
+use CGI::Fast ();
+use File::Spec::Functions 'catfile';
+use lib 'lib';
+use Fripost::Panel::Interface;
+
+
+my $config_dir = '/etc/fripost-panel';
+my @config = catfile ('./', 'default.in');
+push @config, catfile ($config_dir, 'config.in') if -f catfile ($config_dir, 'config.in');
+
+while (my $q = CGI::Fast::->new){
+    my $cgi = Fripost::Panel::Interface::->new(
+        QUERY => $q,
+        PARAMS => { cfg_file => [ @config ], format => 'equal' }
+    );
+    $cgi->run();
+}
+
+=head1 AUTHOR
+
+Guilhem Moulin C<< <guilhem at fripost.org> >>
+
+=head1 COPYRIGHT
+
+Copyright 2012 Guilhem Moulin.
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as perl itself.
+
+=cut
+
+__END__
-- 
cgit v1.2.3