From 1bc38e6e6aa3af9e207aeb7baf2d6960cf33d999 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Wed, 17 Sep 2003 14:12:37 +0000
Subject: script for adding things to a user's .pdrc

svn path=/trunk/; revision=991
---
 packages/darwin_pkg/pdrc-parser.pl | 62 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)
 create mode 100755 packages/darwin_pkg/pdrc-parser.pl

diff --git a/packages/darwin_pkg/pdrc-parser.pl b/packages/darwin_pkg/pdrc-parser.pl
new file mode 100755
index 00000000..6bc0ac6d
--- /dev/null
+++ b/packages/darwin_pkg/pdrc-parser.pl
@@ -0,0 +1,62 @@
+#!/usr/bin/perl
+#
+# Hans-Christoph Steiner  <hans@eds.org>
+#
+# This script adds things to the user's .pdrc to support the 
+# included external libs and a personal external/help folder
+# for each user.
+
+# this script has a bug in it: it doesn't create 
+# the dirs $EXTERNALS and $HELP
+
+#----------------------------------------------------------------------------#
+
+sub addLineToPdrc {
+	 my $addline = shift(@_);
+
+	 $DESTFILE = "$home/.pdrc";
+
+	 if ( ! -e $DESTFILE ) {
+		  my $now = time;
+		  utime $now, $now, $DESTFILE;
+	 }
+	 
+	 if ( ! `grep -- \'$addline\' \"$DESTFILE\"` ) {
+		  print "Adding: $addline\n";
+		  `echo $addline >> $DESTFILE`;
+	 }	 else { print "( found: $addline )\n"; }
+}
+
+#----------------------------------------------------------------------------#
+
+# if the user has a home dir, add stuff to it
+if ( -d $ENV{'HOME'} ) {	 
+	 $home = $ENV{'HOME'};
+	 print "Found home dir: $home\n";
+
+# create place for users to install their own help/externals
+	 $EXTERNALS="$home/Library/Pd/Externals";
+	 $HELP="$home/Library/Pd/Help";
+	 if ( ! -d "$EXTERNALS" ) { mkdir("$EXTERNALS"); }
+	 if ( ! -d "$HELP" ) { mkdir("$HELP"); }
+
+	 @pdrc = (
+				 "-listdev",
+				 "-lib Gem",
+				 "-lib iemlib1",
+				 "-lib iemlib2",
+				 "-lib iem_mp3",
+				 "-lib iem_t3_lib",
+				 "-lib pdp",
+				 "-lib zexy",
+				 "$EXTERNALS",
+				 "$HELP"
+				 );
+	 
+	 foreach $line (@pdrc) {
+		  addLineToPdrc ($line);
+	 }
+	 
+} else {
+	 print "ERROR: no home: $ENV{'HOME'}\n";
+}
-- 
cgit v1.2.1