diff options
author | Jens-Heiner Rechtien <hr@openoffice.org> | 2000-09-18 16:07:07 +0000 |
---|---|---|
committer | Jens-Heiner Rechtien <hr@openoffice.org> | 2000-09-18 16:07:07 +0000 |
commit | f47a9d9db3d06927380bb79b04bb6d4721a92d2b (patch) | |
tree | 19d89fdf39c23688415f8884ec433f02fdce7672 /sd/res |
initial import
Diffstat (limited to 'sd/res')
-rw-r--r-- | sd/res/webview/common.inc | 110 | ||||
-rw-r--r-- | sd/res/webview/edit.asp | 9 | ||||
-rw-r--r-- | sd/res/webview/editpic.asp | 58 | ||||
-rw-r--r-- | sd/res/webview/poll.asp | 36 | ||||
-rw-r--r-- | sd/res/webview/savepic.asp | 39 | ||||
-rw-r--r-- | sd/res/webview/show.asp | 42 | ||||
-rw-r--r-- | sd/res/webview/webview.asp | 28 |
7 files changed, 322 insertions, 0 deletions
diff --git a/sd/res/webview/common.inc b/sd/res/webview/common.inc new file mode 100644 index 000000000000..f0dd463821d2 --- /dev/null +++ b/sd/res/webview/common.inc @@ -0,0 +1,110 @@ +<% + +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, sSeperator ) + 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, sSeperator) + File_getDataVirtual = Split( File_getDataVirtual, sSeperator) + 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/edit.asp b/sd/res/webview/edit.asp new file mode 100644 index 000000000000..654a441fe357 --- /dev/null +++ b/sd/res/webview/edit.asp @@ -0,0 +1,9 @@ +<HTML> +<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/editpic.asp b/sd/res/webview/editpic.asp new file mode 100644 index 000000000000..34a4a51e4473 --- /dev/null +++ b/sd/res/webview/editpic.asp @@ -0,0 +1,58 @@ +<% + Option Explicit + Response.Expires = 0 + Response.Buffer = True +%> + +<!-- #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/poll.asp b/sd/res/webview/poll.asp new file mode 100644 index 000000000000..dd1a9bfe0022 --- /dev/null +++ b/sd/res/webview/poll.asp @@ -0,0 +1,36 @@ +<% + Option Explicit + Response.Expires = 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/savepic.asp b/sd/res/webview/savepic.asp new file mode 100644 index 000000000000..71adefc4f391 --- /dev/null +++ b/sd/res/webview/savepic.asp @@ -0,0 +1,39 @@ +<% + Option Explicit + Response.Expires = 0 + Response.Buffer = True +%> + +<!-- #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/show.asp b/sd/res/webview/show.asp new file mode 100644 index 000000000000..b66103cc6edf --- /dev/null +++ b/sd/res/webview/show.asp @@ -0,0 +1,42 @@ +<% + Option Explicit + Response.Expires = 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/webview.asp b/sd/res/webview/webview.asp new file mode 100644 index 000000000000..f3c3af760eda --- /dev/null +++ b/sd/res/webview/webview.asp @@ -0,0 +1,28 @@ +<% + Option Explicit + Response.Expires = 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 |