Solved

Timers

Posted on 1999-01-18
7
193 Views
Last Modified: 2010-03-05
I use Unix

Is there a command in perl where you can say something like:

In 30 min execute {
(stuff to execute)
}

And that it would do it, even if the user's browser is no longer open?  Thanks
0
Comment
Question by:jknickelbein
7 Comments
 
LVL 4

Expert Comment

by:martinag
Comment Utility
Check
  man at
and
  perldoc -f localtime

I've got to go now, but I'll post some code tomorrow (or someone else will do it before...).

Martin
0
 
LVL 1

Expert Comment

by:ptruman
Comment Utility
Unless you had Perl spawn another process at runtime,
the only way you'd get it going is to system an "at" command.
A keepalive connection would (in theory) work but it's doubtful
they're going to keep a page open for 30 mins...

0
 

Author Comment

by:jknickelbein
Comment Utility
Using the at command is kinda what martinag already said.... if you can explain how to use it, I'll award to him the points.
0
6 Surprising Benefits of Threat Intelligence

All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.

 

Author Comment

by:jknickelbein
Comment Utility
Really, all I need done, is that 30 minutes after my user logs into my script, I want to delete a certain file, thus expiring the session.
0
 
LVL 4

Expert Comment

by:martinag
Comment Utility
# Random file name
$file = "exec" . time . "pid$$.ex"; # millisecs since 1970 and pid should be enough random

# Write file that should be "executed"
open (FILE, ">$file") or die "can't open $file for output: $!";
print FILE "rm ..."; # The command
close FILE;

# Calculate time
@time = localtime;
$h = $time[2];
$m = $time[1] + 30;
if ($m > 59) {
  $h = 0 if $h++ == 24;
  $m -= 60;
}

# Set timer
system("at -f $file " . sprintf("%2d:%2d", $h, $m));

Martin
0
 
LVL 1

Accepted Solution

by:
Cov earned 20 total points
Comment Utility
Hey...

Another approach you could use would be to simply keep a process excecuting on the server which makes sure everything is cleared out if it is 30 minutes old... just clearing the directory every 30 minutes would work, but then some people would have shorter "login" times than others.

Try something like this:
Build a perl script which will check the directory every minute for aged files and delete them.  When it launched, have the script record its PID (process id) to a file.

No, have your other perl scripts which users interact with have a function that just occasionally checks that data file for the pid and checks to see if it is still alive.  If it isnt, have it reexecute ... that is your safe guard...

And voila:)  Every thing will run fine...
i still think it would be simpler just to have you login script clear out old entries... it would not take much process time...
Cov
0
 

Author Comment

by:jknickelbein
Comment Utility
Ok... thanks guys!

Cov - as long as it should take to long (process time) to clear out all over 30min. entries, that's probably what I'll do.
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
In the distant past (last year) I hacked together a little toy that would allow a couple of Manager types to query, preview, and extract data from a number of MongoDB instances, to their tool of choice: Excel (http://dilbert.com/strips/comic/2007-08…
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now