This is an automated email from the git hooks/post-receive script. x2go pushed a commit to branch master in repository telekinesis. commit ed833bd756feb7a0dab1c0865a00662617fe4014 Author: Mihai Moldovan <ionic@ionic.de> Date: Fri Jan 9 02:16:29 2015 +0100 server: use dos2unix on bin/tekicmd. --- server/bin/tekicmd | 214 ++++++++++++++++++++++++++-------------------------- 1 file changed, 107 insertions(+), 107 deletions(-) diff --git a/server/bin/tekicmd b/server/bin/tekicmd index 4a4f9db..c8518ee 100644 --- a/server/bin/tekicmd +++ b/server/bin/tekicmd @@ -1,107 +1,107 @@ -#!/usr/bin/perl -T -I /home/test2/telekinesis/lib/ -################################################################################################################# -# -# Copyright (C) 2013-2015 X2Go Project - http://wiki.x2go.org -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the -# Free Software Foundation, Inc., -# 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. -# -# Copyright (C) 2013-2015 Guangzhou Nianguan Electronics Technology Co.Ltd. <opensource@gznianguan.com> -# -################################################################################################################# -use strict; -use X2Go::Telekinesis::CoreSupport qw( premZealot getConnectToken getCmdFlags dbugPrint tcDie sanitizeDirPath sanitizeFilePath sanitizer checkPID genRandSID genRandToken clups); -use IO::Socket::UNIX qw( SOCK_STREAM ); -my %CmdFlags = getCmdFlags(@ARGV); -my $X2GoSID = 0; - -if (sanitizer("x2gosid",$CmdFlags{'X2GOSID'})) { - $X2GoSID = sanitizer("x2gosid",$CmdFlags{'X2GOSID'}); -} elsif (sanitizer("x2gosid",$ENV{'X2GO_SESSION'})) { - $X2GoSID = sanitizer("x2gosid",$ENV{'X2GO_SESSION'}); -} else { - print "No X2Go Session ID in ENV or ARGV!\n"; - exit; -} - -my ($uidName,undef) = getpwuid($<); -my $UserHome = sanitizeDirPath($ENV{'HOME'}); -unless (-d $UserHome) {tcDie("User got no HOME directory?");} -my $UserName = sanitizer("pnixusername",$uidName); -if ($UserName eq 0) {tcDie("Is \"$UserName\" a valid portable UNIX username?\nNah.... Didn't think so....\nWe're done! BYE BYE!\n");} -my $X2GoSesHome = sanitizeDirPath("$UserHome/.x2go/C-$X2GoSID"); -my $X2GoTKSHome = "$X2GoSesHome/telekinesis"; -my $TeKiLSockPath = "$X2GoSesHome/telekinesis/local/sock"; - -if (lc(@ARGV[0]) =~ /-shell/) { - print "Telekinesis Interactive SHELL:\n(Hint: 'help' prints available commands...)\n"; - cmdPrompt(); -} else { - if ($CmdFlags{'SESSIONSUSPEND'}) { -# print "SUSPEND\n"; - doLocalQuickie("CORE|SUSPEND"); - } elsif ($CmdFlags{'SESSIONRESUME'}) { -# print "RESUME\n"; - doLocalQuickie("CORE|RESUME"); - } -} - - - - - - -sub cmdPrompt { - print "\nTeKi# "; - my $cmd = lc(<STDIN>);$cmd =~ s/[\n]//g; -# print " GOT: $cmd\n"; - - if ($cmd =~ /help/) { - print "In interactive mode the 'tekicmd' tool is most usefull for debugging.\n", - "The following commands are available in this interactive shell:\n\n", - " help Shows this help message.\n", - " quit/exit Terminates this tool. The Telekinesis instance is unaffected\n"; - } elsif ($cmd =~ /hello/) { - print "Yes yes yes.... Hello to you too!\n"; - } elsif ($cmd =~ /fuck/) { - print "Seriously!?!?! Profanities?! Like that's going to help....\n"; - } else { - print "'$cmd' does not seem to be a valid command....\nIf it wasnt a simple typo, you'd probably want to check out the 'help' command\nJust saying....\n"; - } - unless (($cmd =~ /exit/) or ($cmd =~ /quit/)) { - cmdPrompt(); - } else { - print "\nExiting... bye bye!\n\n"; - exit; - } -} - -sub doLocalQuickie { - my $stuffToSay = clups($_[0]); - if (-S $TeKiLSockPath) { - my $QuickSocket = IO::Socket::UNIX->new( Peer => $TeKiLSockPath, - Type => SOCK_STREAM, - Timeout => 10 ); - if (defined $QuickSocket) { - print $QuickSocket "\nQUICKIE|$stuffToSay|\n"; - $QuickSocket->close; - $QuickSocket = undef; - } else { - die("ERROR: Can't connect to local socket"); - } - } else {return 0;} -} - - +#!/usr/bin/perl -T -I /home/test2/telekinesis/lib/ +################################################################################################################# +# +# Copyright (C) 2013-2015 X2Go Project - http://wiki.x2go.org +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the +# Free Software Foundation, Inc., +# 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. +# +# Copyright (C) 2013-2015 Guangzhou Nianguan Electronics Technology Co.Ltd. <opensource@gznianguan.com> +# +################################################################################################################# +use strict; +use X2Go::Telekinesis::CoreSupport qw( premZealot getConnectToken getCmdFlags dbugPrint tcDie sanitizeDirPath sanitizeFilePath sanitizer checkPID genRandSID genRandToken clups); +use IO::Socket::UNIX qw( SOCK_STREAM ); +my %CmdFlags = getCmdFlags(@ARGV); +my $X2GoSID = 0; + +if (sanitizer("x2gosid",$CmdFlags{'X2GOSID'})) { + $X2GoSID = sanitizer("x2gosid",$CmdFlags{'X2GOSID'}); +} elsif (sanitizer("x2gosid",$ENV{'X2GO_SESSION'})) { + $X2GoSID = sanitizer("x2gosid",$ENV{'X2GO_SESSION'}); +} else { + print "No X2Go Session ID in ENV or ARGV!\n"; + exit; +} + +my ($uidName,undef) = getpwuid($<); +my $UserHome = sanitizeDirPath($ENV{'HOME'}); +unless (-d $UserHome) {tcDie("User got no HOME directory?");} +my $UserName = sanitizer("pnixusername",$uidName); +if ($UserName eq 0) {tcDie("Is \"$UserName\" a valid portable UNIX username?\nNah.... Didn't think so....\nWe're done! BYE BYE!\n");} +my $X2GoSesHome = sanitizeDirPath("$UserHome/.x2go/C-$X2GoSID"); +my $X2GoTKSHome = "$X2GoSesHome/telekinesis"; +my $TeKiLSockPath = "$X2GoSesHome/telekinesis/local/sock"; + +if (lc(@ARGV[0]) =~ /-shell/) { + print "Telekinesis Interactive SHELL:\n(Hint: 'help' prints available commands...)\n"; + cmdPrompt(); +} else { + if ($CmdFlags{'SESSIONSUSPEND'}) { +# print "SUSPEND\n"; + doLocalQuickie("CORE|SUSPEND"); + } elsif ($CmdFlags{'SESSIONRESUME'}) { +# print "RESUME\n"; + doLocalQuickie("CORE|RESUME"); + } +} + + + + + + +sub cmdPrompt { + print "\nTeKi# "; + my $cmd = lc(<STDIN>);$cmd =~ s/[\n]//g; +# print " GOT: $cmd\n"; + + if ($cmd =~ /help/) { + print "In interactive mode the 'tekicmd' tool is most usefull for debugging.\n", + "The following commands are available in this interactive shell:\n\n", + " help Shows this help message.\n", + " quit/exit Terminates this tool. The Telekinesis instance is unaffected\n"; + } elsif ($cmd =~ /hello/) { + print "Yes yes yes.... Hello to you too!\n"; + } elsif ($cmd =~ /fuck/) { + print "Seriously!?!?! Profanities?! Like that's going to help....\n"; + } else { + print "'$cmd' does not seem to be a valid command....\nIf it wasnt a simple typo, you'd probably want to check out the 'help' command\nJust saying....\n"; + } + unless (($cmd =~ /exit/) or ($cmd =~ /quit/)) { + cmdPrompt(); + } else { + print "\nExiting... bye bye!\n\n"; + exit; + } +} + +sub doLocalQuickie { + my $stuffToSay = clups($_[0]); + if (-S $TeKiLSockPath) { + my $QuickSocket = IO::Socket::UNIX->new( Peer => $TeKiLSockPath, + Type => SOCK_STREAM, + Timeout => 10 ); + if (defined $QuickSocket) { + print $QuickSocket "\nQUICKIE|$stuffToSay|\n"; + $QuickSocket->close; + $QuickSocket = undef; + } else { + die("ERROR: Can't connect to local socket"); + } + } else {return 0;} +} + + -- Alioth's /srv/git/_hooks_/post-receive-email on /srv/git/code.x2go.org/telekinesis.git