#!/usr/bin/env perl

package HelloWord;
use Web::Simple;

use JSON::XS;
use Digest::MD5 qw/md5_hex/;
sub dispatch_request{
	sub(POST + /mobile/login){
		[200, ['Content-type', 'application/json'],[encode_json( {
			api_key => md5_hex(rand),
                        nome => "Teste Fake",

			tipo => "PF",
			id => "288",
			sexo => "F"

		}) ] ]
	},
        sub(POST + /mobile/logout){
		[200, ['Content-type', 'application/json'],[encode_json( {
			ok => 1
		}) ] ]
	},
        sub(POST + /mobile/log){
		[200, ['Content-type', 'application/json'],[encode_json( {
			ajudometro => '140354,00'
		}) ] ]
	},
        sub(GET + /mobile/ofertas){
		[200, ['Content-type', 'application/json'],[encode_json( {
			linhas => [
			 { imagem_icone => 'http://i.imgur.com/D0NzvKH.png',
			   imagem_pequena => 'http://i.imgur.com/D0NzvKH.png',
			   imagem_media => 'http://i.imgur.com/D0NzvKH.png',
			   imagem_grande => 'http://i.imgur.com/D0NzvKH.png',
			   url_compra => 'http://google.com/',
			   preco_cheio => '10,00',
			   preco_promocional => '9,80',
			   nome => 'Titulo',
			   descricoes => [
					{
						titulo => 'Nonono',
						conteudo => 'zooo',
					},
					{
						titulo => 'abc',
						conteudo => 'wwwo',
					},
					]
			 }
			]
		}) ] ]
	},
	 sub(GET + /mobile/ajudometro){
		[200, ['Content-type', 'application/json'],[encode_json( {
			ok => 1
		}) ] ]
	},
	sub(){
		[405, ['Content-type', 'text/plain'],['Method not allowed'] ]
	}
}

HelloWord->run_if_script;