a LINUX perl question

hello

o/s -- linux
language: perl

Suppose Im managing a free email account system , How to find out the last accessed time/date of a pop3 account ?

I want to delete account based on INACTIVITY ?

Which files to check ?

How to go about doing this in PERL ?

CAn you give me a web address where I can get more knowledge ?

Give me a hint atleast ?

chris
LVL 6
christopher sagayamAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

HenryVermeulenCommented:
The file to check is the users mailbox.
You can find it in /var/spool/mail
or /var/spool/vmail if you use vpop3.
You can only use the modified date of this file. That means that the date will be updated when a message is send to the account or the mail has been deliverred. (Then the size will be zero)
perl has a function the check tha modification date. It's called 'stat'.

if (-s $file = stat(X))  {
# your code
  }
X can be 8 or 9

8 atime last access time since the epoch
9 mtime last modify time since the epoch

Straight from the user manual.

Henry
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Linux

From novice to tech pro — start learning today.