Print realpath of generated files.

3 files changed, 6 insertions, 1 deletions

diff --git a/pastebin/website-pastebin b/pastebin/website-pastebin
index 8512490..a964449 100755
--- a/pastebin/website-pastebin
+++ b/pastebin/website-pastebin
@@ -88,3 +88,5 @@ my $slug = slugify($title);
 $out = "$dirname/../site/pastebin/$slug.org";
 
 envsubst();
+
+print `realpath $out`;
diff --git a/slides/website-slides b/slides/website-slides
index a6a774c..8907333 100755
--- a/slides/website-slides
+++ b/slides/website-slides
@@ -64,3 +64,5 @@ chdir "reveal.js/";
 chdir "../";
 
 copy("base.org", "$name/index.org") or die "Failed to copy base.org file: $!";
+
+print `realpath $name/index.org`;
\ No newline at end of file
diff --git a/website b/website
index 370b38c..d85d72a 100755
--- a/website
+++ b/website
@@ -60,7 +60,6 @@ sub escaped_cmd {
 sub dispatch {
   my $action = shift;
   my @args = @_;
-  my @sub_args = grep { $_ ne $action } @args;
   if (!defined $action && $help) {
     pod2usage(
       -verbose => 2,
@@ -73,8 +72,10 @@ sub dispatch {
       -exitval => 2
     );
   } 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') {
     test();