testautomation/framework/optional/input/resetregistration.txt

   1 '*************************************************************************
   2 '
   3 ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '
   5 ' Copyright 2008 by Sun Microsystems, Inc.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' \$RCSfile: resetregistration.txt,v $
  10 '
  11 ' \$Revision: 1.2 $
  12 '
  13 ' This file is part of OpenOffice.org.
  14 '
  15 ' OpenOffice.org is free software: you can redistribute it and/or modify
  16 ' it under the terms of the GNU Lesser General Public License version 3
  17 ' only, as published by the Free Software Foundation.
  18 '
  19 ' OpenOffice.org is distributed in the hope that it will be useful,
  20 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 ' GNU Lesser General Public License version 3 for more details
  23 ' (a copy is included in the LICENSE file that accompanied this code).
  24 '
  25 ' You should have received a copy of the GNU Lesser General Public License
  26 ' version 3 along with OpenOffice.org.  If not, see
  27 ' <http://www.openoffice.org/license.html>
  28 ' for a copy of the LGPLv3 License.
  29 '
  30 '*************************************************************************
  31
  32 REM  *****  BASIC  *****
  33
  34 Option Explicit
  35
  36 Sub ResetRegistration
  37         ' access the global configuration provider
  38         Dim aConfigProvider As Object
  39         aConfigProvider = createUnoService( "com.sun.star.configuration.ConfigurationProvider" )
  40
  41         ' params for creating config access objects
  42         Dim aParams(0) As new com.sun.star.beans.PropertyValue
  43         aParams(0).Name = "nodepath"
  44
  45         ' create an access object for the jobs key
  46         Dim aRegReq As Object
  47         aParams(0).Value = "/org.openoffice.Office.Jobs/Jobs/RegistrationRequest"
  48         aRegReq = aConfigProvider.createInstanceWithArguments( _
  49                 "com.sun.star.configuration.ConfigurationUpdateAccess", _
  50                 aParams() )
  51
  52         ' reset the user time (which means the job will be executed next time)
  53         aRegReq.setPropertyToDefault( "UserTime" ) ' = "01.01.2001/00:00:00"
  54         aRegReq.commitChanges
  55
  56         ' create an access object for the Registration key
  57         Dim aRegistrationSettings As Object
  58         aParams(0).Value = "/org.openoffice.Office.Common/Help/Registration"
  59         aRegistrationSettings = aConfigProvider.createInstanceWithArguments( _
  60                 "com.sun.star.configuration.ConfigurationUpdateAccess", _
  61                 aParams() )
  62
  63         aRegistrationSettings.RequestDialog = 1
  64         aRegistrationSettings.setPropertyToDefault( "ReminderDate" )
  65         aRegistrationSettings.commitChanges
  66 End Sub
  67