dynax60

# ps -ylC httpd --sort:rss
S   UID   PID  PPID  C PRI  NI   RSS    SZ WCHAN  TTY          TIME CMD
S    48 12279  1432  0  80   0  5076  4071 -      ?        00:00:00 httpd
S    48 11996  1432  0  80   0  5096  4074 -      ?        00:00:00 httpd
S    48 11998  1432  0  80   0  5116  4074 -      ?        00:00:00 httpd
S    48 11999  1432  0  80   0  5116  4074 -      ?        00:00:00 httpd
S    48 10235  1432  0  80   0  5124  4074 -      ?        00:00:00 httpd
S    48  7275  1432  0  80   0  5136  4074 -      ?        00:00:00 httpd
S    48  7353  1432  0  80   0  5136  4071 -      ?        00:00:00 httpd
S    48  8730  1432  0  80   0  5148  4074 -      ?        00:00:00 httpd

dynax60

SNMP table: ifTable

 index ifIndex               ifDescr          ifType ifMtu    ifSpeed        ifPhysAddress ifAdminStatus ifOperStatus   ifLastChange ifInOctets
     1       1               "Vlan1"              53  1500 1000000000 "00 21 1C 8F 57 C0 "            up           up  33:3:51:19.32  170764860
     5       5               "Vlan5"              53  1500 1000000000 "00 21 1C 8F 57 C1 "            up           up  33:3:51:19.32  647560393
     6       6               "Vlan6"              53  1500 1000000000 "00 21 1C 8F 57 C2 "            up           up   0:0:01:17.45 1047530953
     7       7               "Vlan7"              53  1500 1000000000 "00 21 1C 8F 57 C3 "            up           up  33:3:51:19.32  482233936
  5023    5023      "Port-channel23"              53  1500 2000000000 "00 21 1C 8F 57 97 "            up           up  33:3:51:21.28 1377784949
 10101   10101  "GigabitEthernet0/1" ethernet-csmacd  1500   10000000 "00 21 1C 8F 57 81 "            up         down   0:0:01:09.94       

dynax60

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

our $m;

run($_) for @{[
        [ '/mnt/fs_admin/BACKUP/masterhost/u11111/backup_u11111', 'domain\.ru' ],
        [ '/mnt/fs_admin/BACKUP/masterhost/u11111/backup_u11111/mysql', 'u11111\_domain\_'],
]};

dynax60

#!/usr/bin/perl -w

use strict;
use Asterisk::AGI;

my $a = new Asterisk::AGI;
$a->answer();
$a->verbose($a->get_variable('fuflo'));
$a->stream_file('goodbye');
$a->hangup();

dynax60

#!/usr/bin/env perl

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/lib";
use lib "$FindBin::Bin/lib/mojo/lib";

use Mojolicious::Lite;

dynax60

# snmptranslate -Ib prtParamStatus         
RAD-MIB::prtParamStatus
# snmptranslate -On -Td -Ib 'prtParamStatus'  
.1.3.6.1.4.1.164.6.2.15.5.1.1.16
prtParamStatus OBJECT-TYPE
  -- FROM       RAD-MIB
  SYNTAX        INTEGER {notApplicable(1), up(2), signalLoss(3), syncLoss(4)} 
  MAX-ACCESS    read-only
  STATUS        current
  DESCRIPTION   "Station clock source Status."

dynax60

#!/usr/bin/perl -w

use strict;
use Asterisk::AGI;

use FindBin;
use lib "$FindBin::Bin/lib/mojo/lib";
use Mojo::UserAgent;
use Mojo::JSON;

dynax60

null@ubuntu:~$ cu -l ttyUSB0
Connected.
AT
OK
AT^MONP
chann rs  dBm MCC MNC BCC  C1  C2
  81  41  -69 250  01   1  34  34
   6  35  -75 250  01   1  28  28
   9  33  -77 250  01   1  26  26
  14  32  -78 250  01   6  25  25

dynax60

ABORT "BUSY"
ABORT "NO ANSWER"
ABORT "NO CARRIER"
ABORT "ERROR"
TIMEOUT 5
"" ATZ
OK AT+CGDCONT=1,"IP","internet.nw"
OK ATD*99***1#
CONNECT

dynax60

/dev/ttyUSB0
57600
defaultroute
replacedefaultroute
crtscts
usepeerdns
noipdefault
lock
connect '/usr/sbin/chat -v -f /etc/chatscripts/megafon.chat'
ipcp-accept-local