paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 17:57:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add extra check for owner of tty

Browse Source 
git-svn-id: trunk@2202 -
This commit is contained in:
daniel 2006-01-07 08:43:34 +00:00
parent cd38c236a0
commit 155b36dc87
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
utils/grab_vcsa.pp
View File

@ -56,6 +56,7 @@ const result_success=0;
result_stat_error=2;
result_chown_error=3;
result_chmod_error=4;
result_not_owner_error=5;
var thistty:string;
vcs,vcsa:string;
@ -74,6 +75,8 @@ begin
{We are running on the Linux console}
if fpstat(thistty,ttystat)<>0 then
halt(result_stat_error);
if ttystat.uid<>fpgetuid then
halt(result_not_owner_error);
vcs:='/dev/vcs'+copy(thistty,9,255);
vcsa:='/dev/vcsa'+copy(thistty,9,255);