remove netatalkshorternamelinks.pl cf. bug [ 1061396 ]

netatalkshorternamelinks.pl broken

diff --git a/configure.in b/configure.in
index 7649b7c44e5f89db3e6911f3af13bf4d42f536f0..a5e666db69c96d6584ae13341b118b295d06b723 100644 (file)
--- 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 3d1a4c885e850c014e0a061c3160e570cef47811..aef4e6c7339128401bd2e70fc8654c564132e774 100644 (file)
--- 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 (file)
index 1c4f2b7..0000000
--- 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 3705c1ccb44ece9bc9db204d5e6beacb577b4dfa..43e3fc4629ebe02e898539a276f7981c5f444db3 100644 (file)
--- a/distrib/debian/netatalk.examples
+++ b/distrib/debian/netatalk.examples
@@ -1,2 +1 @@
 contrib/printing/add_netatalk_printer
-contrib/shell_utils/netatalkshorternamelinks.pl