Skip to content

Instantly share code, notes, and snippets.

@reneeb
reneeb / test.pl
Created January 18, 2024 08:27
html2pdf - Test
#!/usr/bin/perl
use v5.24;
use strict;
use warnings;
use MIME::Base64;
use Encode;
use LWP::UserAgent;
#!/usr/bin/perl
use v5.24;
use DBI;
use Digest::SHA 'sha256_hex';
use File::Basename;
use File::Find::Rule;
use File::MimeInfo;
use Getopt::Long;
reneeb@host:~$ perl -MDateTime -E 'my $month; my $date = DateTime->new(day=> 7, month=>11, year=>2021); $date->month() < 10 ? $month = $date->month() : $month = "0" . $date->month(); say $month'
011
reneeb@host:~$ perl -MDateTime -E 'my $month; my $date = DateTime->new(day=> 7, month=>8, year=>2021); $date->month() < 10 ? $month = $date->month() : $month = "0" . $date->month(); say $month'
08
@reneeb
reneeb / Insomnia.json
Created June 4, 2021 08:08
Requests for OTOBO
{"_type":"export","__export_format":4,"__export_date":"2021-06-04T08:06:12.222Z","__export_source":"insomnia.desktop.app:v2021.2.2","resources":[{"_id":"req_e0440f2249924925a559926ad23352d5","parentId":"fld_77985ae5fa7d4d9a96fb4695beb0ce2c","modified":1622793939326,"created":1622793939326,"url":"http://192.168.123.122/otobo/nph-genericinterface.pl/Webservice/Tickets/Ticket","name":"TicketCreate","description":"","method":"POST","body":{"mimeType":"application/json","text":"{\n\t\"UserLogin\": \"ta\",\n\t\"Password\": \"ta\",\n\t\"Ticket\" : {\n\t\t\"Queue\": \"Raw\",\n\t\t\"PriorityID\": 3,\n\t\t\"Title\": \"Test\",\n\t\t\"State\": \"open\",\n\t\t\"CustomerUser\": \"tc\"\n\t},\n\t\"Article\": {\n\t\t\"Subject\": \"Article for Test Ticket\",\n\t\t\"From\": \"test@test.de\",\n\t\t\"IsVisibleForCustomer\": 1,\n\t\t\"ContentType\": \"text/plain; charset=utf-8\",\n\t\t\"Body\": \"Wir haben ein Problem Houston!\",\n\t\t\"CommunicationChannelID\": 1,\n\t\t\"To\": \"agent@test.tld\"\n\t}\n}"},"parameters":[],"headers
@reneeb
reneeb / CheckNavigationBarModules.pl
Created June 2, 2021 09:28
Check if all navigation bar modules can be loaded
#!/usr/bin/perl
use strict;
use warnings;
use lib qw(/opt/otrs);
use Kernel::System::ObjectManager;
local $Kernel::OM = Kernel::System::ObjectManager->new;
#!/usr/bin/perl
use strict;
use warnings;
use Mojo::Loader qw(data_section);
use OpenAPI::Client;
my $spec = data_section 'main', 'swagger.json';
my $client = OpenAPI::Client->new( $spec );
#!/usr/bin/perl
use v5.10;
use strict;
use warnings;
use Data::Dumper;
use LWP::Simple;
use File::Spec;
@reneeb
reneeb / Test
Last active December 4, 2019 10:44
https://files.perl-academy.de/CE94F212-1668-11EA-8388-93A3F28714BF
* SetQV.pm nach /opt/otrs/Kernel/System/Ticket/Event/SetQV.pm kopieren
* SetQV.xml nach /opt/otrs/Kernel/Config/Files/XML/SetQV.xml kopieren
* Als OTRS-User auf der Kommandozeile `perl bin/otrs.Console.pl Maint::Config::Rebuild` ausführen
@reneeb
reneeb / bashrc
Last active June 8, 2020 06:17
bashrc
function enmod() {
cd /opt/otrs
perl -I/opt/otrs/Kernel/cpan-lib -I/opt/otrs -I/home/otrsvm/module-tools/lib /home/otrsvm/module-tools/bin/otrs.ModuleTools.pl Module::Package::Install /home/otrsvm/OTRS/$1 /opt/otrs --verbose
perl bin/otrs.Console.pl Maint::Config::Rebuild
}
function dismod() {
cd /opt/otrs
perl -I/opt/otrs/Kernel/cpan-lib -I/opt/otrs -I/home/otrsvm/modules-tools/lib /home/otrsvm/module-tools/bin/otrs.ModuleTools.pl Module::Package::Uninstall /home/otrsvm/OTRS/$1 /opt/otrs --verbose
perl bin/otrs.Console.pl Maint::Config::Rebuild