MFBASSIST

Wenn du Red Hat hast natürlich unter redhat.com müsste aber auch bei der (Suse, Debian usw.) Distribution dabei sein. Muss man nur zusätzlich installieren, da es nicht im Standard enthalten ist. Das Tool ist aber genau das was du brauchst. Gruß Martin

Hallöchen, möchte ein C++ Programm schreiben das nachguckt wie viele Emails sich in einem POP3 Postfach befinden. Habe schon gesucht aber nichts berauschendes gefunden. Hat jemand dazu gute Links? Die Hilfe usw. von Borland hab ich auch durchstöbert. Danke !!! Martin

Versuchs mit dem ethtool. Ich denke das klappt besser

Hmm ich benutze linux :-) Aber dürfte evtl. identisch sein

Hallo, weiß jemand wo ich gute Anleitungen zur Socketprogrammierung in C++ finde?

Hi, das dauert natürlich ein weilchen :-). Las ihn einfach mal durchlaufen. Jenachdem was für ne Platte / Rechner du hast, kann das ne Ewigkeit dauern. Für Parameter mach mal man badblocks Gruß Martin

Das ist schonmal nicht schlecht. Aber wie mache ich das, dass ich nur Dateien sehe die über 2 MB gross sind??? MFG Martin

Ist schon klar. Aber ich habe die Beiträge jetzt erst gelesen! Am Anfang war soviel ironie das ich es einfach nicht für gut hielt nochmal in das Forum zu gehen. Trotzdem danke für deine Hilfe. Die meisten haben nur um den Brei herumgeredet

Hallo, wie kann ich Daten nach Größe filtern? Oder ein Dateisystem auswerten mittels Perl?

Hallo, ich hab jetzt weiter nicht ins Forum geguckt sondern etliche Anleitungen durchgearbeitet und probiert und versucht bis ich es hinbekommen hab. Das Skript funktioniert jetzt. Die libnet module müssen installiert werden und das modul config ini files. Es funzt super Jedoch hat mir das Forum nicht weitergeholfen da nur ironie stattfand. Trotzdem danke an die, die mir trotzdem geholfen haben Hier das jetztige Skript: #!/usr/bin/perl5.00503 # Name : Martin Fandel # Datum : 28.05.02 # Art : Ini Files auslesen und POP3 Verbindung mit Benachrichtigung # geändert : 31.05.02 ########## # Module # ########## # Netzwerk Module use Net::POP3; # Konfiguration Module use Config::IniFiles; ############# # Variablen # ############# # Name des Servers auf dem das Skript läuft $server = "proxy"; # Mailoptionen bei angabe auf \ achten beim @ $von = "dizskript\@proxy"; $an = "fandel.martin\@bitburg-pruem.de, paas.matthias\@bitburg-pruem.de, fuchs\@bitburg-pruem.de, fuju\@gmx.de"; $mta = "/usr/sbin/sendmail"; $sub = "POP3 Skript \@ $server"; $inhalt = "Es befinden sich $messagenum Nachrichten auf dem POP3 Server $popserv"; # Ini Datei Variablen $inifile = "/usr/local/dizmail/inifil.ini"; # Wartezeit nach durchlauf $pause = 100; ################# # Hauptprogramm # ################# ########################################## # Auf Fehler testen ( $von ) || die "Fehler: Es wurde kein Absender eingetragen !!!\n"; ( $an ) || die "Fehler: Es wurde kein Adressat eingetragen !!!\n"; ( $inifile ) || warn "Fehler: Es wurde kein Pfad zur INI Datei angegeben !!!\n"; ########################################## # Ini Datei auslesen $cfg = new Config::IniFiles -file => "$inifile" ; $popuser = $cfg->val('POP3HOST', 'POP3UID') ; $poppass = $cfg->val('POP3HOST', 'POP3PWD') ; $popserv = $cfg->val('POP3HOST', 'POP3SERVER') ; #$sub = "POP3 Skript \@ $popserv"; ########################################## # In POP3 Server einloggen POP: $pop3 = Net::POP3->new($popserv, Timeout => 20) || die("Can't connect $popserv"); $messagenum = $pop3->login($popuser,$poppass) || die("Konnte nicht in $popserv einloggen"); $pop3->quit(); #$inhalt = "Es befinden sich $messagenum Mails auf dem POP3 Server $serv"; ########################################## # MTA Block sub send_mail { if (not open(MAIL, "|$mta -t") ) { print "Kein Mailer vorhanden, Pfad prüfen!!!"; } else { print MAIL "From: $von \n"; print MAIL "To: $an \n"; print MAIL "Subject: $sub \n"; print MAIL "\n"; print MAIL "$inhalt"; close (MAIL); } } ######################################### # If Anweisung ob Mails sich im POP3 Server befinden if($messagenum>1) { print "Mail senden an Administrator\nNächster Ablauf in $pause Sekunden!!!\n"; send_mail(); sleep $pause; goto POP; } else { print "Es befinden sich keine Mails auf dem POP3 Server $popserv\nNächster Ablauf in $pause Sekunden!!!\n"; sleep $pause; goto POP; }

Du hast recht. Das ist eigentlich schwachsinn. Aber ich hatte mir eben irgendwann mal die Cam gekauft weil ich dachte das jeder 2te eine hat. Naja da hab ich mich wohl gettäuscht In den ILS Servern sind auch nur deppen drin. Trotzdem Danke!!! Hab mal geguckt einen eigenen ILS Server unter Linux aufzubauen.

Also ist es kostenlos? Und warum hat dann dat mädel gesagt es würde was kosten wenn ich mit der chatte? Hmpf. Ich hab da irgendwas gelesen das wenn man nur daten sendet es kostenlos ist und die nummer wählt es kopstenpflichtig ist. Aber woher soll ich dann wissen ob ein Mädel mich reinlegt und es eine 0190er ist? Schon komisch Danke trotzdem für dein Beitrag. Hoffe bekomme noch mehr Informationen. Gruß Martin

Hallo, ich hab mich in einen ILS eingeloggt. Nach der suche nach normalen Leuten hab ich endlich ein Mädel gefunden (was eine Normale Beschreibung hatte). Ich frage direkt ob das was kostet zu chatten. Und die hat gemeint wenn ich sie anrufe, dann ja. Aber woher soll ich wissen das ich ne kostenpflichtige Nummer anrufe? Wie ist das mit Netmeeting ist das jetzt kostenpflichtig oder net? Wie sehe ich ob ich blechen muss oder net. Oder auf welchen Server finde ich normale Leute die nicht immernur das eine wollen Danke

Hast vielleciht recht aber ist dafür nicht ein Forum da? Ich finde einfach keinen Fehler weil ich noch zu unerfahren mit Perl bin. Deswegen hab ich das gepostet. Wenns nach dir ginge, dürfte es ja dann kein Forum geben

Ja Es stimmt so weit alles (glaube ich jedenfalls) Jedoch läuft es net Martin

Hallo, hab ein kleines Perl Skript geschrieben. Jedoch finde ich den Fehler nicht. Hab ich da irgendwas verfrimelt? Danke schonmal !!! MFG Martin #!/usr/bin/perl # Martin Fandel # 28.05.02 # Pop3 Protocoll benutzen use Net::POP3; # Das Modul muss evtl. Nachinstalliert werden !!! use Config::IniFiles; ############# # Variablen # ############# # Mailoptionen $von = "pop3skript\@bravo"; $an = "fuchs\@bitburg-pruem.de"; $mta = "/usr/bin/sendmail"; # Ini Datei Variablen $inifile = "/tmp/fil.ini"; # Pause $sleep = 60; ################# # Hauptprogramm # ################# sub popdaten { $cfg = new Config::IniFiles -file => "$inifile" ; $popuser = $cfg->val('POP3HOST', 'POP3UID') ; $poppass = $cfg->val('POP3HOST', 'POP3PWD') ; $popserv = $cfg->val('POP3HOST', 'POP3SERVER') ; }; popdaten(); $pop3 = Net::POP3->new($popserv, Timeout => 30); print "Einloggen in $popserv als $popuser ...\n"; $messagenum = $pop3->login($popuser,$poppass) || die "Konnte nicht in $popserv einloggen"; print "Sie haben $messagenum Nachrichten\n\n"; $pop3->quit(); if ($messagenum > 1) { open (MAIL, '|$mta -t'); print MAIL "From: $von\n"; print MAIL "To: $an\n"; print MAIL "Subject: Es befinden sich nachrichten auf $popserv\n"; print MAIL "Es befinden sich $messagenum Nachrichten auf $popserv\n"; ENDE close MAILER; sleep $sleep; } else sleep $sleep;

Hallo erstmal, wusste ich net wohin ich das Skript pagen soll. Hoffe das war die richtige Entscheidung Kann mir jemand da weiterhelfen? Das Skript funzt net richtig. Sind da irgendwo denkfehler oder Syntaxfehler? #!/usr/bin/perl # Martin Fandel # 28.05.02 # Pop3 Protocoll benutzen use Net::POP3; # Das Modul muss evtl. Nachinstalliert werden !!! use Config::IniFiles; ######### # Variablen # ######### # Mailoptionen $von = "pop3skript\@bravo"; $an = "fuchs\@bitburg-pruem.de"; $mta = "/usr/bin/sendmail"; # Ini Datei Variablen $inifile = "/tmp/fil.ini"; # Pause $sleep = 60; ############## # Hauptprogramm # ############## sub popdaten { $cfg = new Config::IniFiles -file => "$inifile" ; $popuser = $cfg->val('POP3HOST', 'POP3UID') ; $poppass = $cfg->val('POP3HOST', 'POP3PWD') ; $popserv = $cfg->val('POP3HOST', 'POP3SERVER') ; }; popdaten(); $pop3 = Net::POP3->new($popserv, Timeout => 30); print "Einloggen in $popserv als $popuser ...\n"; $messagenum = $pop3->login($popuser,$poppass) || die "Konnte nicht in $popserv einloggen"; print "Sie haben $messagenum Nachrichten\n\n"; $pop3->quit(); if ($messagenum > 1) { open (MAIL, '|$mta -t'); print MAIL "From: $von\n"; print MAIL "To: $an\n"; print MAIL "Subject: Es befinden sich nachrichten auf $popserv\n"; print MAIL "Es befinden sich $messagenum Nachrichten auf $popserv\n"; ENDE close MAILER; sleep $sleep; } else sleep $sleep;

Hab jetzt ein Perl Skript geschrieben, jedoch funktioniert es nicht. Bitte helft mir weiter #!/usr/bin/perl use Net::POP3; $user = ""; $passwd = ""; $pop3Server = ""; $from = "pop3skript\@bravo"; $to = "fuchs\@bitburg-pruem.de"; $pop3 = Net::POP3->new($pop3Server, Timeout => 60); print "Einloggen in $pop3Server als $user ...\n"; $messagenum = $pop3->login($user,$passwd) || die "Konnte nicht in $pop3Server einloggen"; print "Sie haben $messagenum Nachrichten\n\n"; # Betreffszeilen der neuen Emails werden ausgelesen und angezeigt. # Siehe unten für eine Erläuterung dieses Code-Blocks for ($i=1;$i<=$messagenum ;$i++) { $subject = $pop3->top ($i); foreach $zeile (@$subject) { if (index($zeile,"Subject:")>=0) { print "Header of message $i: $zeile\n"; } } } $pop3->quit(); if ($messagenum >= 1) { open MAIL, '| /usr/sbin/sendmail -t'; print MAILER << 'ENDE'; From: $from To: $to Subject: Es befinden sich nachrichten auf $pop3server Es befinden sich $messagenum Nachrichten auf $pop3server ENDE close MAILER; }

Ich hab bei deiner Seite cpan.perl.org was gefunden. Ich werds mal ausprobieren Danke!!

Ist genau so aufgebaut wie du schreibst Ziemlich einfach eben. Hab aber leider keine Erfahrungen mit Perl. Bin mir das jetzt am anlernen. MFG Martin

Danke hab jetzt das XOSL laufen. Ist genau das was ich bracuhe und ich finds gut das es Open Source ist bzw. kostenlos

Hmm wollte eigentlich reines Perl. Ist nur ne Ini Datei. Ist auch so aufgebaut. :-)

Hallo, wie kann ich mit Perl unter Linux eine Windows INI Datei auslesen und deklarieren? Unter Windows geht das doch mit use IniConf aber wie gehts unter Linux? Will aus einer INI ein POP3 Account mit IP und Passwort auslesen. Das Perl Skript soll sich dann einloggen und gucken ob Email in diesem Postfach sind. Wenn ja soll eine mail an administrator geschickt werden. Für Hilfe wäre ich sehr dankbar MFG Martin

Hallo Lilo versteckt die Linux Partition eigentlich schon richtig aber net die anderen. Das ist das Problem da ich 98, NT, 2000 und XP gleichzeitig laufen lassen will. MFG martin

Hmm naja aber ich wollte kein Lilo mehr benutzen. Grub wird bei Red Hat übergreifen so wie ich das sehe. Ich suche einfach eine Alternative die nicht Lilo und Grub betrifft. Es muss doch ein anderer "guter" Bootmanager existent sein, der XP und Linux Kernel laden kann und dabei die Partitionen wirklich versteckt MFG Martin p.s. Trotzdem danke für den Thread.