[bml] r132: Add server watermark

U   trunk/lib/Apache/BML.pm

Modified: trunk/lib/Apache/BML.pm
===================================================================
--- trunk/lib/Apache/BML.pm	2010-10-05 09:19:59 UTC (rev 131)
+++ trunk/lib/Apache/BML.pm	2010-10-05 09:46:42 UTC (rev 132)
@@ -403,6 +403,10 @@
         LJ::Request->header_out("Cache-Control", "private, proxy-revalidate") unless $cache_control;
         LJ::Request->header_out("ETag", $etag) if defined $etag;
 
+        # add server mark 
+        my ($aws_id) = $LJ::HARDWARE_SERVER_NAME =~ /\-(.+)$/;
+        LJ::Request->header_out("X-AWS-Id" => $aws_id || 'unknown');
+
         # gzip encoding
         my $do_gzip = $env->{'DoGZIP'} && $Apache::BML::HAVE_ZLIB && $LJ::DO_GZIP;
         my $length = length($html);