sd/res/webview/common.inc

   1 /*
   2  * This file is part of the LibreOffice project.
   3  *
   4  * This Source Code Form is subject to the terms of the Mozilla Public
   5  * License, v. 2.0. If a copy of the MPL was not distributed with this
   6  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7  *
   8  * This file incorporates work covered by the following license notice:
   9  *
  10  *   Licensed to the Apache Software Foundation (ASF) under one or more
  11  *   contributor license agreements. See the NOTICE file distributed
  12  *   with this work for additional information regarding copyright
  13  *   ownership. The ASF licenses this file to you under the Apache
  14  *   License, Version 2.0 (the "License"); you may not use this file
  15  *   except in compliance with the License. You may obtain a copy of
  16  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  17  */
  18
  19 <%
  20
  21 public const cnRefreshTime  = 5    ' refresh time in seconds
  22
  23 ' filename for file with all pictures and file containing the name of the current picture
  24 public const csFilePicture= "picture.txt"
  25 public const csFileCurrent= "currpic.txt"
  26
  27 ' constants for file-access
  28 const ForReading    =  1
  29 const ForWriting    =  2
  30
  31 ' new-line delimiter
  32 Dim FILE_LINE_DELIMITER
  33 FILE_LINE_DELIMITER = vbCRLF
  34
  35 '/**
  36 ' * Get data from file using a given separator.
  37 ' */
  38 function File_getDataVirtual( sFilename, sServerPath, sSeparator )
  39     call Err.Clear()
  40
  41     Dim aFSObject, sServerFileName
  42
  43     Set aFSObject = CreateObject("Scripting.FileSystemObject")
  44     sServerFileName = aFSObject.BuildPath( Server.MapPath( sServerPath ), sFileName )
  45
  46     File_getDataVirtual = ""
  47     if Err.Number = 0 then
  48         File_getDataVirtual = File_read( sServerFileName )
  49         If Not IsNull(File_getDataVirtual) Then
  50             File_getDataVirtual = Replace( File_getDataVirtual, FILE_LINE_DELIMITER, sSeparator)
  51             File_getDataVirtual = Split( File_getDataVirtual, sSeparator)
  52         End If
  53     end if
  54 end function
  55
  56 '/**
  57 ' * Get data from a file
  58 ' */
  59 function File_read( sFilename )
  60     call Err.Clear()
  61
  62     Dim aFSObject, aStream
  63
  64     Set aFSObject = CreateObject( "Scripting.FileSystemObject" )
  65     Set aStream = aFSObject.OpenTextFile( sFilename, ForReading )
  66
  67     while not aStream.AtEndOfStream
  68         File_read = File_read + aStream.ReadLine + FILE_LINE_DELIMITER
  69     wend
  70
  71     aStream.Close
  72 end function
  73
  74 '/**
  75 ' * Get data from a file given by filename and virtual pathname
  76 ' */
  77 Function File_readVirtual(sFileName, sServerPath)
  78     call Err.Clear()
  79
  80     Dim aFSObject, sServerFileName
  81
  82     Set aFSObject = CreateObject("Scripting.FileSystemObject")
  83     sServerFileName = aFSObject.BuildPath( Server.MapPath( sServerPath ), sFileName )
  84
  85     File_readVirtual = ""
  86     if Err.Number = 0 then
  87         File_readVirtual = File_read( sServerFileName )
  88     end if
  89 End Function
  90
  91 '/**
  92 ' * Write data to a file
  93 ' */
  94 function File_write( sFileName, sText )
  95     call Err.Clear()
  96
  97     Dim aFSObject, aFile
  98
  99     Set aFSObject = CreateObject( "Scripting.FileSystemObject" )
 100     if Err.Number = 0 then
 101         Set aFile = aFSObject.CreateTextFile( sFileName, TRUE )
 102         if Err.Number = 0 then
 103             aFile.Write( sText )
 104             aFile.Close
 105         end if
 106     end if
 107
 108     File_write = ( Err.Number = 0 )
 109 end function
 110
 111 '/**
 112 ' * Write data to a file given by filename and virtual pathname
 113 ' */
 114 function File_writeVirtual( sFileName, sServerPath, sText )
 115     call Err.Clear()
 116
 117     Dim aFSObject, aServerFile
 118
 119     Set aFSObject = CreateObject( "Scripting.FileSystemObject" )
 120     aServerFile = aFSObject.BuildPath( Server.MapPath( sServerPath ), sFileName )
 121
 122     If Err.Number = 0 Then
 123         File_writeVirtual = File_write( aServerFile, sText )
 124     else
 125         File_writeVirtual = false
 126     End If
 127 end function
 128 %>