Merge branch 'collectd-4.8' into collectd-4.9

[collectd.git] / contrib / collection3 / bin / index.cgi
diff --git a/contrib/collection3/bin/index.cgi b/contrib/collection3/bin/index.cgi

index be20928..85064b8 100755 (executable)
--- a/contrib/collection3/bin/index.cgi
+++ b/contrib/collection3/bin/index.cgi
@@ -20,6 +20,7 @@ use warnings;
  use lib ('../lib');
  use utf8;
  
+use Carp (qw(cluck confess));
  use FindBin ('$RealBin');
  use CGI (':cgi');
  use CGI::Carp ('fatalsToBrowser');
@@ -145,7 +146,7 @@ HTML
      <title>collection.cgi, Version 3</title>
      <link rel="icon" href="../share/shortcut-icon.png" type="image/png" />
      <link rel="stylesheet" href="../share/style.css" type="text/css" />
-    <script type="text/javascript" src="../share/navigate.js" />
+    <script type="text/javascript" src="../share/navigate.js"></script>
    </head>
    <body onload="nav_init ($begin, $end);">
  HTML
@@ -298,8 +299,8 @@ sub action_show_selection
      my $file = $_;
      my $type = ucfirst (lc ($file->{'type'}));
  
-    $type =~ s/[^A-Za-z_]//g;
-    $type =~ s/_([A-Za-z])/\U$1\E/g;
+    $type =~ s/[^A-Za-z0-9_]//g;
+    $type =~ s/_([A-Za-z0-9])/\U$1\E/g;
  
      if (!defined ($types->{$type}))
      {