WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/branches/dpurdie/database/Relman_export.sql

 --------------------------------------------------------
---  File created - Thursday-September-06-2012
+--  File created - Monday-October-29-2012
 --------------------------------------------------------
 --------------------------------------------------------
 --  DDL for Function ORA_SYSDATE
 --------------------------------------------------------
    FUNCTION return_vcs_tag(pvid IN NUMBER) RETURN VARCHAR2;
    PROCEDURE update_vcs_details(ipv_id IN NUMBER, vcstag IN VARCHAR2, user_id IN NUMBER);
+   FUNCTION isSVN( pkgid IN NUMBER ) RETURN NUMBER;
+   FUNCTION isSVNbyName( pkgname IN VARCHAR2 ) RETURN NUMBER;
 END pk_rmapi;
+/
 --------------------------------------------------------
 --  DDL for Package PK_BUILDAPI
 --------------------------------------------------------
                 -- NOTE: if reg-expr parsing/replacement fails, the x_... variable may receive the entire input string (vcstag), so
                 -- check for that error as well as the obvious zero-length string conditions.
                 IF LENGTH(x_srcpath) = 0 OR LENGTH(x_label) = 0 OR x_srcpath = vcstag OR x_label = vcstag THEN
                    raise_application_error (-20000, 'VCS Tag contains insufficient or malformed data!');
                 END IF;
+                IF isSVNbyName(pkgname) > 0 THEN
+                    raise_application_error (-20000, 'Package has been migrated to SVN. Cannot release versions from ClearCase');
+                END IF;
              WHEN 'SVN' THEN
                 -- extract the 2nd token, that being the subversion tag
                 x_srcpath := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Anything, ReplaceToken2);
                 x_label   := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Token, ReplaceToken3);
        SELECT vc.vcs_type_id INTO ivcs_type_id FROM vcs_type vc WHERE UPPER(svcs_type) = UPPER(vc.tag);
      EXCEPTION
        WHEN NO_DATA_FOUND THEN
          raise_application_error (-20000, 'Invalid vcs type: ' || '"' || svcs_type || '"' || ' for package version: ' || ipv_id || ', vcstag: ' || '"' || vcstag || '"');
        --RAISE;
      END;
      -- If Clearcase
      IF (ivcs_type_id = 2) THEN
        -- Validate source path
        IF NOT REGEXP_LIKE(ssrc_path,'^(\\|\/)[a-z]+[0-9a-z_\.\-\\\/ -]*$','i') THEN
          raise_application_error (-20000, 'Invalid CC src path: ' || '"' || ssrc_path || '"' || ' for package version: ' || ipv_id || ', vcstag: ' || '"' || vcstag || '"');
        END IF;
        -- Validate label
        -- For clearcase the label must be specified. For subversion it is not required.
        IF NOT REGEXP_LIKE(spkg_label,'^[0-9a-z_\.\-]+$','i') THEN
          raise_application_error (-20000, 'Invalid CC label:' || '"' || spkg_label || '"' || ' for package version:' || ipv_id || ', vcstag:' || '"' || vcstag || '"');
        END IF;
        END IF;
        IF vcount > 1  THEN
          raise_application_error (-20000, 'Combined use of /trunk, /tags, or /branches/. Invalid SVN src path: ' || '"' || ssrc_path || '"' || ' for package version: ' || ipv_id || ', vcstag: ' || '"' || vcstag || '"');
        END IF;
      END IF;
      BEGIN
        -- Get current vcs tag for specified package version
        SELECT pv.src_path, pv.pkg_label, vc.tag as vcs_type
        AND pv.vcs_type_id = vc.vcs_type_id (+);
      EXCEPTION
        WHEN NO_DATA_FOUND THEN
          raise_application_error (-20000, 'Package version not found: ' || ipv_id);
      END;
      old_pkg_vcstag:= old_vcs_type || '::' || old_src_path;
      IF (old_pkg_label IS NOT NULL) THEN
        old_pkg_vcstag:=old_pkg_vcstag || '::' || old_pkg_label;
      END IF;
      -- Store action in action log so that we can back track and also restore vcs settings if required.
      log_action (ipv_id,'VcsConversion',user_id,saction_desc);
    END update_vcs_details;
+/*-------------------------------------------------------------------------------------------------------
-END pk_rmapi;
+Name:        isSVN
+Description: Determine if any of the packages versions are controlled under SVN
+			 Intended to be used to prevent users from releasing a package
+			 that has been migrated to SVN
+Paramters:	pkgid:     Package ID
+Returns:	Number of versions under SVN version control
+*/
+FUNCTION isSVN( pkgid IN NUMBER )
+    RETURN NUMBER
+    IS
+    svncount   NUMBER  := 0;
+   BEGIN
+        SELECT COUNT(*) INTO svncount FROM PACKAGE_VERSIONS pv WHERE pv.PKG_ID = pkgid AND pv.VCS_TYPE_ID = 23;
+        RETURN (svncount);
+   END;
+/*-------------------------------------------------------------------------------------------------------
+Name:        isSVNbyName
+Description: Determine if any of the packages versions are controlled under SVN
+			 Intended to be used to prevent users from releasing a package
+			 that has been migrated to SVN
+Paramters:	pkgname:	Package Name
+Returns:	Number of versions under SVN version control
+*/
+FUNCTION isSVNbyName( pkgname IN VARCHAR2 )
+    RETURN NUMBER
+IS
+   svncount   NUMBER  := 0;
+   BEGIN
+        SELECT COUNT(*) INTO svncount FROM PACKAGE_VERSIONS pv, PACKAGES pkg WHERE pkg.pkg_name = pkgname AND pv.PKG_ID = pkg.pkg_id AND pv.VCS_TYPE_ID = 23;
+        RETURN (svncount);
+   END;
+   END;
+/
 --------------------------------------------------------
 --  DDL for Package Body PK_BUILDAPI
 --------------------------------------------------------

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/branches/dpurdie/database/Relman_export.sql – Rev 1374 → 2362