From 881a2c98ccd186f8286a9c79d244b0958e5da5b4 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 15 May 2007 05:33:59 +0000
Subject: [PATCH] update binaries

---
 deletemailbox     |  2 +-
 fix_touchpad      | 13 ++++---------
 presentation_mode | 11 ++++++-----
 sgf_rename        |  6 ++++--
 4 files changed, 15 insertions(+), 17 deletions(-)

diff --git a/deletemailbox b/deletemailbox
index d21a8f4..a9b4233 100755
--- a/deletemailbox
+++ b/deletemailbox
@@ -87,7 +87,7 @@ for my $mbox (@ARGV) {
 	       qq(/FolderValidity/$mbox;\n);
      print $cmd;
      qx($cmd);
-     $cmd = qq(rm $options{offlineimap}/Repository-Remote).
+     $cmd = qq(rm -f $options{offlineimap}/Repository-Remote).
 	  ucfirst($options{account}).
 	       qq(/FolderValidity/$options{account}.$mbox;\n);
      print $cmd;
diff --git a/fix_touchpad b/fix_touchpad
index 726c0a5..3e96c6a 100755
--- a/fix_touchpad
+++ b/fix_touchpad
@@ -1,11 +1,6 @@
 #!/bin/sh
 
-if [ $(id -u) != 0 ]; then
-    echo "$0 must be run as root";
-    exit 1;
-fi;
-
-modprobe -r appletouch;
-modprobe appletouch;
-chvt 6;
-chvt 7;
\ No newline at end of file
+sudo modprobe -r appletouch;
+sudo modprobe appletouch;
+sudo chvt 6;
+sudo chvt 7;
\ No newline at end of file
diff --git a/presentation_mode b/presentation_mode
index e56427e..375ecd5 100755
--- a/presentation_mode
+++ b/presentation_mode
@@ -1,14 +1,15 @@
 #!/bin/sh
 
 if [ -n "$1" ]; then
-    xrandr -s 1024x768
-    xmodmap -e 'keysym Left = p'
-    xmodmap -e 'keysym Right = n'
+#    xrandr -s 1024x768
+    xrandr -s 800x600
+     xmodmap -e 'keysym Left = p'
+     xmodmap -e 'keysym Right = n'
     killall xscreensaver
 else
     xrandr -s 1440x900
-    xmodmap -e 'keycode 102 = Right'
-    xmodmap -e 'keycode 100 = Left'
+     xmodmap -e 'keycode 102 = Right'
+     xmodmap -e 'keycode 100 = Left'
     # XXX test to see if the X screensaver is already running
     /usr/bin/xscreensaver & >/dev/null 2>&1
 fi;
\ No newline at end of file
diff --git a/sgf_rename b/sgf_rename
index 193a434..759380c 100755
--- a/sgf_rename
+++ b/sgf_rename
@@ -22,8 +22,9 @@ for my $sgf (@ARGV) {
      }
      undef $fh;
      my $new_file = join('_',
-			 map {s/\s+/_/g;
-			      s/,//g;
+			 map {s{/}{}g;
+			      s/\s+/_/g;
+			      s/,/_/g;
 			      s/[_-]+/_/g;
 			      s/^_//;
 			      s/_$//;
@@ -34,6 +35,7 @@ for my $sgf (@ARGV) {
 			  @sgf{qw(PW WR DT RE)}
 			 )
 			).'.sgf';
+     print "Renaming $sgf to $new_file\n";
      next if $sgf eq $new_file;
      warn "$new_file already exists" and next if -e $new_file;
      rename($sgf,$new_file);
-- 
2.39.2