nrw

package rewrite;
use nginx;
use Hash::ConsistentHash;
use String::CRC32;
use IO::Socket;
use Net::SMTP;  
use MIME::Base64;  
use IPC::ShareLite;
use Storable qw(freeze thaw);
use IPC::SysV qw(S_IRWXU IPC_CREAT);
use IPC::Semaphore;

my @serv_list = qw();

my $share = IPC::ShareLite->new(
        -key     => 1949,
        -create => 'yes',
        -destroy => 'yes'
) or die $!;

my $sem = IPC::Semaphore->new(1564, 1, S_IRWXU|IPC_CREAT) || die "IPC::Semaphore->new: $!\n";

sub handler {
    		my $r = shift;
    		my $uri = $r->uri;
            	my $domain = $r->header_in(host);

		my $test="" ;
		if ($sem->getval(0) == 0){
			$test = $share->fetch;
		}	
		if ($test ne "") {
			splice(@serv_list);
			my $list = thaw($share->fetch) || print "Wrong\n\n";
			@serv_list = @$list;
		}


            my $chash = Hash::ConsistentHash->new(
            buckets => [@serv_list],
            hash_func => \&crc32
            );
            my $url = $chash->get_bucket($uri);
			#$url = "http://".$url."/".$domain.$uri;
			$url = "http://".$url.$uri;
            $r->header_out(Location => $url);
            $r->status(302);
            $r->send_http_header;
            return OK;
}
1;
__END__