Use Import as a fallback for the WebFetcher tool when `StartWebSess…

…ion` fails
WolframResearch · Jan 22, 2024 · d804322 · d804322
1 parent 77f7ecc
commit d804322
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/Source/Chatbook/Tools/DefaultTools.wl b/Source/Chatbook/Tools/DefaultTools.wl
@@ -584,6 +584,9 @@ fetchWebText[ url_String, session_WebSessionObject ] := Enclose[
     shortenWebText @ niceWebText @ Import[ url, { "HTML", "Plaintext" } ] &
 ];
 
+fetchWebText[ url_String, _Missing | _? FailureQ ] :=
+    shortenWebText @ niceWebText @ Import[ url, { "HTML", "Plaintext" } ];
+
 fetchWebText // endDefinition;
 
 (* ::**************************************************************************************************************:: *)
@@ -635,7 +638,13 @@ validWebSessionQ[ ___ ] := False;
 (* ::Subsubsection::Closed:: *)
 (*startWebSession*)
 startWebSession // beginDefinition;
-startWebSession[ ] := $currentWebSession = StartWebSession[ Visible -> $webSessionVisible ];
+
+startWebSession[ ] := $currentWebSession =
+    If[ TrueQ @ $CloudEvaluation,
+        Missing[ "NotAvailable" ],
+        StartWebSession[ Visible -> $webSessionVisible ]
+    ];
+
 startWebSession // endDefinition;
 
 (* ::**************************************************************************************************************:: *)