![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to modcon CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / ChivanetModcon|
Return to modcon CVS log | Up to [Coherent Logic Development] / ChivanetModcon |
1.1 snw 1: #!/usr/bin/env perl
2:
3: #
4: # ChivaNet Moderator Console
5: # Copyright (C) 2025 Coherent Logic Development LLC
6: #
1.4 ! snw 7: # $Id: modcon,v 1.3 2025/01/31 15:39:06 snw Exp $
1.1 snw 8: #
9: # Author: Serena Willis <snw@coherent-logic.com>
10: #
11: # Licensed AGPL-3.0
12: #
1.2 snw 13: # $Log: modcon,v $
1.4 ! snw 14: # Revision 1.3 2025/01/31 15:39:06 snw
! 15: # Minor fixes
! 16: #
1.3 snw 17: # Revision 1.2 2025/01/31 13:38:51 snw
18: # Initial basic functions working
19: #
1.2 snw 20: # Revision 1.1.1.1 2025/01/30 19:16:06 snw
21: # Initial commit
22: #
1.1 snw 23: #
24:
25: use REST::Client;
26: use JSON;
27: use Data::Dumper;
28: use Term::ReadKey;
1.4 ! snw 29: use Getopt::Long;
1.1 snw 30:
1.4 ! snw 31: my $sso_account = '';
1.1 snw 32: my $apikey = '';
33: my $online = 0;
34: my $modcon_version = '0.0.1';
35: my $cnclient = '';
36: my $wchar = '';
37: my $hchar = '';
38: my $wpixels = '';
39: my $hpixels = '';
1.2 snw 40: my $account = '';
1.4 ! snw 41: my $mode = '---';
! 42: my $user = '---';
! 43: $site = '';
! 44:
! 45: sub list_directories {
! 46: return ('sso', 'ras');
! 47: }
1.2 snw 48:
1.1 snw 49: sub list_sso_users {
1.4 ! snw 50: $cnclient->GET("/chivanet/users");
1.1 snw 51: my $json = $cnclient->responseContent();
52: my $hashref = decode_json($json);
53:
54: if($hashref->{ok} == 1) {
55: my $arrayref = $hashref->{users};
1.4 ! snw 56: my @users = @{$arrayref};
! 57:
! 58: return @users;
1.1 snw 59: }
60: else {
61: print "RPC error\n";
1.4 ! snw 62: return ();
1.1 snw 63: }
64: }
65:
66:
1.2 snw 67: sub select_sso_user {
68: my($id) = @_;
69:
70: $cnclient->GET("/chivanet/validate_user?id=$id");
71: my $json = $cnclient->responseContent();
72: my $hashref = decode_json($json);
73:
74: if($hashref->{exists} == 1) {
75:
76: $cnclient->GET("/chivanet/user?id=$id");
77: my $json = $cnclient->responseContent();
78: $account = decode_json($json);
1.4 ! snw 79:
1.2 snw 80: return $id;
81: }
82: else {
83: return "---";
1.3 snw 84: }
1.2 snw 85: }
86:
87: sub select_ras_user {
88: my($id) = @_;
89:
90: $cnclient->GET("/chivanet/validate_sn?id=$id");
91: my $json = $cnclient->responseContent();
92: my $hashref = decode_json($json);
93:
94: if($hashref->{exists} == 1) {
95: return $id;
96: }
97: else {
98: return "---";
99: }
100: }
101:
102: sub trace_ras_sn {
103: my($user) = @_;
104:
105: $cnclient->GET("/chivanet/trace_sn?id=$user");
106: my $json = $cnclient->responseContent();
107: my $hashref = decode_json($json);
108: my $record = $hashref->{account};
109: my $result = $record->{id};
110:
111: print "RAS screen name $user belongs to SSO account $result; switching to SSO mode\n";
1.3 snw 112: return $result;
1.2 snw 113: }
114:
115: sub list_ras_sessions {
116: $cnclient->GET("/chivanet/ras_sessions");
117: my $json = $cnclient->responseContent();
118: my $hashref = decode_json($json);
119: my $sessions = $hashref->{sessions};
120: my $arrayref = $sessions->{sessions};
121: my $ct = 0;
122:
123: foreach my $session (@{$arrayref}) {
124: print "$session->{screen_name}\n";
125:
126: $ct = $ct + 1;
127:
128: if($ct > $hchar - 2) {
129: print "ENTER to continue, Q to quit...";
130: my $resp = <STDIN>;
131: chomp($resp);
132: if($resp eq "Q") {
133: return;
134: }
135: elsif($resp eq "q") {
136: return;
137: }
138: $ct = 0;
139: }
140: }
141:
1.3 snw 142: print "$sessions->{count} current sessions\n";
1.2 snw 143: }
144:
145: sub list_ras_screennames {
146: my($id) = @_;
147:
148: $cnclient->GET("/chivanet/ras_screen_names?id=$id");
149: my $json = $cnclient->responseContent();
150: my $hashref = decode_json($json);
151: my $arrayref = $hashref->{screen_names};
152:
1.4 ! snw 153: return @{$arrayref};
! 154: }
1.2 snw 155:
1.4 ! snw 156: sub list_ras_users {
1.3 snw 157:
1.4 ! snw 158: return ();
! 159:
1.2 snw 160: }
161:
162: sub print_sso_user {
163: my $act = $account->{account};
164:
165: print "\n";
166: print "Username : $act->{id}\n";
167: print "Real Name : $act->{last_name}, $act->{first_name}\n";
168: print "Display Name : $act->{display_name}\n";
169: print "Pronouns : $act->{pronouns}\n";
170: print "Profile Image : https://chivanet.org$act->{profile_photo}\n";
171: print "E-Mail Address : $act->{email}\n";
172: print "Permission Level : $act->{perm_level}\n";
173: print "Created : $act->{create_ts}\n";
174: print "Banned : $act->{mod_banned}\n\n";
175: }
176:
177: sub print_ras_user {
178: my($id) = @_;
179:
180: $cnclient->GET("/chivanet/sn_status?id=$id");
181: my $json = $cnclient->responseContent();
182: my $hashref = decode_json($json);
183: my $status = $hashref->{status};
184: my $online = "offline";
185:
186: if($status->{online} == 1) {
187: $online = "online";
188: }
189:
190: print "\n";
191:
192:
193: if($online eq "online") {
194: my $sess = $status->{session};
195: my $service = 'AIM';
196:
197: if($sess->{is_icq} == 1) {
198: $service = 'ICQ';
199: }
200:
201: if($sess->{idle_seconds} > 0) {
202: $online = "idle";
203: }
204:
205: print "Screen Name : $id [$online]\n";
206: print "Service : $service\n";
207: if($online eq "online") {
208: print "Time Online (secs): $sess->{online_seconds}\n";
209: }
210: else {
211: print "Time Idle (secs) : $sess->{idle_seconds}\n";
212: }
213: print "Away Message : $sess->{away_message}\n\n";
214: }
215: else {
216: print "Screen Name : $id [$online]\n\n";
217: }
218:
219: # print Dumper($status);
220:
221: }
222:
223: sub send_im {
224: my($user, $msgbody) = @_;
225:
226: print "sending message \"$msgbody\" to $user...";
227:
228: my $msg = "<font color=red><strong>[ChivaNet Support]:</strong></font> $msgbody";
229:
230: $cnclient->GET("/chivanet/send_im?from=ChivaNet&to=$user&message=$msg");
231: my $json = $cnclient->responseContent();
232: my $hashref = decode_json($json);
233:
234: if($hashref->{status} == 1) {
235: print "[OK]\n";
236: }
237: else {
238: print "[FAIL]\n";
239: }
240: }
241:
1.1 snw 242: sub prompt {
243:
244: my $rawcmd = '';
1.4 ! snw 245: my $pmode = $mode;
! 246: my @path = ();
! 247:
1.1 snw 248: while (1) {
1.4 ! snw 249: $pmode = lc $mode;
! 250: my $prompt = '';
! 251: if($pmode ne "---") {
! 252: if($user eq '---') {
! 253: $prompt = "$sso_account\@$site:[/$pmode]\$ ";
! 254: }
! 255: else {
! 256: $prompt = "$sso_account\@$site:[/$pmode/$user]\$ ";
! 257: }
! 258: }
! 259: else {
! 260: $prompt = "$sso_account\@$site:[/]\$ ";
! 261: }
! 262: print $prompt;
1.1 snw 263: my $line = <STDIN>;
264: chomp($line);
265: $rawcmd = $line;
266:
267: my @cmd = split(' ', $rawcmd);
268:
1.4 ! snw 269: if ($cmd[0] eq "exit" || $cmd[0] eq "logout" || $cmd[0] eq "quit" || $cmd[0] eq "bye") {
1.1 snw 270: return;
271: }
1.4 ! snw 272: elsif ($cmd[0] eq "pwd") {
! 273: my $pstr = join('/', @path);
! 274: print "/$pstr\n";
! 275: }
! 276: elsif ($cmd[0] eq "cd") {
! 277: my $abspath = false;
! 278:
! 279: if($cmd[1] eq "..") {
! 280: if(@path) {
! 281: if($#path == 1) {
! 282: $user = "---";
! 283: @path = ($pmode);
! 284: }
! 285: elsif($#path == 0) {
! 286: $mode = "---";
! 287: @path = ();
! 288: }
! 289: }
! 290: else {
! 291: print "already in root directory\n";
! 292: }
1.2 snw 293: }
294: else {
1.4 ! snw 295: my @oldpath = @path;
! 296: @path = split('/', $cmd[1]);
! 297:
! 298: if(substr($cmd[1], 0, 1) eq '/') {
! 299: $abspath = true;
! 300: shift @path;
! 301: }
! 302:
! 303: if($abspath eq true || !@oldpath) {
! 304: if($#path == 0) {
! 305: # mode, no user
! 306: if($path[0] eq "sso") {
! 307: $mode = "SSO";
! 308: $user = "---";
! 309: @path = ('sso');
! 310: }
! 311: elsif($path[0] eq "ras") {
! 312: $mode = "RAS";
! 313: $user = "---";
! 314: @path = ('ras');
! 315: }
! 316: else {
! 317: print "$path[0]: no such directory exists\n";
! 318: @path = @oldpath;
! 319: }
! 320: }
! 321: elsif($#path == 1) {
! 322: # mode and user
! 323: if($path[0] eq "sso") {
! 324: $user = select_sso_user($path[1]);
! 325: if($user eq "---") {
! 326: print "$path[1]: no such file exists in $pmode\n";
! 327: @path = @oldpath;
! 328: }
! 329: else {
! 330: $mode = "SSO";
! 331: @path = ('sso', $user);
! 332: }
! 333: }
! 334: elsif($path[0] eq "ras") {
! 335: $user = select_ras_user($path[1]);
! 336: if($user eq "---") {
! 337: print "$path[1]: no such file exists in $pmode\n";
! 338: @path = @oldpath;
! 339: }
! 340: else {
! 341: $mode = "RAS";
! 342: @path = ('ras', $user);
! 343: }
! 344: }
! 345: else {
! 346: print "$path[0]: no such directory exists\n";
! 347: @path = @oldpath;
! 348: }
! 349: }
! 350: else {
! 351: if($cmd[1] eq '/') {
! 352: $mode = '---';
! 353: $user = '---';
! 354: @path = ();
! 355: }
! 356: else {
! 357: print "cd: invalid path specification\n";
! 358: @path = @oldpath;
! 359: }
! 360: }
1.2 snw 361: }
362: else {
1.4 ! snw 363: if($#oldpath == 1) {
! 364: print "invalid path specification\n";
! 365: @path = @oldpath;
! 366: }
! 367: else {
! 368: if($#path == 0) {
! 369: if($pmode eq "sso") {
! 370: $user = select_sso_user($path[0]);
! 371: if($user eq "---") {
! 372: print "$path[0]: no such file exists in $pmode\n";
! 373: @path = @oldpath;
! 374: }
! 375: else {
! 376: $mode = "SSO";
! 377: @path = ('sso', $user);
! 378: }
! 379: }
! 380: elsif($pmode eq "ras") {
! 381: $user = select_ras_user($path[0]);
! 382: if($user eq "---") {
! 383: print "$path[0]: no such file exists in $pmode\n";
! 384: @path = @oldpath;
! 385: }
! 386: else {
! 387: $mode = "SSO";
! 388: @path = ('sso', $user);
! 389: }
! 390: }
! 391: else {
! 392: print "$path[0]: no such directory exists\n";
! 393: @path = @oldpath;
! 394: }
! 395: }
! 396: else {
! 397: print "invalid path specification\n";
! 398: @path = @oldpath;
! 399: }
! 400: }
! 401: }
! 402: } # if ..
! 403:
1.2 snw 404: }
405: elsif ($cmd[0] eq "im") {
406: if($mode eq "RAS") {
407: if($user ne "---") {
408: my @msga = @cmd[1..$#cmd];
409: my $msgbody = join(' ', @msga);
410: send_im($user, $msgbody);
411: }
412: else {
1.4 ! snw 413: print "im: no user selected\n";
1.2 snw 414: }
415: }
416: else {
1.4 ! snw 417: print "im: invalid command outside of ras directory\n";
1.2 snw 418: }
419: }
420: elsif ($cmd[0] eq "trace") {
421: if($mode eq "RAS") {
422: if($user ne "---") {
423: my $id = trace_ras_sn($user);
424: $mode = "SSO";
425: $user = select_sso_user($id);
426: print_sso_user;
427: }
428: else {
1.4 ! snw 429: print "trace: no user select\n";
1.2 snw 430: }
431: }
432: else {
1.4 ! snw 433: print "trace: invalid command outside of ras directory\n";
1.2 snw 434: }
435: }
436: elsif ($cmd[0] eq "field") {
1.4 ! snw 437: if($mode eq "SSO") {
! 438: if($user ne "---") {
! 439: my $act = $account->{account};
! 440: print "$user\-\>$cmd[1]: $act->{$cmd[1]}\n";
! 441: }
! 442: else {
! 443: print "field: no user selected\n";
! 444: }
1.2 snw 445: }
446: else {
1.4 ! snw 447: print "field: command invalid outside of ras directory\n";
1.2 snw 448: }
449: }
1.4 ! snw 450: elsif ($cmd[0] eq "ls") {
! 451: my @entries = ();
! 452:
! 453: if($mode eq "---") {
! 454: @entries = list_directories();
1.1 snw 455: }
456: else {
1.4 ! snw 457: if($user ne "---") {
! 458: if($mode eq "SSO") {
! 459: print_sso_user;
! 460: }
! 461: elsif($mode eq "RAS") {
! 462: print_ras_user($user);
! 463: }
1.2 snw 464: }
465: else {
1.4 ! snw 466: if($mode eq "SSO") {
! 467: @entries = list_sso_users();
1.2 snw 468: }
469: else {
1.4 ! snw 470: @entries = list_ras_users();
1.2 snw 471: }
472: }
1.4 ! snw 473: }
! 474:
! 475: if(@entries) {
! 476: my $col = 0;
! 477: my $pstr = join('/', @path);
! 478: my $pfin = "/$pstr";
! 479: my @sorted = sort(@entries);
! 480: my $maxlen = 0;
! 481: foreach my $entry (@sorted) {
! 482: my $len = length($entry);
! 483: if ($len > $maxlen) {
! 484: $maxlen = $len;
! 485: }
1.2 snw 486: }
1.4 ! snw 487: $maxlen = $maxlen + 2;
! 488: my $ct = $#sorted + 1;
! 489: foreach my $entry (@sorted) {
! 490: if($col + $maxlen >= $wchar) {
! 491: print "\n";
! 492: $col = 0;
! 493: }
! 494: else {
! 495: printf("%-$maxlen\s", $entry);
! 496: $col = $col + $maxlen;
! 497: }
! 498: }
! 499: print "\n\t$ct items in $pfin\n";
1.2 snw 500: }
1.4 ! snw 501:
1.1 snw 502: }
503: else {
1.4 ! snw 504: print "$cmd[0]: command not found\n";
1.1 snw 505: }
506: }
507:
508: }
509:
510: sub main {
1.4 ! snw 511: ($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize();
1.1 snw 512:
1.4 ! snw 513: GetOptions("site=s" => \$site) or die "error in command line arguments";
! 514:
! 515: if($site eq "") {
! 516: print "modcon: must supply -site command-line argument\n";
! 517: return;
! 518: }
1.1 snw 519:
520: $cnclient = REST::Client->new({
1.4 ! snw 521: host => "https://$site/rest/api",
1.1 snw 522: timeout => 10});
523:
524: print "ChivaNet MODCON $modcon_version\n";
525: print " Copyright (C) 2025 Coherent Logic Development LLC\n\n";
1.4 ! snw 526:
! 527: print "username: ";
! 528: $sso_account = <STDIN>;
! 529: chomp($sso_account);
! 530:
! 531: print "password: ";
! 532: ReadMode('noecho');
! 533: my $password = <STDIN>;
! 534: chomp($password);
! 535: ReadMode('normal');
! 536:
! 537:
! 538: my $params = $cnclient->buildQuery([username => $sso_account, password => $password]);
! 539: my $result = $cnclient->POST("/chivanet/modcon_auth", substr($params, 1), {'Content-type' => 'application/x-www-form-urlencoded'});
! 540: my $http_response = $result->{_res};
! 541: my $json = $http_response->{_content};
! 542: my $apiresult = decode_json($json);
1.1 snw 543:
1.4 ! snw 544: if($apiresult->{ok} == 1) {
! 545: $cnclient->addHeader('Authorization', "Apikey $apiresult->{token}");
! 546:
! 547: select_sso_user $sso_account;
! 548: my $act = $account->{account};
! 549:
! 550: print "\n\nWelcome to MODCON, $act->{display_name}!\n\n";
! 551:
! 552: prompt();
! 553: }
! 554: else {
! 555: print "\nerror: $apiresult->{error}\n";
! 556: return;
! 557: }
! 558:
1.1 snw 559: print "Goodbye.\n"
560: }
561:
562: main();