#!/usr/local/bin/perl
#server_content.pl
use Sys::Hostname qw/hostname/;
use HTTP::Headers;
my $respstr;
if (rand(100) < 20) {
	print "Conflict 409\n\r\n\r\n";
	exit(1);
}
if ($ARGV[0] eq 'HEAD') {
    $respstr = '<?xml version="1.0" encoding="UTF-8"?>
<CsStreamInfo>
<StreamName>http://co1.search.live.net:88';
    $respstr .= $ARGV[1];
    $respstr .= <<GETEOF2;
</StreamName>
<CommittedLength>0</CommittedLength>
<Length>0</Length>
<CreateTime>128629751982538969</CreateTime>
<ExpireTime>18446744073709551615</ExpireTime>
<PublishedUpdateTime>128632226810164042</PublishedUpdateTime>
<NumExtents>3</NumExtents>
<ProviderVC>sandbox</ProviderVC>
<Permissions>ERWDX</Permissions>
</CsStreamInfo>
GETEOF2
#<?xml version="1.0" encoding="UTF-8"?>
#<CsError>
#<Description>Authentication failed </Description>
#<ErrorCode>0x00000000</ErrorCode>
#<ErrorCodeText>The operation succeeded</ErrorCodeText>
#<ErrorNode>co1sch7080801</ErrorNode>
#</CsError>
} elsif ($ARGV[0] eq 'GET') {
    $respstr = '<?xml version="1.0" encoding="UTF-8"?>
<CsStreamInfo>
<StreamName>http://portal.cosmos02-prod-co1.search.live.net:88';
    $respstr .= $ARGV[1];
    $respstr .= <<GETEOF2;
</StreamName>
<CommittedLength>0</CommittedLength>
<Length>0</Length>
<CreateTime>128629751982538969</CreateTime>
<ExpireTime>18446744073709551615</ExpireTime>
<PublishedUpdateTime>128632226810164042</PublishedUpdateTime>
<NumExtents>3</NumExtents>
<ProviderVC>sandbox</ProviderVC>
<Permissions>ERWDX</Permissions>
</CsStreamInfo>
GETEOF2

} elsif ($ARGV[0] eq 'POST') {
    $respstr = '<?xml version="1.0" encoding="UTF-8"?>
<CsStreamAppend>
<StreamName>http://co1.search.live.net:88';
    $respstr .= $ARGV[1];
    $respstr .= <<POSTEOF2;
</StreamName>
<BytesUploaded>$ARGV[2]</BytesUploaded>
</CsStreamAppend>
POSTEOF2
    system("cat /var/tmp/cosmos_server.content>>/var/tmp/cluster/orgs_".hostname);
} elsif ($ARGV[0] eq 'PUT') {
    $respstr = '<?xml version="1.0" encoding="UTF-8"?>
<CsStreamUpload>
<StreamName>http://prod-co1.search.live.net:88';
    $respstr .= $ARGV[1];
    $respstr .= <<PUTEOF2;
</StreamName>
<BytesUploaded>$ARGV[2]</BytesUploaded>
</CsStreamUpload>
PUTEOF2
    system("cat /var/tmp/server.content>>/var/tmp/cluster/orgs_".hostname);
} else {
    exit(1);
}
print "OK 200\nCache-Control: private\nContent-Length: ", length($respstr) ,"\nContent-Type: application/xml; charset=utf-8\nSet-Cookie: Session=F306972E-F9B0-4D13-958D-0A561AFD6985; Path=/\nProxy-Connection: Keep-Alive\r\n\r\n",$respstr;