Commit f3f1643cdcaec85319b46e87223fcae099b19e4d

Tree SHA1: e85a430
Parent SHA1: ecd96bb (mozilla (and OpenSearch compatibles) search engine for fishbase.org)
raw diff | raw patch

timelog-update-tasks: fix encode from local_tasks


23	23	say STDERR "ok";
24	24	}
25	25
26		sub topic2timelog_tasks {
27		my $topic = shift;
	26	sub get_remote_tasks {
	27	my $topic = 'Intranet.MinhasAtividades?template=view.text';
28	28	print STDERR "acessando $topic... ";
29	29	$mech->get("/$topic");
30	30	say STDERR "ok";
31	31	return $mech->response->decoded_content;
32	32	}
33	33
	34	sub get_local_tasks {
	35	open LOCAL, '<:utf8', '/home/joenio/doc/todo';
	36	local $/ = undef;
	37	my $local_tasks = <LOCAL>;
	38	}
	39
34	40	sub concat_tasks {
35		my $remote_tasks = shift;
36		my $local_tasks = read_file('/home/joenio/doc/todo');
	41	my ($remote_tasks, $local_tasks) = @_;
37	42	open TASKS, '>:utf8', '/home/joenio/.gtimelog/remote-tasks.txt';
38		say TASKS $remote_tasks, $local_tasks;
	43	say TASKS $remote_tasks, "\n", $local_tasks;
39	44	close TASKS;
40	45	}
41	46
42	47	print 'wikiname: '; chomp(my $username = <STDIN>);
43	48	my $password = read_password('senha: ');
44	49	logon($username, $password);
45		my $remote_tasks = topic2timelog_tasks('Intranet.MinhasAtividades?template=view.text');
46		concat_tasks($remote_tasks);
	50	concat_tasks(get_remote_tasks, get_local_tasks);