+ my($self, $new, $old ) = (shift, shift, shift);
+ my $command = $self->option('replace');
+
+ #set variable for the command
+ no strict 'vars';
+ {
+ no strict 'refs';
+ ${"old_$_"} = $old->getfield($_) foreach $old->fields;
+ ${"new_$_"} = $new->getfield($_) foreach $new->fields;
+ }
+
+ if ( $self->option('uppercase_mac') ) {
+ $old_mac_addr = uc $old_mac_addr;
+ $new_mac_addr = uc $new_mac_addr;
+ }
+
+ #done setting variables for the command
+
+ $self->shellcommands_queue( $new->svcnum,
+ user => $self->option('user')||'root',
+ host => $self->machine,
+ command => eval(qq("$command")),
+ );