1cdf0e10cSrcweir#!/usr/bin/perl 2cdf0e10cSrcweir######################################################################### 3cdf0e10cSrcweir 4*7e90fac2SAndrew Rist #************************************************************** 5*7e90fac2SAndrew Rist# 6*7e90fac2SAndrew Rist# Licensed to the Apache Software Foundation (ASF) under one 7*7e90fac2SAndrew Rist# or more contributor license agreements. See the NOTICE file 8*7e90fac2SAndrew Rist# distributed with this work for additional information 9*7e90fac2SAndrew Rist# regarding copyright ownership. The ASF licenses this file 10*7e90fac2SAndrew Rist# to you under the Apache License, Version 2.0 (the 11*7e90fac2SAndrew Rist# "License"); you may not use this file except in compliance 12*7e90fac2SAndrew Rist# with the License. You may obtain a copy of the License at 13*7e90fac2SAndrew Rist# 14*7e90fac2SAndrew Rist# http://www.apache.org/licenses/LICENSE-2.0 15*7e90fac2SAndrew Rist# 16*7e90fac2SAndrew Rist# Unless required by applicable law or agreed to in writing, 17*7e90fac2SAndrew Rist# software distributed under the License is distributed on an 18*7e90fac2SAndrew Rist# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 19*7e90fac2SAndrew Rist# KIND, either express or implied. See the License for the 20*7e90fac2SAndrew Rist# specific language governing permissions and limitations 21*7e90fac2SAndrew Rist# under the License. 22*7e90fac2SAndrew Rist# 23*7e90fac2SAndrew Rist#************************************************************** 24*7e90fac2SAndrew Rist 25*7e90fac2SAndrew Rist 26cdf0e10cSrcweir 27cdf0e10cSrcweir#################################################################### 28cdf0e10cSrcweir# File Name: template.pl 29cdf0e10cSrcweir# Version : 1.0 30cdf0e10cSrcweir# Project : XMerge 31cdf0e10cSrcweir# Author : Brian Cameron 32cdf0e10cSrcweir# Date : 5th Sept. 2001 33cdf0e10cSrcweir# 34cdf0e10cSrcweir# Takes x and y from the command line and taps the screen there. 35cdf0e10cSrcweir# Assumes pose is already running. 36cdf0e10cSrcweir# 37cdf0e10cSrcweir########################################################################## 38cdf0e10cSrcweir 39cdf0e10cSrcweirif ($#ARGV != 1) 40cdf0e10cSrcweir{ 41cdf0e10cSrcweir print "\nUsage: $0 x y\n\n"; 42cdf0e10cSrcweir exit -1; 43cdf0e10cSrcweir} 44cdf0e10cSrcweir 45cdf0e10cSrcweiruse lib "$ENV{qa-dir}/lib"; 46cdf0e10cSrcweiruse converterlib; 47cdf0e10cSrcweir 48cdf0e10cSrcweir# Put commands to run between the open_connection() and 49cdf0e10cSrcweir# close_connection() calls... 50cdf0e10cSrcweir# 51cdf0e10cSrcweiropen_connection(); 52cdf0e10cSrcweir 53cdf0e10cSrcweirTapPen($ARGV[0], $ARGV[1]); 54cdf0e10cSrcweir 55cdf0e10cSrcweirclose_connection(); 56cdf0e10cSrcweir 57cdf0e10cSrcweir 58