if u dont know how to insert this code DONT QRY ME!
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
: kb :
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
classification:string;
if classification <> '' then Result + 'Classification: '+classification +#13#10;
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
: rulesunit :
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
TConditionTVClassification = class(TStringCondition)
function SupplyValue(r: TPazo): string; override;
class function Name: string; override;
class function Description: string; override;
end;
conditions.Add(TConditionTVClassification);
class function TConditionTVScripted.Description: string;
begin
Result:= 'Returns with the Classification field parsed from tvrage. Returns a string..';
end;
function TConditionTVClassification.SupplyValue(r: TPazo): string;
begin
Result:= 'Cant Catch!';
if r.rls is TTVRelease then
Result:= TTVRelease(r.rls).Classification;
end;
class function TConditionTVClassification.Description: string;
begin
Result:= 'Returns with the Classification field parsed from tvrage.';
end;
class function TConditionTVClassification.Name: string;
begin
Result:= 'tvclassification';
end;
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
: tasktvragelookup :
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
u need to change the code a bit in:
if AnsiSameText(ss, 'Classification') then begin
//MODDED BY ****** << dont add this. its only for the founder of slftp!
tr.classification:=s;
//ENDMOD!
tr.scripted:= AnsiSameText(s, 'Scripted');
end;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Not work? i forgot anything? let me know u know my nick!
btw all credits go to the founder of SLFTP!