add workaround for lynx to use ca-debian/ca-certificates.crt

diff --git a/scripts/service b/scripts/service
index 364a0ed955acd9519a2ea3175ddbc1c1021f5acd..77165f88bc7265efa83700cae1749164a47854ab 100755 (executable)
--- a/scripts/service
+++ b/scripts/service
@@ -904,9 +904,12 @@ END
 sub sendlynxdocraw {
     my ($relpath,$description) = @_;
     $doc='';
-    open(L,"lynx -nolist -dump $gCGIDomain/\Q$relpath\E 2>&1 |") || die "fork for lynx: $!";
+    # work around DSA cert setup
+    $ENV{SSL_CERT_FILE}='/etc/ssl/ca-debian/ca-certificates.crt';
+    open(L,"lynx -nolist -dump https://$gCGIDomain/\Q$relpath\E 2>&1 |") || die "fork for lynx: $!";
     while(<L>) { $doc.=$_; }
     $!=0; close(L);
+    delete $ENV{SSL_CERT_FILE};
     if ($? == 255 && $doc =~ m/^\n*lynx: Can\'t access start file/) {
         print {$transcript} "Information ($description) is not available -\n".
             "perhaps the $gBug does not exist or is not on the WWW yet.\n";