Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

add copyright notices throughout

git-svn-id: http://code.sixapart.com/svn/perlbal/trunk@345 6caf28e9-730f-0410-b62b-a31386fe13fb
  • Loading branch information...
commit 857ebfe13929740f96aa78c4c5d82dead091c426 1 parent 39cf493
bradfitz authored
View
20 lib/Perlbal.pm
@@ -1,5 +1,25 @@
#!/usr/bin/perl
#
+# Copyright 2004, Danga Interactice, Inc.
+# Copyright 2005, Six Apart, Ltd.
+#
+
+=head1 NAME
+
+Perlbal - Reverse-proxy load balancer and webserver
+
+=head1 SEE ALSO
+
+ http://www.danga.com/perlbal/
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2004, Danga Interactice, Inc.
+Copyright 2005, Six Apart, Ltd.
+
+You can use and redistribute Perlbal under the same terms as Perl itself.
+
+=cut
package Perlbal;
View
5 lib/Perlbal/AIO.pm
@@ -1,3 +1,8 @@
+# AIO abstraction layer
+#
+# Copyright 2004, Danga Interactice, Inc.
+# Copyright 2005, Six Apart, Ltd.
+
package Perlbal::AIO;
use POSIX qw();
View
8 lib/Perlbal/BackendHTTP.pm
@@ -1,7 +1,9 @@
######################################################################
# HTTP connection to backend node
-# possible states: connecting, bored, sending_req, wait_res, xfer_res
-######################################################################
+#
+# Copyright 2004, Danga Interactice, Inc.
+# Copyright 2005, Six Apart, Ltd.
+#
package Perlbal::BackendHTTP;
use strict;
@@ -101,7 +103,7 @@ sub new {
$self->{read_ahead} = 0; # bytes sitting in read_buf
$self->{read_size} = 0; # total bytes read from client
- $self->{client} = undef; # Perlbal::ClientProxy object, initially empty
+ $self->{client} = undef; # Perlbal::ClientProxy object, initially empty
# until we ask our service for one
$self->{has_attention} = 0;
View
5 lib/Perlbal/ClientHTTP.pm
@@ -1,7 +1,10 @@
######################################################################
# HTTP Connection from a reverse proxy client. GET/HEAD only.
# most functionality is implemented in the base class.
-######################################################################
+#
+# Copyright 2004, Danga Interactice, Inc.
+# Copyright 2005, Six Apart, Ltd.
+#
package Perlbal::ClientHTTP;
use strict;
View
4 lib/Perlbal/ClientHTTPBase.pm
@@ -6,7 +6,9 @@
# wait_stat, wait_open, xfer_disk
# both paths can then go into persist_wait, which means they're waiting
# for another request from the user
-######################################################################
+#
+# Copyright 2004, Danga Interactice, Inc.
+# Copyright 2005, Six Apart, Ltd.
package main;
View
6 lib/Perlbal/ClientProxy.pm
@@ -1,7 +1,9 @@
######################################################################
# HTTP Connection from a reverse proxy client
-######################################################################
-
+#
+# Copyright 2004, Danga Interactice, Inc.
+# Copyright 2005, Six Apart, Ltd.
+#
package Perlbal::ClientProxy;
use strict;
use warnings;
View
3  lib/Perlbal/CommandContext.pm
@@ -1,5 +1,8 @@
# keep track of the surrounding context for a ManageCommand, so commands
# can be less verbose when in config files
+#
+# Copyright 2005, Six Apart, Ltd.
+#
package Perlbal::CommandContext;
use strict;
View
7 lib/Perlbal/HTTPHeaders.pm
@@ -1,6 +1,9 @@
######################################################################
# HTTP header class (both request and response)
-######################################################################
+#
+# Copyright 2004, Danga Interactice, Inc.
+# Copyright 2005, Six Apart, Ltd.
+#
package Perlbal::HTTPHeaders;
use strict;
@@ -294,7 +297,7 @@ sub content_length {
# no content length for head requests
return 0 if $self->{method} eq 'HEAD';
} elsif ($self->{type} eq 'res' || $self->{type} eq 'httpres') {
- # no content length in any of these
+ # no content length in any of these
if ($self->{code} == 304 || $self->{code} == 204 ||
($self->{code} >= 100 && $self->{code} <= 199)) {
return 0;
View
3  lib/Perlbal/ManageCommand.pm
@@ -1,5 +1,8 @@
# class representing a one-liner management command. all the responses
# to a command should be done through this instance (out, err, ok, etc)
+#
+# Copyright 2005, Six Apart, Ltd.
+#
package Perlbal::ManageCommand;
use strict;
View
4 lib/Perlbal/Pool.pm
@@ -1,6 +1,10 @@
######################################################################
# Pool class
######################################################################
+#
+# Copyright 2004, Danga Interactice, Inc.
+# Copyright 2005, Six Apart, Ltd.
+#
package Perlbal::Pool;
use strict;
View
9 lib/Perlbal/ReproxyManager.pm
@@ -1,7 +1,8 @@
-######################################################################
-# HTTP connection to backend node
-# possible states: connecting, bored, sending_req, wait_res, xfer_res
-######################################################################
+# HTTP connection to non-pool backend nodes (probably fast event-based webservers)
+#
+# Copyright 2004, Danga Interactice, Inc.
+# Copyright 2005, Six Apart, Ltd.
+#
package Perlbal::ReproxyManager;
use strict;
View
4 lib/Perlbal/Service.pm
@@ -1,6 +1,10 @@
######################################################################
# Service class
######################################################################
+#
+# Copyright 2004, Danga Interactice, Inc.
+# Copyright 2005, Six Apart, Ltd.
+#
package Perlbal::Service;
use strict;
View
9 lib/Perlbal/Socket.pm
@@ -1,6 +1,7 @@
-######################################################################
# Base class for all socket types
-######################################################################
+#
+# Copyright 2004, Danga Interactice, Inc.
+# Copyright 2005, Six Apart, Ltd.
package Perlbal::Socket;
use strict;
@@ -110,7 +111,7 @@ sub new {
# algorithmically. and this is definitely less work, so it's worth
# a try.
sub _do_cleanup {
- my $sf = Perlbal::Socket->get_sock_ref;
+ my $sf = Perlbal::Socket->get_sock_ref;
my $now = time;
@@ -208,7 +209,7 @@ sub read_headers {
print "post-header extra: $len bytes\n" if Perlbal::DEBUG >= 2;
}
- unless (($is_res ? $self->{res_headers} : $self->{req_headers}) =
+ unless (($is_res ? $self->{res_headers} : $self->{req_headers}) =
Perlbal::HTTPHeaders->new(\$hstr, $is_res)) {
# bogus headers? close connection.
return $self->close("parse_header_failure");
View
5 lib/Perlbal/TCPListener.pm
@@ -1,6 +1,9 @@
######################################################################
# TCP listener on a given port
-######################################################################
+#
+# Copyright 2004, Danga Interactice, Inc.
+# Copyright 2005, Six Apart, Ltd.
+
package Perlbal::TCPListener;
use strict;
View
8 perlbal
@@ -18,13 +18,11 @@ For now, see example configuration files in conf/
http://www.danga.com/perlbal/
-=head1 BUGS
+=head1 COPYRIGHT AND LICENSE
-Not enough docs.
+Copyright 2004, Danga Interactice, Inc.
+Copyright 2005, Six Apart, Ltd.
-=head1 LICENSE
-
-Copyright 2004.
You can use and redistribute Perlbal under the same terms as Perl itself.
=cut
Please sign in to comment.
Something went wrong with that request. Please try again.