Skip to content

Instantly share code, notes, and snippets.

View tinbotu's full-sized avatar

Akira KUMAGAI tinbotu

View GitHub Profile
@tinbotu
tinbotu / mydns.jp.pl
Created July 17, 2011 12:53
mydns.jp registration script
#!/usr/bin/perl
#
# for mydns.jp
use strict;
use Net::POP3;
my $username="mydnsnnnn";
my $password="xxxxxxxx";
@tinbotu
tinbotu / remotelogger.pl
Created July 17, 2011 13:41
send syslog
#!/usr/bin/perl
# 2003/01
my $FACILITY='daemon';
my $PRIORITY='info';
use Net::Syslog;
if($ARGV[0] eq '' || $ARGV[1] eq ''){
print STDERR "usage: remotelogger.pl HOST message\n";
@tinbotu
tinbotu / gist:1119751
Created August 2, 2011 07:27
FON2201 + dd-wrt 08/07/10 (SVN revision: 14896) linux 2.6.24.111
root@maltinerapcompi:~# ifconfig -a
ath0 Link encap:Ethernet HWaddr 00:18:xx:xx:xx:35
UP BROADCAST RUNNING MULTICAST MTU:1500 Metric:1
RX packets:0 errors:0 dropped:0 overruns:0 frame:0
TX packets:483 errors:0 dropped:0 overruns:0 carrier:0
collisions:0 txqueuelen:0
RX bytes:0 (0.0 B) TX bytes:82624 (80.6 KiB)
br0 Link encap:Ethernet HWaddr 00:18:xx:xx:xx:34
inet addr:192.168.20.182 Bcast:192.168.20.255 Mask:255.255.255.0
@tinbotu
tinbotu / wlassoclistcount.sh
Created August 12, 2011 08:44
wlassoclistcount.sh
#!/bin/sh
/usr/sbin/wl_atheros assoclist | wc -l
@tinbotu
tinbotu / gist:1141719
Created August 12, 2011 08:47
counting wireless node clients w/dd-wrt
stingray:~$ snmpwalk -Cc -c tomad 192.168.20.181 1.3.6.1.4.1.2021.8.1
UCD-SNMP-MIB::extIndex.1 = INTEGER: 1
UCD-SNMP-MIB::extNames.1 = STRING: apClientsCount
UCD-SNMP-MIB::extCommand.1 = STRING: /jffs/wlassoclistcount
UCD-SNMP-MIB::extResult.1 = INTEGER: 0
UCD-SNMP-MIB::extOutput.1 = STRING: 2
UCD-SNMP-MIB::extErrFix.1 = INTEGER: noError(0)
UCD-SNMP-MIB::extErrFixCmd.1 = STRING:
stingray:~$ snmpwalk -c tomad 192.168.20.181 1.3.6.1.4.1.2021.8.1.101.1
@tinbotu
tinbotu / dhcpd.conf
Created August 15, 2011 06:41
dhcpd.conf generated by vyatta
# generated by /opt/vyatta/sbin/dhcpd-config.pl
ddns-update-style none;
# The following 2 lines were added as global-parameters in the CLI and have not been validated
default-lease-time 300;
option domain-name-servers 8.8.8.8;
shared-network LOCAL02 {
authoritative;
subnet 10.10.12.0 netmask 255.255.255.0 {
shared-network LOCAL09 {
authoritative;
subnet 10.10.19.0 netmask 255.255.255.0 {
# The following 1 lines were added as subnet-parameters in the CLI and have not been validated
default-lease-time 300;
option routers 10.10.19.254;
default-lease-time 1200;
max-lease-time 1200;
range 10.10.19.16 10.10.19.160;
}
--- orig/dhcpd-config.pl 2011-08-15 16:00:18.000000000 +0900
+++ dhcpd-config.pl 2011-08-15 16:01:30.000000000 +0900
@@ -447,8 +447,8 @@
my $lease =
$vcDHCP->returnValue("$name subnet $subnet lease");
if ( $lease ne '' ) {
- $genout .= "\t\tdefault-lease-time $lease;\n";
- $genout .= "\t\tmax-lease-time $lease;\n";
+# $genout .= "\t\tdefault-lease-time $lease;\n";
+# $genout .= "\t\tmax-lease-time $lease;\n";
@tinbotu
tinbotu / gist:1157319
Created August 19, 2011 16:52
IO DATA Airport WN-WAPG/A
stingray:~$ snmpwalk -v1 -c private 192.168.20.135
SNMPv2-MIB::sysDescr.0 = STRING: Access Point
SNMPv2-MIB::sysObjectID.0 = Wrong Type (should be OBJECT IDENTIFIER): STRING: "enterprises.15756.7.1"
DISMAN-EVENT-MIB::sysUpTimeInstance = Timeticks: (52298) 0:08:42.98
SNMPv2-MIB::sysContact.0 = STRING: Input Contact Person
SNMPv2-MIB::sysName.0 = STRING: WN-WAPG_A
SNMPv2-MIB::sysLocation.0 = STRING: Input System Location
SNMPv2-MIB::sysORLastChange.0 = Timeticks: (1) 0:00:00.01
SNMPv2-MIB::sysORID.1 = OID: IF-MIB::ifMIB
SNMPv2-MIB::sysORID.2 = OID: SNMPv2-MIB::snmpMIB
@tinbotu
tinbotu / gist:1158509
Created August 20, 2011 02:14
IO DATA Airport WN-WAPG/A .
stingray:~$ snmpwalk -v1 -c public 192.168.20.135 .
iso.2.840.10036.3.1.1.0 = STRING: "RTID"
SNMPv2-MIB::sysDescr.0 = STRING: Access Point
SNMPv2-MIB::sysObjectID.0 = Wrong Type (should be OBJECT IDENTIFIER): STRING: "enterprises.15756.7.1"
DISMAN-EVENT-MIB::sysUpTimeInstance = Timeticks: (20944) 0:03:29.44
SNMPv2-MIB::sysContact.0 = STRING: Input Contact Person
SNMPv2-MIB::sysName.0 = STRING: WN-WAPG_A
SNMPv2-MIB::sysLocation.0 = STRING: tinbotu
SNMPv2-MIB::sysORLastChange.0 = Timeticks: (1) 0:00:00.01
SNMPv2-MIB::sysORID.1 = OID: IF-MIB::ifMIB