xrcd2 網路小頑童: 11月 2024

2024年11月30日星期六

LINE Messaging API / Perl CGI 試作

延續前筆記

使用 Ngrok + Perl 串接 LINE BOT Webhook

https://xrcd2.blogspot.com/2024/11/ngrok-perl-line-bot-webhook.html

參考 URL

https://github.com/line/line-bot-sdk-perl

https://github.com/line/line-bot-sdk-perl/blob/master/eg/echo.psgi

舊筆記

https://xrcd2.blogspot.com/2016/12/perl-line-api.html

Perl CGI 程式抄改參考

https://m.runoob.com/perl/perl-cgi-programming.html

[root@node1 cgi]# pwd

/var/www/html/cgi

[root@node1 cgi]# cat index.html

<!DOCTYPE html>

<html>

<head>

</head>

<body>

Subject: <input type="text" name="subject"> <br />

Body: <input type="text" name="body" />

</form>

</body>

</html>

[root@node1 cgi]# cat perl.cgi

#!/usr/bin/perl

local ($buffer, @pairs, $pair, $name, $value, %FORM);

# 讀取 POST 資訊

$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;

if ($ENV{'REQUEST_METHOD'} eq "POST")

{

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

}else {

$buffer = $ENV{'QUERY_STRING'};

}

# 讀取 POST/FORM 資訊

@pairs = split(/&/, $buffer);

foreach $pair (@pairs)

{

($name, $value) = split(/=/, $pair);

$value =~ tr/+/ /;

$value =~ s/%(..)/pack("C", hex($1))/eg;

$FORM{$name} = $value;

}

$subject = $FORM{subject};

$body = $FORM{body};

print "Content-type:text/html\r\n\r\n";

print "<html>";

print "<head>";

print '<meta charset="utf-8">';

print '<title>CGI DEMO</title>';

print "</head>";

print "<body>";

print "<h2>$subject <P> $body</h2>";

print "</body>";

print "</html>";

linebot();

sub linebot {

use LINE::Bot::API;

use LINE::Bot::API::Builder::SendMessage;

use JSON;

use utf8;

use Encode;

$subject = Encode::decode('UTF-8', $subject);

$body = Encode::decode('UTF-8', $body);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

$now = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $year+1900, $mon+1, $mday, $hour, $min, $sec);

$bot = LINE::Bot::API->new(

channel_secret => '738feXXXXXXXXXXXXXXXXXXXXcf43d7',

channel_access_token => 'dqlhcXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX1cDnyilFU=',

);

$ToLineUid = "U74ea4fXXXXXXXXXXXXXXXXXXX2d866b1";

#$ToLineGid = "C39bdb2XXXXXXXXXXXXXXXXXX6bb32dea";

$messages = LINE::Bot::API::Builder::SendMessage->new;

$messages->add_text( text => "$now \n $subject \n $body " );

$bot->push_message($ToLineUid, $messages->build);

}

[root@node1 cgi]#

Demo

Synology NAS [ DSM Alert Demo ]

2024年11月24日星期日

使用 Ngrok + Perl 串接 LINE BOT Webhook

復習一下舊筆記 [使用 Perl 建立 Line API 運用環境]

https://xrcd2.blogspot.com/2016/12/perl-line-api.html

一樣是用 Linux + Ngrok + Perl 組合而來,

只是將 CentOS Linux 6.8 + Perl 5.25 (2016年)

改成 Oracle Linux 9.5 + Perl 5.32 (2024年)

參考 URL

https://github.com/line/line-bot-sdk-perl

https://github.com/line/line-bot-sdk-perl/blob/master/eg/echo.psgi

筆記如下:

dnf install perl-App-cpanminus.noarch

cpanm install Plack

cpanm install LINE::Bot::API

修改 echo.psgi 這一支程式,

在 62 行處 $messages->add_text( text => $event->text );

下方插入這行 $messages->add_text( text => $from_id);

讓 Line BOT Webhook 回傳 User_ID / Group_IP 資訊,可供程式傳送訊息使用.

其 User_ID 在登入 https://developers.line.biz 後應該也是可以找到它的.

但 Group_ID 應該是僅能透過 Webhook 取出.(印象中)

所以才會有這個筆記的,而這個筆記取得的Group_ID,以後是用來發 Alert 用的.

另外也是要透過 https://ngrok.com 取得 ngrok 這支程式,

用它來將內部主機執行 echo.psgi 產出的 LINE BOT Webhook 服務

轉成一個在 Internet 上的 LINE BOT Webhook 服務.

如果不修改程式,也是可以在 plackup echo.psgi 後看到它.

看到的資訊如下所示:

[root@node1 tmp]# plackup --host 127.0.0.1 --port 9090 echo.psgi

HTTP::Server::PSGI: Accepting connections at http://127.0.0.1:9090/

message_id=536187989014348097, type=message(U74ea4XXXXXXXXXXXXXXXXXXXXXX866b1),

reply_token=774fa992d5bb449da5e829402b5b101e, timestamp=1732424250192 at /tmp/line-bot.pl line 50.

127.0.0.1 - - [24/Nov/2024:12:57:31 +0800] "POST /perl/callback HTTP/1.1" 200 2 "-" "LineBotWebhook/2.0"

message_id=536188075936579603, type=message(C39bdbXXXXXXXXXXXXXXXXXXXXXX32dea),

reply_token=bce83ae760d8480f8823d47c0a2ab5b4, timestamp=1732424302131 at /tmp/line-bot.pl line 50.

127.0.0.1 - - [24/Nov/2024:12:58:22 +0800] "POST /perl/callback HTTP/1.1" 200 2 "-" "LineBotWebhook/2.0"

開二個 SSH Session (1) / (2)

(1) 執行 echo.psgi

plackup --host 127.0.0.1 --port 9090 echo.psgi

(2) 執行 ngrok

ngrok config add-authtoken 2pHSXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX1EU7g

ngrok http 9090

================================================

ngrok (Ctrl+C to quit)

Session Status online

Account XXXXXXXXXXX@gmail.com (Plan: Free)

Version 3.18.4

Region Japan (jp)

Latency 39ms

Web Interface http://127.0.0.1:4040

Forwarding https://992c-XXX-XXX-XXX-XXX.ngrok-free.app -> http://localhost:9090

Connections ttl opn rt1 rt5 p50 p90

0 0 0.00 0.00 0.00 0.00

==============================================

將 Forwarding https://992c-XXX-XXX-XXX-XXX.ngrok-free.app 資訊填入 https://developers.line.biz 內.

即可完成使用 Ngrok + Perl 串接 LINE BOT Webhook

Demo

2024年11月23日星期六

Try Ansible & AWX with Oracle Linux 9.5

dnf install oracle-epel-release-el9.x86_64 -y

dnf install ansible.noarch ansible-core.x86_64 -y

dnf install dnf-utils zip unzip git gcc gcc-c++ nodejs gettext device-mapper-persistent-data lvm2 bzip2 python3-pip wget -y

[root@ol95 ansible]# ansible --version

ansible [core 2.14.17]

config file = /etc/ansible/ansible.cfg

configured module search path = ['/root/.ansible/plugins/modules', '/usr/share/ansible/plugins/modules']

ansible python module location = /usr/lib/python3.9/site-packages/ansible

ansible collection location = /root/.ansible/collections:/usr/share/ansible/collections

executable location = /usr/bin/ansible

python version = 3.9.19 (main, Sep 11 2024, 00:00:00) [GCC 11.5.0 20240719 (Red Hat 11.5.0-2.0.1)] (/usr/bin/python3)

jinja version = 3.1.2

libyaml = True

[root@ol95 ansible]#

[root@ol95 ansible]# pwd

/etc/ansible

[root@ol95 ansible]# ll

total 8

-rw-r--r--. 1 root root 614 Oct 26 08:56 ansible.cfg

-rw-r--r--. 1 root root 1175 Oct 26 08:56 hosts

drwxr-xr-x. 2 root root 6 Oct 26 08:56 roles

[root@ol95 ansible]#

Server + Node

useradd devops

su - devops

ssh-keygen -t rsa

cd ~

cd .ssh

cat id_rsa

cat id_rsa.pub

[devops@node1 ~]$ cd .ssh/

[devops@node1 .ssh]$ ll

total 8

-rw------- 1 devops devops 2602 Nov 23 12:09 id_rsa

-rw-r--r-- 1 devops devops 566 Nov 23 12:09 id_rsa.pub

[devops@node1 .ssh]$ vi authorized_keys

[devops@node1 .ssh]$

Server

vi /etc/ansible/ansible.cfg

[defaults]

interpreter_python = auto_silent

vi /etc/ansible/hosts

[node]

node1 ansible_ssh_user=devops ansible_ssh_private_key_file=/home/devops/.ssh/id_rsa ansible_ssh_host=192.168.100.20

test

[root@ol95 installer]# ansible node --list-host

hosts (1):

node1

[root@ol95 installer]#

ansible node1 -m ping

ansible node1 -m shell -a "ip add | grep 192---

vi /etc/ansible/roles/playbook.yml

- hosts: all

become: yes

tasks:

- name: Install system updates for linux systems

yum:

name: '*'

state: latest

update_cache: yes.168.100"

[root@ol95 ansible]# ansible-playbook /etc/ansible/roles/playbook.yml

PLAY [all] *************************************************************************************************************************************************************************************************************

TASK [Gathering Facts] *************************************************************************************************************************************************************************************************

ok: [node1]

TASK [Install system updates for linux systems] ************************************************************************************************************************************************************************

ok: [node1]

PLAY RECAP *************************************************************************************************************************************************************************************************************

node1 : ok=2 changed=0 unreachable=0 failed=0 skipped=0 rescued=0 ignored=0

[root@ol95 ansible]#

===> Ansible CLI Demo End

===========================

===> Ansible WEB UI Start

dnf config-manager --add-repo=https://download.docker.com/linux/centos/docker-ce.repo

dnf remove -y runc

dnf install -y docker-ce --nobest

systemctl enable docker.service

systemctl start docker.service

systemctl status docker.service

docker info

[root@ol95 installer]# pwgen -N 1 -s 40

lRE99RGu6rHwjKW7n3gyFHFCLERXc46EFG7ZKPjR

pip install docker

pip install docker-compose

pip install docker==6.1.3

pip install requests==2.31.0

cd /opt

wget https://github.com/ansible/awx/archive/refs/tags/17.1.0.zip

unzip 17.1.0.zip

cd /opt/awx-17.1.0/installer

[root@ol95 installer]# pwd

/opt/awx-17.1.0/installer

[root@ol95 installer]# ll

total 20

-rw-r--r-- 1 root root 172 Mar 10 2021 build.yml

-rw-r--r-- 1 root root 437 Mar 10 2021 install.yml

-rw-r--r-- 1 root root 518 Nov 23 15:30 inventory

drwxr-xr-x 7 root root 99 Mar 10 2021 roles

[root@ol95 installer]#

vi inventory

================================

localhost ansible_connection=local ansible_python_interpreter="/usr/bin/env python3"

[all:vars]

dockerhub_base=ansible

awx_task_hostname=awx

awx_web_hostname=awxweb

postgres_data_dir="/opt/myawx/pgdocker"

host_port=80

host_port_ssl=443

docker_compose_dir="/opt/myawx/awxcompose"

pg_username=awx

pg_password=awxpass

pg_database=awx

pg_port=5432

admin_user=admin

admin_password=password

create_preload_data=True

secret_key=lRE99RGu6rHwjKW7n3gyFHFCLERXc46EFG7ZKPjR

awx_official=true

project_data_dir=/opt/myawx/projects

====================

ansible-playbook -i inventory install.yml

docker ps

[root@ol95 ~]# docker ps

CONTAINER ID IMAGE COMMAND CREATED STATUS PORTS NAMES

6b8175957a67 ansible/awx:17.1.0 "/usr/bin/tini -- /u…" 4 hours ago Up 2 hours 8052/tcp awx_task

31b242c48f79 ansible/awx:17.1.0 "/usr/bin/tini -- /b…" 4 hours ago Up 2 hours 0.0.0.0:80->8052/tcp, [::]:80->8052/tcp awx_web

2b996f3365cf redis "docker-entrypoint.s…" 4 hours ago Up 2 hours 6379/tcp awx_redis

bf8e0975fa68 postgres:12 "docker-entrypoint.s…" 4 hours ago Up 2 hours 5432/tcp awx_postgres

[root@ol95 ~]#

docker exec -it awx_task bash

useradd awx

usermod -aG wheel awx

docker exec -it awx_web bash

useradd awx

usermod -aG wheel awx

bash-4.4# pwd

/var/lib/awx/projects/update

bash-4.4# ls -la

total 8

drwxr-xr-x 2 awx awx 44 Nov 23 10:29 .

drwxrwxrwx 3 awx awx 20 Nov 23 10:29 ..

-rwxrwxrwx 1 awx awx 172 Nov 23 08:33 playbook.yml

-rwxrwxrwx 1 awx awx 172 Nov 23 09:28 update.yml

bash-4.4#

bash-4.4# exit

exit

[root@ol95 installer]# netstat -antlp | grep LISTEN

tcp 0 0 127.0.0.1:6010 0.0.0.0:* LISTEN 5645/sshd: tony.che

tcp 0 0 127.0.0.1:631 0.0.0.0:* LISTEN 868/cupsd

tcp 0 0 0.0.0.0:80 0.0.0.0:* LISTEN 2335/docker-proxy

tcp 0 0 0.0.0.0:22 0.0.0.0:* LISTEN 869/sshd: /usr/sbin

tcp 0 0 127.0.0.1:4330 0.0.0.0:* LISTEN 2010/pmlogger

tcp 0 0 127.0.0.1:44321 0.0.0.0:* LISTEN 1277/pmcd

tcp6 0 0 ::1:631 :::* LISTEN 868/cupsd

tcp6 0 0 ::1:4330 :::* LISTEN 2010/pmlogger

tcp6 0 0 ::1:6010 :::* LISTEN 5645/sshd: tony.che

tcp6 0 0 :::80 :::* LISTEN 2351/docker-proxy

tcp6 0 0 :::22 :::* LISTEN 869/sshd: /usr/sbin

tcp6 0 0 ::1:44321 :::* LISTEN 1277/pmcd

[root@ol95 installer]#

訂閱：文章 (Atom)

2024年11月30日 星期六

LINE Messaging API / Perl CGI 試作

2024年11月24日 星期日

使用 Ngrok + Perl 串接 LINE BOT Webhook

2024年11月23日 星期六

Try Ansible & AWX with Oracle Linux 9.5

2024年11月30日星期六

2024年11月24日星期日

2024年11月23日星期六