Browse Source

Merge remote branch 'origin/master'

master
Jonathan "Duke" Leto 13 years ago
parent
commit
d55c62c1c2
  1. 20
      bin/check_links.pl
  2. 6
      bin/setup_env
  3. 3
      config/.bashrc

20
bin/check_links.pl

@ -0,0 +1,20 @@
#!/usr/bin/env perl
use strict;
use warnings;
use Test::WWW::Mechanize;
use Test::Most;
use Data::Dumper;
my $m = Test::WWW::Mechanize->new;
my $url = shift || die "Usage: $0 URL";
$m->get_ok($url);
my @links = $m->links;
my @local_links = grep { $_->url !~ m/:/} @links;
my @remote_links = grep { $_->url =~ m/:/ } @links;
# only checks remote links currently
map { $m->get_ok($_) } @remote_links;

6
bin/setup_env

@ -7,11 +7,9 @@ cd $HOME
mkdir git
cd git
wget 2>&1 || { echo "no wget, bailing"; exit 1; }
wget 2>&1 && { echo "no wget, bailing"; exit 1; }
git 2>&1 || { wget $GITGZ; tar zxvpf $GITGZ; cd git-1.7.4.1; gmake prefix=$HOME NO_CURL=1 install; }
git 2>&1 || { echo "Git could not be found"; exit 1; }
wget $GITGZ; tar zxvpf $GITGZ; cd git-1.7.4.1; gmake prefix=$HOME NO_CURL=1 install;
echo "Cloning Util.git"
git clone git://github.com/leto/Util.git

3
config/.bashrc

@ -5,6 +5,9 @@ export DEBEMAIL=jonathan@leto.net
ulimit -c unlimited
# don't clear the screen afterwards 'cause that is annoying
export LESS="-X"
export PERL_MM_USE_DEFAULT=1
export PG_PREFIX=$HOME/pg
export PGDATA=$PG_PREFIX/data

Loading…
Cancel
Save