From: didg <didg>
Date: Tue, 9 Nov 2004 23:07:03 +0000 (+0000)
Subject: remove netatalkshorternamelinks.pl cf. bug [ 1061396 ]
X-Git-Tag: netatalk-2-0-2~17
X-Git-Url: https://arthur.barton.de/cgi-bin/gitweb.cgi?a=commitdiff_plain;ds=sidebyside;h=097118bc5227955bfffaedf92d0053b883206258;p=netatalk.git

remove netatalkshorternamelinks.pl cf. bug [ 1061396 ]
netatalkshorternamelinks.pl broken
---

diff --git a/configure.in b/configure.in
index 7649b7c4..a5e666db 100644
--- a/configure.in
+++ b/configure.in
@@ -1,4 +1,4 @@
-dnl $Id: configure.in,v 1.179.2.3.2.37.2.2 2004-10-27 14:20:38 bfernhomberg Exp $
+dnl $Id: configure.in,v 1.179.2.3.2.37.2.3 2004-11-09 23:07:03 didg Exp $
 dnl configure.in for netatalk
 
 AC_INIT(etc/afpd/main.c)
@@ -1043,7 +1043,6 @@ AC_OUTPUT([Makefile
 	contrib/shell_utils/apple_rm
 	contrib/shell_utils/asip-status.pl
 	contrib/shell_utils/cleanappledouble.pl
-	contrib/shell_utils/netatalkshorternamelinks.pl
 	contrib/timelord/Makefile
 	contrib/a2boot/Makefile
 	distrib/Makefile
diff --git a/contrib/shell_utils/Makefile.am b/contrib/shell_utils/Makefile.am
index 3d1a4c88..aef4e6c7 100644
--- a/contrib/shell_utils/Makefile.am
+++ b/contrib/shell_utils/Makefile.am
@@ -8,7 +8,6 @@ PERLSCRIPTS = \
 	afpd-mtab.pl			\
 	apple_cp apple_mv apple_rm	\
 	cleanappledouble.pl		\
-	netatalkshorternamelinks.pl	\
 	asip-status.pl
 
 SUFFIXES = .tmpl .
diff --git a/contrib/shell_utils/netatalkshorternamelinks.pl.in b/contrib/shell_utils/netatalkshorternamelinks.pl.in
deleted file mode 100644
index 1c4f2b77..00000000
--- a/contrib/shell_utils/netatalkshorternamelinks.pl.in
+++ /dev/null
@@ -1,38 +0,0 @@
-#!@PERL@
-#
-# $Id: netatalkshorternamelinks.pl.in,v 1.1 2002-01-17 05:59:25 srittau Exp $
-# 
-# (c) 2000 Christian Wolff, scarabaeus@scarabaeus.org
-# quick hack to create symbolic links for files with names over 31 chars long 
-# 
-
-$searchpath='/data/mp3/';
-$destpath='/data/mac_mp3/';
-
-# only if you dare!
-`rm -rf ${destpath}*`;
-foreach $f (`find $searchpath -name '*.mp3'`) {
-	chomp $f;
-	$f=~s/^$searchpath//;
-	if ($f=~/^(.*)\/(.*)$/) {
-		($path,$file)=($1,$2);
-	} else {
-		($path,$file)=('',$f);
-		}
-	$shortpath='';
-	for $splitpath (split /\//,$path) {
-		if (length $splitpath > 31) {
-			# keep the last 2 chars of the directory name
-			$splitpath=substr($splitpath,0,29).substr($splitpath,-2,2);
-			}
-		$shortpath.="${splitpath}/";
-		mkdir $destpath.$shortpath,0755;
-	}
-	$shortfile=$file;
-	if (length $file > 31) {
-		# keep the extension of 4 chars
-		$shortfile=substr($file,0,27).substr($file,-4,4);
-	}
-	`ln -sf ${searchpath}${f} ${destpath}${shortpath}${shortfile}`;
-}
-
diff --git a/distrib/debian/netatalk.examples b/distrib/debian/netatalk.examples
index 3705c1cc..43e3fc46 100644
--- a/distrib/debian/netatalk.examples
+++ b/distrib/debian/netatalk.examples
@@ -1,2 +1 @@
 contrib/printing/add_netatalk_printer
-contrib/shell_utils/netatalkshorternamelinks.pl