From 0f74bf788becf62c72852397072c008f9a8c808f Mon Sep 17 00:00:00 2001
From: dcp1990 <dcp1990>
Date: Mon, 27 Jun 2005 20:47:37 +0000
Subject: [PATCH] new configuration

---
 configure.tcl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 configure.tcl

diff --git a/configure.tcl b/configure.tcl
new file mode 100755
index 0000000..da31b5c
--- /dev/null
+++ b/configure.tcl
@@ -0,0 +1,20 @@
+#!/usr/local/bin/tclsh8.4
+# Sets up configuration stuff
+# $Amigan: phoned/configure.tcl,v 1.1 2005/06/27 20:47:37 dcp1990 Exp $
+if {$argc < 1} {
+	puts stderr "Usage: configure.tcl prefix"
+	exit -1
+}
+set prefix [lindex $argv 0]
+puts [list Prefix is [set prefix]...]
+puts Configuring.
+set xf [open "xfone/paths.tcl" w]
+puts $xf {# Generated by configure.tcl}
+puts $xf [list set prefix $prefix]
+puts $xf {set lib [set prefix]/lib/phoned
+set udom_lib [set lib]/udom.so
+}
+close $xf
+#for lack of touch...
+close [open .config w]
+