saint/discourse-legacysite-perl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fourth pass at adding key files

Browse Source
This commit is contained in:
dsainty
2024-06-17 22:30:36 +10:00
parent 08eb7b7da2
commit 67ccdbcc34
132 changed files with 11416 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
site/slowtwitch.com/www/tick/scripts/thumbify.pl Executable file
View File

@ -0,0 +1,25 @@
#!/usr/bin/perl
# resize to 160 on the long edge and add black border
use Image::Magick;
$source_dir = shift || ".";
my @allFiles;
opendir DIR, $source_dir;
@allFiles = grep !/^\./, readdir DIR;
closedir DIR;
foreach $file (@allFiles)
{
if ($file =~ m/^b.*?\.jpg/g)
{
print "$file\n";
$image = Image::Magick->new;
$image->Read("$source_dir/${file}");
$image->Resize(geometry=>"160x160");
$image->Border(geometry=>"2x2", fill=>"black");
$image->Write(filename=>"$source_dir/t_${file}", quality=>'75');
undef $image;
}
}