#!/usr/bin/perl
# 
# save /proc date without kcore
#
# -v output file status
#
print `date`;
$|=0;
open (IN,"find /proc -type f|");
@list=<IN>;
close(IN);
for(@list){
	chomp $_;
	if ($_ ne '/proc/kcore' && $_ ne '/proc/kmsg'){
		print "Proc File: $_\n";
		if ($ARGV[0] eq '-v'){
			my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
   $atime,$mtime,$ctime,$blksize,$blocks) = stat($_);
			print "mode: $mode\n","Inode: $ino\n","uid: $uid\n","gid: $gid\n","atime: $atime\n","mtime: $mtime\n","ctime: $ctime\n","blocks: $blocks\n";
		}
		print "\n";
		open(DATA,$_);
		print <DATA>;
		close(DATA);
	}
}

print "Symbolic links: $_\n";
open (IN,"find /proc -type l -ls|");
print <IN>;
close(IN);