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