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