Juan Julián Merelo Guervós JJ

La seguridad es lo primero

Recuerda que tienes que tratar el ordenador con el que estés trabajando con ficheros de la UGR como si fuera tu ordenador de la propia UGR. No trabajes nunca en un usuario compartido, usa tu propio usuario y no compartas la contraseña. Los ficheros especialmente sensibles deberán estar protegidos contra lectura de cualquier otro usuario. Cierra tu escritorio siempre que te ausentes.

Ahora, a trabajar en Linux.

Aparentemente, la UGR no ha considerado necesario dar instrucciones para que el PAS se conecte al escritorio remoto desde Linux, sólo para sistemas operativos privativos. Además, se usa un programa privativo, sólo para Windows y con licencias restrictivas, que hace que la única forma de usarlo sea mediante escritorio remoto a un ordenador en la UGR.

A ver si esto sirve de lección para las universidades. Aunque lo dudo.

List of Perl modules

It's been obtained by running cpan -l on the Docker Hub runner

Module	Version
Algorithm::Diff	1.1903
Algorithm::Diff::XS	0.04
Algorithm::DiffOld	1.1
Algorithm::Merge	0.08

	name: "Merry Christmas"
	on: [push]

	jobs:
	seasonal_greetings:
	runs_on: ubuntu-latest
	steps:
	- name: Merry Xmas!
	run: echo Merry Xmas!

	name: "One step up"
	on: [push]

	jobs:
	seasonal_greetings:
	runs-on: ubuntu-latest
	steps:
	- name: Pre-Merry Xmas!
	env:
	greeting: "Merry"

	name: "We 🎔 Perl"
	on:
	issues:
	types: [opened, edited, milestoned]

	jobs:
	seasonal_greetings:
	runs-on: windows-latest
	steps:
	- name: Checkout

	name: "We 🎔 Ubuntu, Docker and Raku"
	on: [push, pull_request]

	jobs:
	adventest:
	runs-on: ubuntu-latest
	name: AdvenTest
	steps:
	- name: Checkout
	uses: actions/checkout@v1

	#!/usr/bin/env perl6

	use v6;
	use Test;

	constant $greeting = "Merry Xmas!";
	constant $non-greeting = "Hey!";
	is( greet( "Hey", $greeting, $non-greeting), $non-greeting, "Non-seasonal salutation OK");
	is( greet( "Merry Xmas!", $greeting, $non-greeting), $greeting, "Seasonal salutation OK");
	done-testing;

	FROM jjmerelo/alpine-perl6:latest
	LABEL version="4.0.2" maintainer="JJ Merelo <[email protected]>"

	# Set up dirs

	ENV PATH="/root/.rakudobrew/versions/moar-2019.11/install/bin:/root/.rakudobrew/versions/moar-2019.11/install/share/perl6/site/bin:/root/.rakudobrew/bin:${PATH}"
	RUN mkdir /test
	VOLUME /test
	WORKDIR /test

	name: "We 🎔 Raku"
	on: [push, pull_request]

	jobs:
	test:
	runs-on: windows-latest
	steps:
	- name: Checkout
	uses: actions/checkout@v2-beta
	- name: Install and update

	#!/usr/bin/env raku

	constant $interval = 100000;

	my @threads = (^10).map: -> $i {
	Thread.start(
	name => "Checking primes from {$i * $interval } to { ($i+1)*$interval}",
	sub {
	for ($i * $interval)..^(($i+1)*$interval) -> $n {
	next if ( $n %% 2 ) \| ( $n %% 3 ) \| ($n %% 5 );