MINI MINI MANI MO

Rem
Rem $Header: rdbms/admin/utldirsymlink.sql /st_rdbms_18.0/1 2018/07/10 08:58:40 sylin Exp $
Rem
Rem utldirsymlink.sql
Rem
Rem Copyright (c) 2018, Oracle and/or its affiliates. All rights reserved.
Rem
Rem    NAME
Rem      utldirsymlink.sql - directory object symlink check
Rem
Rem    DESCRIPTION
Rem      This utility script will loop through all_directories and check if
Rem      any directory path pointed by the directory object contain symlink.
Rem
Rem    NOTES
Rem      This script must be run with "create any directory" privilege
Rem
Rem    BEGIN SQL_FILE_METADATA
Rem    SQL_SOURCE_FILE: rdbms/admin/utldirsymlink.sql
Rem    SQL_SHIPPED_FILE: rdbms/admin/utldirsymlink.sql
Rem    SQL_PHASE: UTILITY
Rem    SQL_STARTUP_MODE: NORMAL
Rem    SQL_IGNORABLE_ERRORS: NONE
Rem    END SQL_FILE_METADATA
Rem
Rem    MODIFIED   (MM/DD/YY)
Rem    sylin       04/10/18 - bug27772093: directory object symlink check
Rem    sylin       04/10/18 - Created
Rem

set serveroutput on

DECLARE
  dircnt PLS_INTEGER :=0;
BEGIN

  FOR dir IN (SELECT directory_name FROM all_directories WHERE
                (dbms_utility.directory_has_symlink(directory_name) = 
                 dbms_utility.has_symlink) ORDER BY directory_name) LOOP
    dircnt := dircnt + 1;
    IF dircnt = 1 then
       dbms_output.put_line(
         'The following DIRECTORY OBJECTS contain symlinks:');
     END IF;
     dbms_output.put_line(
       sys.dbms_assert.enquote_literal(dir.directory_name));
  END LOOP;

  IF dircnt = 0 THEN
    dbms_output.put_line('No DIRECTORY OBJECTS with symlinks found.');
  ELSE
    dbms_output.put_line(dircnt || ' DIRECTORY OBJECTS with symlinks found.');
  END IF;
END;
/
show errors