Scripting

Rename files in a folder to lower-case using perl

This is a simple oneliner to rename files to lower-case using perl # perl -e ‘rename($_, lc) || warn “$_: $!\n” for @ARGV’ * You can also do this recusively using find and perl # find . -type f -exec perl -e ‘rename($_, lc) || warn “$_: $!\n” for @ARGV’ {} \;

Read More
Linux

‘tail -f’ with highlight

This is an example of how you can use tail with colors. # tail -f /var/log/maillog | perl -pe ‘s/colorthisword/\e[1;32;40m$&\e[0m/g’ The ;;; values explained 0 all attributes off 1 bold 32 foreground green 40 background black “colorthisword” can be any perl regular expression: (foo|bar) highlight the strings foo and bar \b((foo|bar)\b highlight the words foo […]

Read More
Scripting

Script to customize a linux install

This is a simple bash script I whipped together to make som custom changes on our linux installations, it can be used as a kickstart post-configuration file for RedHat RHEL4 and RHEL5 installations. #!/bin/bash # Enable daily updates of the locate database perl -pi -e ‘s/DAILY_UPDATE=no/DAILY_UPDATE=yes/’ /etc/updatedb.conf # Customize login banners echo “Authorized users only. […]

Read More
Linux

Determine false positive from rkhunter

I’ve installed rkhunter, a rootkit checking script, on a Ubuntu 7.10 (Gutsy Gibbons) distro and today it mailed a message saying that 3 files had their properties changed. The files were /usr/bin/chattr, /usr/bin/lsattr and /usr/bin/perlBefore doing anything I tried to update rkhunter to see if there had been any updates to fix this message rkhunter –update […]

Read More
Photo etc

Set photo filedate and time according to EXIF info

Sometimes a image files creation date is wrong and have to be corrected. This is a script I use to set a files creation date to the photos date retrieved from EXIF tags. The exiftool program should be available to run this script. #!/usr/bin/env perl use strict; $|++; use Image::ExifTool qw(ImageInfo); use Time::Local; for my […]

Read More