Global 'no_job=1'.

diff --git a/Index.html.pl b/Index.html.pl
index c860a8d..a628b50 100755 (executable)
--- a/Index.html.pl
+++ b/Index.html.pl
@@ -52,7 +52,9 @@ behind glass...perhaps you can see it...but you cannot touch it.</p>
 from the safety of your favorite OS GNU/Linux. Well, the day of reckoning is at
 hand! Those nights lying awake feeling foolish for having that extra VFAT
 partition just to exchange files between GNU/Linux and MS-Windows are over!</p>
+HERE
 
+print <<"HERE" if !$WebConfig::WebConfig{"no_job"};
 <table border="0" style="margin: 4ex; padding: 2ex; background: #552222; font-size: larger;">
        <tr><td>
                <b>A programmer for hire:</b>
@@ -65,7 +67,9 @@ partition just to exchange files between GNU/Linux and MS-Windows are over!</p>
                </span>
        </td></tr>
 </table>
+HERE
 
+print <<"HERE";
 
 <h2>Introducing the <i>Captive NTFS Filesystem</i> for GNU/Linux</h2>
 

diff --git a/WebConfig.pm b/WebConfig.pm
index d73ecab..b4d64e7 100644 (file)
--- a/WebConfig.pm
+++ b/WebConfig.pm
@@ -119,6 +119,7 @@ our %WebConfig=(
 </table>
 HERE
                        },
+               "no_job"=>1,
                );
 
 1;

diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl
index 5a8b61b..711d215 100755 (executable)
--- a/project/captive/Index.html.pl
+++ b/project/captive/Index.html.pl
@@ -63,9 +63,8 @@ print rightimg((map("<p class=\"stuff\">$_</p>\n",($stuff[int rand @stuff])))[0]
                'captive-install-acquire-small','[ Captive Microsoft Windows Drivers Acquire Illustration ]',
                                "a_href_img"=>'captive-install-acquire');
 
-print <<"HERE";
-
 
+print <<"HERE" if !$WebConfig::WebConfig{"no_job"};
 @{[ vskip "3ex" ]}
 
 <table border="0" width="100%"><tr><td align="center">
@@ -76,7 +75,10 @@ print <<"HERE";
                </td></tr>
        </table>
 </table>
+HERE
 
+
+print <<"HERE";
 @{[ vskip "3ex" ]}