#!/usr/bin/perl

use utf8;

use strict;

use warnings;

use feature 'say';

use lib '/home/joenio/perl5/share/perl/5.10.0/';

use WWW::Mechanize::TWiki;

use HTML::Entities;

use File::Slurp;

use Term::ReadPassword;

use Config::IniFiles;

use Getopt::Long;

use constant SCRIPTURL => 'http://intranet.colivre.coop.br';

my $local = undef;

GetOptions(local => \$local);

my $mech = WWW::Mechanize::TWiki->new(agent => 'colivre-robot', autocheck => 1 ) or die $!;

$mech->cgibin(SCRIPTURL, { scriptSuffix => '' });

sub twiki_logon {

   my ($username, $password) = @_;

   $mech->get('https://www.colivre.coop.br/bin/login/');

   $mech->form_name('loginform');

   $mech->field('username', $username);

   $mech->field('password', $password);

   $mech->submit();

}

sub apache_logon {

   my ($username, $password) = @_;

   $mech->get("https://$username:$password\@intranet.colivre.coop.br");

}

sub logon {

   my ($username, $password) = @_;

   print STDERR "logon... ";

   apache_logon($username, $password);

   say STDERR "ok";

}

sub get_remote_tasks {

   my $topic = 'Intranet.MinhasAtividades?template=view.text';

   print STDERR "acessando $topic... ";

   $mech->get("/$topic");

   say STDERR "ok";

   return $mech->response->decoded_content;

}

sub get_local_tasks {

   open LOCAL, '<:utf8', "$ENV{HOME}/doc/todo";

   local $/ = undef;

   my $local_tasks = <LOCAL>;

}

sub concat_tasks  {

   my ($remote_tasks, $local_tasks) = @_;

   open TASKS, '>:utf8', "$ENV{HOME}/.gtimelog/remote-tasks.txt";

   say TASKS $remote_tasks, "\n", $local_tasks;

   close TASKS;

}

my $conf = Config::IniFiles->new(-file => "$ENV{HOME}/.gtimelog/gtimelogrc");

my $remote_user = $conf->val('gtimelog', 'remote-user') || 'YourWikiName';

my $remote_tasks = '';

unless ($local) {

   print "wikiname [$remote_user]: ";

   chomp(my $username = <STDIN>);

   if ($username) {

      $conf->setval('gtimelog', 'remote-user', $username);

   }

   else {

      $username = $remote_user;

   }

   my $password = read_password('senha: ');

   logon($username, $password);

   $remote_tasks = get_remote_tasks;

}

concat_tasks($remote_tasks, get_local_tasks);

$conf->RewriteConfig;