use OpenSIPS qw(log);

use OpenSIPS::Constants;

use OpenSIPS qw ( log );

use OpenSIPS::Constants;





sub printOutHeaders {

my $message = shift;

my @header = $message->getFullHeader();

log(L_ALERT, "NEW HEADER:\n");

foreach (@header) {

my $f = $_; #current line

log(L_ALERT, "$f\n");

}

return 1;

}





sub pizza {



my $message = shift;

my $proxy_address='129.241.208.234';

my $default_pizza = $pizza_abc;

my $pizza_abc = "sip:G2\@$proxy_address";

my $pizzaABC =  "sip:G1\@$proxy_address";

my $pizzaMain =  "sip:G2\@$proxy_address";

my $pizzaSat =  "sip:G1\@$proxy_address";
my $pizza =  "sip:pizza\@$proxy_address";

my $to = $message->getHeader("To");

log(L_ALERT, "first\n");

log(L_ALERT, "second\n");

log(L_ALERT, $to);


if(($message->getMethod() eq "INVITE") and ($to eq $pizza)){
	log(L_ALERT, "pizza\n");

	if(rand() < 0.75){

		$message->rewrite_ruri($pizzaMain);

		log(L_ALERT, "main\n");

	}

	else{

		$message->rewrite_ruri($pizzaSat);

		log(L_ALERT, "Sat\n");

	}




#	log(L_ALERT, "Second\n");

#	my $from = $message->getHeader("From");

#	my $to = $message->getHeader("To");

#	if($from =~ /sip\:fredrik\@/){

#		#/sip\:fredrik\@/

#		$message->rewrite_ruri($default_pizza);

#		log(L_ALERT, "third\n");

#	}else{

#		log(L_ALERT, "cartman\n");

#		$message->rewrite_ruri($pizzaABC);

#	}



}