It’s a WYSIWYG world. After all, we’re nearly in the future, which I define as 2019, the year Rick Deckard chases down replicants in the Blade Runner. Still no flying cars, which is disappointing. Even so, we have Steve Jobs, so the future coming, right?
GUI everything isn’t all that it could be. For many, many tasks, [...]
Before you can use this script, you need to set up SSH so your local cron can access the remote servers without a password.
One thing to note about this script is that it automatically rotates the archived dump files; keeping a fie for the 1st of the week on a month, 1st of the month and [...]
This creates the small .mov (or whatnot) redirect files that Apple’s makeiPhoneRefMovie generates. This is simply a driver to creat those files with makeiPhoneRefMovie.
#!/usr/bin/perl -w
#
# gen_mwn_iphone_mov_redirect_files.pl
#
# This makes the special iPhone .mov rediect files (~ 300 bytes) that the iPhone
# uses to redirect to the appropriate actual movie file.
#
# To use this utility:
#
# Make sure [...]
This is a quick Perl script that I wrote to solve a particular problem; I needed to check two directories, one of original files and one of transcoded files, to see which files were missing from the second directory. The files in the second directory have different filename extensions, so the utility needs to take this [...]
This is a script to be run from a daily cron that created a series of sanely named SQL dump files: weekly, monthly, etc.
Always have that backup ready!
#!/usr/bin/perl -w
#
# No arguments. The program is to be modified to include each database to be archived.
#
#
use strict;
use warnings;
use DateTime;
my $numRotations = 6; # base 0, [...]
This is a quick little script I wrote to warn me when disk space is getting low on a server I’m responsible for.
i just stuck this into a daily cron and now I know when to act!
#!/usr/bin/perl
#
# lowdiskspacewarning.pl
#
use strict;
use Filesys::DiskFree;
# init
my $sendmail = "/usr/lib/sendmail -t";
# file system to monitor
my $dirFilesystem = "/";
my $systemName = "putYourSystemNameHere";
# low [...]