SignalBot/SignalCliDebug.pm at master · And0r-/SignalBot · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
package SignalCliDebug;
use strict;
use warnings;


use Mojo::Base -base;

use MIME::Base64;
use Data::Dumper;

has dieNow => 0;
has signalBot => undef;

sub StartReactor {
	my $self= shift;
	while (!$self->dieNow) {
		$self->recive_signal_messages_debug();
	}
}

sub recive_signal_messages_debug {
	my $self = shift;
	my $messageFound=0;
	open(my $fh, '<:encoding(UTF-8)', "signal_input.txt");
	while (my $row = <$fh>) {
		chomp $row;

		my $timestamp=1554337150370;
	    my $source='+41794183625';
		my $groupID=[48,240,219,108,30,47,162,36,234,52,50,165,56,54,30,195];
		my $message=$row;
    	my $attachments=undef;
		$messageFound=1;

		$self->signalBot->MessageReceived($timestamp,$source,$groupID,$message,$attachments);
	}

	truncate 'signal_input.txt', 0 if ($messageFound);

	sleep(3);

	return 1;
}

sub StopReactor {
	shift()->dieNow(1);
}

sub sendGroupMessage {
	my $self=shift;
	warn "send message: ".shift;
}

sub getGroupName {
	my $self = shift;
	return "bot test gruppe";
}


sub setGroupIDByName {
	my $self = shift;
	my $name = shift;


	$self->signalBot->groupID($self->getGroupIdByName($name));

}

sub getGroupIdByName {
	# we have no groups on debug moud, so i have to fake
	return [
          48,
          240,
          219,
          108,
          30,
          47,
          162,
          36,
          234,
          52,
          50,
          165,
          56,
          54,
          30,
          195
        ];
}


1;