yast/yast-network

#!/usr/bin/perl -w

# Copyright (c) [2019] SUSE LLC
#
# All Rights Reserved.
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of version 2 of the GNU General Public License as published
# by the Free Software Foundation.
#
# This program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
# more details.
#
# You should have received a copy of the GNU General Public License along
# with this program; if not, contact SUSE LLC.
#
# To contact SUSE LLC about this file by physical or electronic mail, you may
# find current contact information at www.suse.com.

package ag_udev_persistent;

# None of the bindings are needed here.
# And dlopening Ruby would make jemalloc complain about a failed TLS allocation
BEGIN { $ENV{Y2DISABLELANGUAGEPLUGINS} = "1"; }

BEGIN { push( @INC, '/usr/share/YaST2/modules/' ); }
use ycp;
use YaST::SCRAgent;
use YaPI;
textdomain "network";
our @ISA = ("YaST::SCRAgent");

use strict;

my $net_file = "/etc/udev/rules.d/70-persistent-net.rules";
my $drivers_file = "/etc/udev/rules.d/79-yast2-drivers.rules";
my @net_comment = ();
my @drivers_comment = ();

sub set_rules_comment(){
 my $class = shift;
 my $pointer = \@_;
 @net_comment = @{$$pointer[0]};
}

sub parse_net_rules {
    my $class = shift;
    my %hash_table = ();

    if( open( FILE, "< $net_file" ) ) {
        while( my $line = <FILE> ) {

     # remove '\n' and space before delimiter ','
     chomp($line);
     $line =~ s/, /,/g;

     if ( $line =~ /^#/ ) { push(@net_comment, $line); }
       else {
        if ($line =~ /,/ )
         {
          my @cols = split(",", $line);
          my (undef, $device) =  split("=", $cols[$#cols]);
          $device =~ s/\"//g;
          $hash_table{ $device } = \@cols; 
         }
        }
        }
        close(FILE);
    } else {
        return $class->SetError(summary => sprintf( _("opening %s failed: %s"),$net_file, $!),
                                code    => "OPEN_FAILED");
    }

    return \%hash_table;
}

sub parse_drivers_rules {
    my $class = shift;
    my %hash_table = ();

    if( open( FILE, "< $drivers_file" ) ) {
        while( my $line = <FILE> ) {

     # remove '\n' and space before delimiter ','
     chomp($line);
     $line =~ s/, /,/g;

     if ( $line =~ /^#/ ) { push(@drivers_comment, $line); }
       else {
        if ($line =~ /,/ )
         {
          my @cols = split(",", $line);
          my (undef, $device) =  split("==", $cols[0]);
          $device =~ s/\"//g;
          $hash_table{ $device } = \@cols; 
         }
        }
        }
        close(FILE);
    } else {
        return $class->SetError(summary => sprintf( _("opening %s failed: %s"),$drivers_file, $!),
                                code    => "OPEN_FAILED");
    }

    return \%hash_table;
}

sub write_drivers_rules(){
 my $class = shift;
 my $param = \@_;
 my %hash = %{$$param[0]};

 my @output = ();
 foreach my $row (@drivers_comment){
  push (@output, $row."\n");
 }
 foreach my $key (keys %hash){
  my $row = join(', ', @{$hash{$key}});
  push(@output, $row."\n");

 }

 if ($#output>-1){
   if( open( FILE, "> $drivers_file" ) ) {
     print FILE @output;
   } else {
         return $class->SetError(summary => sprintf( _("saving %s failed: %s"),$drivers_file, $!),
                                code    => "OPEN_FAILED");
          }
 } else {
      unlink $drivers_file;
    }
}


sub write_net_rules(){
 my $class = shift;
 my $param = \@_;

 my @output = ();
 foreach my $row (@net_comment, @{$$param[0]}){
  push (@output, $row."\n");
 }

 if( open( FILE, "> $net_file" ) ) {
   print FILE @output;
 } else {
         return $class->SetError(summary => sprintf( _("saving %s failed: %s"),$net_file, $!),
                                code    => "OPEN_FAILED");
        }
}

sub Execute {
    my $class = shift;
    my ($path, @args) = @_;

    return 1;
}


sub Read {
    my $class = shift;
    my ($path, @args) = @_;
    if ($path eq '.net'){
        return $class->parse_net_rules();
    }
    elsif ($path eq '.drivers'){
           return $class->parse_drivers_rules();
      }
}

sub Write {
    my $class = shift;
    my ($path, @args) = @_;
    if ($path eq '.drivers'){
           return $class->write_drivers_rules($args[0]);
      }
    if ($path eq '.rules'){
           return $class->write_net_rules($args[0]);
      }
    if ($path eq '.rules_comment'){
           return $class->set_rules_comment($args[0]);
      }

     if ($path eq '.nil'){
        close FILE;
        return 0;
           }
}

sub Dir {
}

sub OtherCommand ()
{
    my $class = shift;
    my $command = shift;
    y2warning ("OtherCommand ($command) not implemented in this agent");
    return undef;
}

package main;

ag_udev_persistent->Run ();