X-Git-Url: http://git.cascardo.eti.br/?p=cascardo%2Fsendxmpp.git;a=blobdiff_plain;f=sendxmpp;h=91ae1efeb8befb546c21a09455182903078286d8;hp=3959ffbb7fabc9c9e1e080d4c9fbee0aacae0083;hb=HEAD;hpb=9e8e3054fe39c1789d0c07eec77cd6c2bdc661e8 diff --git a/sendxmpp b/sendxmpp index 3959ffb..91ae1ef 100755 --- a/sendxmpp +++ b/sendxmpp @@ -4,31 +4,31 @@ eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}' if 0; # not running under some shell # -# script to send message using xmpp (aka jabber), +# script to send message using xmpp (aka jabber), # somewhat resembling mail(1) # # Author: Dirk-Jan C. Binnema -# Maintainer: Lubomir Host 'rajo' +# Maintainer: Lubomir Host # Copyright (c) 2004 - 2005 Dirk-Jan C. Binnema -# Copyright (c) 2006 - 2007 Lubomir Host 'rajo' +# Copyright (c) 2006 - 2014 Lubomir Host # -# Homepage: http://sendxmpp.platon.sk +# Homepage: http://sendxmpp.hostname.sk # # Released under the terms of the GNU General Public License v2 # -# $Platon: sendxmpp/sendxmpp,v 1.13 2007-09-10 19:08:35 rajo Exp $ -# $Id: $ use Authen::SASL qw(Perl); # authentication broken if Authen::SASL::Cyrus module installed use Net::XMPP; +use Net::Domain; use Getopt::Long; + use strict; -use open ':utf8'; -use open ':std'; +use open ':utf8'; +use open ':std'; # subroutines decls -sub xmpp_login($$$$$$$$); +sub xmpp_login($$$$$$$$$$$$); sub xmpp_send ($$$$); sub xmpp_send_raw_xml($$); sub xmpp_send_message($$$$$$); @@ -44,96 +44,103 @@ sub terminate(); sub main(); my # MakeMaker -$VERSION = [ q$Revision: 1.13 $ =~ m/(\S+)\s*$/g ]->[0]; +$VERSION = 1.24; my $RESOURCE = 'sendxmpp'; my $VERBOSE = 0; my $DEBUG = 0; - +# http://tools.ietf.org/html/rfc3921#section-2 section 2.1.1 - Types of Message +my @suppported_message_types = qw( chat error groupchat headline ); +my $message_type = 'chat'; # default message type + # start! &main; # # main: main routine # -sub main () { +sub main () { # {{{ my $cmdline = parse_cmdline(); - + $| = 1; # no output buffering $DEBUG = 1 if ($$cmdline{'debug'}); $VERBOSE = 1 if ($$cmdline{'verbose'}); - + my $config = read_config_file ($$cmdline{'file'}) - unless ($$cmdline{'jserver'} && $$cmdline{'username'} && $$cmdline{'password'}); - + unless ($$cmdline{'sso'} || ($$cmdline{'username'} && $$cmdline{'password'})); + # login to xmpp - my $cnx = xmpp_login ($$cmdline{'jserver'} || $$config{'jserver'}, - $$cmdline{'port'} || $$config{'port'}, - $$cmdline{'username'} || $$config{'username'}, - $$cmdline{'password'} || $$config{'password'}, - $$cmdline{'component'}|| $$config{'component'}, - $$cmdline{'resource'}, - $$cmdline{'tls'}, - $$cmdline{'debug'}) - or error_exit("cannot login: $!"); - - - # read message from STDIN or or from -m/--message parameter + my $cnx = xmpp_login ( + $$cmdline{'jserver'} || $$config{'jserver'}, + $$cmdline{'port'} || $$config{'port'} || ($$cmdline{'ssl'} ? 5223 : 5222), + $$cmdline{'username'} || $$config{'username'}, + $$cmdline{'password'} || $$config{'password'}, + $$cmdline{'component'}|| $$config{'component'}, + $$cmdline{'resource'}, + $$cmdline{'tls'} || $$config{'tls'} || 0, + $$cmdline{'no-tls-verify'} || $$config{'no-tls-verify'}, + $$cmdline{'tls-ca-path'} || $$config{'tls-ca-path'} || '', + $$cmdline{'ssl'}, + $$cmdline{'debug'}, + $$cmdline{'sso'} + ) or error_exit("cannot login: $!"); + + + # read message from STDIN or from -m/--message parameter if (!$$cmdline{interactive}) { - - # the non-interactive case - my $txt; - my $message = $$cmdline{'message'}; - if ($message) { - open (MSG, "<$message") - or error_exit ("cannot open message file '$message': $!"); - while () {$txt.=$_}; - close(MSG); - } else { - $txt.=$_ while (); - } - - xmpp_send ($cnx,$cmdline,$config,$txt); - - } else { - # the interactive case, read stdin line by line - - # deal with TERM - $main::CNX = $cnx; - $SIG{INT}=\&terminate; - - # line by line... - while () { - chomp; - xmpp_send ($cnx,$cmdline,$config,$_); - } + # the non-interactive case + my $txt; + my $message = $$cmdline{'message'}; + if ($message) { + open (MSG, "<$message") + or error_exit ("cannot open message file '$message': $!"); + while () { $txt .= $_ }; + close(MSG); + } + else { + $txt .= $_ while (); + } + + xmpp_send ($cnx,$cmdline,$config,$txt); + } + else { + # the interactive case, read stdin line by line - xmpp_logout($cnx); - exit 0; -} + # deal with TERM + $main::CNX = $cnx; + $SIG{INT}=\&terminate; + # line by line... + while () { + chomp; + xmpp_send ($cnx,$cmdline,$config,$_); + } + } + xmpp_logout($cnx); + exit 0; +} # }}} # # read_config_file: read the configuration file # input: filename # output: hash with 'user', 'jserver' and 'password' keys # -sub read_config_file ($) { - +sub read_config_file ($) { # {{{ + # check permissions my $cfg_file = shift; - error_exit ("cannot read $cfg_file: $!") - unless (-r $cfg_file); + error_exit ("cannot read $cfg_file: $!") + unless (-r $cfg_file); my $owner = (stat _ )[4]; error_exit ("you must own $cfg_file") - unless ($owner == $>); + unless ($owner == $>); my $mode = (stat _ )[2] & 07777; error_exit ("$cfg_file must not be accessible by others") if ($mode & 0077); - + open (CFG,"<$cfg_file") or error_exit("cannot open $cfg_file for reading: $!"); @@ -148,75 +155,96 @@ sub read_config_file ($) { #s/\#.*$//; # ignore comments in lines - # Hugo van der Kooij has ccount with '#' as username - if (/([\.\w_#-]+)@([-\.\w:]+)\s+(\S+)\s*(\S+)?$/) { + if (/^([a-z]+):\s*(.*)$/) { + $config{$1} = $2; + } + # Hugo van der Kooij has account with '#' as username + elsif (/([\.\w_#-]+)@([-\.\w:;]+)\s+(\S+)\s*(\S+)?$/) { %config = ( 'username' => $1, - 'jserver' => $2, + 'jserver' => $2, 'port' => 0, 'password' => $3, 'component' => $4, ); - if ($config{'jserver'} =~ /(.*):(\d+)/) { - $config{'jserver'} = $1; - $config{'port'} = $2; - } } else { close CFG; error_exit ("syntax error in line $line of $cfg_file"); } + + # account with weird port number + if (defined($config{'jserver'}) and $config{'jserver'} =~ /(.*):(\d+)/) { + $config{'jserver'} = $1; + $config{'port'} = $2; + } + + # account with specific connection host + if (defined($config{'jserver'}) and $config{'jserver'} =~ /(.*);([-\.\w]+)/) { + $config{'jserver'} = $2; + $config{'username'} .= "\@$1" unless $config{'component'}; + } } - + close CFG; - - error_exit ("no correct config found in $cfg_file") - unless (scalar(%config)); - if ($DEBUG || $VERBOSE) { - while (my ($key,$val) = each %config) { - debug_print ("config: '$key' => '$val'"); - } - } - - return \%config; -} + error_exit ("no correct config found in $cfg_file") + unless (scalar(%config)); + if ($DEBUG || $VERBOSE) { + while (my ($key,$val) = each %config) { + debug_print ("config: '$key' => '$val'"); + } + } + return \%config; +} # }}} # # parse_cmdline: parse commandline options # output: hash with commandline options # -sub parse_cmdline () { - +sub parse_cmdline () { # {{{ + usage() unless (scalar(@ARGV)); - - my ($subject,$file,$resource,$jserver,$port,$username,$password,$component, - $message, $chatroom, $headline, $debug, $tls, $interactive, $help, $raw, $verbose); - my $res = GetOptions ('subject|s=s' => \$subject, - 'file|f=s' => \$file, - 'resource|r=s' => \$resource, - 'jserver|j=s' => \$jserver, - 'component|o=s' => \$component, - 'username|u=s' => \$username, - 'password|p=s' => \$password, - 'message|m=s' => \$message, - 'headline|l' => \$headline, - 'chatroom|c' => \$chatroom, - 'tls|t' => \$tls, - 'interactive|i' => \$interactive, - 'help|usage|h' => \$help, - 'debug|d' => \$debug, - 'raw|w' => \$raw, - 'verbose|v' => \$verbose); - usage () if ($help); - + + my ($subject, $file, $resource, $jserver, $port, $username, $password, $sso, $component, + $message, $chatroom, $headline, $debug, $tls, $ssl, + $no_tls_verify, $tls_ca_path, + $interactive, $help, $raw, $verbose + ); + $debug = 0; + my $res = GetOptions ( + 'subject|s=s' => \$subject, + 'file|f=s' => \$file, + 'resource|r=s' => \$resource, + 'jserver|j=s' => \$jserver, + 'component|o=s' => \$component, + 'username|u=s' => \$username, + 'password|p=s' => \$password, + 'sso' => \$sso, + 'message|m=s' => \$message, + 'headline|l' => \$headline, + 'message-type=s' => \$message_type, + 'chatroom|c' => \$chatroom, + 'tls|t' => \$tls, + 'no-tls-verify|n' => \$no_tls_verify, + 'tls-ca-path|a=s' => \$tls_ca_path, + 'ssl|e' => \$ssl, + 'interactive|i' => \$interactive, + 'help|usage|h' => \$help, + 'debug|d:i' => sub { $debug = $_[1] ? $_[1] : $debug + 1 }, + 'raw|w' => \$raw, + 'verbose|v' => \$verbose + ); + + usage () if ($help); + my @rcpt = @ARGV; if (defined($raw) && scalar(@rcpt) > 0) { - error_exit "You must give a recipient or --raw (but not both)"; + error_exit("You must give a recipient or --raw (but not both)"); } if ($raw && $subject) { error_exit("You cannot specify a subject in raw XML mode"); @@ -226,68 +254,124 @@ sub parse_cmdline () { } if ($message && $interactive) { - error_exit "Cannot have both -m (--message) and -i (--interactive)"; - } + error_exit("Cannot have both -m (--message) and -i (--interactive)"); + } + + if (scalar(grep { $message_type eq $_ } @suppported_message_types) == 0) { + error_exit("Unsupported message type '$message_type'"); + } + + if ($ssl && $tls) { + error_exit("Connect securely wether using -e (--ssl) or -t (--tls)"); + } + + if ($sso && $username) { + error_exit("When using --sso, user should not be specified"); + } + + if ($headline) { + # --headline withouth --message-type + if ($message_type eq 'message' or $message_type eq 'chat') { + $message_type = 'headline' + } + else { + error_exit("Options --headline and --message-type are mutually exclusive"); + } + } if ($jserver && $jserver =~ /(.*):(\d+)/) { $jserver = $1; $port = $2; } - my %dict = ('subject' => ($subject or ''), - 'message' => ($message or ''), - 'resource' => ($resource or $RESOURCE), - 'jserver' => ($jserver or ''), - 'component' => ($component or ''), - 'port' => ($port or 0), - 'username' => ($username or ''), - 'password' => ($password or ''), - 'chatroom' => ($chatroom or 0), - 'headline' => ($headline or 0), - 'interactive' => ($interactive or 0), - 'tls' => ($tls or 0), - 'debug' => ($debug or 0), - 'verbose' => ($verbose or 0), - 'raw' => ($raw or 0), - 'file' => ($file or ($ENV{'HOME'}.'/.sendxmpprc')), - 'recipient' => \@rcpt); + my %dict = ( + 'subject' => ($subject or ''), + 'message' => ($message or ''), + 'resource' => ($resource or $RESOURCE), + 'jserver' => ($jserver or ''), + 'component' => ($component or ''), + 'port' => ($port or 0), + 'username' => ($username or ''), + 'password' => ($password or ''), + 'sso' => ($sso or 0), + 'chatroom' => ($chatroom or 0), + 'message-type' => $message_type, + 'interactive' => ($interactive or 0), + 'tls' => ($tls or 0), + 'no-tls-verify' => ($no_tls_verify or 0), + 'tls-ca-path' => ($tls_ca_path or ''), + 'ssl' => ($ssl or 0), + 'debug' => ($debug or 0), + 'verbose' => ($verbose or 0), + 'raw' => ($raw or 0), + 'file' => ($file or ($ENV{'HOME'}.'/.sendxmpprc')), + 'recipient' => \@rcpt + ); if ($DEBUG || $VERBOSE) { while (my ($key,$val) = each %dict) { debug_print ("cmdline: '$key' => '$val'"); } - } - - return \%dict; -} + } + return \%dict; +} # }}} # # xmpp_login: login to the xmpp (jabber) server -# input: hostname,port,username,password,resource,tls,debug +# input: hostname,port,username,password,resource,tls,ssl,debug # output: an XMPP connection object # -sub xmpp_login ($$$$$$$$) { +sub xmpp_login ($$$$$$$$$$$$) { # {{{ - my ($host, $port, $user, $pw, $comp, $res, $tls, $debug) = @_; - my $cnx = new Net::XMPP::Client(debuglevel=>($debug?2:0)); + my ($host, $port, $user, $pw, $comp, $res, $tls, $no_tls_verify, $tls_ca_path, $ssl, $debug, $sso) = @_; + my $cnx = new Net::XMPP::Client(debuglevel=>$debug); error_exit "could not create XMPP client object: $!" - unless ($cnx); + unless ($cnx); + + my $ssl_verify = 0x01; + if ($no_tls_verify) { $ssl_verify = 0x00; } + debug_print "ssl_verify: $ssl_verify"; + + debug_print "tls_ca_path: $tls_ca_path"; my @res; my $arghash = { hostname => $host, + port => $port, tls => $tls, + ssl_verify => $ssl_verify, + ssl_ca_path => $tls_ca_path, + ssl => $ssl, connectiontype => 'tcpip', componentname => $comp }; - $arghash->{port} = $port if (!$port); - if (!$port) { + + if ($sso) { + $user = join('@', scalar getpwuid($<), Net::Domain::hostdomain()); + debug_print "using SSO user $user"; + } + + # use the xmpp domain as the host and enable SRV lookups + if (!$host) { + if ($user =~ /@(.*)/) { + $arghash->{hostname} = $host = $1; + $arghash->{srv} = 1; + debug_print "enabling SRV lookups"; + + } else { + error_exit "unable to determine a host to connect to (no cmdline, no config, no SRV possible)"; + } + + } + + delete $arghash->{port} unless $port; + if ($arghash->{port}) { @res = $cnx->Connect(%$arghash); - error_exit ("Could not connect to server '$host': $@") unless @res; + error_exit ("Could not connect to '$host' on port $port: ".($cnx->GetErrorCode()||$@)) unless @res; } else { @res = $cnx->Connect(%$arghash); - error_exit ("Could not connect to '$host' on port $port: $@") unless @res; + error_exit ("Could not connect to server '$host': ".($cnx->GetErrorCode()||$@)) unless @res; } xmpp_check_result("Connect",\@res,$cnx); @@ -302,21 +386,18 @@ sub xmpp_login ($$$$$$$$) { 'password' => $pw, 'resource' => $res); xmpp_check_result('AuthSend',\@res,$cnx); - - return $cnx; -} - - + return $cnx; +} # }}} # # xmmp_send: send the message, determine from cmdline # whether it's to individual or chatroom # -sub xmpp_send ($$$$) { - +sub xmpp_send ($$$$) { # {{{ + my ($cnx, $cmdline, $config, $txt) = @_; - + unless ($$cmdline{'chatroom'}) { unless ($$cmdline{'raw'}) { map { @@ -324,7 +405,7 @@ sub xmpp_send ($$$$) { $_, #$$cmdline{'recipient'}, $$cmdline{'component'} || $$config{'component'}, $$cmdline{'subject'}, - $$cmdline{'headline'}, + $$cmdline{'message-type'}, $txt) } @{$$cmdline{'recipient'}}; } @@ -341,175 +422,159 @@ sub xmpp_send ($$$$) { $txt) } @{$$cmdline{'recipient'}}; } -} - - +} # }}} # # xmpp_send_raw_xml: send a raw XML packet # input: connection,packet # -sub xmpp_send_raw_xml ($$) { - +sub xmpp_send_raw_xml ($$) { # {{{ + my ($cnx,$packet) = @_; - + # for some reason, Send does not return anything $cnx->Send($packet); xmpp_check_result('Send',0,$cnx); -} - +} # }}} # # xmpp_send_message: send a message to some xmpp user # input: connection,recipient,subject,msg # -sub xmpp_send_message ($$$$$$) { - - my ($cnx,$rcpt,$comp,$subject,$headline,$msg) = @_; +sub xmpp_send_message ($$$$$$) { # {{{ + + my ($cnx, $rcpt, $comp, $subject, $message_type, $msg) = @_; - my $type = 'message'; - if ($headline) { - $type='headline'; - } - # for some reason, MessageSend does not return anything - $cnx->MessageSend('to' => $rcpt . ( $comp ? "\@$comp" : '' ), - 'type' => $type, + # mimeit01@xmpp.hs-esslingen.de: if $comp IS set, AND the rcpt DOESN'T contain an @, then @comp is added + $cnx->MessageSend('to' => $rcpt . ( ($comp && index($rcpt, "@") == -1) ? "\@$comp" : '' ), + 'type' => $message_type, 'subject' => $subject, 'body' => $msg); - + xmpp_check_result('MessageSend',0,$cnx); -} - - +} # }}} + # # xmpp_send_chatroom_message: send a message to a chatroom # input: connection,resource,subject,recipient,message # -sub xmpp_send_chatroom_message ($$$$$) { +sub xmpp_send_chatroom_message ($$$$$) { # {{{ my ($cnx,$resource,$subject,$rcpt,$msg) = @_; - + # set the presence my $pres = new Net::XMPP::Presence; my $res = $pres->SetTo("$rcpt/$resource"); - $cnx->Send($pres); + $cnx->Send($pres); # create/send the message my $groupmsg = new Net::XMPP::Message; - $groupmsg->SetMessage(to => $rcpt, + $groupmsg->SetMessage(to => $rcpt, body => $msg, type => 'groupchat'); $res = $cnx->Send($groupmsg); - xmpp_check_result ('Send',$res,$cnx); - + xmpp_check_result ('Send',$res,$cnx); + # leave the group $pres->SetPresence (Type=>'unavailable',To=>$rcpt); -} - +} # }}} # # xmpp_logout: log out from the xmpp server # input: connection # -sub xmpp_logout($) { - +sub xmpp_logout($) { # {{{ + # HACK # messages may not be received if we log out too quickly... - sleep 1; - + sleep 1; + my $cnx = shift; $cnx->Disconnect(); xmpp_check_result ('Disconnect',0); # well, nothing to check, really -} - - +} # }}} # # xmpp_check_result: check the return value from some xmpp function execution -# input: text, result, [connection] +# input: text, result, [connection] # -sub xmpp_check_result -{ +sub xmpp_check_result { # {{{ my ($txt, $res, $cnx)=@_; - + error_exit ("Error '$txt': result undefined") unless (defined $res); - + # res may be 0 if ($res == 0) { debug_print "$txt"; - # result can be true or 'ok' + # result can be true or 'ok' } - elsif ((@$res == 1 && $$res[0]) || $$res[0] eq 'ok') { + elsif ((@$res == 1 && $$res[0]) || $$res[0] eq 'ok') { debug_print "$txt: " . $$res[0]; # otherwise, there is some error } - else { + else { my $errmsg = $cnx->GetErrorCode() || '?'; error_exit ("Error '$txt': " . join (': ',@$res) . "[$errmsg]", $cnx); } -} - +} # }}} # # terminate; exit the program upon TERM sig reception # -sub terminate () { +sub terminate () { # {{{ debug_print "caught TERM"; xmpp_logout($main::CNX); exit 0; -} - +} # }}} # # debug_print: print the data if defined and DEBUG || VERBOSE is TRUE # input: [array of strings] # -sub debug_print { +sub debug_print { # {{{ print STDERR "sendxmpp: " . (join ' ', @_) . "\n" if (@_ && ($DEBUG ||$VERBOSE)); -} - +} # }}} # # error_exit: print error message and exit the program -# logs out if there is a connection +# logs out if there is a connection # input: error, [connection] # -sub error_exit { - +sub error_exit { # {{{ + my ($err,$cnx) = @_; - print STDERR "$err\n"; - xmpp_logout ($cnx) + print STDERR "$err\n"; + xmpp_logout ($cnx) if ($cnx); - - exit 1; -} + exit 1; +} # }}} # # usage: print short usage message and exit # -sub usage () { - - print STDERR +sub usage () { # {{{ + + print STDERR "sendxmpp version $VERSION\n" . "Copyright (c) 2004 - 2005 Dirk-Jan C. Binnema\n" . - "Copyright (c) 2006 - 2007 Lubomir Host 'rajo'\n" . + "Copyright (c) 2006 - 2014 Lubomir Host\n" . "usage: sendxmpp [options] [ ...]\n" . "or refer to the the sendxmpp manpage\n"; - - exit 0; -} + exit 0; +} # }}} # # the fine manual # =pod + =head1 NAME sendxmpp - send xmpp messages from the commandline. @@ -541,6 +606,10 @@ Use I instead of the one in the configuration file Use I instead of the one in the configuration file +=item B<--sso> + +Instead of specifying username or password, attempt to use system level SSO (e.g. kerberos) if supported. + =item B<-j>,B<--jserver> I Use jabber I instead of the one in the configuration file. @@ -557,13 +626,29 @@ Use resource I for the sender [default: 'sendxmpp']; when sending to a chat Connect securely, using TLS +=item B<-e>,B<--ssl> + +Connect securely, using SSL + +=item B<-n>,B<--no-tls-verify> + +Deactivate the verification of SSL certificates. Better way is to use parameter B<--tls-ca-path> with the needed path to CA certificates. + +=item B<-a>,B<--tls-ca-path> + +Path to your custom CA certificates, so you can verificate SSL certificates during connecting. + =item B<-l>,B<--headline> -Send a headline type message (not stored in offline messages) +Backward compatibility option. You should use B<--message-type=headline> instead. Send a headline type message (not stored in offline messages) + +=item B<--messages-type> + +Set type of message. Supported types are: B. Default message type is B. Headline type message can be set also with B<--headline> option, see B<--headline> =item B<-c>,B<--chatroom> -Send the message to a chatroom +Send the message to a chatroom =item B<-s>,B<--subject> I @@ -591,14 +676,30 @@ Show a 'Usage' message =item B<-d>,B<--debug> -Show debugging info while running. B: This will include passwords etc. so be careful with the output! +Show debugging info while running. B: This will include passwords etc. so be careful with the output! Specify multiple times to increase debug level. =back =head1 CONFIGURATION FILE -You may define a 'F<~/.sendxmpprc>' file with the necessary data for your -xmpp-account, with a line of the format: +You may define a 'F<~/.sendxmpprc>' file with the necessary data for your +xmpp-account. Since version 1.24 the following format is supported: + + username: I + jserver: I + port: I + password: I + component: I + + +Example for Google Talk servers: + + username: I + jserver: I + password: I + component: I + +With version 1.23 and older only one-line format is supported: =over @@ -635,26 +736,27 @@ file is owned by you and readable only to you (permissions 600). or to send to a chatroom: - $ echo "Dinner Time" | sendxmpp -r TheCook --chatroom test2@conference.jabber.org + $ echo "Dinner Time" | sendxmpp -r TheCook --chatroom test2@conference.jabber.org or to send your system logs somewhere, as new lines appear: - + $ tail -f /var/log/syslog | sendxmpp -i sysadmin@myjabberserver.com - + NOTE: be careful not the overload public jabber services - + =head1 SEE ALSO Documentation for the L module The jabber homepage: L -The sendxmpp homepage: L +The sendxmpp homepage: L =head1 AUTHOR sendxmpp has been written by Dirk-Jan C. Binnema , and uses the L modules written by Ryan Eatmon. Current maintainer is -Lubomir Host 'rajo' , L +Lubomir Host , L =cut +# vim: fdm=marker fdl=0 fdc=3