Initial commit

MANIFEST

@@ -0,0 +1,8 @@
+bin/squatting
+bugs.yaml
+lib/Squatting.pm
+lib/Squatting/Controller.pm
+lib/Squatting/Mapper.pm
+Makefile.PL
+MANIFEST			This list of files
+MANIFEST.SKIP

MANIFEST.SKIP

@@ -0,0 +1,8 @@
+\bCVS\b
+^MANIFEST\.bak$
+^Makefile$
+\..*\.swp$
+pm_to_blib
+~$
+\bblib\b
+\b\.xvpics\b

Makefile.PL

@@ -0,0 +1,23 @@
+use ExtUtils::MakeMaker;
+
+WriteMakefile (
+    'NAME'          => 'Squatting',
+    'AUTHOR'        => 'John Beppu <beppu@cpan.org>',
+    'VERSION_FROM'  => 'lib/Squatting.pm',
+    'ABSTRACT_FROM' => 'lib/Squatting.pm',
+    'PREREQ_PM'     => {
+	'HTTP::Daemon'     => 0,
+    },
+);
+
+sub MY::libscan {
+    my $self = shift;
+    $_       = shift;
+
+    # $self appears to be a blessed hashref that contains
+    # all the attributes/value pairs passed to WriteMakeFile()
+    # plus some other MakeMaker-related info.
+
+    return 0 if /\.sw.$/ || /~$/;
+    return $_;
+}

bin/squatting

@@ -0,0 +1,90 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Squatting;
+use Getopt::Long;
+use Data::Dump qw(dump);
+
+# defaults
+$_{port} = 4234;
+
+# command line options
+GetOptions(
+  \%_,
+  'host|h=s',
+  'port|p=i',
+  'log|l=s',
+  'console|C',
+  'help',
+  'version|v',
+);
+
+if ($_{version}) {
+
+} elsif ($_{help}) {
+
+} elsif ($_{log}) {
+
+} elsif ($_{console}) {
+
+} else {
+
+}
+
+print dump(\%_), "\n", dump(\@ARGV), "\n";
+
+exit 0;
+
+__END__
+
+=head1 NAME
+
+squatting -- start up a Squatting server
+
+=head1 SYNOPSIS
+
+Usage
+
+  squatting [OPTION]... APPLICATION
+
+Example:  Starting Bavl on port 4234
+
+  squatting -p 4234 Bavl
+
+=head1 DESCRIPTION
+
+We're here to stay.
+
+=head1 OPTIONS
+
+=over 2
+
+=item -h, --host HOSTNAME
+
+TODO - Host for web server to bind to (default is all IPs)
+
+=item -p, --port NUM
+
+TODO - Port for web server (defaults to 4234)
+
+=item -l, --log FILE
+
+TODO - Start a log file ('-' for STDOUT)
+
+=item -C, --console
+
+TODO - Run in console mode with pirl
+
+=item -?, --help
+
+TODO - Show the help message
+
+=item -v, --version
+
+TODO - Show version
+
+=back
+
+=cut

bugs.yaml

@@ -0,0 +1,35 @@
+--- !ditz.rubyforge.org,2008-03-06/project 
+name: Squatting
+version: 0.1.1
+issues: 
+- !ditz.rubyforge.org,2008-03-06/issue 
+  title: Implement the D() function for dispatching.
+  desc: D() should take an HTTP::Request as an argument and return a ($controller, $method) pair.
+  type: :feature
+  component: Squatting
+  release: "0.10"
+  reporter: John Beppu <john.beppu@gmail.com>
+  status: :unstarted
+  disposition: 
+  creation_time: 2008-04-23 11:55:54.310613 -07:00
+  references: []
+
+  id: 4c4cd01cef06f5da620bcc5a31d9aa2e5cd8b4e2
+  log_events: 
+  - - 2008-04-23 11:55:58.482346 -07:00
+    - John Beppu <beppu@localhost>
+    - created
+    - ""
+components: 
+- !ditz.rubyforge.org,2008-03-06/component 
+  name: Squatting
+releases: 
+- !ditz.rubyforge.org,2008-03-06/release 
+  name: "0.10"
+  status: :unreleased
+  release_time: 
+  log_events: 
+  - - 2008-04-23 11:53:38.160024 -07:00
+    - John Beppu <beppu@localhost>
+    - created
+    - The goal of the first release is to be able to get the HTTP server up and running.