ljr/ljcom/bin/maint/moods.pl

11 lines
196 B
Perl

#!/usr/bin/perl
#
$maint{'makemoodindexes'} = sub
{
print "-I- Making mood index files.\n" if $VERBOSE;
system("find $LJ::HTDOCS/img/mood/ -type d -exec makemoodindex.pl {} \\;");
};
1;