diff options
Diffstat (limited to 'sd')
-rw-r--r-- | sd/res/webview/common.inc | 128 | ||||
-rw-r--r-- | sd/res/webview/common.pl | 66 | ||||
-rw-r--r-- | sd/res/webview/edit.asp | 26 | ||||
-rw-r--r-- | sd/res/webview/edit.pl | 18 | ||||
-rw-r--r-- | sd/res/webview/editpic.asp | 75 | ||||
-rw-r--r-- | sd/res/webview/editpic.pl | 57 | ||||
-rw-r--r-- | sd/res/webview/index.pl | 17 | ||||
-rw-r--r-- | sd/res/webview/poll.asp | 53 | ||||
-rw-r--r-- | sd/res/webview/poll.pl | 49 | ||||
-rw-r--r-- | sd/res/webview/savepic.asp | 56 | ||||
-rw-r--r-- | sd/res/webview/savepic.pl | 58 | ||||
-rw-r--r-- | sd/res/webview/show.asp | 59 | ||||
-rw-r--r-- | sd/res/webview/show.pl | 56 | ||||
-rw-r--r-- | sd/res/webview/webcast.asp | 45 | ||||
-rw-r--r-- | sd/res/webview/webcast.pl | 38 |
15 files changed, 0 insertions, 801 deletions
diff --git a/sd/res/webview/common.inc b/sd/res/webview/common.inc deleted file mode 100644 index 8a26d7f7a134..000000000000 --- a/sd/res/webview/common.inc +++ /dev/null @@ -1,128 +0,0 @@ -/* - * This file is part of the LibreOffice project. - * - * This Source Code Form is subject to the terms of the Mozilla Public - * License, v. 2.0. If a copy of the MPL was not distributed with this - * file, You can obtain one at http://mozilla.org/MPL/2.0/. - * - * This file incorporates work covered by the following license notice: - * - * Licensed to the Apache Software Foundation (ASF) under one or more - * contributor license agreements. See the NOTICE file distributed - * with this work for additional information regarding copyright - * ownership. The ASF licenses this file to you under the Apache - * License, Version 2.0 (the "License"); you may not use this file - * except in compliance with the License. You may obtain a copy of - * the License at http://www.apache.org/licenses/LICENSE-2.0 . - */ - -<% - -public const cnRefreshTime = 5 ' refresh time in seconds - -' filename for file with all pictures and file containing the name of the current picture -public const csFilePicture= "picture.txt" -public const csFileCurrent= "currpic.txt" - -' constants for file-access -const ForReading = 1 -const ForWriting = 2 - -' new-line delimiter -Dim FILE_LINE_DELIMITER -FILE_LINE_DELIMITER = vbCRLF - -'/** -' * Get data from file using a given separator. -' */ -function File_getDataVirtual( sFilename, sServerPath, sSeparator ) - call Err.Clear() - - Dim aFSObject, sServerFileName - - Set aFSObject = CreateObject("Scripting.FileSystemObject") - sServerFileName = aFSObject.BuildPath( Server.MapPath( sServerPath ), sFileName ) - - File_getDataVirtual = "" - if Err.Number = 0 then - File_getDataVirtual = File_read( sServerFileName ) - If Not IsNull(File_getDataVirtual) Then - File_getDataVirtual = Replace( File_getDataVirtual, FILE_LINE_DELIMITER, sSeparator) - File_getDataVirtual = Split( File_getDataVirtual, sSeparator) - End If - end if -end function - -'/** -' * Get data from a file -' */ -function File_read( sFilename ) - call Err.Clear() - - Dim aFSObject, aStream - - Set aFSObject = CreateObject( "Scripting.FileSystemObject" ) - Set aStream = aFSObject.OpenTextFile( sFilename, ForReading ) - - while not aStream.AtEndOfStream - File_read = File_read + aStream.ReadLine + FILE_LINE_DELIMITER - wend - - aStream.Close -end function - -'/** -' * Get data from a file given by filename and virtual pathname -' */ -Function File_readVirtual(sFileName, sServerPath) - call Err.Clear() - - Dim aFSObject, sServerFileName - - Set aFSObject = CreateObject("Scripting.FileSystemObject") - sServerFileName = aFSObject.BuildPath( Server.MapPath( sServerPath ), sFileName ) - - File_readVirtual = "" - if Err.Number = 0 then - File_readVirtual = File_read( sServerFileName ) - end if -End Function - -'/** -' * Write data to a file -' */ -function File_write( sFileName, sText ) - call Err.Clear() - - Dim aFSObject, aFile - - Set aFSObject = CreateObject( "Scripting.FileSystemObject" ) - if Err.Number = 0 then - Set aFile = aFSObject.CreateTextFile( sFileName, TRUE ) - if Err.Number = 0 then - aFile.Write( sText ) - aFile.Close - end if - end if - - File_write = ( Err.Number = 0 ) -end function - -'/** -' * Write data to a file given by filename and virtual pathname -' */ -function File_writeVirtual( sFileName, sServerPath, sText ) - call Err.Clear() - - Dim aFSObject, aServerFile - - Set aFSObject = CreateObject( "Scripting.FileSystemObject" ) - aServerFile = aFSObject.BuildPath( Server.MapPath( sServerPath ), sFileName ) - - If Err.Number = 0 Then - File_writeVirtual = File_write( aServerFile, sText ) - else - File_writeVirtual = false - End If -end function -%>
\ No newline at end of file diff --git a/sd/res/webview/common.pl b/sd/res/webview/common.pl deleted file mode 100644 index 69c9c1d71dd9..000000000000 --- a/sd/res/webview/common.pl +++ /dev/null @@ -1,66 +0,0 @@ -# -# This file is part of the LibreOffice project. -# -# This Source Code Form is subject to the terms of the Mozilla Public -# License, v. 2.0. If a copy of the MPL was not distributed with this -# file, You can obtain one at http://mozilla.org/MPL/2.0/. -# -# This file incorporates work covered by the following license notice: -# -# Licensed to the Apache Software Foundation (ASF) under one or more -# contributor license agreements. See the NOTICE file distributed -# with this work for additional information regarding copyright -# ownership. The ASF licenses this file to you under the Apache -# License, Version 2.0 (the "License"); you may not use this file -# except in compliance with the License. You may obtain a copy of -# the License at http://www.apache.org/licenses/LICENSE-2.0 . -# - -package common; - -$REFRESH_TIME = 5; - -sub File_read -{ - $sFilename = @_[ 0 ]; - - @aFileContentList = ""; - open( F_CURRPIC, "<" . $sFilename ) || "Could not open file " . $sFilename . " !<BR>\n"; - while( <F_CURRPIC> ) - { - push( @aFileContentList, $_ ); - } - close( F_CURRPIC ); - - return @aFileContentList; -} ##File_read - - -sub HTTP_getRequest -{ - # post- or get- method ? - if( $ENV{ 'REQUEST_METHOD' } eq 'GET' ) - { - # get parameters from querystring (get) - $sRequest = $ENV{ 'QUERY_STRING' } - } - else - { - # get parameters from stdin (post) - read( STDIN, $sRequest, $ENV{ 'CONTENT_LENGTH' } ); - } - # process parameters - @aRequestList = split( /&/, $sRequest ); - foreach $Feld ( @aRequestList ) - { - ( $name, $sValue ) = split( /=/, $Feld ); - $sValue =~ tr/+/ /; - $sValue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; - $sValue =~ s/<!--(.|\n)*-->//g; - $aRequestMap{ $name } = $sValue; - } - - return %aRequestMap; -} ##HTTP_getRequest - -1; diff --git a/sd/res/webview/edit.asp b/sd/res/webview/edit.asp deleted file mode 100644 index 6d5f7291adbc..000000000000 --- a/sd/res/webview/edit.asp +++ /dev/null @@ -1,26 +0,0 @@ -<HTML> -<!-- - * This file is part of the LibreOffice project. - * - * This Source Code Form is subject to the terms of the Mozilla Public - * License, v. 2.0. If a copy of the MPL was not distributed with this - * file, You can obtain one at http://mozilla.org/MPL/2.0/. - * - * This file incorporates work covered by the following license notice: - * - * Licensed to the Apache Software Foundation (ASF) under one or more - * contributor license agreements. See the NOTICE file distributed - * with this work for additional information regarding copyright - * ownership. The ASF licenses this file to you under the Apache - * License, Version 2.0 (the "License"); you may not use this file - * except in compliance with the License. You may obtain a copy of - * the License at http://www.apache.org/licenses/LICENSE-2.0 . ---> -<HEAD> - <TITLE>$$1</TITLE> -</HEAD> -<FRAMESET ROWS="90%,10%" FRAMEBORDER=yes> - <FRAME name="view" src="webcast.asp"> - <FRAME name="edit" src="editpic.asp"> -</FRAMESET> -</HTML>
\ No newline at end of file diff --git a/sd/res/webview/edit.pl b/sd/res/webview/edit.pl deleted file mode 100644 index bdde80c2c98f..000000000000 --- a/sd/res/webview/edit.pl +++ /dev/null @@ -1,18 +0,0 @@ -<HTML> - -<HEAD> - <TITLE>$$1</TITLE> -</HEAD> - -<FRAMESET ROWS="*,42,2" BORDER=0 FRAMEBORDER=0 FRAMESPACING=0> - <FRAME SRC="$$3show.pl" NAME="frame1" SCROLLING=yes RESIZE MARGINWIDTH=0 MARGINHEIGHT=0 FRAMEBORDER=0> - <FRAME SRC="$$3editpic.pl" NAME="frame3" SCROLLING=yes RESIZE MARGINWIDTH=0 MARGINHEIGHT=0 FRAMEBORDER=0> - <FRAME SRC="$$3poll.pl" NAME="frame2" SCROLLING=no NORESIZE MARGINWIDTH=0 MARGINHEIGHT=0 FRAMEBORDER=0> -</FRAMESET> - -<NOFRAMES> - -<BODY BGCOLOR="white"> - <META HTTP-EQUIV="-REFRESH" CONTENT="1;URL=$$3show.pl"> -</BODY> -</HTML> diff --git a/sd/res/webview/editpic.asp b/sd/res/webview/editpic.asp deleted file mode 100644 index 78599e0fd00f..000000000000 --- a/sd/res/webview/editpic.asp +++ /dev/null @@ -1,75 +0,0 @@ -<% - Option Explicit - Response.Expires = 0 - Response.Buffer = True -%> -<!-- - * This file is part of the LibreOffice project. - * - * This Source Code Form is subject to the terms of the Mozilla Public - * License, v. 2.0. If a copy of the MPL was not distributed with this - * file, You can obtain one at http://mozilla.org/MPL/2.0/. - * - * This file incorporates work covered by the following license notice: - * - * Licensed to the Apache Software Foundation (ASF) under one or more - * contributor license agreements. See the NOTICE file distributed - * with this work for additional information regarding copyright - * ownership. The ASF licenses this file to you under the Apache - * License, Version 2.0 (the "License"); you may not use this file - * except in compliance with the License. You may obtain a copy of - * the License at http://www.apache.org/licenses/LICENSE-2.0 . ---> - -<!-- #include file = "common.inc" --> - - -<% - Dim aPictureArray, nPic, nUpper - - aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" ) - nPic = File_readVirtual( "currpic.txt", "." ) - nUpper = CInt( (UBound(aPictureArray) - 1 ) / 2) -%> - -<HTML> -<HEAD> -</HEAD> -<BODY> - <FORM action="savepic.asp" method=get> - <% - if isNumeric(nPic) then - if (CInt( nPic ) >= CInt( (UBound(aPictureArray ) - 1 ) / 2 )) then - nPic = nUpper - end if - else - nPic = nUpper - end if - - - if CInt( nPic ) > 1 then - %> - <INPUT type=submit name="Auswahl" value="-"></INPUT> - <% - else - %> - <INPUT type=button value=" "></INPUT> - <% - end if - %> - <INPUT type=text name="CurrPic" value="<% = nPic %>" SIZE=3></INPUT> - <% - if CInt( nPic ) < CInt( nUpper ) then - %> - <INPUT type=submit name="Auswahl" value="+"></INPUT> - <% - else - %> - <INPUT type=button value=" "></INPUT> - <% - end if - %> - <INPUT type=submit name="Auswahl" value="$$2"></INPUT> - </FORM> -</BODY> -</HTML> diff --git a/sd/res/webview/editpic.pl b/sd/res/webview/editpic.pl deleted file mode 100644 index c14df32e2db5..000000000000 --- a/sd/res/webview/editpic.pl +++ /dev/null @@ -1,57 +0,0 @@ -#!/usr/bin/env perl -# -# This file is part of the LibreOffice project. -# -# This Source Code Form is subject to the terms of the Mozilla Public -# License, v. 2.0. If a copy of the MPL was not distributed with this -# file, You can obtain one at http://mozilla.org/MPL/2.0/. -# -# This file incorporates work covered by the following license notice: -# -# Licensed to the Apache Software Foundation (ASF) under one or more -# contributor license agreements. See the NOTICE file distributed -# with this work for additional information regarding copyright -# ownership. The ASF licenses this file to you under the Apache -# License, Version 2.0 (the "License"); you may not use this file -# except in compliance with the License. You may obtain a copy of -# the License at http://www.apache.org/licenses/LICENSE-2.0 . -# - -require "common.pl"; - -print "Content-type: text/html\n\n"; -print "<HTML>\n"; - -print "<HEAD>\n"; -print "<title>editpic.pl</title>"; -print "</HEAD>\n"; - -print "<BODY>\n"; - $sCurrPic = join( "", common::File_read( "currpic.txt" ) ); - @aPictureArray = common::File_read( "picture.txt" ); - $nPictureArrayLen = @aPictureArray; - print "<FORM action=\"savepic.pl\" method=get>\n"; - if( abs( $sCurrPic ) > 1 ) - { - print "<INPUT type=submit name=\"Auswahl\" value=\"-\"></INPUT>\n"; - } - else - { - print "<INPUT type=button value=\" \"></INPUT>\n"; - } - print "<INPUT type=text name=\"CurrPic\" value=\""; - print $sCurrPic; - print "\" SIZE=3></INPUT>\n"; - if( abs( $sCurrPic ) < ( $nPictureArrayLen - 1 ) ) - { - print "<INPUT type=submit name=\"Auswahl\" value=\"+\"></INPUT>\n"; - } - else - { - print "<INPUT type=button value=\" \"></INPUT>\n"; - } - print "<INPUT type=submit name=\"Auswahl\" value=\"$$2\"></INPUT>\n"; - print "</FORM>\n"; -print "</BODY>\n"; - -print "</HTML>\n"; diff --git a/sd/res/webview/index.pl b/sd/res/webview/index.pl deleted file mode 100644 index e0198e6d3a97..000000000000 --- a/sd/res/webview/index.pl +++ /dev/null @@ -1,17 +0,0 @@ -<HTML> - -<HEAD> - <TITLE>$$1</TITLE> -</HEAD> - -<FRAMESET ROWS="*" BORDER=0 FRAMEBORDER=0 FRAMESPACING=0> - <FRAME SRC="$$3webcast.pl" NAME="frame1" SCROLLING=yes RESIZE MARGINWIDTH=0 MARGINHEIGHT=0 FRAMEBORDER=0> -</FRAMESET> - -<NOFRAMES> - -<BODY BGCOLOR="white"> - <META HTTP-EQUIV="-REFRESH" CONTENT="1;URL=$$3webcast.pl"> -</BODY>; - -</HTML> diff --git a/sd/res/webview/poll.asp b/sd/res/webview/poll.asp deleted file mode 100644 index 0bbce4338ec4..000000000000 --- a/sd/res/webview/poll.asp +++ /dev/null @@ -1,53 +0,0 @@ -<% - Option Explicit - Response.Expires = 0 -%> -<!-- - * This file is part of the LibreOffice project. - * - * This Source Code Form is subject to the terms of the Mozilla Public - * License, v. 2.0. If a copy of the MPL was not distributed with this - * file, You can obtain one at http://mozilla.org/MPL/2.0/. - * - * This file incorporates work covered by the following license notice: - * - * Licensed to the Apache Software Foundation (ASF) under one or more - * contributor license agreements. See the NOTICE file distributed - * with this work for additional information regarding copyright - * ownership. The ASF licenses this file to you under the Apache - * License, Version 2.0 (the "License"); you may not use this file - * except in compliance with the License. You may obtain a copy of - * the License at http://www.apache.org/licenses/LICENSE-2.0 . ---> - -<!-- #include file = "common.inc" --> - -<HTML> - -<HEAD> - <META http-equiv="refresh" CONTENT="<% = cnRefreshTime %>"> -</HEAD> - -<% - ' get current picture id - Dim nGIFID - - nGifID = File_getDataVirtual( csFileCurrent, ".", ";" )( 0 ) - - ' a new picture was chosen ? - if nGIFID <> Session( "GIFID" ) then - ' then store the id of the new picture and show it - Session( "GIFID" ) = nGIFID - %> - <BODY bgcolor="red" onLoad="parent.frame1.location.href='./show.asp?<%= nGIFID %>'"> - <% - else - %> - <BODY bgcolor="green"> - <% - end if -%> - -</BODY> - -</HTML>
\ No newline at end of file diff --git a/sd/res/webview/poll.pl b/sd/res/webview/poll.pl deleted file mode 100644 index 6dded715d3fa..000000000000 --- a/sd/res/webview/poll.pl +++ /dev/null @@ -1,49 +0,0 @@ -#!/usr/bin/env perl -# -# This file is part of the LibreOffice project. -# -# This Source Code Form is subject to the terms of the Mozilla Public -# License, v. 2.0. If a copy of the MPL was not distributed with this -# file, You can obtain one at http://mozilla.org/MPL/2.0/. -# -# This file incorporates work covered by the following license notice: -# -# Licensed to the Apache Software Foundation (ASF) under one or more -# contributor license agreements. See the NOTICE file distributed -# with this work for additional information regarding copyright -# ownership. The ASF licenses this file to you under the Apache -# License, Version 2.0 (the "License"); you may not use this file -# except in compliance with the License. You may obtain a copy of -# the License at http://www.apache.org/licenses/LICENSE-2.0 . -# - -require "common.pl"; - -print "Content-type: text/html\n\n"; -print "<HTML>"; - -# get current and last shown picture id -$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>"; - -#' 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 . "'\">"; -} -else -{ - # otherwise do nothing - print "<BODY bgcolor=\"green\">"; -} - -print "</BODY>"; - -print "</HTML>"; diff --git a/sd/res/webview/savepic.asp b/sd/res/webview/savepic.asp deleted file mode 100644 index 9a9f32cd158c..000000000000 --- a/sd/res/webview/savepic.asp +++ /dev/null @@ -1,56 +0,0 @@ -<% - Option Explicit - Response.Expires = 0 - Response.Buffer = True -%> -<!-- - * This file is part of the LibreOffice project. - * - * This Source Code Form is subject to the terms of the Mozilla Public - * License, v. 2.0. If a copy of the MPL was not distributed with this - * file, You can obtain one at http://mozilla.org/MPL/2.0/. - * - * This file incorporates work covered by the following license notice: - * - * Licensed to the Apache Software Foundation (ASF) under one or more - * contributor license agreements. See the NOTICE file distributed - * with this work for additional information regarding copyright - * ownership. The ASF licenses this file to you under the Apache - * License, Version 2.0 (the "License"); you may not use this file - * except in compliance with the License. You may obtain a copy of - * the License at http://www.apache.org/licenses/LICENSE-2.0 . ---> - -<!-- #include file = "common.inc" --> - -<% - ' get new picture - Dim sCurrPic,aPictureArray, nUpper, nCurrPic - - aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" ) - nUpper = CInt( (UBound(aPictureArray) - 1 ) / 2) - - sCurrPic = Request( "CurrPic" ) - - ' check if + or - was pressed - select case Request( "Auswahl" ) - case "+" - if isNumeric( sCurrPic ) then - sCurrPic = CStr( CLng( sCurrPic ) + 1 ) - end if - case "-" - if isNumeric( sCurrPic ) then - sCurrPic = CStr( CLng( sCurrPic ) - 1 ) - end if - end select - - ' save picture name - if isNumeric( sCurrPic ) then - if (CInt( sCurrPic ) > 0) and ( CInt( sCurrPic ) <= nUpper ) then - call File_writeVirtual( "currpic.txt", ".", sCurrPic ) - end if - end if - - ' return to edit page - Response.Redirect( "./editpic.asp" ) -%> diff --git a/sd/res/webview/savepic.pl b/sd/res/webview/savepic.pl deleted file mode 100644 index 3502312e5067..000000000000 --- a/sd/res/webview/savepic.pl +++ /dev/null @@ -1,58 +0,0 @@ -#!/usr/bin/env perl -# -# This file is part of the LibreOffice project. -# -# This Source Code Form is subject to the terms of the Mozilla Public -# License, v. 2.0. If a copy of the MPL was not distributed with this -# file, You can obtain one at http://mozilla.org/MPL/2.0/. -# -# This file incorporates work covered by the following license notice: -# -# Licensed to the Apache Software Foundation (ASF) under one or more -# contributor license agreements. See the NOTICE file distributed -# with this work for additional information regarding copyright -# ownership. The ASF licenses this file to you under the Apache -# License, Version 2.0 (the "License"); you may not use this file -# except in compliance with the License. You may obtain a copy of -# the License at http://www.apache.org/licenses/LICENSE-2.0 . -# - -require "common.pl"; - -%aRequestMap = common::HTTP_getRequest(); - -# get new picture -$sCurrPic = $aRequestMap{ "CurrPic" }; - -@aPictureArray = common::File_read( "picture.txt" ); -$nPictureArrayLen = @aPictureArray; - -# check if + or - was pressed -if( $aRequestMap{ "Auswahl" } eq "+" ) -{ - $sCurrPic = abs( $sCurrPic ) + 1; -} - -if( $aRequestMap{ "Auswahl" } eq "-" ) -{ - $sCurrPic = abs( $sCurrPic ) - 1; -} - -# save picture name -if( (abs( $sCurrPic ) > 0) && ( abs( $sCurrPic ) < ( $nPictureArrayLen ) ) ) -{ - open( F_CURRPIC, ">currpic.txt"); - print F_CURRPIC abs( $sCurrPic ); - close( F_CURRPIC ); -} - -# return to edit page -print "Content-type: text/html\n\n"; -print "<HTML>\n<HEAD>\n"; -print "<META http-equiv=\"refresh\" CONTENT=\"0 ;URL=editpic.pl\">"; -print "<title>savepic.pl</title>"; -print "</HEAD>\n"; -print "<BODY>\n"; -print "</BODY>\n"; -print "</HTML>\n"; -%> diff --git a/sd/res/webview/show.asp b/sd/res/webview/show.asp deleted file mode 100644 index c595167064d8..000000000000 --- a/sd/res/webview/show.asp +++ /dev/null @@ -1,59 +0,0 @@ -<% - Option Explicit - Response.Expires = 0 -%> -<!-- - * This file is part of the LibreOffice project. - * - * This Source Code Form is subject to the terms of the Mozilla Public - * License, v. 2.0. If a copy of the MPL was not distributed with this - * file, You can obtain one at http://mozilla.org/MPL/2.0/. - * - * This file incorporates work covered by the following license notice: - * - * Licensed to the Apache Software Foundation (ASF) under one or more - * contributor license agreements. See the NOTICE file distributed - * with this work for additional information regarding copyright - * ownership. The ASF licenses this file to you under the Apache - * License, Version 2.0 (the "License"); you may not use this file - * except in compliance with the License. You may obtain a copy of - * the License at http://www.apache.org/licenses/LICENSE-2.0 . ---> - -<!-- #include file = "common.inc" --> - -<% - Dim sGifName1, sGifName2, nGifID, aPictureArray - - nGifID = Session( "GIFID" ) - - ' get current and next picture - aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" ) - - ' not last picture or wrong input ? - If CInt( nGifID ) < UBound( aPictureArray ) / 2 Then - sGifName1 = aPictureArray( ( nGifID - 1 ) * 2 + 1 ) - sGifName2 = aPictureArray( ( nGifID ) * 2 + 1 ) - Else - nGifID = CInt( UBound( aPictureArray ) / 2 ) - sGifName1 = aPictureArray( ( nGifID - 1 ) * 2 + 1 ) - sGifName2 = sGifName1 - End If -%> - -<HTML> - -<HEAD> - <TITLE>$$1</TITLE> -</HEAD> - -<BODY bgcolor="white"> - <table width=100% height=99%> - <tr valign=center><td align=center> - <IMG src="<% = sGifName1 %>" width=$$4 height=$$5 border=0> - <br><IMG src="<% = sGifName2 %>" width=1 height=1 border=0> - </td></tr> - </table> -</BODY> - -</HTML>
\ No newline at end of file diff --git a/sd/res/webview/show.pl b/sd/res/webview/show.pl deleted file mode 100644 index 3252eaeb8c3b..000000000000 --- a/sd/res/webview/show.pl +++ /dev/null @@ -1,56 +0,0 @@ -#!/usr/bin/env perl -# -# This file is part of the LibreOffice project. -# -# This Source Code Form is subject to the terms of the Mozilla Public -# License, v. 2.0. If a copy of the MPL was not distributed with this -# file, You can obtain one at http://mozilla.org/MPL/2.0/. -# -# This file incorporates work covered by the following license notice: -# -# Licensed to the Apache Software Foundation (ASF) under one or more -# contributor license agreements. See the NOTICE file distributed -# with this work for additional information regarding copyright -# ownership. The ASF licenses this file to you under the Apache -# License, Version 2.0 (the "License"); you may not use this file -# except in compliance with the License. You may obtain a copy of -# the License at http://www.apache.org/licenses/LICENSE-2.0 . -# - -require "common.pl"; - -print "Content-type: text/html\n\n"; - -# get current and next picture -$sCurrPic = join( "", common::File_read( "currpic.txt" ) ); -@aPictureArray = common::File_read( "picture.txt" ); - -# not last picture or wrong input ? -if( abs( $sCurrPic ) > 0 ) -{ - $nCurrPic = abs( $sCurrPic ); - $nPictureArrayLen = @aPictureArray; - if( $nCurrPic < $nPictureArrayLen ) - { - $sPictureName1 = ( split( ";", @aPictureArray[ $nCurrPic ] ) )[ 1 ]; - $sPictureName2 = ( split( ";", @aPictureArray[ $nCurrPic + 1 ] ) )[ 1 ]; - } - else - { - $sPictureName1 = ( split( ";", @aPictureArray[ $nCurrPic ] ) )[ 1 ]; - $sPictureName2 = $sPictureName1; - } -} - -print "<HTML>"; - -print "<HEAD>"; - print "<TITLE>$$1</TITLE>"; -print "</HEAD>"; - -print "<BODY bgcolor=\"white\">"; - print "<P ALIGN=CENTER><IMG src=\"" . $sPictureName1 . "\" width=$$4 height=$$5 border=0>"; - print "<P><IMG src=\"" . $sPictureName2 . "\" width=1 height=1 border=0>"; -print "</BODY>"; - -print "</HTML>"; diff --git a/sd/res/webview/webcast.asp b/sd/res/webview/webcast.asp deleted file mode 100644 index f084fc2dfc33..000000000000 --- a/sd/res/webview/webcast.asp +++ /dev/null @@ -1,45 +0,0 @@ -<% - Option Explicit - Response.Expires = 0 -%> -<!-- - * This file is part of the LibreOffice project. - * - * This Source Code Form is subject to the terms of the Mozilla Public - * License, v. 2.0. If a copy of the MPL was not distributed with this - * file, You can obtain one at http://mozilla.org/MPL/2.0/. - * - * This file incorporates work covered by the following license notice: - * - * Licensed to the Apache Software Foundation (ASF) under one or more - * contributor license agreements. See the NOTICE file distributed - * with this work for additional information regarding copyright - * ownership. The ASF licenses this file to you under the Apache - * License, Version 2.0 (the "License"); you may not use this file - * except in compliance with the License. You may obtain a copy of - * the License at http://www.apache.org/licenses/LICENSE-2.0 . ---> - -<!-- #include file = "common.inc" --> - -<% - Session( "GIFID" ) = File_getDataVirtual( csFileCurrent, ".", ";" )( 0 ) -%> - -<HTML> - -<HEAD> -</HEAD> - -<FRAMESET ROWS="*,2" BORDER=0 FRAMEBORDER=0 FRAMESPACING=0> - <FRAME SRC="./show.asp" NAME="frame1" SCROLLING=yes RESIZE MARGINWIDTH=0 MARGINHEIGHT=0 FRAMEBORDER=0> - <FRAME SRC="./poll.asp" NAME="frame2" SCROLLING=no NORESIZE MARGINWIDTH=0 MARGINHEIGHT=0 FRAMEBORDER=0> -</FRAMESET> - -<NOFRAMES> - -<BODY BGCOLOR="white"> - <META HTTP-EQUIV="-REFRESH" CONTENT="1;URL=./show.asp"> -</BODY> - -</HTML>
\ No newline at end of file diff --git a/sd/res/webview/webcast.pl b/sd/res/webview/webcast.pl deleted file mode 100644 index 37c80e5a1f89..000000000000 --- a/sd/res/webview/webcast.pl +++ /dev/null @@ -1,38 +0,0 @@ -#!/usr/bin/env perl -# -# This file is part of the LibreOffice project. -# -# This Source Code Form is subject to the terms of the Mozilla Public -# License, v. 2.0. If a copy of the MPL was not distributed with this -# file, You can obtain one at http://mozilla.org/MPL/2.0/. -# -# This file incorporates work covered by the following license notice: -# -# Licensed to the Apache Software Foundation (ASF) under one or more -# contributor license agreements. See the NOTICE file distributed -# with this work for additional information regarding copyright -# ownership. The ASF licenses this file to you under the Apache -# License, Version 2.0 (the "License"); you may not use this file -# except in compliance with the License. You may obtain a copy of -# the License at http://www.apache.org/licenses/LICENSE-2.0 . -# - -print "Content-type: text/html\n\n"; - -print "<HTML>"; - -print "<HEAD>"; -print "</HEAD>"; - -print "<FRAMESET ROWS=\"*,2\" BORDER=0 FRAMEBORDER=0 FRAMESPACING=0>"; - print "<FRAME SRC=\"./show.pl\" NAME=\"frame1\" SCROLLING=yes RESIZE MARGINWIDTH=0 MARGINHEIGHT=0 FRAMEBORDER=0>"; - print "<FRAME SRC=\"./poll.pl\" NAME=\"frame2\" SCROLLING=no NORESIZE MARGINWIDTH=0 MARGINHEIGHT=0 FRAMEBORDER=0>"; -print "</FRAMESET>"; - -print "<NOFRAMES>"; - -print "<BODY BGCOLOR=\"white\">"; - print "<META HTTP-EQUIV=\"-REFRESH\" CONTENT=\"1;URL=./show.pl\">"; -print "</BODY>"; - -print "</HTML>"; |