# 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 = ""; $out .= ""; $out .= "" foreach $self->args; $out .= "
" . LJ::ehtml( $self->{command} ) . "" . LJ::ehtml($_) . "
"; return $out; } 1;