hrpunio

#!/usr/bin/perl
#
# *** Upload file | Upload file with metadata | Create album | List albums @ picasaweb via API ***
#
# Examples of usage
# Note: if option --printonly is present NO real action is performed
# ONLY http message is verbatim printed on STDOUT (useful in case of problems)
# -----------------
# Upload with metadata:
# picasaweb.pl -xload -title Komorowski -descr 'Komorowski w czapce' -keywords 'komorowski,prezydent' -file BK_w_czapce.jpg -album 12345

hrpunio

#!/bin/bash
ALBUM_TITLE="$1" # Album title 
ALBUM_DESCR="$2" # Album description
Album_Keywords="$3" # Album keywords (comma separated)

ACCESS_TOKEN=$(oauth2picasa.py) ## Acces token is managed with Python's script now

MESSAGE="<entry xmlns='http://www.w3.org/2005/Atom'
     xmlns:media='http://search.yahoo.com/mrss/'
     xmlns:gphoto='http://schemas.google.com/photos/2007'>

hrpunio

#!/usr/bin/perl
# *** Upload file | Create album | List albums @ picasaweb via API ***
use strict;
use LWP::UserAgent;
use Getopt::Long;
use File::MimeInfo;
use XML::LibXML;
use open ':std', ':encoding(UTF-8)'; 
my $profileID="default";

hrpunio

#!/usr/bin/perl
# *** Wyslanie posta na blogger.com ***
use strict;
use LWP::UserAgent;
use XML::LibXML;
use Getopt::Long;

my $profileID="default";
my $blogID = '1928418645181504144'; # Identyfikator bloga
my $blog_entry ;

hrpunio

#!/usr/bin/python

import os
import time
import httplib2
## https://github.com/google/oauth2client
## installed with pip install --upgrade oauth2client (or some other way)
from oauth2client import client

def oauthLogin():

hrpunio

#!/bin/bash
MY_PIC="$1" ## filename of the picture to upload ##

ALBUM_ID=6008849823888405298 # ID of picasaweb album
PIC_TITLE=`basename $MY_PIC` # filename w/o extension
PIC_TYPE=`file -b --mime-type "$MY_PIC"`

ACCESS_TOKEN=$(oauth2picasa.py) ## Acces token is managed with Python's script now
## Note that ALBUM_XML URL starts now from https:// now
ALBUM_XML="https://picasaweb.google.com/data/feed/api/user/$USER_ID/albumid/$ALBUM_ID"

hrpunio

#!/usr/bin/perl
# Get content of SET or Pool
#
use Flickr::API;
use Compress::Zlib;
use Getopt::Long;
use XML::DOM;

require 'login2flickr.rc';

hrpunio

#!/usr/bin/perl
#
# GPX track to KML conversion
use Getopt::Long;

my $color="ff0000ff";
my $number_w_sign="[\+\-]?[0-9\.]+";
my $quote_sign="[ \t]*[\"'][ \t]*";
my $segment = '';
my $kml_name='??????';

hrpunio

#!/bin/bash
#  Upload pic_file to Google photos/Picasa with curl; returns source image URL
#
#  Usage: picasa.sh   -s SCALE -a ALBUMID -t PIC_NAME -u -r pic_file
#          -s SCALE    -- scale pic_file to SCALE% (with imagemagic's convert)
#          -a ALBUMID  -- if not given upload to default album
#          -t PIC_NAME -- picture name, if not given the same as pic_file
#          -u          -- print HTML fragment with URL to pic_file
#          -r          -- remove scaled pic_file
#

hrpunio

#!/bin/bash
#returns source image location and thumbnail location
#Usage: picasa.sh  /path/to/pic  [Pic Name Shown In Album]

# One have to declare ALBUM_ID USER_ID username and password
ALBUM_ID=????????????????????
USER_ID=116390720146821374745

my_pic="$1"
[ -z "$2" ] &&