--- nfo/perl/libs/Data/Rap/Command.pm	2003/03/27 15:31:04	1.5
+++ nfo/perl/libs/Data/Rap/Command.pm	2003/03/29 07:10:42	1.6
@@ -1,7 +1,11 @@
 ## ----------------------------------------------------------------------
-##  $Id: Command.pm,v 1.5 2003/03/27 15:31:04 joko Exp $
+##  $Id: Command.pm,v 1.6 2003/03/29 07:10:42 joko Exp $
 ## ----------------------------------------------------------------------
 ##  $Log: Command.pm,v $
+##  Revision 1.6  2003/03/29 07:10:42  joko
+##  + sub _script:
+##    new rap-command: '<script language="msdos/bat|bash|...">...</script>'
+##
 ##  Revision 1.5  2003/03/27 15:31:04  joko
 ##  fixes to modules regarding new namespace(s) below Data::Mungle::*
 ##
@@ -273,6 +277,21 @@
   $self->setInstance($self->{$name}) if $args->{type} eq 'instance';
 }
 
+sub _script {
+  my $self = shift;
+  my $args = shift;
+  my $content = shift;
+  
+  # trace
+  #print Dumper($args);
+  #print Dumper($content);
+
+  my $code = $content->[0]->{content};
+  $code ||= '';
+
+  $self->run_script($args, $code);
+  
+}
 
 1;
 __END__