Opened by gubach at 2013-01-23 17:39
User since
2011-09-06
23 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2011-09-06
23 Artikel
BenutzerIn
danke für den Hinweis etwas direkt voran zu stellen; Semikolonfehler gefunden. Skript läuft jetzt durch; doch es wird in Flickr kein neues Album angezeigt, sodass wohl keines erzeugt wird. Potenziell könnte dies an dem Attribut auth_token => $auth_token liegen. Hierzu verwende ich den Eintrag in ~/.flickrrc der sich aus der Anmeldung von flickr_upload ergeben hat.
In dem Skript flickr-upload-set.pl wird nach der Erzeugung des Albums ein Code eingefügt, der prüft, ob ein Album erzeugt wurde (Zeile 235ff). Hier fangen dann meine Verständnisprobleme an und es ist unklar, ob und was ich davon überhaupt benötige, da ich alles so einfach wie möglich behandeln will.
$ua bezieht sich auf einen Flickr::Upload Call (Zeile 73ff)
wobei $api_key und $not_so_secret anscheinend aus ~/.flickrrc gelesen werden (Zeile 32ff):
nur bei mir ist dort nur auth_token zu finden; was das mit dem $not_so_secret auf sich hat, und wie er erzeugt/gefunden wird, muss mir noch jemand erklären.
In dem Skript flickr-upload-set.pl wird nach der Erzeugung des Albums ein Code eingefügt, der prüft, ob ein Album erzeugt wurde (Zeile 235ff). Hier fangen dann meine Verständnisprobleme an und es ist unklar, ob und was ich davon überhaupt benötige, da ich alles so einfach wie möglich behandeln will.
Code: (dl
)
1
2
3
4
5
my $res = $ua->execute_request($req);
if ($res->{success} != 1) {
warn("failed to create photoset $photoset");
exit(10);
}
$ua bezieht sich auf einen Flickr::Upload Call (Zeile 73ff)
Code: (dl
)
1
2
3
my $ua = Flickr::Upload->new( {'key' => $api_key, 'secret' => $not_so_secret} );
$ua->agent( "flickr_upload_set/$version" );
$ua->env_proxy();wobei $api_key und $not_so_secret anscheinend aus ~/.flickrrc gelesen werden (Zeile 32ff):
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
if( open CONFIG, "< $ENV{HOME}/.flickrrc" ) {
while( <CONFIG> ) {
chomp;
s/#.*$//; # strip comments
next unless m/^\s*([a-z_]+)=(.+)\s*$/io;
if( $1 eq "key" ) {
$api_key = $2;
} elsif( $1 eq "secret" ) {
$not_so_secret = $2;
} else {
$args{$1} = $2;
}
}
close CONFIG;
}nur bei mir ist dort nur auth_token zu finden; was das mit dem $not_so_secret auf sich hat, und wie er erzeugt/gefunden wird, muss mir noch jemand erklären.