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