Return to modcon CVS log

Up to [Coherent Logic Development] / ChivanetModcon

Annotation of ChivanetModcon/modcon, revision 1.1

1.1     ! snw         1: #!/usr/bin/env perl
        !             2: 
        !             3: #
        !             4: # ChivaNet Moderator Console
        !             5: #  Copyright (C) 2025 Coherent Logic Development LLC
        !             6: #
        !             7: # $Id$
        !             8: #
        !             9: # Author: Serena Willis <snw@coherent-logic.com>
        !            10: #
        !            11: # Licensed AGPL-3.0
        !            12: #
        !            13: # $Log$
        !            14: #
        !            15: 
        !            16: use REST::Client;
        !            17: use JSON;
        !            18: use Getopt::Long;
        !            19: use Data::Dumper;
        !            20: use Term::ReadKey;
        !            21: 
        !            22: my $rasurl = '';
        !            23: my $apikey = '';
        !            24: my $online = 0;
        !            25: my $modcon_version = '0.0.1';
        !            26: my $cnclient = '';
        !            27: my $rasclient = '';
        !            28: 
        !            29: my $wchar = '';
        !            30: my $hchar = '';
        !            31: my $wpixels = '';
        !            32: my $hpixels = '';
        !            33: 
        !            34: sub list_sso_users {
        !            35:     $cnclient->GET("/chivanet/users");
        !            36:     my $ct = 0;
        !            37:     
        !            38:     my $json = $cnclient->responseContent();
        !            39:     my $hashref = decode_json($json);
        !            40: 
        !            41:     if($hashref->{ok} == 1) {
        !            42:         my $arrayref = $hashref->{users};
        !            43:         my @users = sort(@{$arrayref});
        !            44:         
        !            45:         foreach my $user (@users) {
        !            46:             print "$user\n";
        !            47:             $ct = $ct + 1;
        !            48: 
        !            49:             if($ct > $hchar - 2) {
        !            50:                 print "ENTER to continue, Q to quit...";
        !            51:                 my $resp = <STDIN>;
        !            52:                 chomp($resp);
        !            53:                 if($resp eq "Q") {
        !            54:                     return;
        !            55:                 }
        !            56:                 elsif($resp eq "q") {
        !            57:                     return;
        !            58:                 }
        !            59:                 $ct = 0;
        !            60:             }
        !            61:         }
        !            62:     }
        !            63:     else {
        !            64:         print "RPC error\n";
        !            65:     }
        !            66: }
        !            67: 
        !            68: sub list_ras_users {
        !            69: 
        !            70: }
        !            71: 
        !            72: sub prompt {
        !            73:     
        !            74:     my $rawcmd = '';
        !            75:     my $mode = 'SSO';
        !            76:     my $user = '---';
        !            77: 
        !            78:     while (1) {
        !            79:         print "MODCON [$mode/$user]> ";
        !            80:         my $line = <STDIN>;
        !            81:         chomp($line);
        !            82:         $rawcmd = $line;
        !            83:         
        !            84:         my @cmd = split(' ', $rawcmd);
        !            85:         
        !            86:         if ($cmd[0] eq "quit") {
        !            87:             return;
        !            88:         }
        !            89:         elsif ($cmd[0] eq "mode") {
        !            90:             if($cmd[1] eq "SSO") {
        !            91:                 $mode = "SSO";
        !            92:                 $user = "---";
        !            93:             }
        !            94:             elsif ($cmd[1] eq "RAS") {
        !            95:                 $mode = "RAS";
        !            96:                 $user = "---";
        !            97:             }
        !            98:             else {
        !            99:                 print "?\n";
        !           100:             }
        !           101:         }
        !           102:         elsif ($cmd[0] eq "list") {
        !           103:             if($cmd[1] eq "users") {
        !           104:                 if($mode eq "SSO") {
        !           105:                     list_sso_users();
        !           106:                 }
        !           107:                 elsif($mode eq "RAS") {
        !           108:                     list_ras_users();
        !           109:                 }
        !           110:             }
        !           111:             else {
        !           112:                 print "?\n";
        !           113:             }
        !           114:         }
        !           115:         else {
        !           116:             print "?\n"
        !           117:         }
        !           118:     }
        !           119: 
        !           120: }
        !           121: 
        !           122: sub main {  
        !           123:     GetOptions("rasurl=s" => \$rasurl,               
        !           124:                "apikey=s" => \$apikey)
        !           125:         or die("error in command line arguments");
        !           126: 
        !           127:     ($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize();
        !           128:     
        !           129:     $cnclient = REST::Client->new({
        !           130:         host => 'https://chivanet.org/rest/api',
        !           131:         timeout => 10});
        !           132: 
        !           133:     $cnclient->addHeader('Authorization', "Apikey $apikey");
        !           134: 
        !           135:     $rasclient = REST::Client->new({
        !           136:         host => $rasurl,
        !           137:         timeout => 10});    
        !           138:     
        !           139:     print "ChivaNet MODCON $modcon_version\n";
        !           140:     print " Copyright (C) 2025 Coherent Logic Development LLC\n\n";
        !           141:     
        !           142:     prompt();
        !           143:     print "Goodbye.\n"
        !           144: }
        !           145: 
        !           146: main();