SJDY / Mojo-Webqq-1.6.8 / demo / openqq-client.pl 

            

              
—
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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120

              
#!/usr/bin/env perl
=encoding utf8
=head1 SYNOPSIS
使用帮助
-h          打印帮助内容
-id         对象(好友、群成员、讨论组成员)的id
-qq         对象(好友、群成员、讨论组成员)的qq号码
-gid        群的gid
-gnumber    群号码
-did        讨论组的did
发送消息示例：
好友消息         ./script -id 123456 你好
                 ./script -qq 123456 你好
群消息           ./script -gid 123456 你好
                 ./script -gnumber 123456 你好
群临时消息       ./script -gnumber 123456 -qq 123456 你好
                 ./script -gid 123456 -id 123456 你好
讨论组临时消息   ./script -did 123456 -id 123456 你好
=cut
use strict;
use Getopt::Long;
use Mojo::UserAgent;
use Mojo::Util qw(url_escape encode decode);
my %API = (
    send_message         =>  'http://127.0.0.1:5000/openqq/send_message',
    send_group_message   =>  'http://127.0.0.1:5000/openqq/send_group_message',
    send_discuss_message =>  'http://127.0.0.1:5000/openqq/send_discuss_message',
    send_sess_message    =>  'http://127.0.0.1:5000/openqq/send_sess_message',
);
my $ua = Mojo::UserAgent->new;
if($ARGV[0] eq "-l" or $ARGV[0] eq "-list"){
    my $friend = $ua->get("http://127.0.0.1:5000/openqq/get_friend_info")->res->json;
    print "好友:\n";
    for(@{$friend}){
        print $_->{id},"\t",encode("utf8",$_->{nick}),"\n";
    }
    print "群组:\n";
    my $group = $ua->get("http://127.0.0.1:5000/openqq/get_group_info")->res->json;
    for(@{$group}){
        print $_->{gid},"\t",encode("utf8",$_->{gname}),"\n";
    }
    exit;
}
elsif(@ARGV == 0 or $ARGV[0] eq "-h" or $ARGV[0] eq "--help"){
    print <<USAGE;
使用帮助
-h          打印帮助内容
-id         对象(好友、群成员、讨论组成员)的id
-qq         对象(好友、群成员、讨论组成员)的qq号码
-gid        群的gid
-gnumber    群号码
-did        讨论组的did
发送消息示例：
好友消息         ./script -id 123456 你好
                 ./script -qq 123456 你好
群消息           ./script -gid 123456 你好
                 ./script -gnumber 123456 你好
群临时消息       ./script -gnumber 123456 -qq 123456 你好
                 ./script -gid 123456 -id 123456 你好
讨论组临时消息   ./script -did 123456 -id 123456 你好
USAGE
exit;
}
my ($id,$qq,$gnumber,$gid,$did,@content,$content);
GetOptions (
    "gid=i" => \$gid,
    "id=i" => \$id,
    "did=i" => \$did,
    "qq=i" => \$qq,
    "gnumber=i" => \$gnumber,
    "<>"    =>  sub{push @content ,$_[0]},
)or die $!;
$content = join " ",@content;
$content=~s/\\n/\n/g;
$content = url_escape( $content);
die "需要输入发送内容\n" unless defined $content;
my $tx;
if(defined $gid and defined $id){
    $tx = $ua->get($API{"send_sess_message"} . "?gid=$gid&id=$id&content=$content");
}
elsif(defined $did and defined $id) {
    $tx = $ua->get($API{"send_sess_message"} . "?did=$did&id=$id&content=$content");
}
elsif(defined $gid){
    $tx = $ua->get($API{"send_group_message"} . "?gid=$gid&content=$content");
}
elsif(defined $did){
    $tx = $ua->get($API{"send_discuss_message"} . "?did=$did&content=$content");
}
elsif(defined $id){
    $tx = $ua->get($API{"send_message"} . "?id=$id&content=$content");
}
elsif(defined $gnumber and defined $qq){
    $tx = $ua->get($API{"send_sess_message"} . "?gnumber=$gnumber&qq=$qq&content=$content");
}
elsif(defined $gnumber){
    $tx = $ua->get($API{"send_group_message"} . "?gnumber=$gnumber&content=$content");
}
elsif(defined $qq){
    $tx = $ua->get($API{"send_message"} . "?qq=$qq&content=$content");
}
else{
    die "参数错误\n";
}
warn $tx->req->to_string;
warn $tx->res->to_string;