Setembro, 6 2004
Segunda-feira

Photoroll, my solution
Já no outro dia a propósito desta troca de ideias entre o Bruno e o Pedro estive para escrever algo. Hoje, depois de ler este tutorial do Rui Carmo lembrei-me de partilhar(if anyone cares) a minha solução da treta para colocar fotos aqui no photoroll ou lá como se chama aquela coisa ali ao lado que diz "Em movimento...".

Basicamente, eu só uso isto para por online algumas fotos tiradas do telemovel. Tipicamente é Telemovel -- (bluetooth) -- Mac -> iPhoto que depois de escolhidas caem num folder do desktop que tem o seguinte actionscript associado:

on adding folder items to this_folder after receiving these_items
try
repeat with i from 1 to number of items in these_items
set this_item to item i of these_items
set the item_path to the quoted form of the POSIX path of this_item
do shell script "scp " & item_path & " user@server:/path"
do shell script "rm " & item_path
end repeat
end try
end adding folder items to

#!/usr/bin/perl
use strict;
use Image::EXIF;
use Date::Manip qw( Date_Init ParseDate UnixDate DateCalc);

my $mainDir = 'mobilePics';
my $uploadDir = "/$path/$mainDir/upload";
my $imageDir = "/$path/$mainDir";

opendir(DIR, $uploadDir) || die "can't opendir $uploadDir: $!";
my @files = grep { -f "$uploadDir/$_" && $_ !~ m/^\./ } readdir(DIR);
closedir DIR;

exit unless @files;

my %hash;
foreach (@files) {
my $exif = new Image::EXIF("$uploadDir/$_");
my $imageInfo = $exif->get_image_info();
$imageInfo->{'Image Created'} =~ s/(\d{4}):(\d{2}):(\d{2}) (.*?)/$1\/$2\/$3 $4/;
my $dir = UnixDate(ParseDate($imageInfo->{'Image Created'}), "%Y/%m");
my ($y,$m) = split(/\//,$dir);
mkdir("$imageDir/$y") unless -d "$imageDir/$y";
mkdir("$imageDir/$y/$m") unless -d "$imageDir/$y/$m";
$hash{"$dir/t_$_"} = UnixDate(ParseDate($imageInfo->{'Image Created'}), "%q");
system("/usr/local/bin/convert -sample 70x $uploadDir/$_ $imageDir/$dir/t_$_");
rename("$uploadDir/$_", "$imageDir/$dir/$_");
}

open(FH, "<$imageDir/log");
undef $/;
my @f = split(/\n/,);

foreach (sort{$hash{$a} <=> $hash{$b}} keys %hash) {
@f = ($_, @f[0..4]);
}
close FH;

open(FH, ">$imageDir/log");
foreach (@f) {
print FH $_,"\n";
}
close FH;

6 Setembro 2004 - 04:13   Sem Comentário(s)

Comentários - Comentar ?

Esta entrada não tem comentários...