Commit 1207c9e12aa8b5a85764c185cc946e28d2996fe2

save wikiname as remote-user in gtimelogrc


7	7	use HTML::Entities;
8	8	use File::Slurp;
9	9	use Term::ReadPassword;
	10	use Config::IniFiles;
10	11	use utf8;
11	12
12	13	my $mech = WWW::Mechanize::TWiki->new(agent => 'colivre-robot', autocheck => 1 ) or die $!;
…	…
33	33	}
34	34
35	35	sub get_local_tasks {
36		open LOCAL, '<:utf8', '/home/joenio/doc/todo';
	36	open LOCAL, '<:utf8', "$ENV{HOME}/doc/todo";
37	37	local $/ = undef;
38	38	my $local_tasks = <LOCAL>;
39	39	}
40	40
41	41	sub concat_tasks {
42	42	my ($remote_tasks, $local_tasks) = @_;
43		open TASKS, '>:utf8', '/home/joenio/.gtimelog/remote-tasks.txt';
	43	open TASKS, '>:utf8', "$ENV{HOME}/.gtimelog/remote-tasks.txt";
44	44	say TASKS $remote_tasks, "\n", $local_tasks;
45	45	close TASKS;
46	46	}
47	47
48		print 'wikiname: '; chomp(my $username = <STDIN>);
	48	my $conf = Config::IniFiles->new(-file => "$ENV{HOME}/.gtimelog/gtimelogrc");
	49	my $remote_user = $conf->val('gtimelog', 'remote-user') \|\| 'YourWikiName';
	50	print "wikiname [$remote_user]: ";
	51	chomp(my $username = <STDIN>);
	52	if ($username) {
	53	$conf->setval('gtimelog', 'remote-user', $username);
	54	}
	55	else {
	56	$username = $remote_user;
	57	}
	58
49	59	my $password = read_password('senha: ');
50	60	logon($username, $password);
51	61	concat_tasks(get_remote_tasks, get_local_tasks);
	62
	63	$conf->RewriteConfig;