Skip to content

Instantly share code, notes, and snippets.

View preaction's full-sized avatar

Doug Bell preaction

87 followers · 31 following
View GitHub Profile
@preaction
preaction / proxy.list
Created October 11, 2017 20:18
Fastly proxy list
23.235.32.0/20
43.249.72.0/22
103.244.50.0/24
103.245.222.0/23
103.245.224.0/24
104.156.80.0/20
151.101.0.0/16
157.52.64.0/18
172.111.64.0/18
185.31.16.0/22
@preaction
preaction / gist:d8b09d8e6db7d89e37397336127e6eb7
Created September 14, 2017 01:46
# Standard curl user agent string
$ curl http://snowcatman.0fees.us/images/left01.gif
<html>
<head><title>403 Forbidden</title></head>
<body bgcolor="white">
<center><h1>403 Forbidden</h1></center>
<hr><center>nginx</center>
</body>
</html>
# User agent string from my Safari
@preaction
preaction / gist:667c815d8819157eef3a6b9945d296c4
Created September 9, 2017 05:20
root@cpantesters3:~# systemctl status rsyslog
● rsyslog.service - System Logging Service
Loaded: loaded (/lib/systemd/system/rsyslog.service; enabled)
Active: inactive (dead) since Sat 2017-09-09 04:45:53 UTC; 32min ago
Docs: man:rsyslogd(8)
http://www.rsyslog.com/doc/
Main PID: 820 (code=exited, status=0/SUCCESS)
Warning: Journal has been rotated since unit was started. Log output is incomplete or unavailable.
@preaction
preaction / gist:6af2693fd7e4fe170ad2c8a3076c45b8
Created September 7, 2017 23:55
Files that were not changed
cat <(git ls-files; git diff -b -w --no-renames --name-only) | sort | uniq -c | grep '^\s*1' | awk '{ print $2 }'
@preaction
preaction / migrate-status.markdown
Last active August 17, 2017 06:28

Things have been fairly stable for the last 48 hours, so here's a report on the current status:

Work done:

  • Created a new API to write incoming test reports to a MySQL database
    • This removes Amazon SimpleDB and saves us $250/mo
    • In the future, we will be able to reduce our total disk usage through removing duplicate data
  • Translated the Metabase reports to the new test report format
    • The new test report format has more fields for future expansion, including places for testers to report on all the dependencies of the distribution they tested
  • The API is doing this transparently
@preaction
preaction / squid.conf
Created July 15, 2017 21:01
A squid.conf file for caching beta.cpantesters.org to demo the applications inside
#
# Recommended minimum configuration:
#
# Example rule allowing access from your local networks.
# Adapt to list your (internal) IP networks from where browsing
# should be allowed
acl localnet src 10.0.0.0/8 # RFC1918 possible internal network
acl localnet src 172.16.0.0/12 # RFC1918 possible internal network
acl localnet src 192.168.0.0/16 # RFC1918 possible internal network
@preaction
preaction / test.pl
Created June 7, 2017 17:37
use v5.24;
use Data::Dumper;
my $hash = { foo => 'bar', fizz => 'buzz' };
say Dumper $hash;
local $hash->@{qw( foo fizz )} = ( 'foo', 'fizz' );
say Dumper $hash;
#local $hash->%{qw( foo fizz )} = ( foo => 'foo', fizz => 'fizz' );
# Can't modify key/value hash slice in local
@preaction
preaction / writing.md
Created May 29, 2017 01:52
writing to the metabase cache
@preaction
preaction / processlist.txt
Created May 22, 2017 19:42
mysql> show processlist;
+-------+-------------+--------------------------------------+-----------+---------+-------+--------------------------------------------------------+------------------------------------------------------------------------------------------------------+-----------+---------------+
| Id | User | Host | db | Command | Time | State | Info | Rows_sent | Rows_examined |
+-------+-------------+--------------------------------------+-----------+---------+-------+--------------------------------------------------------+------------------------------------------------------------------------------------------------------+-----------+---------------+
| 1 | system user | | NULL | Connect | 36136 | Connecting to master | NULL
@preaction
preaction / ResultSet-Metabase.pm
Created May 14, 2017 13:27
package CPAN::Testers::Schema::ResultSet::Metabase;
our $VERSION = '0.006';
# ABSTRACT: Query the Metabase table
=head1 SYNOPSIS
my $rs = $schema->resultset( 'Metabase' );
my $row = $rs->cache_metabase_fact( $fact );
=head1 DESCRIPTION