#!/usr/bin/perl
  
  use FileHandle;
  use Image::Magick;
  use Flickr::API;
  use XML::Parser::Lite::Tree::XPath;
  use Getopt::Std;
  
  getopt('d');
  
  $apikey\; =\; \text{'}YOUR-API-KEY\text{'};$apisecret = 'YOUR-API-SECRET';
  
  $groupNSID\; =\; \text{'}81474450@N00\text{'};\; \#\; Utata\; group\; NSID$filename = 'badge';          # The output file name
  $mapname\; =\; \text{'}badge-map\text{'};\; \#\; The\; name\; given\; to\; the\; image\; map$dir = './';
  $dir\; =$opt_d if (defined($opt\_d));\; if\; ($dir !~ /\/$/)\; \{$dir .= '/';
  }
  
  $flickr\; =\; new\; Flickr::API(\; \{\; \text{'}key\text{'}\; =>$apikey,
      'secret' => $apisecret,\; \});$photosCount = 8;
  
  @recentPoolPhotos = ();
  $recentPoolPhotosImage\; =\; undef;\; buildBadge();\; \#\; Subroutines\; start\; here\; sub\; getRecentPoolPhotos\; \{\; if\; ($#recentPoolPhotos == -1)
    {
      my $response\; =$flickr->execute_method('flickr.groups.pools.getPhotos', 
        {
          'group_id' => $groupNSID,\; \text{'}per\_page\text{'}\; =>$photosCount,
          'page' => 1,
        });
  
      my $xpath\; =\; new\; XML::Parser::Lite::Tree::XPath($response->{'tree'});
  
      @recentPoolPhotos = $xpath->select\_nodes(\text{'}/photos/photo\text{'});\; \}\; @photos\; =\; ();\; for\; ($i = 0; photosCount; $i++)\; \{\; my$p = $recentPoolPhotos[$i];
      push(@photos, $p);\; \}\; return\; @photos;\; \}\; sub\; getGroupURL\; \{\; my$response = $flickr->execute\_method(\text{'}flickr.urls.getGroup\text{'},\; \{\; \text{'}group\_id\text{'}\; =>$groupNSID,
      });
  
    my $xpath\; =\; new\; XML::Parser::Lite::Tree::XPath($response->{'tree'});
  
    my @groups = $xpath->select\_nodes(\text{'}/group\text{'});\; return$groups[0]->{'attributes'}->{'url'};
  }
  
  sub getGroupIconURL
  {
    my $url\; =\; "";\; my$response = $flickr->execute\_method(\text{'}flickr.groups.getInfo\text{'},\; \{\; \text{'}group\_id\text{'}\; =>$groupNSID,
      });
  
    my $xpath\; =\; new\; XML::Parser::Lite::Tree::XPath($response->{'tree'});
  
    my @groups = $xpath->select\_nodes(\text{'}/group\text{'});\; if\; ($#groups >= 0)
    { 
      my $iconServer\; =$groups[0]->{'attributes'}->{'iconserver'};
      $url\; =\; "http://static.flickr.com/\$iconServer/buddyicons/\$groupNSID.jpg";\; \}\; return$url;
  }
  
  sub getPhotoPage
  {
    my ($p)\; =\; @\_;\; my$url = 'http://www.flickr.com/photos/' . $p->\{\text{'}attributes\text{'}\}->\{\text{'}owner\text{'}\}\; .\; \text{'}/\text{'}\; .$p->{'attributes'}->{'id'} . '/';
  }
  
  sub getRecentPoolPhotosAsImage
  {
    if (!defined($recentPoolPhotosImage))\; \{\; @photos\; =\; getRecentPoolPhotos($photosCount);
      $recentPoolPhotosImage\; =\; Image::Magick->new;\; for$p (@photos)
      {
        my $img\; =\; \text{'}http://static.flickr.com/\text{'}.$p->{'attributes'}->{'server'} . '/' 
          . $p->\{\text{'}attributes\text{'}\}->\{\text{'}id\text{'}\}\; .\; \text{'}\_\text{'}\; .$p->{'attributes'}->{'secret'} 
          . '_s.jpg';
        $recentPoolPhotosImage->Read($img);
      }
    }
  
    return $recentPoolPhotosImage;\; \}\; sub\; generateHTML\; \{\; my\; ($mapRef) = @_;
  
    my $s\; =\; "$<img src=\"filename.jpg\" width=\"225\" height=\"225\" 
  usemap=\"#$mapname\backslash "\; border=\backslash "0\backslash "\; />\backslash n";$s .= "<map name=\"$mapname\backslash ">\backslash n";\; for$item (@$mapRef)\; \{\; my$topleftx = $$item[0];
      my $toplefty\; =\; \$\$item[1];\; my$bottomrightx = $topleftx\; +\; \$\$item[2];\; my$bottomrighty = $toplefty\; +\; \$\$item[3];\; my$url = $$item[4];
  
      $s\; .=\; "$<area shape=\"rect\" coords=\"topleftx,$toplefty$bottomrightx,$bottomrighty\backslash "\; href=\backslash "$url\" />\n";
    }
    $s\; .=\; "$</map>\n";
  
    my fh = new FileHandle "> $filename.html";\; if\; (defined$fh)
    {
      print $fh$s;
      $fh->close;\; \}\; \}\; sub\; addImage\; \{\; my\; ($image, $photo,$x, $y,$width, $height,$mapRef, $url)\; =\; @\_;$image->Composite(image => $photo,\; compose\; =>\; \text{'}Copy\text{'},\; x\; =>$x, y => $y);\; addMap($mapRef, $x,$y, $width,$height, $url);\; \}\; sub\; addMap\; \{\; my\; ($mapRef, $x,$y, $w,$h, $url)\; =\; @\_;\; my\; @location\; =\; ($x, $y,$w, $h,$url);
    push (@$mapRef,\; \backslash @location);\; \}\; sub\; buildBadge\; \{\; my\; @photoDetails\; =\; getRecentPoolPhotos();\; my$photos = getRecentPoolPhotosAsImage();
    my @map = ();
    my $mapRef\; =\; \backslash @map;\; my$groupIconImage = Image::Magick->new;
    $groupIconImage->Read(getGroupIconURL());$image = Image::Magick->new;
    $image->Set(size=>\text{'}225x225\text{'});$image->ReadImage('xc:white');
  
    addImage($image,$photos->[0], 0, 0, 75, 75, $mapRef,\; getPhotoPage($photoDetails[0]));
    addImage($image,$photos->[1], 75, 0, 75, 75, $mapRef,\; getPhotoPage($photoDetails[1]));
    addImage($image,$photos->[2], 150, 0, 75, 75, $mapRef,\; getPhotoPage($photoDetails[2]));
    addImage($image,$photos->[3], 0, 75, 75, 75, $mapRef,\; getPhotoPage($photoDetails[3]));
    addImage($image,$photos->[4], 150, 75, 75, 75, $mapRef,\; getPhotoPage($photoDetails[4]));
    addImage($image,$photos->[5], 0, 150, 75, 75, $mapRef,\; getPhotoPage($photoDetails[5]));
    addImage($image,$photos->[6], 75, 150, 75, 75, $mapRef,\; getPhotoPage($photoDetails[6]));
    addImage($image,$photos->[7], 150, 150, 75, 75, $mapRef,\; getPhotoPage($photoDetails[7]));
    addImage($image,$groupIconImage->[0], 88, 88, 48, 48, $mapRef,\; getGroupURL());$image->Write(filename => $dir\; .$filename . '.jpg', quality => 85);
  
    undef $image;\; generateHTML($mapRef);
  }