mirror of https://github.com/BOINC/boinc.git
45 lines
1.5 KiB
Plaintext
45 lines
1.5 KiB
Plaintext
'' $Id$
|
|
''
|
|
'' The contents of this file are subject to the BOINC Public License
|
|
'' Version 1.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://boinc.berkeley.edu/license_1.0.txt
|
|
''
|
|
'' Software distributed under the License is distributed on an "AS IS"
|
|
'' basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
|
|
'' License for the specific language governing rights and limitations
|
|
'' under the License.
|
|
''
|
|
'' The Original Code is the Berkeley Open Infrastructure for Network Computing.
|
|
''
|
|
'' The Initial Developer of the Original Code is the SETI@home project.
|
|
'' Portions created by the SETI@home project are Copyright (C) 2002
|
|
'' University of California at Berkeley. All Rights Reserved.
|
|
''
|
|
'' Contributor(s):
|
|
''
|
|
|
|
''
|
|
'' This script is called right after all the files have been copied to the
|
|
'' destination folder and before the BOINC service is started. We basically
|
|
'' copy all the account files from the source path to the destination folder.
|
|
''
|
|
|
|
Dim fso
|
|
Dim szInstallDir
|
|
Dim szAccountsLocation
|
|
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
Set szInstallDir = Session.Property("INSTALLDIR")
|
|
Set szAccountsLocation = Session.Property("ACCOUNTS_LOCATION")
|
|
|
|
If (Not( IsEmpty(szAccountsLocation) )) Or (Not( IsNull(szAccountsLocation) )) Then
|
|
|
|
'' Append the wildcard search to the end of the account file location
|
|
'' string
|
|
szAccountsLocation = szAccountsLocation + "\*.xml"
|
|
|
|
fso.CopyFolder szAccountsLocation, szInstallDir
|
|
|
|
End If
|