X-Git-Url: https://jxself.org/git/?p=ssic.git;a=blobdiff_plain;f=src%2Fssic.pl;fp=src%2Fssic.pl;h=0000000000000000000000000000000000000000;hp=a88e5654a9a5ba047f8333cb96c3b89a18510bb3;hb=ea65dc700eceb7fd46301aee39d3d6563661f205;hpb=29bac5d24b928b9bb3340fd07513b505ed8c2df9
diff --git a/src/ssic.pl b/src/ssic.pl
deleted file mode 100755
index a88e565..0000000
--- a/src/ssic.pl
+++ /dev/null
@@ -1,205 +0,0 @@
-#!/usr/bin/perl
-#
-# ssic - Server Side Includes Compiler
-#
-# Copyright (C) 2013 Patrick "P. J." McDermott
-#
-# 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 .
-
-use strict;
-use warnings;
-
-use Getopt::Long;
-use CGI::SSI;
-
-sub main
-{
- my %opts;
- my $ssi;
- my $input;
- my $output;
-
- $SIG{'__WARN__'} = \&warning;
-
- Getopt::Long::Configure("no_ignore_case", "bundling", "gnu_compat",
- "no_getopt_compat");
- if (not GetOptions(\%opts,
- "o=s",
- "D=s%",
- "I=s",
- "h|help",
- "V|version",
- )) {
- usage(*STDERR);
- exit(4);
- }
-
- if (exists($opts{'h'})) {
- help(*STDOUT);
- exit(0);
- }
- if (exists($opts{'V'})) {
- version(*STDOUT);
- exit(0);
- }
-
- if ($#ARGV lt 0) {
- error(4, "No input files\n");
- }
-
- $ssi = init_compiler($opts{'D'}, $opts{'I'});
-
- if (exists($opts{'o'})) {
- if ($#ARGV gt 0) {
- error(4, "Cannot specify -o with multiple files\n");
- }
- compile($ssi, $ARGV[0], $opts{'o'});
- } else {
- for $input (@ARGV) {
- $output = $input;
- $output =~ s/\.[^.]+$/.html/;
- compile($ssi, $input, $output);
- }
- }
-
- undef $ssi;
-}
-
-sub usage
-{
- my ($fh) = @_;
-
- printf($fh "Usage: %s [-o