Category Archives: Scripting

TECH.kulish.com Migration

As you may have noticed, the site has migrated from Drupal to WordPress.

Please bear with us while we finish implementing all the features of the old site.

Thank You.

Drupal Issue

We are currently experiencing an issue with editing account information.
The problem is being researched and status will be provided when information is available.

The following sites are affected:

http://tech.kulish.com

http://family.kulish.com

http://www.iowajeep.net

http://www.racebus.org

D4rk Theme Issues

New Drupal theme issues:

(FIXED)1. Text – Links Too dark. The gray is a couple shades too dark for it’s background color.

(FIXED)2. Text – Black text, in text entry areas, is too dark. (search box)

(FIXED)3. Spacing – Spacing on articles and blocks.
There needs to be a CR between the controls of an article teaser and the title of the next.
In blocks, there needs to be a CR at the end.

(MOSTLY)4. Preview – white text on white background. Mostly fixed. You can now see the body but some fields, like author, still have some white text on white background. Comment preview works fine however.

Simple MySQL Backup Script

Below is a simple database backup script to use with MySQL.

#!/usr/bin/perl -w

use strict;

# Backup – Script used to backup MySQL databases to an NFS share.
# VERSION: 1.2
# DATE: 12152005
# AUTHOR: packetmad

# This is a Freebsd 4.x-centric script. It may run on other
# versions of Freebsd, or any other BSD for that matter, but I
# wrote it on a Freebsd 4.7 system. It’s not even guaranteed
# to run on that.

Win32 Perl

Actually did my first win32 perl script at work today. What a pita that can be when you are changing from *n?x perl. Most of the problems I encountered were editor issues. Guess I should have just gotten vi for Windows and been done with it.

###
# First we’ll change into the directory passed in the command line
###
$workdirectory = @ARGV[0];
#print (“$workdirectory\n”);
chdir (“$workdirectory”) || die “cannot cd to $workdirectory”;

###
# Lets get a numeric date for use in naming the zip files
###
$insanedate = `date /t`;
# print $insanedate;
$insanedate =~ /.*?(\d{2})\/(\d{2})\/(\d{4})/;
$sanedate = “$1$2$3″;
# print “$sanedate\n”;