X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=bin%2Fssic;h=8e5695b0077f5dd8f2738699680f2049f5310a57;hb=862863f2f5ae4f84afecc9af8bfaf07443516f4d;hp=ea0a838cc90dfb1aac2dff889e7e5e541c2d7f4e;hpb=fe1558c06fc2f0e6646e9f7d9b1eac45ab3d6b19;p=ssic.git

diff --git a/bin/ssic b/bin/ssic
index ea0a838..8e5695b 100755
--- a/bin/ssic
+++ b/bin/ssic
@@ -12,6 +12,9 @@ use warnings;
 use Getopt::Long;
 use CGI::SSI;
 
+my $VERSION;
+$VERSION = '1.0.0';
+
 sub main
 {
 	my %opts;
@@ -78,9 +81,9 @@ sub help
 
 	usage($fh);
 	print("Options:\n");
-	print("  -D <name>=<value>  Set the variable <name> to <value>\n");
-	print("  -I <directory>     Set the document root to <directory>\n");
 	print("  -o <output>        Place the output into <output>\n");
+	print("  -I <directory>     Set the document root to <directory>\n");
+	print("  -D <name>=<value>  Set the variable <name> to <value>\n");
 	print("  -h, --help         Display this information\n");
 	print("  -V, --version      Display compiler version information\n");
 }
@@ -89,7 +92,7 @@ sub version
 {
 	my ($fh) = @_;
 
-	print("ssic 0.1.0\n");
+	printf("ssic %s\n", $VERSION);
 	print("Copyright (C) 2013 Patrick \"P. J.\" McDermott\n");
 	print("License GPLv3+: GNU GPL version 3 or later " .
 		"<http://gnu.org/licenses/gpl.html>.\n");
@@ -127,6 +130,7 @@ sub init_compiler
 	$CGI::SSI::DEBUG = 0;
 	$ssi = CGI::SSI->new();
 
+	$ssi->set("__SSIC__" => 1);
 	$ssi->set("DOCUMENT_ROOT" => $root);
 
 	while (($var_name, $var_value) = each(%{$vars})) {