Changeset 47 for trunk


Ignore:
Timestamp:
Jul 23, 2009, 12:24:16 AM (15 years ago)
Author:
g7moreau
Message:
  • Suppress perlcritic warning at level 3 Heredoc terminator must be quoted at line XXX, column 7. See page 64 of PBP. (Severity: 3)
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/klask

    r46 r47  
    503503sub cmd_help {
    504504
    505 print <<END;
     505print <<'END';
    506506klask - ports manager and finder for switch
    507507
    … …  
    524524sub cmd_version {
    525525
    526 print <<END;
     526print <<'END';
    527527Klask - ports manager and finder for switch
    528528Copyright (C) 2005-2008 Gabriel Moreau
    … …  
    842842#<script src="sorttable-klask.js"></script>
    843843
    844    print <<END;
     844   print <<'END_HTML';
    845845<table class="sortable" summary="Klask export database">
    846846 <caption>Klask database</caption>
    … …  
    868868 </tfoot>
    869869 <tbody>
    870 END
     870END_HTML
    871871
    872872   my %mac_count = ();
    … …  
    908908      my ( $host_short ) = split /\./, $computerdb->{$ip}{hostname_fq};
    909909
    910       print <<END;
     910      print <<"END_HTML";
    911911  <tr class="$typerow">
    912912   <td sorttable_customkey="$switch_hostname_sort">$switch_hostname</td>
    … …  
    918918   <td>$date</td>
    919919  </tr>
    920 END
     920END_HTML
    921921      }
    922922
    … …  
    952952         my ( $host_short ) = sprintf "%s %3s" , split(/\./, $db_switch_parent{$sw}->{switch}, 1), $db_switch_parent{$sw}->{port};
    953953
    954 print <<END;
     954print <<"END_HTML";
    955955  <tr class="$typerow">
    956956   <td sorttable_customkey="$switch_hostname_sort">$sw</td>
    … …  
    962962   <td>$date</td>
    963963  </tr>
    964 END
     964END_HTML
    965965         }
    966966      else {
    967967#         printf "%-25s  %2s  +-->  router\n", $sw, $db_switch_output_port{$sw};
    968 print <<END;
     968print <<"END_HTML";
    969969  <tr class="$typerow">
    970970   <td sorttable_customkey="$switch_hostname_sort">$sw</td>
    … …  
    976976   <td></td>
    977977  </tr>
    978 END
     978END_HTML
    979979         }
    980980      }
    … …  
    10051005             my ( $host_short ) = sprintf "%s %3s" , split(/\./, $sw, 1), $db_switch_output_port{$sw};
    10061006
    1007 print <<END;
     1007print <<"END_HTML";
    10081008  <tr class="$typerow">
    10091009   <td sorttable_customkey="$switch_hostname_sort">$sw_connect</td>
    … …  
    10151015   <td>$date</td>
    10161016  </tr>
    1017 END
     1017END_HTML
    10181018            }
    10191019         else {
    1020 print <<END;
     1020print <<"END_HTML";
    10211021  <tr class="$typerow">
    10221022   <td sorttable_customkey="$switch_hostname_sort">$sw_connect</td>
    … …  
    10281028   <td>$date</td>
    10291029  </tr>
    1030 END
    1031             }
    1032          }
    1033       }
    1034 
    1035 
    1036    print <<END;
     1030END_HTML
     1031            }
     1032         }
     1033      }
     1034
     1035
     1036   print <<'END_HTML';
    10371037 </tbody>
    10381038</table>
    1039 END
     1039END_HTML
    10401040   return;
    10411041   }
Note: See TracChangeset for help on using the changeset viewer.