mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-02-08 05:15:10 +00:00
67 lines
1.1 KiB
Perl
67 lines
1.1 KiB
Perl
|
|
# $Id$
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
sub CommandCopy($$);
|
|
|
|
sub
|
|
copy_Initialize($)
|
|
{
|
|
my %lhash = ( Fn=>"CommandCopy",
|
|
Hlp=>"<orig name> <copy name>" );
|
|
$cmds{copy} = \%lhash;
|
|
}
|
|
|
|
sub
|
|
CommandCopy($$)
|
|
{
|
|
my ($hash, $param) = @_;
|
|
|
|
my @args = split(/ +/,$param);
|
|
|
|
return "Usage: copy <orig name> <copy name>" if (@args != 2);
|
|
|
|
my $d = $defs{$args[0]};
|
|
return "$args[0] not defined" if( !$d );
|
|
|
|
my $cmd = "$args[1] $d->{TYPE}";
|
|
$cmd .= " $d->{DEF}" if( $d->{DEF} );
|
|
my $ret = CommandDefine($hash, $cmd );
|
|
return $ret if( $ret );
|
|
|
|
foreach my $a (keys %{$attr{$args[0]}}) {
|
|
CommandAttr($hash, "$args[1] $a $attr{$args[0]}{$a}");
|
|
}
|
|
}
|
|
|
|
1;
|
|
|
|
=pod
|
|
=begin html
|
|
|
|
<a name="copy"></a>
|
|
<h3>copy</h3>
|
|
<ul>
|
|
<code>copy <orig name> <copy name></code><br>
|
|
<br>
|
|
Create a copy of device <orig name> with the name <copy name>.
|
|
</ul>
|
|
|
|
=end html
|
|
|
|
=begin html_DE
|
|
|
|
<a name="copy"></a>
|
|
<h3>copy</h3>
|
|
<ul>
|
|
<code>copy <orig name> <copy name></code><br>
|
|
<br>
|
|
Erzeugt eine Kopie des Device <orig name> mit dem namen <copy name>.
|
|
</ul>
|
|
|
|
=end html_DE
|
|
=cut
|