احذف حزم rpm القديمة من الكاش

program rmoldver;{$mode objfpc}{$H+}uses {$IFDEF UNIX} {$IFDEF UseCThreads}cthreads, {$ENDIF} {$ENDIF}Classes,unix,SysUtils { you can add units after this };function gauche(substr: string; s: string): string;beginResult := copy(s, 1, pos(substr, s) - 1);end;procedure DeleteOldVersion;varfirstlist, Lastlist: TStringList;i: integer;FileName: string;S: longint;beginfpSystem('find /var/cache/yum -name *.rpm* -exec echo {} \; >> ' +GetUserDir + '/rpms.txt');firstlist := TStringList.Create;Lastlist := TStringList.Create;firstlist.LoadFromFile(GetUserDir + '/rpms.txt');firstlist.Sort;for i := 0 to firstlist.Count - 1 dobeginFileName := gauche('.', firstlist.Strings);if (i + 1) <= (firstlist.Count - 1) thenif FileName = gauche('.', firstlist.Strings[i + 1]) thenLastlist.Add(firstlist.Strings);end;for i := 0 to lastlist.Count - 1 dobegintryDeleteFile(Lastlist.Strings);exceptContinue;end;end;firstlist.Free;Lastlist.Free;DeleteFile(GetUserDir + '/rpms.txt');end;beginif GetEnvironmentVariable('USER') <> 'root' thenbeginwriteln('You must run as root');exit;end;DeleteOldVersion;end.