Advertisement
Advertisement
| 03.25.2008 at 09:46AM PDT, ID: 23267646 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
|
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: |
#!perl/bin
use CGI::Carp qw(fatalsToBrowser);
# simple CGI script email form data
use CGI;
use CGI qw(param);
my $query = new CGI;
@months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
$year = 1900 + $yearOffset;
$theTime = "$hour:$minute:$second, $weekDays[$dayOfWeek] $months[$month] $dayOfMonth, $year";
@names = $query->param;
open F, ">data/leave/leavereq $hour$minute $second $months[$month]-$dayOfMonth-$year.txt";
print F "\n", $_, $query->param ($_) foreach $query->param;
close F;
## Create a new CGI object
$query=new CGI;
@super_ids=(
'someone@domain.com',
'another@domain.com'
);
foreach ($query->param){
$$_=$query->param($_);
}
# path to sendmail program, if it's in the cgi-bin directory then no path is needed
# if you use a full path, then use back slashes and single quotes, e.g 'c:\path\to\sendmail'
my $mailprog = 'c:\usr\lib\sendmail';
$| = 1;
open(MAIL, "| $mailprog -t ");
print MAIL "To: $from,$super_ids[$to]\n";
print MAIL "From: $from\n";
print MAIL "Subject: Requestfor leave\n";
print MAIL "Content-type: text/html\n";
print MAIL "\n";
print MAIL "
<html>
$forminfo
</HTML>\n";
close(MAIL);
## Print the MIME type
print "Content-type: text/html\n\n";
print "<BODY BGCOLOR=#f5f5f5><div align=center><table border=0 width=200 height=100% cellspacing=0 cellpadding=0><td width=100% valign=middle align=center><h3>Your Request for Leave has been sent to $super_ids[$to] and $from</h3></td></table></div>\n";
|
| Microsoft |
| Apple |
| Internet |
| Gamers |
| Digital Living |
| Virus & Spyware |
| Hardware |
| Software |
| ITPro |
| Developer |
| Storage |
| OS |
| Database |
| Security |
| Programming |
| Web Development |
| Networking |
| Other |
| Community Support |
| 03.25.2008 at 10:29AM PDT, ID: 21204051 |
| 03.25.2008 at 10:51AM PDT, ID: 21204278 |
| 03.25.2008 at 10:57AM PDT, ID: 21204326 |
| 03.25.2008 at 11:21AM PDT, ID: 21204552 |
| 03.25.2008 at 11:35AM PDT, ID: 21204672 |
| 03.25.2008 at 01:27PM PDT, ID: 21205785 |
1: 2: 3: 4: 5: 6: 7: 8: |
use strict;
use warnings;
use POSIX 'strftime';
my $theTime = strftime("%H:%M:%S, %a %b %d, %Y", localtime);
my $file = strftime("data/leave/leavereq %H%M %S %b-%d-%Y.txt", localtime);
open my $FILE, '>', $file or die "Can't open '$file' $!";
|
| 03.25.2008 at 09:31PM PDT, ID: 21208895 |
| 03.25.2008 at 10:50PM PDT, ID: 21209136 |
| 03.26.2008 at 06:37AM PDT, ID: 21211412 |
