ClearCase.ClearTool renvoie Aucune erreur de contexte de vue disponible

Question

J'essaie d'exécuter le code suivant, mais la commande #error 1 a obtenu à startview et la commande #error 2 dans desc.

use Win32::OLE; 
    $ct = Win32::OLE->new('ClearCase.ClearTool') or die "Could not create ClearTool object\n"; 
    $view = "ccadm01_UARK_DEV"; 
    $output = $ct->CmdExec("pwv") or die("Cleartool returned error: ", Win32::OLE->LastError(), "\n"); 
    print ("pwv \$output = $output\n"); 

# error 1 : cleartool return error 0 
    $output = $ct->CmdExec("startview ccadm01_UARK_DEV") or die("Cleartool returned error: ", Win32::OLE->LastError(), "\n"); 

    $CWD = $view_dir; 
    print("Current directory: $CWD\n"); 

# error 2: No view context available 
    $output = $ct->CmdExec("describe -fmt \"%[versions]Cp\" activity:USR0200004985\@\\Unix_PVOB") or die("Cleartool returned error: ", Win32::OLE->LastError(), "\n"); 
    print ("desc \$output = $output\n"); 

Pour #error 1, j'ai essayé la même commande de DOS, cela fonctionne.

Answer 1

Vous devez vous assurer que votre $view est un tag de vue dynamique valide pour que cleartool startview fonctionne.
(assurez-vous not use cleartool setview, as it spawns a subshell)

également si elle renvoie l'erreur 0, vous pouvez supposer qu'il a travaillé: CAL peut retourner une « erreur », mais l'état 0 devrait signifier la commande a été exécutée.

Une erreur différente de 0 signifie que quelque chose s'est mal passé.

Et vous devez cd en ce point de vue (ou /view/<viewTag>m:\<viewTag>) pour un cleartool descr à travailler.
Celui-là, exécuté dans le mauvais dossier, est censé échouer, d'où "erreur 2".

---

Les OP Jirong Hu des points in the comments à Using Perl with Rational ClearCase Automation Library (CAL) et this script as an example.