Simple bar chart constructed from a csv file storing the number of ports in each category
#!/usr/local/bin/perl -w
use FreeBSD::Ports;
my @catagories =
(qw/
accessibility arabic archivers astro audio benchmarks biology| #!/bin/sh | |
| pw group add -n admin -g 9999 | |
| echo vagrant | pw mod user root -h 0 | |
| echo vagrant | pw add user vagrant -u 9999 -c "Vagrant User" -k /etc/skel -m -d /home/vagrant -g admin -s /bin/sh -h 0 | |
| mkdir /home/vagrant/.ssh | |
| chown vagrant:vagrant /home/vagrant/.ssh | |
| chmod 700 /home/vagrant/.ssh |
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| sub fisher_yates_shuffle | |
| { | |
| my $array = shift; | |
| my $i = @$array; | |
| while ( --$i ) |
| _cidr2mask() | |
| { | |
| local i mask="" | |
| local full_octets=$(($1 / 8)) | |
| local partial_octet=$(($1 % 8)) | |
| for((i = 0; i < 4; i += 1)) | |
| do | |
| if [ $i -lt $full_octets ] | |
| then |
| It's a red bikeshed | |
| It's a orange bikeshed | |
| It's a yellow bikeshed | |
| It's a green bikeshed | |
| It's a blue bikeshed | |
| It's a purple bikeshed | |
| It's Jordan Hubbard | |
| It's Marshall Kirk McKusick | |
| It's Alfred Perlstein | |
| It's Robert Watson |
Simple bar chart constructed from a csv file storing the number of ports in each category
#!/usr/local/bin/perl -w
use FreeBSD::Ports;
my @catagories =
(qw/
accessibility arabic archivers astro audio benchmarks biology| --- NaServer.old 2012-02-15 15:56:33.593579000 -0500 | |
| +++ NaServer.pm 2012-02-17 10:23:49.242005000 -0500 | |
| @@ -26,10 +26,8 @@ | |
| use Socket; | |
| use LWP::UserAgent; | |
| use XML::Parser; | |
| -eval "require Net::SSLeay"; | |
| -eval "require IO::Select"; | |
| +use Data::Dumper; | |
| use NaElement; |
| /*********************************************************************** | |
| * connect.c -- Make socket connection using SOCKS4/5 and HTTP tunnel. | |
| * | |
| * Copyright (c) 2000-2004 Shun-ichi Goto | |
| * Copyright (c) 2002, J. Grant (English Corrections) | |
| * | |
| * This program is free software; you can redistribute it and/or | |
| * modify it under the terms of the GNU General Public License | |
| * as published by the Free Software Foundation; either version 2 | |
| * of the License, or (at your option) any later version. |
| logging { | |
| channel server_general { | |
| file "/var/log/named/general.log" versions 5 size 5M; | |
| print-time yes; | |
| severity info; | |
| }; | |
| channel server_updates { | |
| file "/var/log/named/update.log" versions 5 size 5M; |
| -----BEGIN PGP PUBLIC KEY BLOCK----- | |
| Version: PGP Key Server 0.9.6 | |
| mQGiBEm+VN4RBACfYJ2U3THLZz/soW+0z18vsGdndRtf/i1FDPxr6gy53/VVOMPx | |
| a1usmGriEtK0En7cwWlPQlr5SdXl/pUNKsIZkClkZnctWPeSM3mYj6zC3HcUyruV | |
| rDNKUYLOYP8dCEtWu7IN0TQKH6xnqLljCFCQYK7lA4zRL7N1S/hExcBsbwCgzT6V | |
| aI0NyeWVcAjs/+t8s4RJkC8D/jNpGb6IuRumkjYZ5GmElelckkmIQvGs2aiBkbE8 | |
| IRtDS3VnSUWCN8rWJqqHuwg0QgaDVIHPz5KnMQfv7gbsoGilTx8mTgDEk1P62t4b | |
| Y4YLKJhriaXyrSuQETPinqM3qYvEKysm5bkgiRNEcFHGUZznec2LGtFxPOGAacKn | |
| EwcpA/9UIKdxxsPx8sHCU6L+Teq9DXpeRLRCy/1DJAHXs2BixAGX8kTvvdKnGjNR |
| #!/bin/sh | |
| SENDQ_SIZE=65536 | |
| _parse_netstat() | |
| { | |
| netstat -p tcp -n | awk 'BEGIN { count = 0 } | |
| { | |
| if($6 == "ESTABLISHED" && $3 >= threshold) | |
| { |