### Copyright (C) 1995-97 Jesper K. Pedersen ### This program is free software; you can redistribute it and/or modify ### it under the terms of the GNU General Public License as published by ### the Free Software Foundation; either version 2 of the License, or ### (at your option) any later version. ### ### This program is distributed in the hope that it will be useful, ### but WITHOUT ANY WARRANTY; without even the implied warranty of ### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ### GNU General Public License for more details. ### ### You should have received a copy of the GNU General Public License ### along with this program; if not, write to the Free Software ### Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. if {![file exists [lindex $argv 1]/system.tcl]} { puts "please run configure first!" exit -1 } set setup(dotfile) {{dotfile Dotfile ~/dot.procmailrc \#\#\#}} set module(creator) "Jesper Pedersen" set module(name) "procmail" set module(language) "english" set module(email) "blackie@imada.sdu.dk" set module(onlyGenerateAll) 1 foreach template { general backup recipes } { import $template.template } set module(generationOrder) {backup general recipes} source [lindex $argv 1]/util.tcl source [lindex $argv 1]/files.template source [lindex $argv 1]/system.tcl if {[lindex $argv 1] == "." || [lindex $argv 1] == "./"} { puts "-------------WARNING-------------------------" puts "The procmail module has to be installed" puts "for the generated files to work!" set MODULEPATH [exec pwd] } else { set MODULEPATH [lindex $argv 1] }