This is an automated email from the ASF dual-hosted git repository.
mseidel pushed a commit to branch trunk
in repository https://gitbox.apache.org/repos/asf/openoffice.git
The following commit(s) were added to refs/heads/trunk by this push:
new 95845cf7eb poll.pl: use lowercase HTML tags (#276)
95845cf7eb is described below
commit 95845cf7eb05a00e51586b67f45bded6fbfd46d6
Author: John Bampton <[email protected]>
AuthorDate: Thu Feb 13 03:34:46 2025 +1000
poll.pl: use lowercase HTML tags (#276)
---
main/sd/res/webview/poll.pl | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/main/sd/res/webview/poll.pl b/main/sd/res/webview/poll.pl
index fe24f1a865..a5b7110ab3 100755
--- a/main/sd/res/webview/poll.pl
+++ b/main/sd/res/webview/poll.pl
@@ -23,7 +23,7 @@
require "common.pl";
print "Content-type: text/html\n\n";
-print "<HTML>";
+print "<html>";
# get current and last shown picture id
$sCurrPic = join( "", common::File_read( "currpic.txt" ) );
@@ -31,22 +31,22 @@ $sCurrPic = join( "", common::File_read( "currpic.txt" ) );
%aRequestMap = common::HTTP_getRequest();
$sLastPic = $aRequestMap{ "LastPic" };
-print "<HEAD>";
- print "<META http-equiv=\"refresh\" CONTENT=\"" . $common::REFRESH_TIME .
"; URL=poll.pl?LastPic=" . $sCurrPic . "\">";
-print "</HEAD>";
+print "<head>";
+ print "<meta http-equiv=\"refresh\" content=\"" . $common::REFRESH_TIME .
"; URL=poll.pl?LastPic=" . $sCurrPic . "\">";
+print "</head>";
#' a new picture was chosen ?
if( $sLastPic ne $sCurrPic )
{
# then show the new picture
- print "<BODY bgcolor=\"red\"
onLoad=\"parent.frame1.location.href='./show.pl?" . $sCurrPic . "'\">";
+ print "<body bgcolor=\"red\"
onLoad=\"parent.frame1.location.href='./show.pl?" . $sCurrPic . "'\">";
}
else
{
# otherwise do nothing
- print "<BODY bgcolor=\"green\">";
+ print "<body bgcolor=\"green\">";
}
-print "</BODY>";
+print "</body>";
-print "</HTML>";
+print "</html>";
