usr
/
local
/
cpanel
/
scripts
➕ New
📤 Upload
✎ Editing:
checklink
← Back
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/checklink Copyright 2022 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 mkdir( "/usr/local/cpanel/tests", 0700 ); system( "chown", "cpanel:cpanel", "/usr/local/cpanel/tests" ); setuids("cpanel"); unlink("/usr/local/cpanel/tests/linktest1"); unlink("/usr/local/cpanel/tests/linktest2"); open( LINKTEST, ">/usr/local/cpanel/tests/linktest1" ) || die "Unable to create file for link test"; close(LINKTEST); link( "/usr/local/cpanel/tests/linktest1", "/usr/local/cpanel/tests/linktest2" ); if ( -f "/usr/local/cpanel/tests/linktest2" ) { print "Test Passed!!\n"; } else { print "Test Failed!! $!\n"; } sub setuids { my ($user) = $_[0]; my ( $uid, $gid ); ( undef, undef, $uid, $gid ) = getpwnam($user); if ( !( $) = "$gid $gid" ) ) { print "error setting gid\n"; exit; } if ( !( $( = int($gid) ) ) { print "error setting gid\n"; exit; } if ( !( ( $> = $uid ) && ( $< = $uid ) ) ) { die "error setting uid ($uid) [$user]\n"; } return $uid; }
💾 Save Changes
Cancel
📤 Upload File
×
Select File
Upload
Cancel
➕ Create New
×
Type
📄 File
📁 Folder
Name
Create
Cancel
✎ Rename Item
×
Current Name
New Name
Rename
Cancel
🔐 Change Permissions
×
Target File
Permission (e.g., 0755, 0644)
0755
0644
0777
Apply
Cancel