Upload files to "/"

staticgen.pl

@@ -0,0 +1,93 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+#use HTML::Template;
+
+$SIG{__WARN__} = sub { die @_; };
+
+
+=begin comment
+
+HOW THE ARGUMENTS ARE PROBABLY GONNA LOOK:
+
+--new-post
+--build=(all|modified)
+--publish
+[...]
+
+TODO:
+
+[ ] everything
+
+=end comment
+
+=cut
+
+my $HELP_TEXT = << "END_HELP_TEXT";
+Usage: staticgen.pl [options]
+
+Put the stuff here when arguments are actually implemented.
+END_HELP_TEXT
+
+
+
+sub LoadConfig
+{
+    my $filename = shift;
+    open my $cfh, "<$filename" or die "Couldn't open file!";
+    
+    while (!eof($cfh))
+    {
+        my $l = <$cfh>;
+        # ^_^
+    }
+    
+    close $cfh;
+}
+
+sub Main
+{
+    for my $arg (@ARGV)
+    {
+        if ($arg =~ m@^(-n|-+new-post)\z@i)
+        {
+            # something
+            next;
+        }
+        
+        if ($arg =~ m@^(-b|-+build)(=(?<bopt>.+))?\z@i)
+        {
+            if (defined $+{bopt})
+            {
+                if    (lc $+{bopt} eq "all")      { next; }
+                elsif (lc $+{bopt} eq "modified") { next; }
+                else { die "Invalid option for --build!"; }
+            }
+            else
+            {
+                next;
+            }
+        }
+        
+        if ($arg =~ m@^-+config=(?<conf>.+)\z@i)
+        {
+            die "Specified config file doesn't exist!"
+                unless -f $+{conf};
+            
+            LoadConfig($+{conf});
+            next;
+        }
+        
+        if ($arg =~ m@^(-p|-+publish)\z@i)
+        {
+            # something
+            next;
+        }
+        
+        die $HELP_TEXT if ($arg =~ m@^(-h|-+help)\z@i);
+    }
+}
+
+&Main();
+exit 0;