1#!/usr/bin/perl 2######################################################################### 3 4 #************************************************************************* 5 # 6# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 7# 8# Copyright 2000, 2010 Oracle and/or its affiliates. 9# 10# OpenOffice.org - a multi-platform office productivity suite 11# 12# This file is part of OpenOffice.org. 13# 14# OpenOffice.org is free software: you can redistribute it and/or modify 15# it under the terms of the GNU Lesser General Public License version 3 16# only, as published by the Free Software Foundation. 17# 18# OpenOffice.org is distributed in the hope that it will be useful, 19# but WITHOUT ANY WARRANTY; without even the implied warranty of 20# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 21# GNU Lesser General Public License version 3 for more details 22# (a copy is included in the LICENSE file that accompanied this code). 23# 24# You should have received a copy of the GNU Lesser General Public License 25# version 3 along with OpenOffice.org. If not, see 26# <http://www.openoffice.org/license.html> 27# for a copy of the LGPLv3 License. 28# 29 #************************************************************************* 30 31#################################################################### 32# File Name: template.pl 33# Version : 1.0 34# Project : XMerge 35# Author : Brian Cameron 36# Date : 5th Sept. 2001 37# 38# Takes x and y from the command line and taps the screen there. 39# Assumes pose is already running. 40# 41########################################################################## 42 43if ($#ARGV != 1) 44{ 45 print "\nUsage: $0 x y\n\n"; 46 exit -1; 47} 48 49use lib "$ENV{qa-dir}/lib"; 50use converterlib; 51 52# Put commands to run between the open_connection() and 53# close_connection() calls... 54# 55open_connection(); 56 57TapPen($ARGV[0], $ARGV[1]); 58 59close_connection(); 60 61 62