I hereby claim:
- I am gmillerd on github.
- I am gmillerd (https://keybase.io/gmillerd) on keybase.
- I have a public key whose fingerprint is 0516 5C8E D222 56B2 DD7E F3BE A58F A671 7D9A 907E
To claim this, I am signing this object:
| // ==UserScript== | |
| // @name myFB | |
| // @namespace https://gist.github.com/gmillerd | |
| // @version 2025-03-02 | |
| // @description try to take over the world! | |
| // @author gmillerd | |
| // @match https://www.facebook.com | |
| // @icon https://www.google.com/s2/favicons?sz=64&domain=facebook.com | |
| // @require http://code.jquery.com/jquery-latest.js | |
| // @grant none |
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use LWP::Simple; | |
| use JSON; | |
| use Data::Dumper; | |
| my $QBT='https://hostname/api/v2/sync/maindata'; |
| #!/usr/bin/perl | |
| # todo, visit your plex server, get all friends rather than static url/tok | |
| # todo, maybe fixup the name of the file a bit ... it comes like their layout stores it however | |
| use strict; | |
| use warnings; | |
| use Data::Dumper; | |
| use LWP::UserAgent; | |
| use XML::Simple; # apt install libxml-simple-perl |
| # misc variables used in clustering node names | |
| # ip address as a long | |
| default['iplong'] = "#{node['ipaddress'].split('.').inject(0) {|t,v| (t << 8 ) + v.to_i} }" | |
| # 255.255.255.255 - ipaddr as long | |
| default['255min'] = "#{4294967295 - (node['ipaddress'].split('.').inject(0) {|t,v| (t << 8 ) + v.to_i}) }" | |
| # ip last octet | |
| default['oct4'] = "#{node['ipaddress'].split('.')[-1] }" | |
| # 255 - ip last octet | |
| default['255oct4'] = "#{255 - (node['ipaddress'].split('.')[-1].to_i) }" |
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use Data::Dumper; | |
| use XML::Simple; | |
| # | |
| # perl thiscript.pl > tmp.lst | |
| # sort tmp.list master.lst -o master.lst |
| #!/bin/bash | |
| find /logs/ -maxdepth 1 -mindepth 1 -type d -print0 | \ | |
| xargs -0 -r -P4 -n1 -I% find % -maxdepth 1 -mindepth 1 -type d -print0 | \ | |
| xargs -0 -r -P4 -n1 -I% find % -maxdepth 1 -mindepth 1 -type f -name "celog_event.xml" -print0 | |
| # |
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use SOAP::Lite; # visit http://search.cpan.org/dist/SOAP-Lite/ or apt-get install libsoap-lite-perl | |
| my ($user, $pass) = ('gm', 'secret'); | |
| my $host = 'http://127.0.0.1:7878/'; | |
| my $cmd = $ARGV[0]; |
I hereby claim:
To claim this, I am signing this object:
| #!/bin/bash | |
| # put inside your PATH (eg, ~/bin/) and symlink ~/bin/isi, ~/bin/isi_classic, ~/bin/isi_for_array to it | |
| #set -x | |
| if [[ -z "$ISICLUSTER" ]]; then | |
| export ISICLUSTER=10.1.1.80 | |
| fi |
| # | |
| dpkg --remove-architecture i386 | |
| # | |
| aptitude | |
| debfoster | |
| # | |
| screen rsync curl | |
| # | |
| emacs-nox | |
| # |