#!/usr/bin/perl
#
# tidyhome.perl
#
# Perl script to parse a ~/.tidy file and move files from
# user home directory to thier tidied/<category> dir.
#
# (c) 2000 Billy Allan.
# Released under the terms of the GNU General Public License.
# See http://www.gnu.org for details.
#
# Version 0.1 Fri Nov 24 19:43:39 GMT 2000
# Version 0.2 Sun Jan 14 15:16:47 GMT 2001
# Version 0.3 Mon Mar 19 18:48:52 GMT 2001
#
# Usage:
# tidyhome.perl [username] [username]...
#
# If no username is supplied, the current UID is assumed (and warne
+d)
#
# Format of ~/.tidy file :
# <basedir>
# <dir-type> <extension> [<extension> <extension>...]
# <dir-type> <extension> ...
# ...
#
# For example :
#
# tidied
# pictures jpg xcf gif png tiff
# docs/web html htm
# docs/text txt doc
# movies avi mpg fli mpeg mov
#
# The files will be moved into a folder called :
# ~/<basedir>/<dir-type>
# ****which must exist already!****
#
$basedir = 'tidied'; # default
$config = '.tidy';
#######################
if ($#ARGV < 0)
{
warn("No username given - defaulting to current username\n");
@details = getpwuid($<); # get the current user-account
@userlist = $details[0]; # get the username
}
else
{
@userlist = @ARGV;
}
#######################
foreach $user (@userlist)
{
if ($homedir = (getpwnam("$user"))[7])
{
if (! tidy($homedir))
{
warn("Could not tidy $user homedir...\n");
}
}
}
1;
#######################
sub tidy # tidy($homdir)
{
my $home = $_[0];
if (open(CONFIG,"<$home/$config"))
{
$basedir = <CONFIG>;
chomp($basedir);
while (<CONFIG>)
{
chomp();
my ($key,@types) = split(/ /);
if ($key =~ m/[^0-9a-zA-Z_\-\/]/) # only allow "saf
+e" directory names
{
print "Invalid directory in .tidy file...\n";
next();
}
foreach my $type (@types)
{
chomp($type);
my @list = glob("$home/*.$type");
foreach my $file (@list)
{
my $result = rename($file,"$home/$basedir/$key");
}
$type = uc($type);
@list = glob("$home/*.$type");
foreach $file (@list)
{
$result = rename($file,"$home/$basedir/$key");
}
}
}
return 1;
}
else
{
return 0;
}
}