swg | 26 +++++++++++++++++++-------

diff --git a/swg b/swg
index 15e14d93f81fd008f7537c71386ac215289c7540ca591fb1093d162c1415415f..84814214d265d2448511ec79e333d5926735e4d9c2afb5425b8bdab60fd12481 100755
--- a/swg
+++ b/swg
@@ -17,12 +17,18 @@
 sub usage {
     print {*STDERR} <<"END_USAGE"
 Usage:
-    $0 links PAGE
-    $0 backs PAGE
-    $0 cats [PREFIX]
-    $0 htmls DIR
-    $0 dot | dot -Tpng >relations.png
+    $0 links PAGE    -- show links on the PAGE
+    $0 backs PAGE    -- show backlinks to the PAGE
+    $0 cats [PREFIX] -- show categories
+    $0 htmls DIR     -- render HTMLs in DIR
     $0 info >out.info
+    $0 dot | dot -Tpng >relations.png
+
+For debugging:
+    $0 files -- list files that will be processed
+    $0 dump  -- dump links/backlinks information
+    $0 html PAGE >PAGE.html
+    $0 gen-index CAT >CAT.html
 
 By default SWG_DO_BACKS=1 is set.
 Do not forget about .swgignore with regular expressions.
@@ -70,6 +76,10 @@             $pth .= q{/};
         }
         foreach (@ignores) {
             return if $pth =~ /$_/;
+        }
+        if ($ARGV[0] eq q{files}) {
+            print "$pth\n";
+            return;
         }
         $cat = dirname $pth;
         $cat = ($cat eq q{.}) ? q{/} : "$cat/";
@@ -442,7 +452,9 @@     }
     return;
 }
 
-if ($ARGV[0] eq q{dump}) {
+if ($ARGV[0] eq q{files}) {
+    # do nothing
+} elsif ($ARGV[0] eq q{dump}) {
     require Data::Dumper;
     print Data::Dumper->Dump([
         \%Links,
@@ -474,7 +486,7 @@     }
 } elsif ($ARGV[0] eq q{gen-index}) {
     my $p = decode q{UTF-8}, $ARGV[1];
     genIndex \*STDOUT, $p;
-} elsif ($ARGV[0] eq q{gen-html}) {
+} elsif ($ARGV[0] eq q{html}) {
     my $p = decode q{UTF-8}, $ARGV[1];
     if ($p =~ /\/$/) {
         genHTML \*STDOUT, $p, genIndex2Buf $p;