RWP / Chrome-Policy-0.230410 / bin / chrome_policy 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
—
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

              
#! /usr/bin/env perl
# PODNAME: chrome_policy
# ABSTRACT: Set Chrome policies
use v5.37;
use lib '/home/regular/IdeaProjects/Chrome-Policy/lib';
use autouse 'Data::Printer' => 'p';
use English;
use Chrome::Policy::Chrome;
use Chrome::Policy::Chromium;
use Getopt::Long;
BEGIN {
  if ( $UID != 0 ) {
    say 'Please execute the program as the root user (for /etc/opt access).';
    die 'sudo /home/regular/perl5/perlbrew/perls/perl-5.37.8/bin/perl -I /home/regular/perl5/perlbrew/perls/perl-5.37.8/bin/perl chrome_policy';
  }
}
my $getopt = Getopt::Long::Parser -> new;
$getopt -> configure( 'auto_help' , 'auto_version' , 'no_ignore_case' , 'bundling' );
$getopt -> getoptions( \my %options , 'chromium|u' );
my $policy;
unless ( $options{chromium} ) {
  $policy = Chrome::Policy::Chrome -> new;
}
else {
  $policy = Chrome::Policy::Chromium -> new;
}
$policy -> set_strict_policy;
__END__
=pod
=encoding UTF-8
=head1 NAME
chrome_policy - Set Chrome policies
=head1 VERSION
version 0.230410
=head1 AUTHOR
Elvin Aslanov <rwp.primary@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2023 by Elvin Aslanov.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut