<h2>Edit File - update_freebusy_data</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/local/cpanel/scripts/update_freebusy_data">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/usr/local/cpanel/3rdparty/bin/perl
package scripts::update_freebusy_data;

# cpanel - scripts/update_freebusy_data            Copyright 2024 cPanel, L.L.C.
#                                                           All rights reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

use cPstrict;

use Cpanel::Config::Users      ();
use Cpanel::DAV::CaldavCarddav ();
use Cpanel::DAV::Metadata      ();
use Cpanel::PwCache            ();
use Cpanel::Slurper            ();
use Whostmgr::Email            ();

use Try::Tiny;

use parent qw( Cpanel::HelpfulScript );

use constant _OPTIONS =&gt; (&#039;user=s&#039;);

=encoding utf-8

=head1 NAME

update_freebusy_data

=head1 USAGE

scripts/update_freebusy_data [--user]

=head1 DESCRIPTION

This script updates free-busy information based on what is currently in either:
* All users&#039; calendar collections
* The specified user&#039;s collections.

=cut

# NOTE: This script is an &quot;error steamroller&quot;. In almost every circumstance
# this tolerates even the most heinous of errors

# We get a list of all cpanel users, if they have a ~/.caldav/ dir, we load the metadata for each email user underneath
# to get a list of the VCALENDARs, then proceeed to go through all of their event files to extract the event start and end times,
# timezone/TZID, RRULEs, and save them in a hash, which is serialized into a json file under each principal email user.

# Get data back out:
# my $fb_data_hr = load_freebusy_data(&quot;/home/$sysuser/.caldav/$principaluser/.freebusy.json&quot;);
# print Dumper( $fb_data_hr );

# This script can take a single argument which is the username of the system account (as is called by restorepkg via Whostmgr/Transfers/Systems/NativeDAV.pm
# Otherwise it will process all users on the server.

exit __PACKAGE__-&gt;new(@ARGV)-&gt;run() unless caller();

sub run ($self) {
    if ( $&lt; != 0 ) {
        print STDERR &quot;You must be root to run this script!&quot;;
        return 1;
    }

    my $user2update  = $self-&gt;getopt(&#039;user&#039;);
    my @users2update = map { $_, @{ Whostmgr::Email::list_pops_for($_) } } length $user2update ? ($user2update) : Cpanel::Config::Users::getcpusers();

    my $cpuser;
    my $user_homedir;
    my %fb_data;
    foreach my $user (@users2update) {
        print &quot;Processing Free/Busy data for $user...\n&quot; if $ENV{&#039;CPANEL_DEBUG_LEVEL&#039;};

        my $is_webmail_user = index( $user, &#039;@&#039; ) != -1;
        if ( !$is_webmail_user ) {
            $cpuser       = $user;
            $user_homedir = scalar( ( Cpanel::PwCache::getpwnam($cpuser) )[7] );
        }
        next if !$user_homedir || !-d $user_homedir . &#039;/.caldav/&#039;;

        my $principal_base_path = $user_homedir . &#039;/.caldav/&#039; . $user . &#039;/&#039;;
        my $fb_full_path        = $principal_base_path . &#039;.freebusy.json&#039;;

        # define the hash we will use to store all time slots from all events and all calendar collections under this $user
        my %fb_data;

        # load metadata and find VCALENDARS
        my $metadata_hr = Cpanel::DAV::Metadata-&gt;new(
            &#039;homedir&#039; =&gt; $user_homedir,
            &#039;user&#039;    =&gt; $user,
        )-&gt;load();
        foreach my $collection ( keys %{$metadata_hr} ) {

            # Shared collections get updated on the relevant user&#039;s pass
            next if $collection =~ m&#039;///&#039;;
            next if !defined( $metadata_hr-&gt;{$collection}{&#039;type&#039;} ) || $metadata_hr-&gt;{$collection}{&#039;type&#039;} ne &#039;VCALENDAR&#039;;

            my $col_dh;
            if ( !opendir( $col_dh, $principal_base_path . $collection ) ) {
                print STDERR &quot;Could not open collection directory ${principal_base_path}${collection} : $!\n&quot;;
                next;
            }

            # this assumes .ics extension, and so far 100% have been that,
            # but something to keep in mind. case agnostic despite 100%
            # being lc from the caldav clients already
            my @vcards = grep { $_ !~ m/^\./ &amp;&amp; $_ =~ m/\.ics$/i } readdir($col_dh);
            closedir $col_dh;
            foreach my $vcard (@vcards) {
                my $vcard_path = $principal_base_path . $collection . &#039;/&#039; . $vcard;
                next if !-e $vcard_path;
                my $raw_ics_data;
                try {
                    $raw_ics_data = Cpanel::Slurper::read($vcard_path);
                    my $events_ar     = Cpanel::DAV::CaldavCarddav::get_events_info( undef, \$raw_ics_data );
                    my $fbdata_col_hr = Cpanel::DAV::CaldavCarddav::get_freebusy_data_from_parsed_ics($events_ar);
                    foreach my $uid ( keys %{$fbdata_col_hr} ) {
                        $fb_data{$collection}{$uid} = $fbdata_col_hr-&gt;{$uid};
                        $fb_data{$collection}{$uid}{&#039;file&#039;} = $vcard;                   # because some clients like to use names other than the UID..
                    }
                }
                catch {
                    print STDERR $_;
                };
            }
        }

        # Save the freebusy data for the user.
        if ( keys %fb_data ) {
            print &quot;Saving updated freebusy data for $user..\n&quot; if $ENV{&#039;CPANEL_DEBUG_LEVEL&#039;};
            Cpanel::DAV::CaldavCarddav::save_freebusy_data( $fb_full_path, $cpuser, \%fb_data );
        }
    }

    print &quot;Done!\n&quot; if $ENV{&#039;CPANEL_DEBUG_LEVEL&#039;};
    return 0;
}

1;
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>