Changeset 372 for trunk

Timestamp:

Jan 1, 2018, 4:55:08 PM (7 years ago)

Author:

g7moreau

Message:

• Update licence and copyright

Location:

trunk

Files:

• klask (modified) (7 diffs)
• push-web (modified) (1 diff)

trunk/klask

@@ -1 +1 @@
 #!/usr/bin/perl -w
 #
-# Copyright (C) 2005-2017 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>
+# Copyright (C) 2005-2018 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>
+# License GNU GPL version 2 or later and Perl equivalent
 #
 # $Id$
@@ -930 +931 @@
 #---------------------------------------------------------------
 sub get_switchdb_checksum {
-   my %switch_db = @_; # same as global %SWITCH_DB
+   my %switch_db = @_; # same as global %SWITCH_DB
 
    my $checksum_data = '';
@@ -1215 +1216 @@
    print <<'END';
 klask - port and search manager for switches, map management
-Copyright (C) 2005-2017 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>
-License GPL version 2 or later and Perl equivalent
+Copyright (C) 2005-2018 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>
+License GNU GPL version 2 or later and Perl equivalent
 END
 
@@ -1370 +1371 @@
    # Remplis le champs portignore des ports d'inter-connection pour chaque switch
    my $switch_connection = YAML::Syck::LoadFile("$KLASK_SW_FILE");
-   if ($switch_checksum ne $switch_connection->{'checksum'}) { # Verify checksum
+   if ($switch_checksum ne $switch_connection->{'checksum'}) { # Verify checksum
       if ($no_rebuildsw) {
          print "WARNING: switch database is outdate, please rebuild if with updatesw command\n";
@@ -3229 +3230 @@
       else {
          my $style = 'solid';
-         my $color = 'black'; # navyblue
+         my $color = 'black'; # navyblue
          if ($db_switch_output_port{$sw} =~ m/^(Trk|Br|Po)/) {
             $style = 'bold';
@@ -3248 +3249 @@
       for my $sw (keys %{$db_switch_connected_on_port{$swport}}) {
          my $style = 'solid';
-         my $color = 'black'; # navyblue
+         my $color = 'black'; # navyblue
          if ($port_connect =~ m/^(Trk|Br|Po)/) {
             $style = 'bold';
@@ -3754 +3755 @@
 =head1 LICENSE AND COPYRIGHT
 
-GPL version 2 or later and Perl equivalent
-
-Copyright (C) 2005-2017 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>.
+Licence GNU GPL version 2 or later and Perl equivalent
+
+Copyright (C) 2005-2018 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>.

trunk/push-web

@@ -1 +1 @@
 #!/bin/bash
+#
+# Copyright (C) 2005-2018 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>
+# License GNU GPL version 2 or later
 #
 # 2007/10/23 Gabriel Moreau