これは、Ubuntu Online、Fedora Online、Windows オンライン エミュレータ、MAC OS オンライン エミュレータなどの複数の無料オンライン ワークステーションの XNUMX つを使用して、OnWorks の無料ホスティング プロバイダで実行できるコマンド jabber-querybotp です。
プログラム：
NAME
jabber-querybot - モジュール式 Perl Jabber ボット
DESCRIPTION
jabber-querybot は、jabber アカウントに接続し、メッセージを待ちます。 メッセージが入ってきたら、
それをセルフプログラムモジュールに転送します。 モジュールの戻り文字列、jabber-
querybot はそれを Jabber 送信者に送り返します。
再利用可能であり、次のことを行う小さな Jabber ボットを簡単に作成できるように設計されています。
それをうまくやってください。 多くの例と経験を備えたシンプルなコンセプトは、
実装されました。
1. Jabber サーバー上に Jabber アカウントを作成します。
2. ボット アプリケーションを作成します。
CDの例
cp Querymodule.pm /etc/jabber-querybot/Mybot.pm
cd /etc/jabber-querybot
ln -s Mybot.pm Querymodule.pm
jabber-bot-account のログイン パラメータを変更する
vim Mybot.pm
$hostname = "swissjabber.ch";
$user = "";
私たちの $password = "";
$ident = "テストボット";
$bot_admin = "\@swissjabber.ch";
$port = "5222";
$timeout = "5";
$service_name = "$user\@$hostname";
$bot_description = "ボット ヘルプのタイトル
ボットの説明";
各 Jabber メッセージに対して、jabber-querybot は、次のように記述できる sub run_query を実行します。
ここにあなたのアプリケーションがあります。
ジャバーの応答をどのようにするかを制御できます。
· error = エラー メッセージ スタンザ
· プレゼンス = プレゼンススタンザとしてのエラー
·ignore = メッセージを無視する
OPTIONS
jabber-querybot には、必要に応じて簡単に変更できる変数が多数あります。
クエリステータス
$クエリステータス = [ 0 | 1]
· 0 = ボットは受信ジャバー メッセージを処理しません。
· 1 = ボットは受信メッセージを続行します。
ペナルティ_ステータス
ボットのワークロードが多すぎる場合、ペナルティ ステータスになり、ボットが完了するまでしばらく待ちます。
ステータスが通常に戻ります。
$timer_reconnect_default = 21600
21600 秒 (6 時間) ごとにボットは自動的にシャットダウンし、10 秒待ってから
再び起動します。
$timer_auto_query = 0
モジュールでこの変数を 60 に設定すると、ボットは 60 秒ごとに
function run_auto_query() これはさまざまな用途に使用できます。
エントルピー 負荷
システム負荷が 6 以上の場合、このボットは Jabber 接続をシャットダウンし、すべての接続をチェックします。
システムのロードには 10 秒かかります。 負荷 <=2 の場合、ボットは最初からやり直します。
例
/usr/share/doc/jabber-querybot/examples/Testbot.pm
onworks.net サービスを使用してオンラインで jabber-querybotp を使用する
