Εμφάνιση 1-4 από 4
  1. #1
    Εγγραφή
    11-07-2003
    Περιοχή
    Αποδημος Ελληνισμος
    Ηλικία
    43
    Μηνύματα
    960
    Downloads
    6
    Uploads
    0
    Τύπος
    Cable
    Ταχύτητα
    200/40
    ISP
    AIM Τσεχια
    Question
    Καλησπερα,

    Θα ηθελα τα φωτα καποιου γνωστη στην Perl. Δυστυχως η γνωση πανω σε αυτη ειναι μικρη. Εχουμε τον παρακατω κωδικα που κανει configure το firewalld σε Centos7:

    Κώδικας:
    sub firewall_conf {
    
    
        my @tcp_ports = (21, 22, 443);
        my @should_be_closed_tcp_ports = (111, '1024-1975', '1977-2811', '2813-5000', '5002-7912', '7914-8004', '8010-8079', '8081-9122', '9126-9998', '10000-65535');
        my @udp_ports = (123, 161);
        my @should_be_closed_udp_ports = ('10000-65535');
    
    
        my $retcode = 1;
        my $fw_running = 0;
    
    
        eval {
            $fw_running = 1 if `firewall-cmd --state` =~ /^running/;
            print "firewall running? $fw_running\n";
    
    
            system("/bin/rm -f /etc/firewalld/zones/public.xml") == 0 or print "failed to remove existing public zone configuration\n";
    
    
            system("systemctl enable firewalld") == 0 or die "failed to enable firewall\n";
            system("systemctl start firewalld") == 0 or die "failed to start firewall\n";
    
    
            system("firewall-cmd --set-default-zone=public") == 0 or die "failed to set default zone to 'public'\n";
    
    
            map { add_fw_port "$_/tcp" } @tcp_ports, @should_be_closed_tcp_ports;
            map { add_fw_port "$_/udp" } @udp_ports, @should_be_closed_udp_ports;
        };
    
    
        if ($@) {
            print "ERROR: failed to configure firewall: $@";
            if (! $fw_running) {
                system("systemctl stop firewalld") == 0 or print "ERROR: failed to stop firewall\n"; 
            }
            $retcode = 0;
        }
        
        return $retcode;
    }
    Θελω να ρωτησω:
    α) Ο κωδικας θα τρεχει αν βρει οτι το firewalld τρεχει;
    β) Αν βρει οτι το firewall ΔΕΝ τρεχει τι κανει;
    Τελευταία επεξεργασία από το μέλος euri : 02-12-16 στις 23:54. Αιτία: προσθήκη του tag [code] για μορφοποίηση κώδικα
    Νothing that you learned from ash and debris...

  2. #2
    Εγγραφή
    03-11-2016
    Ηλικία
    34
    Μηνύματα
    160
    Downloads
    0
    Uploads
    0
    Τύπος
    ADSL2+
    Ταχύτητα
    UP:1061 k/ DN:11889 k
    ISP
    Cyta Hellas
    DSLAM
    Cyta Hellas - Σ.Σ. ΑΓΡΑ
    Router
    TG788v2
    SNR / Attn
    21.4(dB) / 4.3(dB)
    Path Level
    Interleaved
    Τρέχει, δεν τρέχει το firewall, το script το ξαναξεκινάει.

    Αν δεν μπορεί να το ξεκινήσει σου γυρνέι το reason.

  3. #3
    Εγγραφή
    11-07-2003
    Περιοχή
    Αποδημος Ελληνισμος
    Ηλικία
    43
    Μηνύματα
    960
    Downloads
    6
    Uploads
    0
    Τύπος
    Cable
    Ταχύτητα
    200/40
    ISP
    AIM Τσεχια
    Ευχαριστω. Και εγω αυτη την εντυπωση ειχα με τις γνωσεις που εχω σε αλλες γλωσσες απλα ειχα τις αμφιβολιες μου για το περι τρεχει, δεν τρεχει.
    Νothing that you learned from ash and debris...

  4. #4
    Εγγραφή
    28-02-2006
    Μηνύματα
    1.150
    Downloads
    0
    Uploads
    0
    ISP
    Cosmote
    DSLAM
    ΟΤΕ - ΓΑΛΑΤΣΙ
    Βασικά τι είναι αυτό που θέλεις να γίνεται;

    Αν μας περιγράψεις το logic, μπορούμε να σου προτείνουμε αλλαγές στο παραπάνω script (ή να σε βοηθήσουμε να γράψεις ένα νέο )...
    NetBSD Rocks!
    http://www.netbsd.org

Παρόμοια Θέματα

  1. Μηνύματα: 109
    Τελευταίο Μήνυμα: 17-03-24, 00:28
  2. Μια απλη εξηγηση για το SNR/SNRM/Noise Margin
    Από Arvanitis Garage στο φόρουμ ADSL
    Μηνύματα: 5
    Τελευταίο Μήνυμα: 02-11-16, 14:01
  3. Πρόβλημα με blog (κώδικα)
    Από lebron15 στο φόρουμ Internet, web surfing και online υπηρεσίες
    Μηνύματα: 0
    Τελευταίο Μήνυμα: 28-05-16, 04:42
  4. Μηνύματα: 15
    Τελευταίο Μήνυμα: 23-03-16, 21:50
  5. [Other] προβολή ΖΤΕ οτε adsl modem σε κώδικα !
    Από geioannou στο φόρουμ ADSL & Broadband Hardware, routers και modems...
    Μηνύματα: 4
    Τελευταίο Μήνυμα: 30-01-16, 22:18

Bookmarks

Bookmarks

Δικαιώματα - Επιλογές

  • Δεν μπορείτε να δημοσιεύσετε νέα θέματα
  • Δεν μπορείτε να δημοσιεύσετε νέα μηνύματα
  • Δεν μπορείτε να αναρτήσετε συνημμένα
  • Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας
  •  
  • Τα BB code είναι σε λειτουργία
  • Τα Smilies είναι σε λειτουργία
  • Το [IMG] είναι σε λειτουργία
  • Το [VIDEO] είναι σε λειτουργία
  • Το HTML είναι εκτός λειτουργίας