x83.net » Programming

Script to generate interface configs on Linux

Giany — Wed, 16 Sep 2009 20:26:54 +0000

Generate ifcfg-eth1 307-366 configs.

touch ifcfg-eth1:{307..366}
for f in ifcfg-eth1:{307..366}; do cat origfile > “$f”; done
for f in eth1:{307..366}; do echo “DEVICE=$f” >> “ifcfg-$f”; done
for f in {307..366}; do echo “IPADDR=aaa.bbb.ccc.$((f-239))” >> “ifcfg-eth1:$f”; done

origfile contains:

GATEWAY=eee.fff.ggg.hhh
TYPE=Ethernet
BOOTPROTO=none
NETMASK=255.255.255.192

Sending image emails with mutt from command line

Giany — Fri, 10 Jul 2009 06:32:46 +0000

ls | perl -ne ‘$a=$_;chomp $a;$b=”mutt -s \”poza $a\” -a $a < message.txt\n”;print $b;`$b`’

Script to autorestart httpd server if it fails

Giany — Thu, 18 Jun 2009 06:24:38 +0000

I use this script on a cpanel server..if output of pgrep command is 0 then the $restart command is issued

#!/bin/bash
restart=”/scripts/restartsrv_httpd”
pgrep httpd || $restart
exit 0

If its a VPS then I might add to clear the Semaphore Arrays.

for i in `ipcs -s | grep nobody | awk ‘{print $2}’`; do ipcrm -s $i; done

Then I put this script into Cron to run every 5 minutes.

# MIN HOUR DAYOFMONTH MONTH DAYOFWEEK COMMAND
*/5 * * * * /root/checkhttp.sh

Perl script to read .dbx files

Giany — Tue, 16 Jun 2009 07:31:13 +0000

A customer asked me to filter a .dbx file (Outlook express) and extract some data. This script reads the .dbx and prints it in a readable format.

#!/usr/bin/perl
use Mail::Transport::Dbx;

my $dbx = eval { Mail::Transport::Dbx->new( “Customer_List.dbx” )};
die $@ if $@;

for my $msg ($dbx->emails) {
my @bodxy = $msg->body;
print @bodxy;
}