Peanutmonger fucked around with this message at 03:03 on Apr 20, 2008

/bin/tar cpzf /backupmnt/full/sat/backup.tgz --exclude=/proc --exclude=/lost+found
 --exclude=/backupmnt --exclude=/mnt --exclude=/media --exclude=/sys /

rugbert fucked around with this message at 22:17 on Apr 23, 2008

other people fucked around with this message at 18:56 on Apr 24, 2008

#!/usr/bin/perl

use GD;
use Image::Resize;
use File::Find;
use Cwd;


$size = 320;
$dir = "/wd200/Photos/10D/07_09/";
$tempdir = "/usr/tmp/crw_process/";
$prefix = "thumb_";
$target = "/var/www/htdocs/thumbs/07_09/";                    # if intended thumbnail target is elsewhere

$base = getcwd;
$createtemp = "mkdir $tempdir";
$removetemp = "rm -r $tempdir";
#$target = $base;                                        # if intended thumbnail target is script directory


system($createtemp);                                    # create the temporary directory for processed RAW files
find(\&ResizeJPEG, $dir);                               # recursively find all jpg
find(\&ResizeCRW, $dir);                                # recursively find all CRW
system($removetemp);                                    # remove the temporary directory for processed RAW files


sub AvoidDuplicate {
    $filetocheck = $_[0];
    if (-e "$filetocheck") {
        $filetocheck = AvoidDuplicate(substr($target, 0, (length($target)-4)) . "_.jpg");
        return $filetocheck;
    } else {
        return $filetocheck;
    }
}


sub ResizeJPEG {
    /\.[Jj][Pp][Ee]?[Gg]$/ or return;                   # match any variation/capitalization of JPEG/JPG
    print "$_\n";
    $image = Image::Resize->new("$_");
    $gd = $image->resize($size, $size);                 # resize the image
    $filename = AvoidDuplicate("/$target/$prefix$_");
    open(FH, ">/$filename");                            # open thumbnail for writing
    print FH $gd->jpeg();                               # write thumbnail
    close(FH);                                          # close thumbnail
}


sub ResizeCRW {
    /\.[Cc][Rr][Ww]$/ or return;                        # match any capitalization of CRW
    print "$_\n";
    $rawFN = substr($_, 0, (length($_)-4));
    $rawJPEG = "$tempdir/$rawFN.jpg";
    $createJPEG = "dcraw -ca $_ | cjpeg > $rawJPEG";
    $removeJPEG = "rm -r $rawJPEG";
    system($createJPEG);                                # create temporary fullsize from CRW
    $image = Image::Resize->new("$rawJPEG");
    $gd = $image->resize($size, $size);                 # resize the image
    $filename = AvoidDuplicate("/$target/$prefix$rawFN.jpg");
    open(FH, ">/$filename");                            # open thumbnail for writing
    print FH $gd->jpeg();                               # write thumbnail
    close(FH);                                          # close thumbnail
    system($removeJPEG);                                # remove temporary fullsize from CRW
}

MrBlandAverage fucked around with this message at 07:03 on Apr 25, 2008