Attachment 223418 Details for Bug 401270

YCP code

fw.ycp (text/plain), 1.34 KB, created by Lukas Ocilka on 2008-06-20 14:50:30 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Lukas Ocilka

Created: 2008-06-20 14:50:30 UTC

Size: 1.34 KB

patch

obsolete

>{
>    import "SuSEFirewall";
>    import "Progress";
>
>    boolean fw_running = SuSEFirewall::IsStarted();
>    map <string, any> fw_conf = $[];
>
>    // If firewall is not running, ignore it
>    if (fw_running) {
>	// Read the current settings
>	boolean progress_orig = Progress::set (false);
>	SuSEFirewall::Read();
>	Progress::set (progress_orig);
>
>	// Store the current settings
>	y2milestone ("Exporting firewall configuration");
>	fw_conf = SuSEFirewall::Export();
>
>	// Allow SLP broadcast reply in all zones
>	foreach (string zone, SuSEFirewall::GetKnownFirewallZones(), {
>	    y2milestone ("Adding SLP-SAR to %1 zone", zone);
>	    SuSEFirewall::SetServicesAcceptRelated (
>		zone,
>		(list <string>) union (
>		    // Current rules
>		    SuSEFirewall::GetServicesAcceptRelated (zone),
>		    // Plus SLP
>		    ["0/0,udp,427"]
>		)
>	    );
>	});
>
>	// And write them
>	y2milestone ("Restarting firewall with new configuration");
>	progress_orig = Progress::set (false);
>	SuSEFirewall::Write();
>	Progress::set (progress_orig);
>    }
>
>    // DO SLP Search
>    sleep (5000);
>
>    // If firewall was not running, ignore it
>    if (fw_running) {
>	// Restore the previous settings
>	y2milestone ("Restoring firewall configuration");
>	SuSEFirewall::Import (fw_conf);
>
>	// And write them
>	boolean progress_orig = Progress::set (false);
>	SuSEFirewall::Write();
>	Progress::set (progress_orig);
>    }
>}

Actions: View

Attachments on bug 401270: 223418