Clean up old scripts I don't use anymore
This commit is contained in:
parent
9b5c738550
commit
a788aa5d37
|
|
@ -1,59 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
# browser-wrap: Set this as your default browser to open certain links with
|
||||
# certain browsers.
|
||||
#
|
||||
# To get `xdg-open` to use this, put this in your ~/.profile (update the path
|
||||
# to match where you installed the script to):
|
||||
#
|
||||
# if [ -n "$DISPLAY" ]; then
|
||||
# BROWSER=/home/kirsle/bin/browser-wrap
|
||||
# fi
|
||||
#
|
||||
# --Kirsle
|
||||
# http://sh.kirsle.net/
|
||||
|
||||
use 5.14.0;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
#------------------------------------------------------------------------------#
|
||||
# Configuration Section #
|
||||
#------------------------------------------------------------------------------#
|
||||
|
||||
# Define your browser rules here.
|
||||
my $rules = {
|
||||
# These are domain names to match. Use a regular expression.
|
||||
qr/(facebook|fbcdn)\.(com|net)/ => "google-chrome",
|
||||
};
|
||||
|
||||
# Default browser for links that don't have rules that match.
|
||||
my $default = "firefox";
|
||||
|
||||
#------------------------------------------------------------------------------#
|
||||
# End Configuration Section #
|
||||
#------------------------------------------------------------------------------#
|
||||
|
||||
# Get the URL passed in.
|
||||
my $url = shift(@ARGV);
|
||||
my $browser = $default;
|
||||
|
||||
# Looks okay?
|
||||
if ($url =~ /^https?:\/\/([^\/]+)\/?/i) {
|
||||
print "Domain: $1\n";
|
||||
my $domain = $1;
|
||||
|
||||
# Look for the best rule.
|
||||
my @sorted = sort { length($b) <=> length($a) } keys %{$rules};
|
||||
foreach my $rule (@sorted) {
|
||||
if ($domain =~ /$rule/i) {
|
||||
# Matched!
|
||||
$browser = $rules->{$rule};
|
||||
last;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# Launch the browser.
|
||||
my ($app, @args) = split(/\s+/, $browser);
|
||||
exec($app, @args, $url, @ARGV);
|
||||
|
|
@ -1,55 +0,0 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
# chmodfix - automagically fix file permissions, recursively, to their sane
|
||||
# default values:
|
||||
#
|
||||
# CGI scripts = 0755
|
||||
# directories = 0755
|
||||
# normal files = 0644
|
||||
#
|
||||
# usage: chmodfix <start-directory>
|
||||
#
|
||||
# --Kirsle
|
||||
# http://sh.kirsle.net/
|
||||
|
||||
if (scalar(@ARGV)) {
|
||||
foreach my $dir (@ARGV) {
|
||||
if (-d $dir) {
|
||||
print "#####################\n";
|
||||
print "Fix: $dir\n";
|
||||
print "#####################\n";
|
||||
&scanDir($dir);
|
||||
}
|
||||
}
|
||||
}
|
||||
else {
|
||||
print "Usage: chmodfix <directories>\n";
|
||||
exit(0);
|
||||
}
|
||||
|
||||
sub scanDir {
|
||||
my $dir = shift;
|
||||
|
||||
opendir (DIR, $dir);
|
||||
foreach my $file (readdir(DIR)) {
|
||||
next if $file eq ".";
|
||||
next if $file eq "..";
|
||||
|
||||
if (-d "$dir/$file") {
|
||||
print "chmod directory: 0755 ($dir/$file)\n";
|
||||
chmod (0755, "$dir/$file");
|
||||
&scanDir ("$dir/$file");
|
||||
}
|
||||
else {
|
||||
if ($file =~ /\.(cgi|pl)$/i) {
|
||||
print "chmod CGI file: 0755 ($dir/$file)\n";
|
||||
chmod (0755, "$dir/$file");
|
||||
}
|
||||
else {
|
||||
print "chmod file: 0644 ($dir/$file)\n";
|
||||
chmod (0644, "$dir/$file");
|
||||
}
|
||||
}
|
||||
}
|
||||
closedir (DIR);
|
||||
}
|
||||
|
|
@ -1,49 +0,0 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
# chmodweb - Like chmodfix except regular files are chmodded 0666 instead of
|
||||
# 0644. See chmodfix.
|
||||
#
|
||||
# --Kirsle
|
||||
# http://sh.kirsle.net/
|
||||
|
||||
if (scalar(@ARGV)) {
|
||||
foreach my $dir (@ARGV) {
|
||||
if (-d $dir) {
|
||||
print "#####################\n";
|
||||
print "Fix: $dir\n";
|
||||
print "#####################\n";
|
||||
&scanDir($dir);
|
||||
}
|
||||
}
|
||||
}
|
||||
else {
|
||||
print "Usage: chmodfix <directories>\n";
|
||||
exit(0);
|
||||
}
|
||||
|
||||
sub scanDir {
|
||||
my $dir = shift;
|
||||
|
||||
opendir (DIR, $dir);
|
||||
foreach my $file (readdir(DIR)) {
|
||||
next if $file eq ".";
|
||||
next if $file eq "..";
|
||||
|
||||
if (-d "$dir/$file") {
|
||||
print "chmod directory: 0755 ($dir/$file)\n";
|
||||
chmod (0755, "$dir/$file");
|
||||
&scanDir ("$dir/$file");
|
||||
}
|
||||
else {
|
||||
if ($file =~ /\.(cgi|pl|php)$/i) {
|
||||
print "chmod CGI file: 0755 ($dir/$file)\n";
|
||||
chmod (0755, "$dir/$file");
|
||||
}
|
||||
else {
|
||||
print "chmod file: 0666 ($dir/$file)\n";
|
||||
chmod (0666, "$dir/$file");
|
||||
}
|
||||
}
|
||||
}
|
||||
closedir (DIR);
|
||||
}
|
||||
|
|
@ -1,33 +0,0 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
# dodos2unix - A stupid-simple recursive dos2unix front end.
|
||||
#
|
||||
# This script starts recursively scanning the current working directory (.) and
|
||||
# runs dos2unix on every text file (extensions PL, PHP, CGI, HTM, HTML, TXT,
|
||||
# INC, and PM).
|
||||
#
|
||||
# --Kirsle
|
||||
# http://sh.kirsle.net/
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
&scanDir (".");
|
||||
|
||||
sub scanDir {
|
||||
my $dir = shift;
|
||||
|
||||
opendir (DIR, $dir);
|
||||
foreach my $file (sort(grep(!/^\./, readdir(DIR)))) {
|
||||
if (-d "$dir/$file") {
|
||||
&scanDir ("$dir/$file");
|
||||
}
|
||||
else {
|
||||
if ($file =~ /\.(pl|php|cgi|htm|html|txt|inc|pm|cml)$/i) {
|
||||
print "dos2unix $dir/$file\n";
|
||||
`dos2unix $dir/$file`;
|
||||
}
|
||||
}
|
||||
}
|
||||
closedir (DIR);
|
||||
}
|
||||
|
|
@ -1,33 +0,0 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
# dodos2unix - A stupid-simple recursive dos2unix front end.
|
||||
#
|
||||
# This script starts recursively scanning the current working directory (.) and
|
||||
# runs dos2unix on every text file (extensions PL, PHP, CGI, HTM, HTML, TXT,
|
||||
# INC, and PM).
|
||||
#
|
||||
# --Kirsle
|
||||
# http://sh.kirsle.net/
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
&scanDir (".");
|
||||
|
||||
sub scanDir {
|
||||
my $dir = shift;
|
||||
|
||||
opendir (DIR, $dir);
|
||||
foreach my $file (sort(grep(!/^\./, readdir(DIR)))) {
|
||||
if (-d "$dir/$file") {
|
||||
&scanDir ("$dir/$file");
|
||||
}
|
||||
else {
|
||||
if ($file =~ /\.(pl|php|cgi|htm|html|txt|inc|pm|cml)$/i) {
|
||||
print "dos2unix $dir/$file\n";
|
||||
`perl -pi -e 's/\\r\\n/\\n/;' $dir/$file`;
|
||||
}
|
||||
}
|
||||
}
|
||||
closedir (DIR);
|
||||
}
|
||||
|
|
@ -1,29 +0,0 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
# dounix2dos - Like dodos2unix except it runs unix2dos instead. See dodos2unix
|
||||
#
|
||||
# --Kirsle
|
||||
# http://sh.kirsle.net/
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
&scanDir (".");
|
||||
|
||||
sub scanDir {
|
||||
my $dir = shift;
|
||||
|
||||
opendir (DIR, $dir);
|
||||
foreach my $file (sort(grep(!/^\./, readdir(DIR)))) {
|
||||
if (-d "$dir/$file") {
|
||||
&scanDir ("$dir/$file");
|
||||
}
|
||||
else {
|
||||
if ($file =~ /\.(pl|php|cgi|htm|html|txt|inc|pm)$/i) {
|
||||
print "unix2dos $dir/$file\n";
|
||||
`unix2dos $dir/$file`;
|
||||
}
|
||||
}
|
||||
}
|
||||
closedir (DIR);
|
||||
}
|
||||
|
|
@ -1,146 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
# ffnightly - Download the latest version of Firefox Nightly.
|
||||
#
|
||||
# Run this script to fetch the latest version of Firefox Nightly. By default,
|
||||
# it will be installed into /opt/firefox-nightly with a symlink to run it at
|
||||
# /usr/bin/firefox-nightly. Furthermore, it will show up in your applications
|
||||
# menu as "Firefox Nightly".
|
||||
#
|
||||
# This script needs to be run as root (if you don't, it will attempt to sudo
|
||||
# run itself). To run it from a cron job, use the --force option and it will
|
||||
# skip prompting you to make sure Firefox is not running first.
|
||||
#
|
||||
# Usage: ffnightly [--force]
|
||||
#
|
||||
# --Kirsle
|
||||
# http://sh.kirsle.net
|
||||
|
||||
use 5.14.0;
|
||||
use strict;
|
||||
use warnings;
|
||||
use English;
|
||||
use File::Basename;
|
||||
use Time::Local;
|
||||
chomp(my $ARCH = `uname -p`);
|
||||
|
||||
################################################################################
|
||||
# Configuration #
|
||||
################################################################################
|
||||
|
||||
# Where to install Firefox Nightly to.
|
||||
my $INSTALL = "/opt/firefox-nightly";
|
||||
|
||||
# Where to install the launcher symlink to.
|
||||
my $BIN = "/usr/bin/firefox-nightly";
|
||||
|
||||
# Where to install the launcher shortcut to.
|
||||
my $LAUNCHER = "/usr/share/applications/firefox-nightly.desktop";
|
||||
|
||||
# Where are the Firefox nightlies kept?
|
||||
my $NIGHTLY = sprintf("ftp://ftp.mozilla.org/pub/firefox/nightly/latest-trunk/firefox-14.0a1.en-US.linux-%s.tar.bz2", $ARCH);
|
||||
|
||||
################################################################################
|
||||
# End Configuration #
|
||||
################################################################################
|
||||
|
||||
# Base name of tarball.
|
||||
my $TARBALL = basename($NIGHTLY);
|
||||
|
||||
# Mozilla plugins lib.
|
||||
my $PLUGINS = "/usr/lib" . ($ARCH eq 'x86_64' ? '64' : '') . "/mozilla/plugins";
|
||||
|
||||
# Check for required tools.
|
||||
my %t = check_required();
|
||||
|
||||
unless (@ARGV && $ARGV[0] eq '--force') {
|
||||
say "Make sure you close Firefox before continuing.";
|
||||
print "Is Firefox closed now? [yN] ";
|
||||
chomp(my $ans = <STDIN>);
|
||||
exit(0) unless $ans =~ /^y/;
|
||||
}
|
||||
|
||||
# Needs to be root.
|
||||
if ($EFFECTIVE_USER_ID != 0) {
|
||||
say "You need to run this script as root.";
|
||||
exec($t{sudo}, $0, '--force');
|
||||
exit(1);
|
||||
}
|
||||
|
||||
# Make a temp folder for it.
|
||||
my $tmp = "/tmp/firefox-nightly-$$-" . time();
|
||||
run("mkdir -p $tmp");
|
||||
|
||||
# Fetch Firefox Nightly.
|
||||
chdir($tmp);
|
||||
run("wget $NIGHTLY");
|
||||
run("tar -xjvf $TARBALL");
|
||||
|
||||
# Move it to the destination.
|
||||
run("rm -rf $INSTALL") if -d $INSTALL;
|
||||
if (!-d $INSTALL) {
|
||||
run("mkdir -p $INSTALL");
|
||||
}
|
||||
run("mv firefox/* $INSTALL/");
|
||||
|
||||
# Make the symlink.
|
||||
if (-e $BIN) {
|
||||
run("rm -f $BIN");
|
||||
}
|
||||
|
||||
# Make the launcher.
|
||||
open (my $launch, ">", $LAUNCHER);
|
||||
print {$launch} <<"EOF";
|
||||
[Desktop Entry]
|
||||
Version=1.0
|
||||
Name=Firefox Nightly
|
||||
GenericName=Web Browser
|
||||
Comment=Browse the Web
|
||||
Exec=firefox-nightly %u
|
||||
Icon=$INSTALL/icons/mozicon128.png
|
||||
Terminal=false
|
||||
Type=Application
|
||||
StartupWMClass=Firefox-bin
|
||||
MimeType=text/html;text/xml;application/xhtml+xml;application/vnd.mozilla.xul+xml;text/mml;x-scheme-handler/http;x-scheme-handler/https;
|
||||
StartupNotify=true
|
||||
Categories=Network;WebBrowser;
|
||||
EOF
|
||||
close ($launch);
|
||||
|
||||
# Link the binary.
|
||||
run("ln -s $INSTALL/firefox $BIN");
|
||||
|
||||
# Flash plugins etc!
|
||||
if (-d "$INSTALL/plugins") {
|
||||
run("rm -rf $INSTALL/plugins");
|
||||
}
|
||||
run("ln -s $PLUGINS $INSTALL/plugins");
|
||||
|
||||
# Cleanup.
|
||||
run("rm -rf $tmp");
|
||||
|
||||
say "You have updated to the latest Firefox Nightly. The binary is installed";
|
||||
say "to: $BIN";
|
||||
exit(0);
|
||||
|
||||
sub run {
|
||||
my $cmd = shift;
|
||||
say "\$ $cmd";
|
||||
system($cmd);
|
||||
}
|
||||
|
||||
sub check_required {
|
||||
my @tools = qw(sudo wget tar);
|
||||
my %paths = ();
|
||||
foreach my $tool (@tools) {
|
||||
chomp(my $path = `which $tool`);
|
||||
if ($? == 0) {
|
||||
$paths{$tool} = $path;
|
||||
}
|
||||
else {
|
||||
say "This script requires `$tool`, which wasn't found in your \$PATH.";
|
||||
exit(1);
|
||||
}
|
||||
}
|
||||
return %paths;
|
||||
}
|
||||
|
|
@ -1,71 +0,0 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
# findtxt - Recursively scan a directory looking for a string inside every file
|
||||
# inside. It's like a simple grep except it scans directories and all files.
|
||||
#
|
||||
# Usage: findtxt <strings to find> [directory]
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
if (not scalar(@ARGV)) {
|
||||
print "Usage: findtxt <strings to find> [directory]\n"
|
||||
. "Example: findtxt \"hello world\" /home\n"
|
||||
. " findtxt perl cgi /usr/lib\n";
|
||||
exit(0);
|
||||
}
|
||||
|
||||
my $base = `pwd`;
|
||||
if (-d $ARGV[-1]) {
|
||||
$base = pop(@ARGV);
|
||||
}
|
||||
|
||||
$base = '' if $base eq '/';
|
||||
|
||||
print "Scanning... please wait...\n";
|
||||
|
||||
our $hits = 0;
|
||||
my @files = &scanDir($base);
|
||||
|
||||
print "\n\nResults:\n"
|
||||
. join ("\n",@files)
|
||||
. "\n";
|
||||
|
||||
sub scanDir {
|
||||
my $dir = shift;
|
||||
|
||||
my @files = ();
|
||||
|
||||
print "[$hits] Scan $dir/\n";
|
||||
|
||||
opendir (DIR, "$dir/") || warn "Can't read $dir: $!\n";
|
||||
foreach my $file (readdir(DIR)) {
|
||||
next if $file eq '.';
|
||||
next if $file eq '..';
|
||||
next if -l "$dir/$file"; # skip symlinks
|
||||
if (-d "$dir/$file") {
|
||||
next if ("$dir/$file") =~ /\/dev/i;
|
||||
push (@files, &scanDir("$dir/$file"));
|
||||
}
|
||||
elsif (-f "$dir/$file") {
|
||||
# read this file.
|
||||
open (FILE, "$dir/$file") || do {
|
||||
warn "Can't read $dir/$file: $!\n";
|
||||
next;
|
||||
};
|
||||
while (<FILE>) {
|
||||
foreach my $str (@ARGV) {
|
||||
if ($_ =~ /$str/i) {
|
||||
push (@files,"$dir/$file");
|
||||
$hits++;
|
||||
last;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
select (undef,undef,undef,0.001);
|
||||
}
|
||||
closedir (DIR);
|
||||
|
||||
return @files;
|
||||
}
|
||||
|
|
@ -1,35 +0,0 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
# iphone-ringtone: convert MP3 tracks into M4R audio files for
|
||||
# iPhone ringtones.
|
||||
#
|
||||
# Requires: mplayer, faac
|
||||
#
|
||||
# --Kirsle
|
||||
# http://sh.kirsle.net/
|
||||
|
||||
# Get args.
|
||||
scalar(@ARGV) or die "Usage: iphone-ringtone <track.mp3>";
|
||||
my $mp3 = shift(@ARGV);
|
||||
|
||||
# Turn the mp3 name into an m4r name.
|
||||
my $m4r = $mp3;
|
||||
$m4r =~ s/\.mp3$/.m4r/i;
|
||||
$m4r .= ".m4r" unless $m4r =~ /\.m4r$/i;
|
||||
|
||||
# Turn the m4r name into an m4a name (this is the name that
|
||||
# faac will produce when run).
|
||||
my $m4a = $m4r;
|
||||
$m4a =~ s/\.m4r$/.m4a/i;
|
||||
|
||||
# Turn the m4r name into a .wav for mplayer.
|
||||
my $wav = $m4r;
|
||||
$wav =~ s/\.m4r$/.wav/i;
|
||||
|
||||
# Run the commands.
|
||||
system("mplayer -vo null -vc null -ao pcm:fast:file=$wav $mp3");
|
||||
system("faac -b 128 -c 44100 -w $wav");
|
||||
rename($m4a,$m4r);
|
||||
unlink($wav);
|
||||
|
||||
print "Done. Now scp the file to /Library/Ringtones/ on your iPhone.\n";
|
||||
|
|
@ -15,7 +15,7 @@ use Tk;
|
|||
my $str = join (" ",@ARGV) || 'Preview';
|
||||
|
||||
my $mw = MainWindow->new (
|
||||
-title => "Cuvou.com",
|
||||
-title => "Title",
|
||||
);
|
||||
$mw->optionAdd ('*highlightThickness',0);
|
||||
|
||||
|
|
@ -28,6 +28,6 @@ $mw->Label (
|
|||
-size => 12,
|
||||
-family => 'Arial',
|
||||
],
|
||||
)->pack (-padx => 5, -pady => 5);
|
||||
)->pack (-padx => 15, -pady => 15);
|
||||
|
||||
MainLoop;
|
||||
|
|
|
|||
|
|
@ -1,23 +0,0 @@
|
|||
#!/bin/bash
|
||||
|
||||
# Mount an encrypted loopback disk image.
|
||||
|
||||
# Setting this up:
|
||||
# modprobe cryptoloop
|
||||
# modprobe aes
|
||||
# dd if=/dev/urandom of=.container.img bs=1M count=8192 # for an 8GB image
|
||||
# losetup -e aes /dev/loop0 .container.img
|
||||
# mkfs.ext4 /dev/loop0
|
||||
|
||||
# Then run this script to mount the image to /secure (create this folder in
|
||||
# advance, or use a different folder). `umount /secure` to unmount.
|
||||
|
||||
# --Kirsle
|
||||
# http://sh.kirsle.net/
|
||||
|
||||
sudo modprobe cryptoloop
|
||||
sudo modprobe aes
|
||||
sudo losetup /dev/loop0 ~/.container.img
|
||||
echo "cryptsetup"
|
||||
sudo cryptsetup -y luksOpen /dev/loop0 ~/.container.img
|
||||
sudo mount -o loop,encryption=aes ~/.container.img /secure
|
||||
|
|
@ -1,27 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
# multistart - Spawn off multiple processes. Useful for a single click
|
||||
# "autostart" for all your commonly used programs (IM, e-mail, etc).
|
||||
#
|
||||
# Usage: multistart <list of processes>
|
||||
# Example: multistart thunderbird firefox "synergy -c syn.conf"
|
||||
#
|
||||
# --Kirsle
|
||||
# http://sh.kirsle.net/
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
scalar(@ARGV) or usage();
|
||||
foreach my $proc (@ARGV) {
|
||||
my $fork = fork();
|
||||
if ($fork == 0) {
|
||||
exec($proc);
|
||||
}
|
||||
}
|
||||
|
||||
sub usage {
|
||||
print "multistart - Spawn off multiple processes.\n"
|
||||
. "Usage: multistart <list of processes>\n";
|
||||
exit(1);
|
||||
}
|
||||
|
|
@ -1,24 +0,0 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
# openrand - Opens a random file in the current working directory.
|
||||
#
|
||||
# Requires GNOME desktop environment with `gnome-open` command.
|
||||
#
|
||||
# --Kirsle
|
||||
# http://sh.kirsle.net/
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
my @files = ();
|
||||
opendir (DIR, ".");
|
||||
foreach my $file (readdir(DIR)) {
|
||||
next unless -f $file;
|
||||
next unless -r $file;
|
||||
push (@files,$file);
|
||||
}
|
||||
closedir (DIR);
|
||||
|
||||
my $rnd = $files [ int(rand(scalar(@files))) ];
|
||||
print "Exec gnome-open $rnd\n";
|
||||
system ("gnome-open \"$rnd\" &");
|
||||
|
|
@ -1,56 +0,0 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
# scale: Front-end to changing the AppleDisplayScaleFactor, for Hackintosh
|
||||
# on netbooks where the screen resolution isn't tall enough for some windows.
|
||||
#
|
||||
# Set the scale factor for the session:
|
||||
# scale 0.8
|
||||
# !!! Remember to set it back to 1.0 when you're done !!!
|
||||
#
|
||||
# Set the scale just to launch a specific app, then set it back:
|
||||
# scale 0.8 "Photo Booth"
|
||||
# scale 0.8 /Applications/Photo\ Booth.app
|
||||
#
|
||||
# --Kirsle
|
||||
# http://sh.kirsle.net/
|
||||
|
||||
unless (@ARGV) {
|
||||
print "usage: scale <aspect-ratio> [app]\n"
|
||||
. "ex: scale 0.8\n"
|
||||
. " scale 0.8 /Applications/Photo\\ Booth.app\n"
|
||||
. " scale 0.8 'Photo Booth'\n";
|
||||
exit(1);
|
||||
}
|
||||
my $scale = shift(@ARGV);
|
||||
if ($scale =~ /[^0-9\.]/) {
|
||||
die "Scale factor must be a number!";
|
||||
}
|
||||
my $app = undef;
|
||||
if (scalar(@ARGV)) {
|
||||
$app = shift(@ARGV);
|
||||
if (!-e $app) {
|
||||
# Try a full path (e.g. Photo Booth -> /Applications/Photo Booth.app)
|
||||
$app = "/Applications/$app.app";
|
||||
if (!-e $app) {
|
||||
die "Can't find $app: no such file.";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# set the scale
|
||||
system("defaults write -g AppleDisplayScaleFactor $scale");
|
||||
|
||||
# launching an app too?
|
||||
if (defined $app) {
|
||||
system("open \"$app\"");
|
||||
system("defaults write -g AppleDisplayScaleFactor 1.0");
|
||||
print "$app launched with scale ratio of $scale\n";
|
||||
exit(0);
|
||||
}
|
||||
else {
|
||||
if (int($scale) != 1) {
|
||||
print "Scale set to $scale for the session. Be sure to "
|
||||
. "reset it to 1.0 when you're done!\n";
|
||||
exit(0);
|
||||
}
|
||||
}
|
||||
|
|
@ -1,17 +0,0 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
# suterm - A stupid simple way to get a root shell in GNOME. It requires you to
|
||||
# have /etc/sudoers set up for your username with the NOPASSWD option.
|
||||
#
|
||||
# Create a launcher that runs this script and check "Open in Terminal". Then
|
||||
# the launcher will open a root gnome-terminal, provided `sudo -i` normally
|
||||
# doesn't require you to enter a password.
|
||||
#
|
||||
# --Kirsle
|
||||
# http://sh.kirsle.net/
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
system ("sudo -i");
|
||||
exit(0);
|
||||
|
|
@ -1,9 +0,0 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
# v4lskype - A simple front-end for Skype for Linux that loads the Video 4 Linux
|
||||
# driver before launching Skype.
|
||||
#
|
||||
# If your Skype has problems with video, change the launcher to launch this
|
||||
# script instead.
|
||||
|
||||
exec("LD_PRELOAD=/usr/lib/libv4l/v4l1compat.so skype");
|
||||
Loading…
Reference in New Issue
Block a user