Fixed the formatting issue with SSDP message, which was being ignored by few DIAGE servers

parent d9bebb1b
...@@ -10,11 +10,7 @@ use Net::UPnP::HTTP; ...@@ -10,11 +10,7 @@ use Net::UPnP::HTTP;
use Net::UPnP::Device; use Net::UPnP::Device;
sub search { sub search {
my $ssdp_header = "M-SEARCH * HTTP/1.1\r\n my $ssdp_header = "M-SEARCH * HTTP/1.1\r\nST: upnp:rootdevice\r\nMX: 5\r\nMAN: \"ssdp:discover\"\r\nHOST: $Net::UPnP::SSDP_ADDR:$Net::UPnP::SSDP_PORT\r\nContent-Length: 0\r\n\r\n";
ST: upnp:rootdevice\r\n
Man: \"ssdp:discover\"\r\n
MX: 5\r\n
Host: $Net::UPnP::SSDP_ADDR:$Net::UPnP::SSDP_PORT\r\n\r\n";
print "******************** SSDP Message ********************\n"; print "******************** SSDP Message ********************\n";
print $ssdp_header; print $ssdp_header;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment