summaryrefslogtreecommitdiff
path: root/sd/res/webview/common.inc
diff options
context:
space:
mode:
authorMichael Stahl <mstahl@redhat.com>2012-01-28 20:53:50 +0100
committerMichael Stahl <mstahl@redhat.com>2012-01-28 20:53:50 +0100
commit0e1042f42101dd2a7407a38d204de6f4de28890a (patch)
tree9e9f67205cd5b72f1031721273e1534a3a1e5b0f /sd/res/webview/common.inc
parent8377f5594498d5378d67c8a3e06b5e14b0051fb4 (diff)
replace obsolete "master" branch with README that points at new repoHEADmaster-deletedmaster
Diffstat (limited to 'sd/res/webview/common.inc')
-rw-r--r--sd/res/webview/common.inc110
1 files changed, 0 insertions, 110 deletions
diff --git a/sd/res/webview/common.inc b/sd/res/webview/common.inc
deleted file mode 100644
index f0dd46382..000000000
--- a/sd/res/webview/common.inc
+++ /dev/null
@@ -1,110 +0,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, 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