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;
#!/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
#!/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
}
undef $fh;
my $new_file = join('_',
- map {s/\s+/_/g;
- s/,//g;
+ map {s{/}{}g;
+ s/\s+/_/g;
+ s/,/_/g;
s/[_-]+/_/g;
s/^_//;
s/_$//;
@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);