conf install
authorcasta <casta@78f58264-58f8-0310-be4b-c7ad7e3b7018>
Mon, 22 Aug 2005 17:08:03 +0000 (17:08 +0000)
committercasta <casta@78f58264-58f8-0310-be4b-c7ad7e3b7018>
Mon, 22 Aug 2005 17:08:03 +0000 (17:08 +0000)
git-svn-id: svn+ssh://svn.xwing.info/home/svn/gtk-fuser/trunk@476 78f58264-58f8-0310-be4b-c7ad7e3b7018

configure
gtk-fuser
prepare [deleted file]

index b1e9f4039512de794e45343a632b070ef48bbe88..c3106d53cf37f45d31d7b2044c36bca749404ba9 100755 (executable)
--- a/configure
+++ b/configure
@@ -33,8 +33,11 @@ fuserPath=$ret
 askVal "Timeout for killed processes (in seconds)" 2
 processTimeout=$ret
 
-askBin "Binary install path" "/usr/local/bin"
-installPath=$ret
+askBin "Install prefix" "/usr/local"
+installPrefix=$ret
+
+sed -si "s/^my \$fuserCommand.*;$/my \$fuserCommand = \"$fuserPath\";/" gtk-fuser
+sed -si "s/^my \$SigtermTimeout.*;$/my \$SigtermTimeout = $processTimeout;/" gtk-fuser
 
 # Generate configuration output
 echo "package MyConfig;
@@ -50,15 +53,14 @@ echo "####################################
 # Generate Makefile. Do not edit ! #
 ####################################
 
-BINPATH = \"$installPath\"
+PREFIX = \"$installPrefix\"
+BINPATH = \"\${PREFIX}/bin\"
 BIN = gtk-fuser
 
 all: install
 
 install:
-       @./prepare \${BIN} \${BIN}-prepared
-       @cat MyConfig.pm >> \${BIN}-prepared
-       @install -m 0755 gtk-fuser \${BINPATH}/\${BIN}
+       @install -m 0755 \${BIN}-prepared \${BINPATH}/\${BIN}
        @echo \"Done\"
 " > Makefile
 
index e63b70acaded5885d0cf6e4932f95ce6526dcc32..34709adca0c63427078766a6abefca74c31f3acf 100755 (executable)
--- a/gtk-fuser
+++ b/gtk-fuser
@@ -25,16 +25,12 @@ use utf8;
 use Gtk2::Pango;
 use Data::Dumper;
 
-#dev-begin
-use MyConfig;
-#dev-end
-
 ###############
 # Global vars #
 ###############
 
-my $fuserCommand = $MyConfig::configFuserPath;
-my $SigtermTimeout = $MyConfig::configProcessTimeout;
+my $fuserCommand = "/usr/bin/fuser";
+my $SigtermTimeout = 2;
 my $processes = {};
 my $passwdMap = {};
 my $debug = 0;
@@ -401,8 +397,3 @@ sub quit
     return 0;
 }
 
-#################
-# Configuration #
-# auto-included #
-#################
-
diff --git a/prepare b/prepare
deleted file mode 100755 (executable)
index 7f6b4ef..0000000
--- a/prepare
+++ /dev/null
@@ -1,51 +0,0 @@
-#!/usr/bin/perl -w
-# $Id$
-
-# gtk-fuser, a perl-gtk2 frontend to fuser (from psmisc)
-# Copyright (C) 2005 Guillaume Castagnino
-# 
-# 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., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
-#
-# Guillaume Castagnino <casta@xwing.info>
-
-# Prepare executable
-
-use strict;
-use utf8;
-
-# Get args
-
-open (BIN, "$in |");
-open (BINPREPARED, "| $out");
-my $block = 0;
-while (my $line = <BIN>)
-{
-    chomp $line;
-    if ($line =~ m/^#dev-begin/)
-    {
-        $block = 1;
-    }
-    elsif ($line =~ m/^#dev-end/)
-    {
-        $block = 0;
-    }
-    elsif ($block eq 0)
-    {
-        print BINPREPARED $line, "\n";
-    }
-}
-close BIN;
-close BINPREPARED;
-