Fix some Perl deprecation warnings. Patches from xim.

[pr0n] / perl / Sesse / pr0n / Registry.pm

diff --git a/perl/Sesse/pr0n/Registry.pm b/perl/Sesse/pr0n/Registry.pm
index 14b5b1447bb4c194622590727c43e9e733b95bb8..4ebd4f718c6e477d20540516092696468743bf37 100644 (file)
--- a/perl/Sesse/pr0n/Registry.pm
+++ b/perl/Sesse/pr0n/Registry.pm
@@ -22,6 +22,12 @@ sub handler {
        $r->print("\"DisplayName\"=\"$vhost\"\r\n");
        $r->print("\"Description\"=\"$desc\"\r\n");
        $r->print("\"HREF\"=\"http://$vhost/wizard\"\r\n");
+       $r->print("");
+       $r->print("[HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\Currentversion\\Explorer\\PublishingWizard\\InternetPhotoPrinting\\Providers\\$vhost]\r\n");
+       $r->print("\"Icon\"=\"http://$vhost/pr0n.ico\"\r\n");
+       $r->print("\"DisplayName\"=\"$vhost\"\r\n");
+       $r->print("\"Description\"=\"$desc\"\r\n");
+       $r->print("\"HREF\"=\"http://$vhost/wizard\"\r\n");
 
        return Apache2::Const::OK;
 }