60 lines
1.6 KiB
Perl
60 lines
1.6 KiB
Perl
|
# This code was forked from the LiveJournal project owned and operated
|
||
|
|
# by Live Journal, Inc. The code has been modified and expanded by
|
||
|
|
# Dreamwidth Studios, LLC. These files were originally licensed under
|
||
|
|
# the terms of the license supplied by Live Journal, Inc, which can
|
||
|
|
# currently be found at:
|
||
|
|
#
|
||
|
|
# http://code.livejournal.org/trac/livejournal/browser/trunk/LICENSE-LiveJournal.txt
|
||
|
|
#
|
||
|
|
# In accordance with the original license, this code and all its
|
||
|
|
# modifications are provided under the GNU General Public License.
|
||
|
|
# A copy of that license can be found in the LICENSE file included as
|
||
|
|
# part of this distribution.
|
||
|
|
|
||
|
|
package LJ::Console::Command::InvalidCommand;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use base qw(LJ::Console::Command);
|
||
|
|
use Carp qw(croak);
|
||
|
|
|
||
|
|
sub cmd {
|
||
|
|
"invalid command";
|
||
|
|
} # deliberately invalid (space) so people can't actually call this directly
|
||
|
|
|
||
|
|
sub desc {
|
||
|
|
"This specifies the console's behavior for invalid input. Requires priv: N/A, can't be called directly.";
|
||
|
|
}
|
||
|
|
|
||
|
|
sub args_desc { [] }
|
||
|
|
|
||
|
|
sub usage { '' }
|
||
|
|
|
||
|
|
sub can_execute { 1 }
|
||
|
|
|
||
|
|
sub is_hidden { 1 }
|
||
|
|
|
||
|
|
sub execute {
|
||
|
|
my ( $self, @args ) = @_;
|
||
|
|
|
||
|
|
return $self->error( "There is no such command '" . LJ::ehtml( $self->{command} ) . "'." );
|
||
|
|
}
|
||
|
|
|
||
|
|
sub as_string {
|
||
|
|
my $self = shift;
|
||
|
|
my $ret = join( " ", $self->{command}, $self->args );
|
||
|
|
return LJ::ehtml($ret);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub as_html {
|
||
|
|
my $self = shift;
|
||
|
|
|
||
|
|
my $out = "<table summary='' border='1' cellpadding='5'><tr>";
|
||
|
|
$out .= "<td><strong>" . LJ::ehtml( $self->{command} ) . "</strong></td>";
|
||
|
|
$out .= "<td>" . LJ::ehtml($_) . "</td>" foreach $self->args;
|
||
|
|
$out .= "</tr></table>";
|
||
|
|
|
||
|
|
return $out;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|