--- 3m-810.pl	2010/02/11 14:59:56	67
+++ 3m-810.pl	2010/02/11 15:10:39	68
@@ -99,6 +99,7 @@
 
 					warn "PROGRAM $tag $content\n";
 					write_tag( $tag, $content );
+					secure_tag_with( $tag, $param->{$p} =~ /^130/ ? 'DA' : 'D7' );
 				}
 
 				print $client "HTTP/1.0 $status $method\r\nLocation: $server_url\r\n\r\n";