Quiq::Cascm - Schnittstelle zu CA Harvest SCM
Quiq::Hash
Ein Objekt der Klasse stellt eine Schnittstelle zu einem CA Harvest SCM Server zur Verfügung.
https://docops.ca.com/ca-harvest-scm/13-0/en
https://search.ca.com/assets/SiteAssets/TEC486141_External/TEC486141.pdf
$scm = $class->new(@attVal);
Benutzername (-usr).
Passwort (-pw).
Datei (Pfad) mit verschlüsseltem Benuternamen und Passwort (-eh). Diese Authentisierungsmethode ist gegenüber user und password aus Sicherheitsgründen vorzuziehen.
Wie credentialsFile, nur für das hsql-Kommando, falls hierfür eine andere Authentisierung nötig ist.
Name des Brokers (-b).
Name des Projektes, auch Environment genannt (-en).
Pfad im Project (-vp).
Pfad zum (lokalen) Workspace-Verzeichnis.
Liste der Stufen, bginnend mit der untersten Stufe, auf der Workspace-Dateien aus- und eingecheckt werden.
Universal Database Locator für die CASCM-Datenbank. Ist dieser definiert, wird die CASCM-Datenbank direkt zugegriffen, nicht über das Programm hsql.
Lösche Temporäre Dateien nicht.
Führe keine ändernden Kommandos aus.
Schreibe Information über die Kommandoausführung nach STDERR.
Objekt
Instantiiere ein Objekt der Klasse und liefere eine Referenz auf dieses Objekt zurück.
$output = $scm->edit($repoFile,$package);
Datei mit Repository-Pfadangabe.
Package, dem die ausgecheckte Datei (mit reservierter Version) beim Einchecken zugeordnet wird.
Ausgabe der CASCM-Kommandos (String)
Öffne die Repository-Datei $repoFile im Editor. Nach dem Verlassen des Editors wird geprüft, ob die Datei (eine Kopie im lokalen Verzeichnis) verändert wurde. Falls ja, wird die Repository-Datei ausgecheckt und die gänderte lokale Datei unter einer neuen Versionsnummer eingecheckt. Das Package $package wird auf die unterste Stufe bewegt und wieder zurück bewegt, falls nötig.
$scm->view($repoFile);
nichts
Öffne die Repository-Datei $repoFile im Pager.
$output = $scm->putFiles($package,$repoDir,@files);
Package, dem die Dateien innerhalb von CASCM zugeordnet werden.
Zielverzeichnis innerhalb des Workspace, in das die Dateien kopiert werden. Dies ist ein relativer Pfad.
Liste von Dateien außerhalb des Workspace.
Konkatenierte Ausgabe der der checkout- und checkin-Kommandos (String)
Kopiere die Dateien @files in das Workspace-Verzeichnis $repoDir und checke sie anschließend ein, d.h. füge sie zum Repository hinzu. Eine Datei, die im Workspace-Verzeichnis schon vorhanden ist, wird zuvor ausgecheckt.
Mit dieser Methode ist es möglich, sowohl neue Dateien zum Workspace hinzuzufügen als auch bereits existierende Dateien im Workspace zu aktualisieren. Dies geschieht für den Aufrufer transparent, er braucht sich um die Unterscheidung nicht zu kümmern.
$output = $scm->putDir($package,$dir);
Quellverzeichnis, dem die Dateien entnommen werden. Die Pfade innerhalb von $dir werden als Repository-Pfade verwendet. Die Repository-Pfade müssen vorab existieren, sonst wird eine Exception geworfen.
Füge alle Dateien in Verzeichnis $dir via Methode put() zum Repository hinzu bzw. aktualisiere sie. Details siehe dort.
$output = $scm->checkout($package,@repoFiles);
Package, dem die ausgecheckte Datei (mit reservierter Version) zugeordnet wird.
Liste von Workspace-Dateien, die ausgecheckt werden.
Ausgabe des Kommandos (String)
Checke die Workspace-Dateien @repoFiles aus und liefere die Ausgabe des Kommandos zurück.
$output = $scm->checkin($package,$repoFile);
Package, dem die neue Version der Datei zugeordnet wird.
Datei innerhalb des Workspace. Der Dateipfad ist ein relativer Pfad.
Checke die Workspace-Datei $repoFile ein, d.h. übertrage ihren Stand als neue Version ins Repository, ordne diese dem Package $package zu und liefere die Ausgabe des Kommandos zurück.
$version = $scm->versionNumber($repoFile);
Repository-Datei
Versionsnummer (Integer)
$info = $scm->versionInfo($repoFile);
Der Pfad der Repository-Datei.
Ermittele die Versionsinformation über Datei $repoFile und liefere diese zurück.
$output = $scm->deleteVersion($repoFile);
Der Pfad der zu löschenden Repository-Datei.
Lösche die höchste Version der Repository-Datei (Item) $repoFile. Dies geht nur, wenn sich diese Version auf der untersten Stufe (Entwicklung) befindet.
$tab = $scm->findItem($namePattern);
Name des Item (File oder Directory), SQL-Wildcards sind erlaubt.
Ergebnismengen-Objekt.
$output = $scm->removeItems($package,@repoFile);
Die Pfade der zu löschenden Repository-Dateien.
Package, in das die Löschung eingetragen wird.
Erzeuge neue Versionen der Items @repoFiles, welche die Items als zu Löschen kennzeichnen und trage diese in das Package $package ein. Wird das Package promotet, werden die Items auf der betreffenden Stufe gelöscht.
$file = $scm->repoFileToFile($repoFile);
Pfad (String)
Expandiere den Reository-Dateipfad zu einem absoluten Dateipfad und liefere diesen zurück.
$output = $scm->createPackage($package);
Name des Package, das erzeugt werden soll.
Erzeuge Package $package und liefere die Ausgabe des Kommandos zurück.
$output = $scm->deletePackage($package);
Name des Package, das gelöscht werden soll.
Lösche Package $package und liefere die Ausgabe des Kommandos zurück.
$output = $scm->renamePackage($oldName,$newName);
Bisheriger Name des Package.
Zukünftiger Name des Package.
Benenne Package $oldName in $newName um und liefere die Ausgabe des Kommandos zurück.
$tab = $scm->showPackage($package);
Ergebnismengen-Objekt (Quiq::Database::ResultSet::Array)
Ermittele die in Package $package enthaltenen Items und ihrer Versions und liefere diese Ergebnismenge zurück.
$scm->showPackage('S6800_0_Seitz_IMS_Obsolete_Files'); => 1 id 2 item_path 3 item_type 4 version 5 versiondataobjid 1 2 3 4 5 | 4002520 | CPM_META/q07i101.cols.xml | 1 | 1 | 5965056 | | 3992044 | CPM_META/q07i102.cols.xml | 1 | 9 | 6017511 | | 4114775 | CPM_META/q07i105.cols.xml | 1 | 2 | 6146470 | | 3992045 | CPM_META/q07i109.cols.xml | 1 | 6 | 5968199 | | 3992046 | CPM_META/q07i113.cols.xml | 1 | 6 | 5968200 | | 4233433 | CPM_META/q24i200shw.cpmload.xml | 1 | 13 | 6327078 | | 4233434 | CPM_META/q24i200shw.flm.cpmload.xml | 1 | 4 | 6318106 | | 4233435 | CPM_META/q24i210kumul.cpmload.xml | 1 | 11 | 6327079 | | 4233436 | CPM_META/q24i210kumul.flm.cpmload.xml | 1 | 4 | 6318108 | | 4233437 | CPM_META/q24i210risiko.cpmload.xml | 1 | 13 | 6336633 | | 4233438 | CPM_META/q24i210risiko.flm.cpmload.xml | 1 | 4 | 6318110 | | 4233439 | CPM_META/q24i210schaden.cpmload.xml | 1 | 13 | 6327081 | | 4233440 | CPM_META/q24i210schaden.flm.cpmload.xml | 1 | 4 | 6318112 | | 4003062 | CPM_META/q33i001.cols.xml | 1 | 3 | 5981911 | | 4003063 | CPM_META/q33i003.cols.xml | 1 | 4 | 5981912 | | 4003064 | CPM_META/q33i005.cols.xml | 1 | 3 | 5981913 | | 4003065 | CPM_META/q33i206.cols.xml | 1 | 3 | 5981914 | | 4115111 | CPM_META/q44i912.cols.xml | 1 | 2 | 6157279 | | 4144529 | CPM_META/q44i912.cpmload.xml | 1 | 2 | 6318380 | | 4144530 | CPM_META/q44i912.flm.cpmload.xml | 1 | 2 | 6318381 | | 4115112 | CPM_META/q44i913.cols.xml | 1 | 3 | 6237929 | | 4115113 | CPM_META/q44i914.cols.xml | 1 | 4 | 6249865 | | 4144531 | CPM_META/q44i914.cpmload.xml | 1 | 7 | 6318382 | | 4144532 | CPM_META/q44i914.flm.cpmload.xml | 1 | 2 | 6318383 | | 4095239 | CPM_META/q46i080.cpmload.xml | 1 | 3 | 6327923 | | 4095240 | CPM_META/q46i080.flm.cpmload.xml | 1 | 2 | 6318576 | | 4095550 | CPM_META/q46i081.cpmload.xml | 1 | 3 | 6327924 | | 4095551 | CPM_META/q46i081.flm.cpmload.xml | 1 | 2 | 6318578 | | 4095548 | CPM_META/q46i084.cpmload.xml | 1 | 3 | 6327925 | | 4095549 | CPM_META/q46i084.flm.cpmload.xml | 1 | 2 | 6318580 | | 4003101 | CPM_META/q80i102.cols.xml | 1 | 4 | 5974529 | | 3936189 | ddl/table/q31i001.sql | 1 | 1 | 5885525 | | 3936190 | ddl/table/q31i002.sql | 1 | 1 | 5885526 | | 3936191 | ddl/table/q31i003.sql | 1 | 1 | 5885527 | | 3936192 | ddl/table/q31i004.sql | 1 | 1 | 5885528 | | 3936193 | ddl/table/q31i007.sql | 1 | 1 | 5885529 | | 3936194 | ddl/table/q31i014.sql | 1 | 1 | 5885530 | | 3936195 | ddl/table/q31i017.sql | 1 | 1 | 5885531 | | 4144537 | ddl/table/q44i912_cpm.sql | 1 | 1 | 6163139 | | 4144538 | ddl/table/q44i914_cpm.sql | 1 | 1 | 6163140 | | 3936311 | ddl/table/q65i001.sql | 1 | 1 | 5885647 | | 3936312 | ddl/table/q65i002.sql | 1 | 1 | 5885648 | | 3936313 | ddl/table/q65i003.sql | 1 | 1 | 5885649 | | 3936314 | ddl/table/q65i030.sql | 1 | 1 | 5885650 | | 4060343 | ddl/udf/rv_cpm_load_ims.sql | 1 | 1 | 6038412 | | 4060442 | ddl/udf/rv_cpm_load_imsh.sql | 1 | 2 | 6039389 | | 4060883 | ddl/udf/rv_cpm_load_imshr.sql | 1 | 1 | 6039379 |
$output = $scm->switchPackage($stage,$fromPackage,$toPackage,@files);
Stufe (stage), auf der sich die Packete befinden.
Name des Quellpakets (from package).
Name des Zielpakets (to package).
Dateien (versions), die übertragen werden sollen.
Übertrage die Dateien @files von Paket $fromPackage in Paket $toPackage.
$scm->promote($state,@packages);
Stufe, auf dem sich die Packages befinden.
Packages, die promotet werden sollen.
Promote die Package @packages von der Stufe $state auf die darüberliegende Stufe und liefere die Ausgabe des Kommandos zurück.
$scm->demote($state,@packages);
Stufe, auf dem sich das Package befindet.
Packages, die demotet werden sollen.
Demote die Packages @packages der Stufe $state auf die darunterliegende Stufe, und liefere die Ausgabe des Kommandos zurück.
$scm->movePackage($state,$package);
Stufe, auf die das Package gebracht werden soll.
Package, das bewegt werden soll.
Bringe das Package $package von der aktuellen Stufe auf die Zielstufe $state und liefere die Ausgabe des Kommandos zurück. Liegt die Zielstufe über der aktuellen Stufe, wird das Package promotet, andernfalls demotet.
$state = $scm->packageState($package);
Package.
Stufe.
Liefere die Stufe $state, auf der sich Package $package befindet. Existiert das Package nicht, liefere einen Leerstring ('').
$tab = $scm->listPackages;
Liste aller Packages (Array of Arrays). Im Skalarkontext eine Referenz auf die Liste.
Liefere die Liste aller Packages.
$scm->sync;
Bringe den Workspace auf den Stand des Repository und liefere die Ausgabe des Kommandos zurück.
@states | $stateA = $scm->states;
$tab = $scm->sql($sql); $tab = $scm->sql($file);
SELECT-Statement.
Datei mit SELECT-Statement.
Führe ein SELECT-Statement gegen die CASCM-Datenbank aus und liefere ein Ergebnismengen-Objekt zurück. Das SELECT-Statement kann als String $sql übergeben werden oder sich in einer Datei $file befinden.
@arr = $scm->credentialsOptions;
CASCM kennt mehrere Authentisierungsmöglichkeiten, die sich durch Aufrufoptionen unterscheiden. Diese Methode liefert die passenden Optionen zu den beim Konstruktor-Aufruf angegebenen Authentisierungs-Informationen. unterschieden werden:
Authentisierung durch Datei mit verschlüsselten Credentials (-eh)
Authentisiertung durch Benutzername/Passwor (-usr, -pw)
Bevorzugt ist Methode 1, da sie sicherer ist als Methode 2.
$output = $scm->runCmd($cmd,$c);
Name des CASCM-Kommandos
Kommandozeilenobjekt mit den Optionen.
Inhalt der Ausgabedatei, die das Kommando geschrieben hat.
Führe das CA Harvest SCM Kommando $cmd mit den Optionen des Kommandozeilenobjekts $c aus und liefere den Inhalt der Ausgabedatei zurück.
$tab = $scm->runSql($sql);
SELECT-Statement, das gegen die CASCM-Datenbank abgesetzt wird.
Führe SELECT-Statement $sql auf der CASCM-Datenbank aus und liefere die Ergebnismenge zurück. Ist ein UDL definiert (s. Konstruktoraufruf) wird die Selektion direkt auf der Datenbank ausgeführt, andernfalls über das CASCM-Kommando hsql.
1.144
Frank Seitz, http://fseitz.de/
Copyright (C) 2019 Frank Seitz
This code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Quiq, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Quiq
CPAN shell
perl -MCPAN -e shell install Quiq
For more information on module installation, please visit the detailed CPAN module installation guide.