Ihre Anfrage wird bearbeitet.

Bitte warten Sie einen Augenblick ...

 
Hosted with Microsoft Windows 2000 Server on IBM xServer
Formathelper
 
 
Profil | Registrieren | Aktive Themen | Mitglieder | Suche | FAQ
Benutzername:
Passwort:
Wählen Sie eine Sprache
Passwort speichern
Passwort vergessen?


 Alle Foren
 Mercur Mailserver 2005
 Mercur 2005 - Wünsche und Anregungen
 Exportscript für die Firewall.dat
 Neues Thema  Auf Thema antworten
 Drucken
Autor Vorheriges Thema Thema   

AndreasKrueger

Germany
Beiträge 3

Gesendet am - 18/06/2006 :  17:06:40  Profil anzeigen  Besuche AndreasKrueger's Homepage  Antwort mit Zitat

# 
# Perlscript zum Exportieren der Firewall.dat in ein CSV
#
$TEMPLATE = 'I i a16 a16 A128';
$RECORDSIZE = 168;

open(FILE_IMP, "<Firewall.dat") || die "can't open: $!";
open(FILE_EXP, ">Firewall.csv") || die "can't open: $!";

until ( eof(FILE_IMP) ) {
    read(FILE_IMP, $record, $RECORDSIZE) == $RECORDSIZE or die "short read\n";
    @FIELDS = unpack($TEMPLATE, $record);
    print FILE_EXP "$FIELDS[1];$FIELDS[2];$FIELDS[3];$FIELDS[4]\n";
}
close(FILE_EXP);
close(FILE_IMP);


Zusammen mit dem Importscript kann die FW nun mit einfachen mitteln bearbeitet werden

Webhopper

Germany
Beiträge 39

Gesendet am - 25/06/2006 :  05:59:10  Profil anzeigen  Besuche Webhopper's Homepage  Antwort mit Zitat
Sozusagen extra für "blub" hier nun die Version 1.01 als Perl-Script und Win-Exe /infos/atrium/ ....


# perl -w
use strict;
use warnings;
#
my $version = 1.01; 
# Perlscript zum Exportieren der Firewall.dat in ein CSV
#
my $TEMPLATE = 'I i a16 a16 A128';
my $RECORDSIZE = 168;
my $record;
#
my ($sekunden, $minuten, $stunden, $monatstag, $monat, $jahr, $wochentag, $jahrestag, $sommerzeit) = localtime(time);
$jahr = $jahr + 1900;
$monat+=1;
$jahrestag+=1;
$monat = $monat < 10 ? $monat = "0".$monat : $monat;
$monatstag = $monatstag < 10 ? $monatstag = "0".$monatstag : $monatstag;
$stunden = $stunden < 10 ? $stunden = "0".$stunden : $stunden;
$minuten = $minuten < 10 ? $minuten = "0".$minuten : $minuten;
my $exportfile = "Firewall-$jahr-$monat-$monatstag.csv";
#
open(FILE_IMP, "<Firewall.dat") || die "can't open: $!";
open(FILE_EXP, ">$exportfile") || die "can't open: $!";

print FILE_EXP  <<"EOM" ;
#
# Mercur Mail 2005 Firwallkonfig
#
# Exportiert mit dat2csv $version (c) 2006 by Andreas Krueger (support\@remote.dyndns.info)
# See http://www.remote.dyndns.info/forum/topic.asp\?TOPIC_ID=4
#
# Export vom : $monatstag.$monat.$jahr $stunden:$minuten Uhr
#
#Flags;IP-Adress;Mask;Domain
EOM

until ( eof(FILE_IMP) ) {
    read(FILE_IMP, $record, $RECORDSIZE) == $RECORDSIZE or die "short read\n";
    my @FIELDS = unpack($TEMPLATE, $record);
    print FILE_EXP "$FIELDS[1];$FIELDS[2];$FIELDS[3];$FIELDS[4]\n";
    $record="";
}

print FILE_EXP  <<"EOM" ;
#
#
##############################################
# Beginn Comments ############################
##############################################
#
#
# Flags ######################################
#Dezimal         7  15  17
#---------------------------------------------
#SMTP    0x0001  X   X   X
#POP3    0x0002  X   X
#IMAP4   0x0004  X   X
#CONTROL 0x0008      X
#DENY    0x0010          X
#DOMAIN  0x0020
#ADDRESS 0x0040
EOM

close(FILE_EXP);
close(FILE_IMP);



Das Gute am Internet ist, daß jeder mitmachen kann.
Das Schlechte am Internet ist: Jeder Idiot macht mit...!
Zum Anfang der Seite
  Vorheriges Thema Thema   
 Neues Thema  Auf Thema antworten
 Drucken
Springe zu:
 Modded By: Image Forums 2001 Version 3.4.05 Multilanguage Powered By: Snitz Forums 2000 Version 3.4.05 Multilanguage

© 1998 - 2020 by Andreas Krüger
Zu Favoriten hinzufügen. | Als Startseite festlegen.
Scriptlaufzeit : 8,56 ms. | 3 Nutzer Online