Neue Funktion fuer den Fehlerteufel.
Mit "fehlerdir [<ID>]" laesst sich jetzt P_CURRENTDIR direkt auf das
Verzeichnis des fehlerhaften Objektes setzen.
Change-Id: I522ed2cb66c8b081839b675fb3a518c079979145
diff --git a/obj/tools/fehlerteufel.c b/obj/tools/fehlerteufel.c
index afc7fe2..ce18f9e 100644
--- a/obj/tools/fehlerteufel.c
+++ b/obj/tools/fehlerteufel.c
@@ -781,6 +781,36 @@
return 1;
}
+int CmdFehlerDirectory(string arg)
+{
+ struct fullissue_s issue=get_issue(arg);
+ if(!structp(issue))
+ {
+ PL->ReceiveMsg(
+ "Kein Eintrag mit dieser ID gefunden.",
+ MT_NOTIFICATION);
+ }
+ else
+ {
+ string path=issue->loadname||issue->obj;
+ if(!stringp(path) || !sizeof(path))
+ {
+ PL->ReceiveMsg(
+ "Kein Pfad zu dieser ID verfuegbar.",
+ MT_NOTIFICATION);
+ }
+ else
+ {
+ path=implode(explode(path,"/")[..<2],"/");
+ PL->SetProp(P_CURRENTDIR,path);
+ PL->ReceiveMsg(
+ "Aktuelles Verzeichnis ist jetzt: "+path,
+ MT_NOTIFICATION);
+ }
+ }
+ return 1;
+ }
+
// ************** public 'internal' functions **************
public string QueryOwner() {return owner;}
public mixed QueryIssueList() {return issuelist;}
@@ -808,6 +838,8 @@
"funlock <id> <note> - Fehler zum autom. Loeschen freigeben\n"
"ffix <id> <note> - Fehler als gefixt kennzeichnen\n"
"funfix <id> <note> - gefixten Fehler als nicht-gefixt markieren\n"
+ "fdir <id> - in das Verzeichnis des fehlerhaften Objekts "
+ "wechseln\n"
"fuebertrage <id> <newuid> <note>\n"
" - Fehler an die UID uebertragen\n"
);
@@ -836,6 +868,7 @@
"CmdFix");
AddCmd(({"fehleruebertrage","fuebertrage"}),"CmdReassign");
AddCmd(({"fehlereingabe", "feingabe"}), "CmdFehlerEingabe");
+ AddCmd(({"fehlerdir","fdir"}),"CmdFehlerDirectory");
}
public varargs void init(object origin)