Changeset 372 for trunk


Ignore:
Timestamp:
Jan 1, 2018, 4:55:08 PM (6 years ago)
Author:
g7moreau
Message:
  • Update licence and copyright
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/klask

    r370 r372  
    11#!/usr/bin/perl -w
    22#
    3 # Copyright (C) 2005-2017 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>
     3# Copyright (C) 2005-2018 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>
     4# License GNU GPL version 2 or later and Perl equivalent
    45#
    56# $Id$
     
    930931#---------------------------------------------------------------
    931932sub get_switchdb_checksum {
    932    my %switch_db = @_; # same as global %SWITCH_DB
     933   my %switch_db = @_; # same as global %SWITCH_DB
    933934
    934935   my $checksum_data = '';
     
    12151216   print <<'END';
    12161217klask - port and search manager for switches, map management
    1217 Copyright (C) 2005-2017 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>
    1218 License GPL version 2 or later and Perl equivalent
     1218Copyright (C) 2005-2018 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>
     1219License GNU GPL version 2 or later and Perl equivalent
    12191220END
    12201221
     
    13701371   # Remplis le champs portignore des ports d'inter-connection pour chaque switch
    13711372   my $switch_connection = YAML::Syck::LoadFile("$KLASK_SW_FILE");
    1372    if ($switch_checksum ne $switch_connection->{'checksum'}) { # Verify checksum
     1373   if ($switch_checksum ne $switch_connection->{'checksum'}) { # Verify checksum
    13731374      if ($no_rebuildsw) {
    13741375         print "WARNING: switch database is outdate, please rebuild if with updatesw command\n";
     
    32293230      else {
    32303231         my $style = 'solid';
    3231          my $color = 'black'; # navyblue
     3232         my $color = 'black'; # navyblue
    32323233         if ($db_switch_output_port{$sw} =~ m/^(Trk|Br|Po)/) {
    32333234            $style = 'bold';
     
    32483249      for my $sw (keys %{$db_switch_connected_on_port{$swport}}) {
    32493250         my $style = 'solid';
    3250          my $color = 'black'; # navyblue
     3251         my $color = 'black'; # navyblue
    32513252         if ($port_connect =~ m/^(Trk|Br|Po)/) {
    32523253            $style = 'bold';
     
    37543755=head1 LICENSE AND COPYRIGHT
    37553756
    3756 GPL version 2 or later and Perl equivalent
    3757 
    3758 Copyright (C) 2005-2017 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>.
     3757Licence GNU GPL version 2 or later and Perl equivalent
     3758
     3759Copyright (C) 2005-2018 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>.
  • trunk/push-web

    r365 r372  
    11#!/bin/bash
     2#
     3# Copyright (C) 2005-2018 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>
     4# License GNU GPL version 2 or later
    25#
    36# 2007/10/23 Gabriel Moreau
Note: See TracChangeset for help on using the changeset viewer.