...

View Full Version : html



dasari
12-11-2005, 08:29 PM
#! D:\iw-home\iw-perl\bin\iwperl.exe

my $cgi = TeamSite::CGI_lite->new();
$cgi->parse_data();


print<<"END";
Content-type: text/html

<html>
<title>Testing</title>
<body>
<H2><center>Testing Workflow</center></H2>


#### Construct URL command to launch group task ####
my $invisible_url_cmd = "", $servernm = "";
$servernm = `hostname`;
chomp($servernm);

$invisible_url_cmd = "http://" . $servernm . "/iw-bin/iw_cgi_wrapper.cgi/independent.ipl?taskid=" . $edit_group_task_id . "&is_finish=false";
print "<br> Invisible cgi link - $invisible_url_cmd";

#### Construct URL command to show list of all jobs ####
my $job_list_pane = "";
$job_list_pane = "http://" . $servernm . "/iw-cc/viewjoblist";
print "<br> Job list pane link - $job_list_pane";

#### Construct email message to send to all users of edit task ####
my @users_list = "test\\abc1"; ## for testing only, dont want email to go to real users ##
foreach my $usr (@users_list)
{
$usr =~ s/test\\//i;
$usr .= "\@test.com";
$addresse .= $usr . ",";
}
chop($addresse);
print "<br> Addresse list - $addresse";

#### Trying to create links in Lutos notes email notification ####
$message = "<html>";
$message .= "<head><META content='text/html; charset=iso-8859-1' http-equiv=Content-Type><META content='MSHTML 5.00.2314.1000' name=GENERATOR></head>";
$message .= "<body><a href=$invisible_url_cmd>Click here</a></body></html>";


my $address_list = "$addresse";
my $from = "$prev_authgrp\@test.com";
my $subject = "Task assigned in $wkf_type by $prev_authgrp";
#my $message = "<a href=$invisible_url_cmd>Click here</a>";
my $message = "$message";
my $mail_server = "eagle.test.com";

my($mail_status) = send_email($address_list,$from,$subject,$message,$mail_server);
print "<br> Mail status - $mail_status";

if ($mail_status)
{
print "<br> Error sending email to clients.Ending workflow...<br>";
}
}
</body>
</html>

rmedek
12-11-2005, 08:51 PM
errrrrr

Elgyn
12-12-2005, 04:09 PM
...lol

ronaldb66
12-13-2005, 09:22 AM
dasari,

Could you bother to actually ask a question instead of just posting a bunch of code and expect us to guess what the problem is? :rolleyes:



EZ Archive Ads Plugin for vBulletin Copyright 2006 Computer Help Forum