USAGE | 3 +++
swg | 29 ++++++++++++++++++++---------
diff --git a/USAGE b/USAGE
index ec4614d840b4bccf4dae708dfa5dd514ac35b58ae14dd718e33b84ca094c2df3..f2b36499090b5424c6c44fad8b6de5f6049af397fc8fa6ea7c44607a9b81005f 100644
--- a/USAGE
+++ b/USAGE
@@ -25,5 +25,8 @@
If $SWG_PRINT_MISSING environment variable is set, then warning will be
print for links leading to non-existent pages.
+If $SWG_DO_SRC=0 environment variable is set, then no links and source
+pages will be generated. Pure HTML output.
+
How to forcefully change the title of the generated HTML page?
Use sed/perl to replace "..." line in it.
diff --git a/swg b/swg
index c197ef33cb20078d3155981af3252780c26f7a4d5ea1b91fa87fa522eab71d91..ae5180bf562c75fd2539adc77288d43db99db25f3962b5c2a268d120746a34ee 100755
--- a/swg
+++ b/swg
@@ -30,7 +30,8 @@ $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. SWG_PRINT_MISSING=0.
+By default SWG_DO_BACKS=1 is set.
+SWG_PRINT_MISSING=0. SWG_DO_SRC=1.
Do not forget about .swgignore with regular expressions.
END_USAGE
;
@@ -41,6 +42,8 @@ if ($#ARGV == -1) { usage }
my $DoBacks = ((not exists $ENV{SWG_DO_BACKS}) or
($ENV{SWG_DO_BACKS} eq q{1})) ? 1 : 0;
+my $DoSrc = ((not exists $ENV{SWG_DO_SRC}) or
+ ($ENV{SWG_DO_SRC} eq q{1})) ? 1 : 0;
my %Mtimes;
my %CatFiles;
@@ -270,11 +273,15 @@ <!DOCTYPE html>
<html><head>
<title>$title
-
+END_HTML
+;
+ print {$out} "\n" if $DoSrc;
+ print {$out} <<"END_HTML"
END_HTML
+;
}
my $indent = q{};
my sub procline;
@@ -508,11 +515,13 @@ my $fn;
foreach my $cat (keys %CatFiles) {
make_path "$ARGV[1]/$cat";
next if (exists $Mtimes{"${cat}index"});
- $fn = "$ARGV[1]/${cat}index.txt";
- open $fh, q{>:encoding(UTF-8)}, $fn or croak "$!";
- genIndex $fh, $cat;
- close $fh or croak "$!";
- utime $now, $now, $fn;
+ if ($DoSrc) {
+ $fn = "$ARGV[1]/${cat}index.txt";
+ open $fh, q{>:encoding(UTF-8)}, $fn or croak "$!";
+ genIndex $fh, $cat;
+ close $fh or croak "$!";
+ utime $now, $now, $fn;
+ }
$fn = "$ARGV[1]/${cat}index.html";
open $fh, q{>:encoding(UTF-8)}, $fn or croak "$!";
genHTML $fh, $cat, genIndex2Buf $cat;
@@ -531,8 +540,10 @@ utime $now, $now, "$ARGV[1]/$pth.html";
} else {
utime $mtime, $mtime, "$ARGV[1]/$pth.html";
}
- copy $pth, "$ARGV[1]/$pth.txt" or croak "$!";
- utime $mtime, $mtime, "$ARGV[1]/$pth.txt";
+ if ($DoSrc) {
+ copy $pth, "$ARGV[1]/$pth.txt" or croak "$!";
+ utime $mtime, $mtime, "$ARGV[1]/$pth.txt";
+ }
}
} elsif ($ARGV[0] eq q{info}) {
print "Autogenerated by swg $VERSION\n";