webconf.cgi

SIP（Session Initiation Protocol）是由IETF定义

#!/usr/bin/perl

# ====================================================================
# The Vovida Software License, Version 1.0 
# 
# Copyright (c) 2002 Vovida Networks, Inc.  All rights reserved.
# 
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in
#    the documentation and/or other materials provided with the
#    distribution.
# 
# 3. The names "VOCAL", "Vovida Open Communication Application Library",
#    and "Vovida Open Communication Application Library (VOCAL)" must
#    not be used to endorse or promote products derived from this
#    software without prior written permission. For written
#    permission, please contact [e-mail].
# 
# 4. Products derived from this software may not be called "VOCAL", nor
#    may "VOCAL" appear in their name, without prior written
#    permission of Vovida Networks, Inc.
# 
# THIS SOFTWARE IS PROVIDED "AS IS" AND ANY EXPRESSED OR IMPLIED
# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
# OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, TITLE AND
# NON-INFRINGEMENT ARE DISCLAIMED.  IN NO EVENT SHALL VOVIDA
# NETWORKS, INC. OR ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT DAMAGES
# IN EXCESS OF $1,000, NOR FOR ANY INDIRECT, INCIDENTAL, SPECIAL,
# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
# OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
# USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
# DAMAGE.
# 
# ====================================================================
# 
# This software consists of voluntary contributions made by Vovida
# Networks, Inc. and many individuals on behalf of Vovida Networks,
# Inc.  For more information on Vovida Networks, Inc., please see
# <http://www.vovida.org/>.

# $Id: webconf.cgi,v 1.25.2.2 2003/02/11 22:43:56 bko Exp $

use CGI qw/:standard/;
use CGI ':cgi-lib';
use provactions;
use vprov::vpp qw/:debug/;
use vprov::ui;

&psdebug("started: " . time());
#&psdebug_enable(1);
#$debug = 1;


$query = new CGI;


# figure out local host IP address

chomp($hostname = `hostname`);
($junk1,$junk2,$junk3,$junk4,@addr) = gethostbyname($hostname);
($a,$b,$c,$d) = unpack('C4', $addr[0]);
$local_ip = "$a.$b.$c.$d";


$script_url = $ENV{SCRIPT_NAME};


# todo:

# need to fix

# SystemConfiguration/GlobalConfigData.xml

# set <redirectReasonInSIP value="true"></redirectReasonInSIP>

# to true not false

# should the software make sure audio files are in the right format
# via sox ?  I think it should.  the right command to fix files which
# are wav files is

# sox voicemail/vmhome/2000/custom.wav -U voicemail/vmhome/2000/a.wav

# need to clean up code -- use more of CGI and be happier

# need to fix actual allinoneconfigure code to not need java.

# 



sub show_one_user {
    my($userid) = @_;

    my($output);
    my($auth_type);
    my($parameters) = &get_data_one_user($userid);

    print STDERR $user_parameter_list;

    if($parameters) {
#	$upload_custom_greeting_txt = filefield('uploaded_greeting');
	
	
	$output = start_multipart_form(-method=>"post",
				       -action=>"$script_url");
	$output .= "\n";
	$output .= "<input type=hidden name=\"cmd\" value=\"write\">\n";
	$output .= "<input type=hidden name=\"user\" value=\"$userid\">\n";
	$output .= &vprov::ui::original_values($parameters, \@user_parameter_list);
	$output .= "\n";
	$output .= "<table width=100% border=\"0\" cellpadding=\"2\" cellspacing=\"0\">\n";

	$output .= &vprov::ui::output_list($parameters, \@user_parameter_list);

 	$output .= Tr(td("<input type=reset name=\"_reset\" value=\"Revert\">"),
 		      td("<input type=submit name=\"_submit\" value=\"Save\">"));

	$output .= "</table>\n";
	$output .= "</form>\n";
	
	$output .= "<table width=100% bgcolor=\"#c0c0ff\">\n";
	$output .= Tr(td({-align=>"right", -colspan=>2},
			 "<a href=\"$script_url\">Return to main menu</a>"));
	$output .= "</table>\n";
    } else {
	$output = "Unable to find user $userid<p>";
    }
    return $output;
}


sub show_users {
    my($users) = &get_account_list();
    my $user;
    my $text;
    my $count = 0;
    my (@color) = ("#ffffff", "#e0e0ff");

    
    $text .= "<table cellspacing=0 border=0 width=\"100%\">";

    foreach $user (sort @$users) {
	$text .= Tr({-bgcolor=>$color[$count % 2]}, 
		    td( "<a href=\"$script_url?cmd=show&user=$user\">$user</a>"), 
		   );
	$count = !$count;
    }
#    $text .= Tr({-bgcolor=>$color[$count % 2]}, 
#		    td({-colspan=>2, -align=>"right"}, "<a href=\"$script_url?cmd=adduser\">Add user</a>"));
    $text .= "</table>";
    $text .= "\n";
    return $text;
}


sub select_change_user {
    my($users) = &get_account_list();
    my $user;
    my $text;
    my $count = 0;
    my (@color) = ("#ffffff", "#e0e0ff");

    
    $text .= "<table cellspacing=0 border=0 width=\"100%\">";

    foreach $user (sort @$users) {
	$text .= Tr({-bgcolor=>$color[$count % 2]}, 
		    td( "<a href=\"$script_url?cmd=show&user=$user\">$user</a>"), 
		   );
	$count = !$count;
    }
#    $text .= Tr({-bgcolor=>$color[$count % 2]}, 
#		    td({-colspan=>2, -align=>"right"}, "<a href=\"$script_url?cmd=adduser\">Add user</a>"));
    $text .= "</table>";
    $text .= "\n";
    return $text;
}


sub select_delete_user {
    my($users) = &get_account_list();
    my $user;
    my $text;
    my $count = 0;
    my (@color) = ("#ffffff", "#e0e0ff");

    
    $text .= "<table cellspacing=0 border=0 width=\"100%\">";

    foreach $user (sort @$users) {
	$text .= Tr({-bgcolor=>$color[$count % 2]}, 
		    td("<a href=\"$script_url?cmd=delete&user=$user\">Delete $user</a>") 
		   );
	$count = !$count;
    }
    $text .= "</table>";
    $text .= "\n";
    return $text;
}



sub show_gw {
    my($param) = &get_gw_data();

    # get the value from somewhere

    $output = "<form method=post action=\"$script_url\">";
    $output .= "<input type=hidden name=\"cmd\" value=\"writegw\">";

    $output .= "<table width=100%>";

    $output .= Tr(td("Gateway (in form host:port):"), 
		  td("<input type=text name=\"gw_location\" value=\"$$param{gw_location}\"></input>"));

    $output .= Tr(td("<input type=reset name=\"_reset\" value=\"Revert\">"),
		  td("<input type=submit name=\"_submit\" value=\"Save\">"));
    $output .= "</table>";

    $output .= "</form>";

    $output .= "<table width=100% bgcolor=\"#c0c0ff\">";
    $output .= Tr(td({-align=>"right", -colspan=>2},
		     "<a href=\"$script_url\">Return to main menu</a>"));
    $output .= "</table>";
    return $output;
}


sub html_header {
    my ($cookie_user, $cookie_pass) = @_;
    my($output);
    my($hostname);

    if($cookie_user && $cookie_pass) {
	$output = $query->header(-expires=> '-1y', -cookie=>[$cookie_user, $cookie_pass], -pragma => 'nocache');
    } else {
	$output = $query->header(-expires=> '-1y', -pragma => 'nocache');
    }

    chomp($hostname = `hostname`);
    $output .= "<html><head><title>VOCAL Configuration for $hostname</title></head><body bgcolor=ffffff>";
    $output .= "<TABLE width=\"100%\" border=0 cellspacing=0 cellpadding=0>";
    $output .= Tr(td({-bgcolor=>"#ffd0ff", -align=>center}, "<font size=+4>VOCAL Configuration for $hostname</font>"));
    $output .= Tr(td({-align=>right, -bgcolor=>"#ffd0ff"},
		     &show_actions()
		    ));
    $output .= "<TR><TD>";
    return $output;
}


sub html_footer {
    my($output);

    $output .= "</TD></TR></TABLE>\n";
    $output .= "</BODY></HTML>";
    return $output;
}


sub get_actions {
    my($single_cmd);
    my($cmdarray) = [];

    foreach $single_cmd (sort keys %$cmd) {
	if($$cmd{$single_cmd}{menu}) {
	    $$cmdarray[$$cmd{$single_cmd}{menu} - 1]
	      = "<a href=\"$script_url?cmd=$single_cmd\">$$cmd{$single_cmd}{text}</a>";
	}
    }

    return $cmdarray;
}


sub show_actions {
    my($cmdarray) = &get_actions();
    my($single_output);
    my($output);

    foreach $single_output (@$cmdarray) {
	if($output) {
	    $output .= " | ";
	}
	$output .= $single_output;
    }

    return $output;
}


sub show_actions_table {
    my($cmdarray) = &get_actions();
    my($single_output);
    my($text) = "<table bgcolor=white width=\"100%\">";
    my (@color) = ("#ffffff", "#e0e0ff");
    my($count);

    shift(@$cmdarray);

    foreach $single_output (@$cmdarray) {
	$text .= Tr({-bgcolor=>$color[$count % 2]}, 
		    td( $single_output), 
		   );
	$count = !$count;
    }

    $text .= "</table>";

    return $text;
}


sub inactive_box {
    return &vprov::ui::box("Provisioning not running",