diff options
Diffstat (limited to 'sd/res')
26 files changed, 578 insertions, 0 deletions
diff --git a/sd/res/buttons/glas-blue.zip b/sd/res/buttons/glas-blue.zip Binary files differnew file mode 100644 index 000000000000..93a380b6c522 --- /dev/null +++ b/sd/res/buttons/glas-blue.zip diff --git a/sd/res/buttons/glas-green.zip b/sd/res/buttons/glas-green.zip Binary files differnew file mode 100644 index 000000000000..af1543545442 --- /dev/null +++ b/sd/res/buttons/glas-green.zip diff --git a/sd/res/buttons/glas-red.zip b/sd/res/buttons/glas-red.zip Binary files differnew file mode 100644 index 000000000000..914514c7f166 --- /dev/null +++ b/sd/res/buttons/glas-red.zip diff --git a/sd/res/buttons/round-gorilla.zip b/sd/res/buttons/round-gorilla.zip Binary files differnew file mode 100644 index 000000000000..727df6b92e52 --- /dev/null +++ b/sd/res/buttons/round-gorilla.zip diff --git a/sd/res/buttons/round-white.zip b/sd/res/buttons/round-white.zip Binary files differnew file mode 100644 index 000000000000..9c5f1b2aaa3e --- /dev/null +++ b/sd/res/buttons/round-white.zip diff --git a/sd/res/buttons/simple.zip b/sd/res/buttons/simple.zip Binary files differnew file mode 100644 index 000000000000..60c0b095702a --- /dev/null +++ b/sd/res/buttons/simple.zip diff --git a/sd/res/buttons/square-blue.zip b/sd/res/buttons/square-blue.zip Binary files differnew file mode 100644 index 000000000000..86c33465fb6d --- /dev/null +++ b/sd/res/buttons/square-blue.zip diff --git a/sd/res/buttons/square-gray.zip b/sd/res/buttons/square-gray.zip Binary files differnew file mode 100644 index 000000000000..31713b7975c3 --- /dev/null +++ b/sd/res/buttons/square-gray.zip diff --git a/sd/res/buttons/square-green.zip b/sd/res/buttons/square-green.zip Binary files differnew file mode 100644 index 000000000000..6962225306d0 --- /dev/null +++ b/sd/res/buttons/square-green.zip diff --git a/sd/res/buttons/square-red.zip b/sd/res/buttons/square-red.zip Binary files differnew file mode 100644 index 000000000000..8199cbe736b6 --- /dev/null +++ b/sd/res/buttons/square-red.zip diff --git a/sd/res/buttons/square-yellow.zip b/sd/res/buttons/square-yellow.zip Binary files differnew file mode 100644 index 000000000000..27af86075ee5 --- /dev/null +++ b/sd/res/buttons/square-yellow.zip 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/common.pl b/sd/res/webview/common.pl new file mode 100644 index 000000000000..fc4a4866a6d7 --- /dev/null +++ b/sd/res/webview/common.pl @@ -0,0 +1,48 @@ +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;
\ 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/edit.pl b/sd/res/webview/edit.pl new file mode 100644 index 000000000000..e1888f7fef3e --- /dev/null +++ b/sd/res/webview/edit.pl @@ -0,0 +1,18 @@ +<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>
\ 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/editpic.pl b/sd/res/webview/editpic.pl new file mode 100644 index 000000000000..834421601b77 --- /dev/null +++ b/sd/res/webview/editpic.pl @@ -0,0 +1,40 @@ +#!/usr/bin/perl + +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 new file mode 100644 index 000000000000..1fb265f54092 --- /dev/null +++ b/sd/res/webview/index.pl @@ -0,0 +1,17 @@ +<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>
\ No newline at end of file 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/poll.pl b/sd/res/webview/poll.pl new file mode 100644 index 000000000000..08a31c3e22b4 --- /dev/null +++ b/sd/res/webview/poll.pl @@ -0,0 +1,32 @@ +#!/usr/bin/perl + +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>";
\ 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/savepic.pl b/sd/res/webview/savepic.pl new file mode 100644 index 000000000000..8d545aa108b0 --- /dev/null +++ b/sd/res/webview/savepic.pl @@ -0,0 +1,41 @@ +#!/usr/bin/perl + +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 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/show.pl b/sd/res/webview/show.pl new file mode 100644 index 000000000000..9687bd995538 --- /dev/null +++ b/sd/res/webview/show.pl @@ -0,0 +1,39 @@ +#!/usr/bin/perl + +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>";
\ 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 diff --git a/sd/res/webview/webview.pl b/sd/res/webview/webview.pl new file mode 100644 index 000000000000..299c9480e330 --- /dev/null +++ b/sd/res/webview/webview.pl @@ -0,0 +1,21 @@ +#!/usr/bin/perl + +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>";
\ No newline at end of file |