sub {
my( $kernel, $heap, $who, $what, $src, $dest, $replypath ) = @_;
my( $subj, $predicate ) = split( / /, $what, 2 );
- if( $predicate ) {
+ if( $predicate ) {
$Destult::config{ uc( $subj ) } = $predicate;
DumpFile( "config.yaml", \%Destult::config );
$kernel->post( $src, $replypath, "Okay, $who.", $dest );
$kernel->post( $src, $replypath, $arr[2]." [first: ".$arr[0]."/".$arr[1]."]", $dest );
} else {
my $url = makeashorterlink( $what ) or return;
- $heap->{ 'urls' }->{ uc( $what ) } = [ $who, $dest->{ 'text' }, $url ];
+ $heap->{ 'urls' }->{ uc( $what ) } = [ $who, $dest->{ 'dest' }, $url ];
$kernel->post( $src, $replypath, "$url [$who]", $dest );
}
}