Hello and welcome to our community! Is this your first visit?
Register
Enjoy an ad free experience by logging in. Not a member yet? Register.
Results 1 to 4 of 4

Thread: html

  1. #1
    New to the CF scene
    Join Date
    Dec 2005
    Posts
    1
    Thanks
    0
    Thanked 0 Times in 0 Posts

    html

    #! 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>

  • #2
    Senior Coder
    Join Date
    Nov 2003
    Location
    Minneapolis, MN
    Posts
    2,879
    Thanks
    2
    Thanked 65 Times in 56 Posts
    errrrrr

  • #3
    New Coder
    Join Date
    Dec 2005
    Posts
    40
    Thanks
    0
    Thanked 0 Times in 0 Posts
    ...lol

  • #4
    Senior Coder
    Join Date
    Jun 2002
    Location
    The Netherlands, Baarn, Ut.
    Posts
    4,253
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Question?

    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?
    Regards,
    Ronald.
    ronaldvanderwijden.com


  •  

    Posting Permissions

    • You may not post new threads
    • You may not post replies
    • You may not post attachments
    • You may not edit your posts
    •