LINUXSOFT.cz Přeskoč levou lištu
Uživatel: Heslo:  
   CZUKPL

> seti

Edituj záznam
Kategorie: Perl
Programovací jazyk: Perl
Domovská stránka:
Download:
Tvůrce:
Popis skriptu: Skript slouží ke spouštění programu setiathome umístěného v domovském adresáři "~/seti/".
Nároky na klienta: perl, setiathome
Nároky na server: perl
Kód s komentáři:
#!/usr/bin/perl -w

use strict;

my $arg;

sub pid(){
my (@in,$pid);
open(VSTUP,"ps -ax |");
@in=<VSTUP>;
foreach (@in) { $pid=chomp($_) if $_=~ /setiathome/ };
unless (defined $pid) { $pid=0; };
$pid=~ s/\D+/ /g;
@in=split(' ',$pid);
$pid=shift(@in);
return $pid;
}

sub seti_start(){
my $pid=shift(@_);
my $clear_screen;
$clear_screen=`clear`;
unless ($pid) {
system("echo >~/seti/pid.sah");
system("cd ~/seti/; ./setiathome &");
print $clear_screen;
print "Seti is runing !";
} else { print "SETI je už spuštěno! \n";
}
}

sub seti_stop(){
my $pid=shift(@_);
if ($pid) {
system("/bin/kill $pid");
print "Seti was stopeed !";
} else { print "Žádný proces SETI neběží \n";}
}

sub seti_help(){
print "Máš štěstí právě se ti tiskne nápověda :) \n\n";
print "Použití : ./seti start \n";
print " ./seti stop \n\n";
print "Writed by p.forty\@seznam.cz \n"
}


$arg=@ARGV;

if ($arg == 0) { &seti_help;}
elsif ($arg >= 2) { &seti_help;}
else {
if ( uc($ARGV[0]) eq "START" ) { &seti_start(&pid);}
elsif ( uc($ARGV[0])eq "STOP" ) {&seti_stop(&pid);}
else {&seti_help;}
}
Zadal/a: Petr Fortelný


pridej.cz

> Vyhledávání software
> Vyhledávání článků

18.1.2017 0:49 /František Kučera
Členové a příznivci spolku OpenAlt se pravidelně schází v Praze a Brně. Fotky z pražských srazů za uplynulý rok si můžete prohlédnout na stránkách spolku. Příští sraz se koná už 19. ledna – tentokrát je tématem ergonomie ovládání počítače – tzn. klávesnice, myši a další zařízení. Také budete mít příležitost si prohlédnout pražský hackerspace Brmlab.
Přidat komentář

8.1.2017 17:51 /František Kučera
Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Přijď na sraz spolku OpenAlt, který se bude konat ve čtvrtek 19. ledna od 18:30 v pražském hackerspacu Brmlab. Tentokrát je tématem srazu ergonomie ovládání počítače – tzn. klávesnice, myši a další zařízení. K vidění bude mechanická klávesnice dasKeyboard, trackball Logitech nebo grafický tablet (a velký touchpad) Wacom. Přineste i vy ukázat svoje zajímavé klávesnice a další HW. V 18:20 je sraz před budovou, v 18:30 jdeme společně dovnitř, je tedy dobré přijít včas. Podle zájmu se později přesuneme do nějaké restaurace v okolí.
Přidat komentář

1.12.2016 22:13 /František Kučera
Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Přijď na sraz spolku OpenAlt, který se bude konat ve čtvrtek 8. prosince od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Sraz bude tentokrát tématický. Bude retro! K vidění budou přístroje jako Psion 5mx nebo Palm Z22. Ze svobodného hardwaru pak Openmoko nebo čtečka WikiReader. Přijďte se i vy pochlubit svými legendami, nebo alespoň na pivo. Moderní hardware má vstup samozřejmě také povolen.
Komentářů: 1

4.9.2016 20:13 /Pavel `Goldenfish' Kysilka
PR: Dne 22.9.2016 proběhne v Praze konference Cloud computing v praxi. Tématy bude např. nejnovější trendy v oblasti cloudu a cloudových řešení, provozování ERP v cloudu, o hostování různých typů softwaru, ale třeba i o zálohování dat nabízeném podnikům formou služby.
Přidat komentář

1.9.2016 11:27 /Honza Javorek
Česká konference o Pythonu, PyCon CZ, stále hledá přednášející skrz dobrovolné přihlášky. Máte-li zajímavé téma, neváhejte a zkuste jej přihlásit, uzávěrka je již 12. září. Konference letos přijímá i přednášky v češtině a nabízí pomoc s přípravou začínajícím speakerům. Řečníci mají navíc vstup zadarmo! Více na webu.
Přidat komentář

27.8.2016 8:55 /Delujek
Dnes po 4 letech komunitního vývoje vyšla diaspora 0.6.0.0
diaspora* je open-source, distribuovaná sociální síť s důrazem na soukromý
Více v oficiálním blog-postu
Přidat komentář

24.8.2016 6:44 /Ondřej Čečák
Poslední týden CFP LinuxDays 2016; pokud byste rádi přednášeli na LinuxDays 2016 8. a 9. října v Praze, můžete svůj příspěvek přihlásit, následovat bude veřejné hlasování.
Přidat komentář

9.8.2016 22:56 /Petr Ježek
Zařazení souborového systému reiser4 do jádra 4.7 znamená konečně konec patchování jádra jen kvůli možnosti použít reiser4.
Přidat komentář

   Více ...   Přidat zprávičku

> Poslední diskuze

18.1.2017 20:18 / martin horky
Spolupraca linuxu a microsoftu

17.1.2017 9:57 / Pavel Hrubeš
Re: Externí USB televizní karta

4.1.2017 11:24 / Marcum
extension to house

3.1.2017 10:09 / bolden
country cottages

4.12.2016 22:54 / František Kučera
Dárek

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2017) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze