diff options
| author | Andreas Brachold <vdr07@deltab.de> | 2007-09-09 16:24:47 +0000 |
|---|---|---|
| committer | Andreas Brachold <vdr07@deltab.de> | 2007-09-09 16:24:47 +0000 |
| commit | c58704322fa8fcbee809d4c02643197d05293160 (patch) | |
| tree | 317742f5fd47ac8c70791bca517c55abb7f324da /lib/XXV/MODULES/ROBOT.pm | |
| parent | 3c9849839582d238ef75a191728a14b84a8eb577 (diff) | |
| download | xxv-c58704322fa8fcbee809d4c02643197d05293160.tar.gz xxv-c58704322fa8fcbee809d4c02643197d05293160.tar.bz2 | |
* Update english translation
* Send proper mime header if file not modified (on state 304)
Diffstat (limited to 'lib/XXV/MODULES/ROBOT.pm')
| -rw-r--r-- | lib/XXV/MODULES/ROBOT.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/XXV/MODULES/ROBOT.pm b/lib/XXV/MODULES/ROBOT.pm index adfc295..733b1aa 100644 --- a/lib/XXV/MODULES/ROBOT.pm +++ b/lib/XXV/MODULES/ROBOT.pm @@ -10,7 +10,7 @@ $SIG{CHLD} = 'IGNORE'; # ------------------ sub module { # ------------------ - my $obj = shift || return error ('No Object!' ); + my $obj = shift || return error('No object defined!'); my $args = { Name => 'ROBOT', Prereq => { @@ -74,7 +74,7 @@ sub new { # ------------------ sub saveRobot { # ------------------ - my $obj = shift || return error ('No Object!' ); + my $obj = shift || return error('No object defined!'); my $rname = shift || return error ('No robot Name!' ); my $rsub = shift || return error ('No Robot sub!' ); @@ -89,7 +89,7 @@ sub saveRobot { # ------------------ sub register { # ------------------ - my $obj = shift || return error ('No Object!' ); + my $obj = shift || return error('No object defined!'); my $rname = shift || return error ('No robot Name!' ); my @args = @_; @@ -102,7 +102,7 @@ sub register { # ------------------ sub start { # ------------------ - my $obj = shift || return error ('No Object!' ); + my $obj = shift || return error('No object defined!'); my $rname = shift || return error ('No Robot Name to start!'); my $watcher = shift; my $console = shift; @@ -143,7 +143,7 @@ sub start { # ------------------ sub clean { # ------------------ - my $obj = shift || return error ('No Object!' ); + my $obj = shift || return error('No object defined!'); my $rname = shift || return error ('No Robot Name to clean!'); delete $obj->{jobs}->{$rname}; } @@ -152,7 +152,7 @@ sub clean { # ------------------ sub result { # ------------------ - my $obj = shift || return error ('No Object!' ); + my $obj = shift || return error('No object defined!'); my $rname = shift || return error ('No robot Name!' ); return $obj->{result}->{$rname}; @@ -162,7 +162,7 @@ sub result { # ------------------ sub status { # ------------------ - my $obj = shift || return error ('No Object!' ); + my $obj = shift || return error('No object defined!'); my $watcher = shift; my $console = shift; my $rname = shift; |