jesusbagpuss

# ADD THIS FILE TO e.g. [EPRINT_ROOT]/archives/[ARCHIVE_ID]/cfg/cfg.d/
#
# Add username to Apache Request object so it gets added to Apache access.log file
# NB This will not cause the username to be logged in the EPrints access dataset.

use EPrints::Const;

$c->add_trigger( EP_TRIGGER_URL_REWRITE, sub {
    my( %args ) = @_;
    my( $r, $repo ) = @args{qw( request repository )};

jesusbagpuss

#!/usr/bin/perl -w

##########################################################################
#
#  Save this into [EPRINTS_ROOT]/bin/local/JLRS_remap_eprint_divisions
# ...or adjust the 'use lib' line below in relation to where you've saved it.
#
##########################################################################

use FindBin;

jesusbagpuss

#!/usr/bin/perl -w

# Save this file in an EPrints installation - at [EPRINTS_ROOT]/bin/local/jlrs_plugin_test
#
# Run it with the following params:
# - archiveid
# - pluginid (e.g. Stats::Handler)
# - (optional) method_to_call
#

jesusbagpuss

# Map specific URLs to be permanently redirected

use EPrints::Const; # for trigger return values

# define specific URLs that have been moved.
# If all the new URLs are to the same base URL, you could have e.g 1234 => 5678 in the 
#    hash, and prepend a static 'https://new.repo.com/' in the 'Location' line below

$c->{z_url_rewrite_map} = {
	'1234' => 'https://abc.de/1/',

jesusbagpuss

#!/usr/bin/perl -w

### the 'use lib' line assumes the scipt is saved into [EPRINTS_ROOT]/bin/local/
### If the script is saved in another location, please update that line accordingly.
use FindBin;
use lib "$FindBin::Bin/../../perl_lib";

use EPrints;
use strict;

jesusbagpuss

#!/usr/bin/perl -w

# Save this into ~/bin/local/
# or alter line 7 below! ;)

use FindBin;
use lib "$FindBin::Bin/../../perl_lib";

use EPrints;
use Data::Dumper;

jesusbagpuss

# Return this datestamp from the first history item of this record - the creation date.
#
# requires https://bazaar.eprints.org/452/1/plugins/EPrints/MetaField/Virtualwithvalue.pm
# (and some phrases)

$c->add_dataset_field( "eprint",
	{
		name => 'creation_date',
		type => 'virtualwithvalue',
		virtual => 1,

jesusbagpuss

Here's the list of modules installed in the Ubuntu-latest runner for Github actions. They've been obtained using a script that list all modules installed: perl -MFile::Find=find -MFile::Spec::Functions -Tlw -e 'find { wanted => sub { print canonpath $_ if /\.pm\z/ }, no_chdir => 1 }, @INC'

There were three directories in `@INC' that didn't exist:

• /usr/local/lib/x86_64-linux-gnu/perl/5.30.0
• /usr/local/share/perl/5.30.0
• /usr/local/lib/site_perl

/usr/lib/x86_64-linux-gnu/perl5/5.30/ directory

jesusbagpuss

#!/usr/bin/perl -w

# NB This file is designed to be saved as [EPRINTS_ROOT]/bin/local/delete_user
# If you want to save it elsewhere, the 'FindBin' on line 52 may need altering.

=pod

=head1 NAME

B<delete_user> - Removes an EPrints user account

jesusbagpuss

use EPrints::Const;

my %rewrite_map = (
	123 => 'https://other.site/321',
	456 => 'https://else.where/stuff-999',
);

$c->add_trigger( EP_TRIGGER_URL_REWRITE, sub {
        my( %o ) = @_;