#!/usr/bin/perl
#
# Récupérer toutes les photographies de beaux mâles du site www.bonjourmonsieur.fr.
#
# $Id       : bonjour-monsieur.pl $
# $HeadURL  : http://bobotig.fr/contenu/contrib/scripts/bonjour-monsieur.pl $
# $Source   : http://bobotig.fr/contenu/contrib/scripts/bonjour-monsieur.pl $
# $Author   : BoboTiG $
# $Revision : 0 $
# $Date     : 2010/11/13 $
#
# ----------------------------------------------------------------------
#
# Usage : perl bonjour-monsieur.pl
#
# ! Attention ! Ce script va télécharger toutes les images dans le
# dossier courant.
#
# ----------------------------------------------------------------------
#
# Dépendance :
#    - cpan -i LWP::UserAgent;
#
# ----------------------------------------------------------------------
#
# Chronologie
#	[ 13 novembre 2010 ]
#		- version initiale
#

use strict;
use autodie 'close';
use LWP::UserAgent;
use warnings;

our $VERSION = 0.9;
my $ua;
my $requete;
my $total;
my $actuelle;

sub recup_semaine {
	my $num = shift;
	my @jours = ('lundi', 'mardi', 'mercredi', 'jeudi', 'vendredi', 'samedi', 'dimanche');
	my %numeros = ('lundi' => 1, 'mardi' => 2, 'mercredi' => 3, 'jeudi' => 4, 'vendredi' => 5, 'samedi' => 6, 'dimanche' => 7);
	my $ajout = 0;
	my $ajoutee = 0;
	
	if ( $num < 10 ) { $num = '0'.$num; }
	foreach my $jour ( @jours ) { 
		my $image = $jour.$num;
		my $nom_img = $num.'_'.$numeros{$jour};
		if ( -e $nom_img.'.jpg' ) { next; }
		$requete = $ua->get('http://www.bonjourmonsieur.fr/uploads/monsieur/original/'.$image.'.jpg');
		if ( ! $requete->is_success ) { next; }
		my ($img) = $requete->content;
		if ( $img ) {
			if ( open my $SLT, '>>', $nom_img.'.jpg' ) {
				binmode $SLT;
				print {$SLT} $img;
				close $SLT;
				$ajout = 1;
			}
			if ( $ajout == 1 && $ajoutee == 0 ) {
				printf '    + semaine %01d'."\n", $num;
				$ajoutee = 1;
			}
		}
	}
}

print ' ~ bonjour-monsieur.pl v'.$VERSION.' { BoboTiG }.'."\n";
$ua = LWP::UserAgent->new();
$ua->agent('Mozilla/5.0 (X11; U; Linux x86_64; fr; rv:1.9.1.15) Gecko/20101028 Iceweasel/3.5.15 (like Firefox/3.5.15)');
$requete = $ua->get('http://www.bonjourmonsieur.fr/');
if ( ! $requete->is_success ) {
	print ' ! Connexion merdique...'."\n";
	exit 1;
}
($actuelle) = $requete->content =~ m/<a href="\/uploads\/monsieur\/original\/(.+).jpg" rel="shadowbox">/;
$total = (substr $actuelle, -2) + 1;
if ( ! defined $total ) {
	print ' ! Nombre de pages inconnu... Retente plus tard.'."\n";
	exit 1;
}
printf ' > Total : %d semaines; c\'est parti mon kiki...'."\n", $total - 1;
for ( 1..$total ) { recup_semaine($_); }
print ' ^ Finito !'."\n";
exit 0;