ispman/ispman-web/cgi-bin/tmpl/users notificationReadyToSend.tmpl, NONE, 1.3.2.2 notify.tmpl, NONE, 1.3.2.2 add.tmpl, 1.14, 1.14.4.1

Update of /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl/users
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv14538/ispman-web/cgi-bin/tmpl/users

Modified Files:
      Tag: dev_1_3-cyrus_virtdomain
	add.tmpl 
Added Files:
      Tag: dev_1_3-cyrus_virtdomain
	notificationReadyToSend.tmpl notify.tmpl 
Log Message:
Branch is now "aparently" updated to HEAD, though debuging is needed.


Index: add.tmpl
===================================================================
RCS file: /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl/users/add.tmpl,v
retrieving revision 1.14
retrieving revision 1.14.4.1
diff -u -d -r1.14 -r1.14.4.1
--- add.tmpl	16 Jul 2004 19:33:42 -0000	1.14
+++ add.tmpl	11 Sep 2006 23:31:26 -0000	1.14.4.1
@@ -76,7 +76,7 @@
         <perl>
         my $text="";
         my @fileserverhosts=$ispman->getGroupMembers("fileservergroup");
-        my $filehost=$ispman->{'domain'}->{'ispmanDomainDefaultFileServer'};
+        my $filehost=$ispman->getDefaultFileHost($r->param("ispmanDomain"));
         
         for (@fileserverhosts){
             if ($filehost eq $_) {

--- NEW FILE: notify.tmpl ---
<LINK HREF="<perl>$ispman->getConfig('ispmanUrlPrefix')</perl>/ispman.css" REL="stylesheet" TYPE="text/css">
   
Send message to multiple users. 

<perl>if( $r->param('ErrorMessage') ){ 
'<p class="error">' . $r->param('ErrorMessage') . "<p>\n"; }
</perl>
 <P>
<table border=0>
<form>
<perl>
$text = qq|
<tr>
    <td align=right>Your name:</td>
    <td>
        <input  size=45 type=text name=fromName
                value="|;
if( $r->param("fromName") )
{
    $text .= $r->param("fromName");
}
else
{
    my $uid=$ispman->{'session'}->param("uid");
    my $admin=$ispman->getAdminInfo($uid);
    $text .= $admin->{'cn'};
}

$text .= '">' . qq|
    </td>
</tr>

<tr>
    <td align=right>Your e-mail:</td>
    <td>
        <input  size=45 type=text name=fromEmail value="|;
if( $r->param("fromEmail") )
{
    $text .= $r->param("fromEmail");
}
else
{
    my $uid=$ispman->{'session'}->param("uid");
    my $admin=$ispman->getAdminInfo($uid);
    $text .= $admin->{'ispmanSysadminMail'};
}
$text .= '">' . qq|
    </td>
</tr>|;
$text;
</perl>
                                           
<tr>
    <td align=right>To all users in:</td>
    <td>
    <input type=radio name="notifyDomain"
        value="<perl>$r->param('ispmanDomain')</perl>" <perl>
$r->param("notifyDomain") ne "all" ?
"checked":""</perl> >
        <perl>$r->param('ispmanDomain')</perl></input>
    <input type=radio name="notifyDomain" value="all" <perl>
$r->param("notifyDomain") eq "all" ? "checked":""</perl> > all domains </input>
    <input type=hidden  name="ispmanDomain" 
      value="<perl>$r->param('ispmanDomain')</perl>">
    </td>
</tr>

<tr>
    <td align=right>CC:</td>
    <td>
        <input size=45 type=text name=cc value="<perl>$r->param('cc')</perl>">
    </td>
</tr>

<tr>
    <td align=right>Subject:</td>
    <td>
        <input size=45 type=text name=subject 
           value="<perl>$r->param('subject')</perl>">
    </td>
</tr>


<tr>
    <td></td>
    <td>
        <textarea cols=60 rows=20 name=body><perl>$r->param('body')</perl></textarea>
    </td>
</tr>

<input type=hidden name="mode" value="notifyUsers">

<tr>
    <td align=right colspan=2>  
        <input type=button class="button" onClick="document.forms[0].reset()" value="Discard Changes">
        <input type=button class="button" onClick="document.forms[0].submit()" value="Send message">
    </td>
</tr>
</form></table>
 
 


--- NEW FILE: notificationReadyToSend.tmpl ---
<LINK HREF="<perl>$ispman->getConfig('ispmanUrlPrefix')</perl>/ispman.css" REL="stylesheet" TYPE="text/css">
   
Message is ready for sending. Click "Commit session" to finally send it:

<P><TT>From: <perl>$r->param("fromName")</perl> 
&lt;<perl>$r->param("fromEmail")</perl>&gt;<BR>
To: users in <perl>$r->param("notifyDomain")</perl><BR>
CC: <perl>$r->param("cc")</perl><BR>
Subject: <perl>$r->param("subject")</perl> </TT></P>
<P><XMP><perl>$r->param("body")</perl></XMP></P>




-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642