1 files changed, 0 insertions, 98 deletions
diff --git a/website b/website
deleted file mode 100755
index 561cccf..0000000
--- a/website
+++ /dev/null
@@ -1,98 +0,0 @@
-#!/usr/bin/env perl
-
-=head1 NAME
-
-website - Website repository CLI manager.
-
-=head1 SYNOPSIS
-
-website <subcommand> [options]
-
-  Subcommands:
-    pastebin          Create a new pastebin from the org-mode template.
-    slides            Create a new HTML slideshow from the existing templates.
-    test              Run internal CLI tests.
-
-  Options:
-    --help            Show the manpage.
-
-=head1 OPTIONS
-
-=over 4
-
-=item B<-h, --help>
-
-Prints the manual page and exits.
-
-=back
-
-=head1 DESCRIPTION
-
-B<website> is the top-level coordinator of subtasks inside the website repo.
-
-=cut
-
-use strict;
-use warnings;
-use Getopt::Long qw(:config no_ignore_case bundling pass_through);
-use Pod::Usage qw(pod2usage);
-use File::Basename qw(dirname);
-use Term::ANSIColor;
-
-my $help = 0;
-my $title = '';
-sub getopts {
-  GetOptions(
-    'help|h|?' => \$help
-  );
-}
-
-sub escaped_cmd {
-  my ($cmd, @args) = @_;
-  my $dirname = dirname(__FILE__);
-  $cmd = "$dirname/$cmd";
-  $cmd = $cmd." \"$_\"", for @args;
-  system($cmd);
-  exit $? >> 8;
-}
-
-sub dispatch {
-  my $action = shift;
-  my @args = @_;
-  if (!defined $action && $help) {
-    pod2usage(
-      -verbose => 2,
-      -exitval => 0
-    );
-  } elsif (!defined $action) {
-    pod2usage(
-      -verbose => 1,
-      -exitval => 2,
-      -message => colored("Missing subcommand.", "red")
-    );
-  } elsif ($action eq 'pastebin') {
-    my @sub_args = grep { $_ ne $action } @args;
-    escaped_cmd("pastebin/website-pastebin", @sub_args);
-  } elsif ($action eq 'slides') {
-    my @sub_args = grep { $_ ne $action } @args;
-    escaped_cmd("slides/website-slides", @sub_args);
-  } elsif ($action eq 'test') {
-    escaped_cmd("pastebin/website-pastebin", "--test");
-    escaped_cmd("slides/website-slides", "--test");
-  } else {
-    pod2usage(
-      -verbose => 1,
-      -exitval => 2,
-      -message => colored("Unknown subcommand: $action.", "red")
-    );
-  }
-}
-
-sub main {
-  my @orig_args=@ARGV;
-  getopts();
-  my $action=shift @ARGV;
-  dispatch($action, @orig_args);
-}
-
-main();