#!/usr/local/bin/perl
#
# $Header: /cvs/ARSperl/example/ars_CopyActiveLink.pl,v 1.2 1998/09/14 17:38:47 jcmurphy Exp $
#
# NAME
# ars_CopyActiveLink.pl [server] [username] [password] [active link]
#
# DESCRIPTION
# copies the given active link to "Copy of ..."
#
# AUTHOR
# Jeff murphy
#
# $Log: ars_CopyActiveLink.pl,v $
# Revision 1.2 1998/09/14 17:38:47 jcmurphy
# changed #!perl path
#
# Revision 1.1 1997/09/04 00:16:00 jcmurphy
# Initial revision
#
#
use
ARS;
(
$c
= ars_Login(
shift
,
shift
,
shift
)) ||
die
"login: $ars_errstr"
;
(
$a
= ars_GetActiveLink(
$c
,
shift
)) ||
die
"GetActiveLink: $ars_errstr"
;
$a
->{name} .=
"Copy of "
;
ars_CreateActiveLink(
$c
,
$a
) ||
die
"$0: ERROR in CreateActiveLink:\n\n$ars_errstr"
;
ars_Logoff(
$c
) ||
die
"Logoff: $ars_errstr"
;