make code taint safe and use a configureation

file for setting #perlflags#

webtools/tinderbox2/src/bin/addnote.cgi

@@ -1,9 +1,9 @@
-#!#perl# -T --
+#!#perl# #perlflags# --
 # -*- Mode: perl; indent-tabs-mode: nil -*-
 #
 
-# $Revision: 1.3 $ 
-# $Date: 2000/09/18 19:27:42 $ 
+# $Revision: 1.4 $ 
+# $Date: 2000/11/09 19:19:32 $ 
 # $Author: kestes%staff.mail.com $ 
 # $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/bin/addnote.cgi,v $ 
 # $Name:  $ 
@@ -188,6 +188,9 @@ sub save_note {
 
   my ($update_file) = (FileStructure::get_filename($TREE, 'TinderDB_Dir').
                        "/Notice\.Update\.$time\.$MAILADDR"); 
+
+  $update_file =~ s/\@/\./g;
+  $update_file = main::extract_filename_chars($update_file);
   
   Persistence::save_structure( 
                              $record,

webtools/tinderbox2/src/bin/admintree.cgi

@@ -1,9 +1,9 @@
-#!#perl# -T --
+#!#perl# #perlflags# --
 # -*- Mode: perl; indent-tabs-mode: nil -*-
 #
 
-# $Revision: 1.8 $ 
-# $Date: 2000/10/18 20:22:13 $ 
+# $Revision: 1.9 $ 
+# $Date: 2000/11/09 19:19:57 $ 
 # $Author: kestes%staff.mail.com $ 
 # $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/bin/admintree.cgi,v $ 
 # $Name:  $ 

webtools/tinderbox2/src/bin/gunzip.cgi

@@ -1,9 +1,9 @@
-#!#perl# -T --
+#!#perl# #perlflags# --
 # -*- Mode: perl; indent-tabs-mode: nil -*-
 #
 
-# $Revision: 1.3 $ 
-# $Date: 2000/09/18 19:28:32 $ 
+# $Revision: 1.4 $ 
+# $Date: 2000/11/09 19:20:12 $ 
 # $Author: kestes%staff.mail.com $ 
 # $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/bin/gunzip.cgi,v $ 
 # $Name:  $ 

webtools/tinderbox2/src/bin/processmail_bugs

@@ -1,4 +1,4 @@
-#!#perl# -T --
+#!#perl# #perlflags# --
 # -*- Mode: perl; indent-tabs-mode: nil -*-
 #
 
@@ -13,8 +13,8 @@
 # require technical configurations.
 
 
-# $Revision: 1.2 $ 
-# $Date: 2000/10/18 20:22:57 $ 
+# $Revision: 1.3 $ 
+# $Date: 2000/11/09 19:22:00 $ 
 # $Author: kestes%staff.mail.com $ 
 # $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/bin/processmail_bugs,v $ 
 # $Name:  $ 

webtools/tinderbox2/src/bin/rmlogs

@@ -1,12 +1,12 @@
-#!#perl# -T --
+#!#perl# #perlflags# --
 # -*- Mode: perl; indent-tabs-mode: nil -*-
 #
 
 # rmlogs - remove the log files which are older then the number of
 #          days set in TinderConfig.  This program should be run from cron.
 
-# $Revision: 1.2 $ 
-# $Date: 2000/11/06 15:39:53 $ 
+# $Revision: 1.3 $ 
+# $Date: 2000/11/09 19:21:27 $ 
 # $Author: kestes%staff.mail.com $ 
 # $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/bin/rmlogs,v $ 
 # $Name:  $ 

webtools/tinderbox2/src/bin/tinder.cgi

@@ -1,9 +1,9 @@
-#!#perl# --
+#!#perl# #perlflags# --
 # -*- Mode: perl; indent-tabs-mode: nil -*-
 #
 
-# $Revision: 1.8 $ 
-# $Date: 2000/10/17 23:49:07 $ 
+# $Revision: 1.9 $ 
+# $Date: 2000/11/09 19:21:44 $ 
 # $Author: kestes%staff.mail.com $ 
 # $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/bin/tinder.cgi,v $ 
 # $Name:  $ 
@@ -437,7 +437,7 @@ sub daemon_main {
   # If the daemon is still running from last call do not bother
   # running now. This could cause conflicts on the database.
   
-  symlink ($UID, $LOCK_FILE) ||
+  symlink ($UID, $FileStructure::LOCK_FILE) ||
     return ;
   
   my ($summary_data);
@@ -483,8 +483,8 @@ sub daemon_main {
   
   Summaries::create_global_index($summary_data);
 
-  unlink ($LOCK_FILE) ||
-    die ("Could not remove lockfile: $LOCK_FILE\n");
+  unlink ($FileStructure::LOCK_FILE) ||
+    die ("Could not remove lockfile: $FileStructure::LOCK_FILE\n");
   
   return ;
 }