@@ -9,6 +9,14 @@ use strict; +# Flickr API goodness +my $FLICKR_API_KEY = ''; +my $FLICKR_SECRET = ''; + +# Fire Bagel! +my $FIREEAGLE_CONSUMER_KEY = ''; +my $FIREEAGLE_CONSUMER_SECRET = ''; + # @@ -19,10 +27,6 @@ use strict; use Digest::MD5 'md5_hex'; use XML::Simple 'XMLin'; -# Flickr API goodness -my $FLICKR_API_KEY = ''; -my $FLICKR_SECRET = ''; - # Send the user to Flickr my $api_sig = md5_hex("${FLICKR_SECRET}api_key${FLICKR_API_KEY}permswrite"); print "\nFlickr\n"; @@ -54,10 +58,6 @@ use Data::Dumper; use LWP; use CGI; -# Fire Bagel! -my $FIREEAGLE_CONSUMER_KEY = ''; -my $FIREEAGLE_CONSUMER_SECRET = ''; - my $REQUEST_TOKEN_URL = 'http://fireeagle.yahooapis.com/oauth/request_token'; my $AUTHORIZATION_URL = 'http://fireeagle.yahoo.net/oauth/authorize'; my $ACCESS_TOKEN_URL = 'http://fireeagle.yahooapis.com/oauth/access_token'; curvrconf @@ -10,11 +10,6 @@ use strict; -use MIME::Base64; -use Flickr::Upload::FireEagle; - - - # Flickr API goodness my $FLICKR_API_KEY = ''; my $FLICKR_SECRET = ''; @@ -30,6 +25,11 @@ my $CURVR_BIN = 'curvr'; my $CURVR_PROCESS = 'curve'; my $CURVR_VERSION = '0.2.1'; + + +use MIME::Base64; +use Flickr::Upload::FireEagle; + # Tags to add to every photo my $TAGS = "curvr curvr:process=$CURVR_PROCESS curvr:version=$CURVR_VERSION"; curvrmail 4ea18e452af4dd6ad65ecdade58597a3a21fa2a1 Richard Crowley r@rcrowley.org http://github.com/rcrowley/curvr/commit/071b571f579f84d7ee38d274cefecf5e6761038b 071b571f579f84d7ee38d274cefecf5e6761038b 2008-05-24T00:26:46-07:00 2008-05-24T00:26:46-07:00 Again, wow this is cool. Reorganizing constants to the top. b4d3fcbd3425a07645d1deba0e66355890ccd99f Richard Crowley r@rcrowley.org