Datatables plugin

.editorconfig

@@ -0,0 +1,28 @@
+root = true
+
+[*]
+indent_style = space
+indent_size = 4
+end_of_line = lf
+charset = utf-8
+trim_trailing_whitespace = true
+insert_final_newline = true
+
+[*.md]
+trim_trailing_whitespace = false
+insert_final_newline = false
+
+[*.{yml,yaml}]
+indent_size = 2
+
+[*.{ts,js,jsx,tsx}]
+quote_type = double
+continuation_indent_size = 2
+curly_brace_next_line = false
+indent_brace_style = BSD
+spaces_around_operators = true
+spaces_around_brackets = true
+
+[*.{pl,pm,t,PL}]
+max_line_length = off
+continuation_indent_size = 4

.github/workflows/install.sh

@@ -0,0 +1,31 @@
+#!/bin/bash
+
+set -e
+
+apt-get update
+apt-get install -y curl gpg
+curl -o- https://debian.ctrlo.com/repos/apt/debian/whatever.gpg.key | gpg --dearmor -o /usr/share/keyrings/ctrlo-keyring.gpg
+echo 'deb [signed-by=/usr/share/keyrings/ctrlo-keyring.gpg] https://debian.ctrlo.com/repos/apt/debian/ trixie main' | tee /etc/apt/sources.list.d/ctrlo.list
+
+apt-get update
+# Install Dancer2
+apt-get install -y libapache2-mod-fastcgi libapache2-mod-perl2 libauth-yubikey-webclient-perl libauthen-oath-perl libconfig-inifiles-perl \
+                   libconvert-base32-perl libcpanel-json-xs-perl libcrypt-saltedhash-perl libcrypt-urandom-perl libdancer2-perl \
+                   libdancer2-plugin-auth-extensible-provider-dbic-perl libdancer2-plugin-dbic-perl libdancer2-session-dbic-perl \
+                   libdata-dump-streamer-perl libdata-visitor-perl libdatetime-format-mysql-perl libdbd-mysql-perl libdbix-class-helpers-perl \
+                   libdbix-class-migration-perl libdbix-class-perl libfcgi-perl libfile-copy-recursive-perl libimager-qrcode-perl libimager-perl \
+                   libio-all-perl liblog-report-lexicon-perl liblog-report-perl liblog-report-template-perl libdancer2-plugin-logreport-perl \
+                   libmail-box-perl libmail-transport-perl libmath-random-isaac-xs-perl libmoox-singleton-perl libpod-parser-perl \
+                   libregexp-common-perl libstring-camelcase-perl libtemplate-perl libtext-autoformat-perl libtext-csv-perl libyaml-libyaml-perl
+# Install GADS
+apt-get install -y libdatetime-format-cldr-perl libtree-dagnode-perl libalgorithm-dependency-perl libdatetime-set-perl libdata-compare-perl \
+                   libdatetime-event-random-perl libtext-csv-encoded-perl libhtml-fromtext-perl libhtml-scrubber-perl libdbd-pg-perl postgresql \
+                   postgresql-contrib libdatetime-format-pg-perl libset-infinite-perl libtie-cache-perl libmath-round-perl \
+                   libmoox-types-mooselike-datetime-perl libdatetime-format-datemanip-perl libinline-lua-perl lua5.2 libctrlo-crypt-xkcdpassword-perl \
+                   libfile-slurp-perl libfile-mimeinfo-perl liblist-compare-perl libnet-oauth2-authorizationserver-perl libfontconfig1 \
+                   libctrlo-pdf-perl libpdf-builder-perl fonts-liberation libdate-holidays-gb-perl libcgi-deurl-xs-perl libfile-bom-perl \
+                   libdatetime-format-iso8601-perl liblog-log4perl-perl libwww-mechanize-chrome-perl chromium libfile-libmagic-perl \
+                   libnet-saml2-perl liburl-encode-perl libtext-markdown-perl libauth-yubikey-webclient-perl libauth-yubikey-webclient-perl \
+                   libauthen-oath-perl libconvert-base32-perl libimager-qrcode-perl libimager-perl
+# test dependencies
+apt-get install -y libtest-mocktime-perl libtest-tempdir-tiny-perl libdbd-sqlite3-perl libdatetime-format-sqlite-perl libtest-compile-perl

.github/workflows/tests.yml

@@ -1,10 +1,13 @@
 name: 'GADS Tests'
-on: 
+on:
   push:
     branches:
       - master
       - dev
       - hotfix
+    paths-ignore:
+      - '*.md'
+      - VERSION
   pull_request:
     branches:
       - master
@@ -19,24 +22,17 @@ jobs:
     name: 'Unit Tests'
     runs-on: 'ubuntu-22.04'
     timeout-minutes: 30
+    container: debian:trixie
 
     steps:
       - name: 'Check out the GADS repository'
         uses: 'actions/checkout@v4'
-      - name: 'Install Non-CPAN dependencies'
+      - name: 'Install dependencies'
         run: |
-          sudo apt-get install cpanminus liblua5.3-dev
-          # Avoid "Install CPAN dependencies" needing to compile so much
-          sudo apt-get install libdancer2-perl libdatetime-format-sqlite-perl libtest-most-perl libdatetime-set-perl libdbix-class-schema-loader-perl
-      - name: 'Build cpanfile'
-        run: perl bin/output_cpanfile > cpanfile
-      - name: 'Install CPAN dependencies'
-        uses: 'perl-actions/install-with-cpanm@v1'
-        with:
-          cpanfile: 'cpanfile'
+          chmod +x ./.github/workflows/install.sh
+          ./.github/workflows/install.sh
       - name: 'Run the unit tests'
-        run: |
-          prove -lrs -j4 t
+        run: prove -lrs -j4 t
 
   webdriver_tests:
     name: 'Webdriver Tests for ${{ matrix.browser.name }}'
@@ -52,7 +48,7 @@ jobs:
             os: 'ubuntu-22.04'
           - name: 'Firefox'
             command: 'MOZ_HEADLESS=1 geckodriver --log warn &'
-            os: 'ubuntu-20.04'
+            os: 'ubuntu-22.04'
 
     services:
       postgres:
@@ -73,6 +69,7 @@ jobs:
         uses: 'actions/checkout@v4'
       - name: 'Install Non-CPAN dependencies'
         run: |
+          sudo apt-get update
           sudo apt-get install cpanminus liblua5.3-dev
           # Avoid "Install CPAN dependencies" needing to compile so much
           sudo apt-get install libdatetime-format-sqlite-perl libtest-most-perl libdatetime-set-perl libdbix-class-schema-loader-perl
@@ -89,6 +86,10 @@ jobs:
         run: |
           echo '*:*:*:postgres:postgrespassword' > ~/.pgpass
           chmod 600 ~/.pgpass
+      - name: 'create uploads directory'
+        run: |
+          mkdir -p /tmp/uploads
+          chmod 777 /tmp/uploads
       - name: 'Start the application'
         env:
           DANCER_CONFDIR: 'webdriver'
@@ -102,7 +103,7 @@ jobs:
         run: '${{ matrix.browser.command }}'
       - name: 'Run the Webdriver tests'
         run: prove -lmrsv webdriver/t
-  
+
   cypress_tests:
     name: 'Cypress Tests for ${{ matrix.browser.name }}'
     runs-on: '${{ matrix.browser.os }}'
@@ -114,7 +115,8 @@ jobs:
         browser:
           - name: 'chrome'
             os: 'ubuntu-22.04'
-
+            node_version: 24.x
+
     services:
       postgres:
         image: postgres
@@ -134,6 +136,7 @@ jobs:
         uses: 'actions/checkout@v4'
       - name: 'Install Non-CPAN dependencies'
         run: |
+          sudo apt-get update
           sudo apt-get install cpanminus liblua5.3-dev gcc g++ libdatetime-format-sqlite-perl libtest-most-perl libdatetime-set-perl
           sudo apt-get install libdbix-class-schema-loader-perl libmagic-dev postgresql-client libpng-dev libssl-dev libpq-dev
           sudo apt-get install libjson-perl libsession-token-perl libnet-oauth2-authorizationserver-perl libtext-csv-encoded-perl
@@ -160,6 +163,11 @@ jobs:
         run: |
           sudo apt-get install libgtk2.0-0 libgtk-3-0 libgbm-dev libnotify-dev libnss3 libxss1 libasound2 libxtst6 xauth xvfb
           yarn
+          yarn build --no-watch
+      - name: 'create uploads directory'
+        run: |
+          mkdir -p /tmp/uploads
+          chmod 777 /tmp/uploads
       - name: 'Start the application'
         env:
           DANCER_CONFDIR: 'webdriver'
@@ -172,13 +180,13 @@ jobs:
           perl bin/app.pl &
       - name: 'Run the Cypress tests'
         run: yarn cypress run --browser ${{ matrix.browser.name }}
-              
+
   js_tests:
     runs-on: ubuntu-latest
 
     strategy:
       matrix:
-        node-version: [18.x, 20.x]
+        node-version: [22.x, 24.x]
         # See supported Node.js release schedule at https://nodejs.org/en/about/releases/
 
     steps:
@@ -187,6 +195,6 @@ jobs:
         uses: actions/setup-node@v4
         with:
           node-version: ${{ matrix.node-version }}
-          cache: 'yarn'
+          cache: 'npm'
       - run: yarn
       - run: yarn jest --passWithNoTests

VERSION

@@ -1 +1 @@
-2.5.6
+2.8.3

bin/add-extension.pl

@@ -0,0 +1,90 @@
+#!/bin/perl
+
+use warnings;
+use strict;
+
+use FindBin qw($Bin);
+
+use lib "$Bin/../lib";
+
+use Getopt::Long;
+
+use Dancer2;
+use Dancer2::Plugin::DBIC;
+
+use GADS::Schema;
+use GADS::Layout;
+use GADS::Config;
+use GADS::Filecheck;
+
+use Dancer2::Plugin::LogReport 'linkspace';
+
+dispatcher close => 'error_handler';
+
+my ( $mimetype, $extension, $instance, $layout_id );
+
+GetOptions(
+    'mimetype=s'  => \$mimetype,
+    'extension=s' => \$extension,
+    'instance=i'  => \$instance,
+    'layout=i'    => \$layout_id
+);
+
+unless ( $mimetype && $extension && $instance && $layout_id ) {
+    report ERROR => __x"Usage {command} --mimetype=<mimetype> --extension=<extension> --layout=<layout_id> --instance=<instance_id>", command => $0;
+}
+
+# we need a config instance, and a filecheck instance
+GADS::Config->instance( config => config );
+my $file_check = GADS::Filecheck->instance();
+
+# Check against the already allowed mime-types and error if it already exists
+if ( $file_check->check_type($mimetype) ) {
+    report ERROR => __x"Mimetype {type} already allowed", type=>$mimetype;
+}
+
+# Check against the already allowed extensions and error if it already exists
+if ( $file_check->check_extension($extension) ) {
+    report ERROR => __x"Extension {extension} already allowed", extension=>$extension;
+}
+
+# We're doing this server-side as admin, therefore we don't worry about permissions
+$GADS::Schema::IGNORE_PERMISSIONS = 1;
+
+
+# Get the layout by instance ID
+my $layout = GADS::Layout->new(
+    user_permission_override => 1,
+    user                     => undef,
+    instance_id              => $instance,
+    config                   => config,
+    schema                   => schema,
+);
+
+# Get the column
+my $result     = $layout->column($layout_id);
+
+# Check if the column is of the correct type - there's no point setting this property on the wrong one!
+if ( $result->type ne 'file' ) {
+    report ERROR => __"Invalid column for properties to be set on";
+}
+
+# Make sure the user wants to add the data to the selected column.
+print "Do you want to add mime type $mimetype with extension $extension to ". $result->name ." (y/n): ";
+my $answer = <STDIN>;
+chomp $answer;
+
+# Do a check for y
+if ( $answer =~ /^y/i ) {
+    my $type = +{
+        'name'      => $mimetype,
+        'extension' => $extension,
+    };
+    my $types = $result->override_types;
+    push(@$types, $type) unless grep { $_->{extension} eq $type->{extension} && $_->{name} eq $type->{name} } @$types;
+    $result->override_types($types);
+    $result->write;
+    notice __"Extension and mime type added";
+} else {
+    notice __"Addition of extension cancelled";
+}