[med-svn] r17723 - trunk/packages/arb/trunk/debian/bin

[Elmar Pruesse]

Author: epruesse-guest
Date: 2014-08-13 14:38:07 +0000 (Wed, 13 Aug 2014)
New Revision: 17723

Removed:
   trunk/packages/arb/trunk/debian/bin/arb-add-pt-server
   trunk/packages/arb/trunk/debian/bin/arb-add-pt-server.1
Log:
users adding PT server should not be necessary any longer in ARB 6


Deleted: trunk/packages/arb/trunk/debian/bin/arb-add-pt-server
===================================================================
--- trunk/packages/arb/trunk/debian/bin/arb-add-pt-server	2014-08-13 14:28:08 UTC (rev 17722)
+++ trunk/packages/arb/trunk/debian/bin/arb-add-pt-server	2014-08-13 14:38:07 UTC (rev 17723)
@@ -1,83 +0,0 @@
-#!/usr/bin/perl
-# Allow users of group "arb" to add pt_server entries
-# Andreas Tille <tille at debian.org>
-# License: GPL
-
-use warnings;
-use strict;
-use POSIX;
-
-my $group2seek = "arb" ;
-my $seekgroup = getgrnam($group2seek) ;
-my @PTServerLines = () ;
-my %PTEntry;
-my $PTServerDir = "/var/lib/arb/pts" ;
-my @ptservers;
-my $user = getpwuid($<) ;
-
-if ( ! $seekgroup ) {
-    print STDERR "Group $group2seek does not exist.\n" ;
-    exit -1 ;
-}
-$_ = $( ;
-
-if ( ! /\b$seekgroup\b/ ) {
-    print STDERR "User $user is not member of group $group2seek.\n" ;
-    exit(-1) ;
-}
-
-my $cfgfile = "/etc/arb/arb_tcp.dat" ;
-# my $cfgfile = "/etc/arb/arb_pt_server.dat" ;
-my $tmpfile = tmpnam();
-open ( CFG, $cfgfile ) ||  die ( "Unable to open Arb config file $cfgfile." ) ;
-open ( TMP, ">$tmpfile" ) ||  die ( "Unable to open temporary file $tmpfile for writing." ) ;
-
-my ( $i, $port, $path, $i_max, $port_max ) ;
-$i_max = $port_max = 0;
-
-while ( <CFG> ) {
-    if ( ! /^[^#]*\bARB_PT_SERVER/ ) {
-	print TMP ;
-	next ;
-    }
-    chomp ;
-    s/\s*#.*// ;
-    if ( /ARB_PT_SERVER([0-9]+)\s+localhost:([0-9]{4})\s+arb_pt_server\s+-D(.+)$/ ) {
-	$i    = $1;
-	$port = $2;
-	$path = $3;
-	print "$i: $port, $path\n" ;
-	if ( $i    > $i_max    ) { $i_max    = $i ; }
-	if ( $port > $port_max ) { $port_max = $port ; }
-    } else {
-	print "Canot parse PT_SERVER entry: $_\n" ;
-    }
-    @PTServerLines = (@PTServerLines, $_) ;
-}
-
-my $pts ;
-foreach $pts ( @PTServerLines ) {
-    print TMP "$pts\n" ;
-}
-
-print STDERR "Verify existing Servers in $PTServerDir.\n" ;
-if ( ! opendir(DIR, $PTServerDir) ) { 
-    print STDERR "PT-Server directory $PTServerDir does not exist.\n" ;
-    exit -1 ;
-} 
- at ptservers = grep { /^$user[0-9]+\.arb$/ } readdir(DIR);
-closedir DIR;
-
-my $pts_usermax = 0;
-foreach $pts ( @ptservers ) {
-    if ( $pts =~ /$user([0-9]+)\.arb/ ) {
-	if ( $1 > $pts_usermax    ) { $pts_usermax = $1 ; }
-    }
-}
-$pts_usermax += 1 ;
-system ("touch $PTServerDir/$user$pts_usermax.arb");
-      
-close TMP ;
-
-print "$i_max, $port_max\n" ;
-system ("mv $tmpfile tempfile.dat");

Deleted: trunk/packages/arb/trunk/debian/bin/arb-add-pt-server.1
===================================================================
--- trunk/packages/arb/trunk/debian/bin/arb-add-pt-server.1	2014-08-13 14:28:08 UTC (rev 17722)
+++ trunk/packages/arb/trunk/debian/bin/arb-add-pt-server.1	2014-08-13 14:38:07 UTC (rev 17723)
@@ -1,30 +0,0 @@
-'\" t
-.\" ** The above line should force tbl to be a preprocessor **
-.\" Copyright (C), 2001, Andreas Tille <tille at debian.org>
-.\"
-.\" You may distribute under the terms of the GNU General Public
-.\" License as specified in the file COPYING that comes with the
-.\" man_db distribution.
-.\"
-.\"
-.TH arb-add-pt-server 1 "November 17, 2004" "Arb add PT_Server"
-.SH NAME
-.B arb-add-pt-server
-\- enable users to maintain their arb PT_Server databases
-
-
-.SH SYNOPSIS
-.B arb-add-pt-server
-
-.SH DESCRIPTION
-On Debian GNU/Linux systems this script adds a new (empty)
-PT_Server database to the arb PT_Server repository and adds
-an entry to the relevant config file provided that the user
-belongs to the group arb.
-
-.SH SEE ALSO
-arb(1), arb_clean(1), arb-kill(1)
-
-.SH AUTHOR
-This manual page was written by Andreas Tille <tille at debian.org>,
-for the Debian GNU/Linux system (but may be used by others).