Francois Gouget : testbot/cgi: Add support for importing JavaScript files.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: e78e6669a170d6c4a906590bda81ffadc39614ba
URL:    https://source.winehq.org/git/tools.git/?a=commit;h=e78e6669a170d6c4a906590b...

Author: Francois Gouget 
Date:   Tue Apr 19 17:27:50 2022 +0200

testbot/cgi: Add support for importing JavaScript files.

Signed-off-by: Francois Gouget 
Signed-off-by: Alexandre Julliard

---

testbot/lib/ObjectModel/CGI/Page.pm     |  7 +++++++
 testbot/lib/WineTestBot/CGI/PageBase.pm | 11 +++++++++++
 2 files changed, 18 insertions(+)

diff --git a/testbot/lib/ObjectModel/CGI/Page.pm b/testbot/lib/ObjectModel/CGI/Page.pm
index d7463b5..406ca4f 100644
--- a/testbot/lib/ObjectModel/CGI/Page.pm
+++ b/testbot/lib/ObjectModel/CGI/Page.pm
@@ -369,6 +369,13 @@ sub GetTitle($)
   return undef;
 }

+sub GenerateImportJS($$)
+{
+  my ($self, $Filename) = @_;
+
+  $self->{PageBase}->GenerateImportJS($Filename);
+}
+
 sub GenerateHttpHeaders($)
 {
   my ($self) = @_;
diff --git a/testbot/lib/WineTestBot/CGI/PageBase.pm b/testbot/lib/WineTestBot/CGI/PageBase.pm
index 6e55316..a4d1ebe 100644
--- a/testbot/lib/WineTestBot/CGI/PageBase.pm
+++ b/testbot/lib/WineTestBot/CGI/PageBase.pm
@@ -397,6 +397,17 @@ sub GetPageTitle($$)
   return $Title;
 }

+sub GenerateImportJS($$)
+{
+  my ($self, $Filename) = @_;
+
+  if (!$self->{js}->{$Filename})
+  {
+    print "<script type='text/javascript' src='$Filename'></script>\n";
+    $self->{js}->{$Filename} = 1;
+  }
+}
+
 sub GenerateHttpHeaders($)
 {
   my ($self) = @_;