Zobrazit příspěvky
Tato sekce Vám umožňuje zobrazit všechny příspěvky tohoto uživatele. Prosím uvědomte si, že můžete vidět příspěvky pouze z oblastí Vám přístupných.
Ne ty ARGV vynech..takze nejak takhle.
/root/gtalk.msg jmeno-prijemce@gmail.com "stroj s ip 10.2.2.4 se připojil"
Navic muzes potrebovat nainstalovat do perlu Net::Jabber
tedy jako root spust
perl -MCPAN -e 'install Net::Jabber'
pak by mel script fungovat (pokud nefunguje uz ted)
Opakuji, že ten nějaký blbec (jak opětovně na mne útočíš) to rozhodně nezapomněl zaškrtnout.
Chybí ti elementární lidská slušnost.
Argumentum ad hominem.
Ne, nikoliv. Jen mě už tohle naprosto nepodložené žvanění o tom, že Windows generují nějaké chyby v případech, kdy tomu tak vůbec není a kdy dotyčný vůbec netuší, o čem je řeč a co dělá, natož aby to uměl aspoň naklikat, opravdu unavuje. Viz např. "změna vlastnictví proběhla například u dokumentů v pořádku, u multimédií ne". Jo, jistě, to bude nejnovější antipiracy measure z Redmondu, aby ses na ten film nemohl podívat. Bože, to jsou ale žvásty.
To je proto, že jsi nezměnil vlastníka souboru, holt jsi špatně klikal. Jakmile jsi vlastník souboru, můžeš si nastavovat práva dle libosti.
Potvrzuji. Problém je mezi židlí a klávesnicí.
převzetí vlastnictví u nadřazené složky s aplikací na podslozky a soubory často generuje chyby. část změn projde ok, část nikoliv. Je to běžné po reinstalaci OS Windows 7.
Ne, není to běžné, jediné chyby, které to generuje, jsou u aktuálně otevřených (locked) souborů.
ARGV[0] je prvni argument, prijemce tedy zadas jako prvni argument, zpravu kterou zaslat jako druhy argument. Pripadne, pokud se nic nebude menit a zprava bude vzdy stejna ji vepis rovnou do skriptu (tedy $ARGV[0] nahrad prijemcem a $ARGV[1] nahrad zpravou)
dale nastvujes server, uzivatel, heslo a v nekterych pripadech port
Zkus treba tenhle perl skript (jen zajistit ze se spusti po startu+predat mu aktualni IP pc a to ostatni co chces...).
http://www.mail-archive.com/nagios-users@lists.sourceforge.net/msg01616.html
Frederik #!/usr/bin/perl # # Author David Cox # Created from various code examples found on the web # Last Modified 2006-01-19 # History # HTML-changes based on 08/06/2002 # adapted d.d. 2006-01-19 by Dieter Demerre to allow html encoded messages # # Feel free to use or modify as needed to suit your needs ####################################################### # MAXWAIT is used because the send message function didn't seem to # like being called too fast. The message would be sent unless I waited a second # or so. You can experiment with it but I just went with 2 seconds. ####################################################### use strict; use Net::Jabber qw(Client) ; use Net::Jabber qw(Message) ; use Net::Jabber qw(Protocol) ; use Net::Jabber qw(Presence) ; use HTML::Parse ; require HTML::FormatText; my $len = scalar @ARGV; my $htmlmessage = my $mymessage = ""; if ((2 ne $len) && (($len ne 3) || ($ARGV[1] ne "--html"))) { die "Usage...\n notify <jabberid>[,<jabberid>]* [--html] <message>\n"; } my @field=split(/,/,$ARGV[0]); use constant RECIPIENT => $ARGV[0]; use constant SERVER => 'your-jabber-server'; use constant PORT => 5222; use constant USER => 'your-jabber-id'; use constant PASSWORD => 'your-jabber-password'; use constant RESOURCE => ' '; use constant MAXWAIT => 2 ; if ("$ARGV[1]" eq "--html") { $htmlmessage = $ARGV[2]; # printf("pre de-html-ize: htmlmessage = \"$htmlmessage\".\n"); $mymessage = HTML::FormatText->new->format(HTML::Parse::parse_html("$htmlmessage\n")); } else { $htmlmessage = $ARGV[1]; $mymessage = "$htmlmessage"; } # printf("htmlmessage = \"$htmlmessage\".\n"); # printf("message = \"$mymessage\".\n"); my $connection = Net::Jabber::Client->new(); $connection->Connect( "hostname" => SERVER,"port" => PORT ) or die "Cannot connect ($!)\n"; my @result = $connection->AuthSend( "username" => USER,"password" => PASSWORD,"resource" => RESOURCE ); if ($result[0] ne "ok") { die "Ident/Auth with server failed: $result[0] - $result[1]\n"; } foreach ( @field ) { my $message = Net::Jabber::Message->new(); $message->SetTo($_); $message->SetSubject('Notification'); $message->SetType('chat'); $message->SetBody($mymessage); # printf("Will send text \"%s\".\n",$message->GetBody()); if ("$ARGV[1]" eq "--html") { $message->InsertRawXML("<html xmlns='http://jabber.org/protocol/xhtml-im'><body xmlns='http://www.w3.org/1999/xhtml'>$htmlmessage</body></html>"); } $connection->Send($message); sleep(MAXWAIT); } $connection->Disconnect(); exit; use constant SERVER => 'gmail.com'; use constant PORT => 5222; use constant USER => 'jmenopc@gmail.com'; use constant PASSWORD => 'nejakeheslo';use constant RECIPIENT => $ARGV[0];A musí to být přes XMPP? Existuje řada služeb poskytujících DNS záznam, který se nastaví ve chvíli, kdy je z nějaké adresy stažen konkrétní soubor ze serveru.
Root.cz (www.root.cz), informace nejen ze světa Linuxu. ISSN 1212-8309
Copyright © 1998 – 2023 Internet Info, s.r.o. Všechna práva vyhrazena. Powered by Linux.