← Back to branch summary

~ubuntu-branches/ubuntu/raring/octopussy/raring

« back to all changes in this revision

Viewing changes to usr/share/octopussy/wizard_msg.asp

  • Committer: Package Import Robot
  • Author(s): James Page
  • Date: 2012-09-25 10:27:37 UTC
  • mfrom: (1.1.1)
  • Revision ID: package-import@ubuntu.com-20120925102737-1hgntjl557w3sjqh
Tags: 1.0.6-0ubuntu1
https://launchpad.net/bugs/1056016
* New upstream release (LP: #1056016).
* d/control: bumped Standards-Version: 3.9.3, no changes.
* d/{copyright,control}: Updated upstream URL.
* d/README.Debian: Fixed minor typo.

Show diffs side-by-side

added added

removed removed

Lines of Context:
usr/share/octopussy/wizard_msg.asp
1
1
<WebUI:PageTop title="Wizard Message" />
2
2
<%
 
3
my $device = $Request->Form("device");
 
4
$device = (Octopussy::Device::Valid_Name($device) ? $device : undef);
3
5
my $msg_orig = $Request->Form("msg_orig");
4
6
my $msg_pattern = $Request->Form("msg_pattern");
5
7
my $service = $Request->Form("service");
 
8
$service = (Octopussy::Service::Valid_Name($service) ? $service : undef);
6
9
my $loglevel = $Request->Form("loglevel");
 
10
$loglevel = (Octopussy::Loglevel::Valid_Name($loglevel) ? $loglevel : undef);
7
11
my $taxonomy = $Request->Form("taxonomy");
 
12
$taxonomy = (Octopussy::Taxonomy::Valid_Name($taxonomy) ? $taxonomy : undef);
8
13
my $table = $Request->Form("table");
 
14
$table = (Octopussy::Table::Valid_Name($table) ? $table : undef);
9
15
my $table_field = $Request->Form("table_field_1");
10
16
my $orig = $msg_orig;
11
17
 
15
21
        my $i = 1;
16
22
        while ($msg_pattern =~ /<\@([^:]+?)\@>/)
17
23
        {
18
 
        my $field = $Request->Form("table_field_$i");
 
24
                my $field = $Request->Form("table_field_$i");
19
25
                if ($field =~ /^CONST (.+)$/)
20
26
                {
21
27
                        my $constant = $1;
29
35
                        else
30
36
                                { $msg_pattern =~ s/(.*?)<\@([^:]+?)\@>/$1<\@$2:$field\@>/; }
31
37
                }
32
 
        $i++;
 
38
                $i++;
33
39
        }
34
 
        %><AAT:Inc file="octo_wizard_msg_edit" service="$service"
35
 
      loglevel="$loglevel" taxonomy="$taxonomy" table="$table"
 
40
        %><AAT:Inc file="octo_wizard_msg_edit" device="$device" 
 
41
        service="$service" loglevel="$loglevel" 
 
42
        taxonomy="$taxonomy" table="$table"
36
43
      msg_orig="$msg_orig" msg_pattern="$msg_pattern" /><%
37
44
}
38
45
else
39
46
{
40
47
        %><AAT:Inc file="octo_wizard_msg" service="$service"
41
 
      loglevel="$loglevel" taxonomy="$taxonomy" table="$table"
42
 
      msg_orig="$msg_orig" msg_pattern="$msg_pattern" />
43
 
  <AAT:Inc file="octo_wizard_msg_fields" service="$service"
44
 
    loglevel="$loglevel" taxonomy="$taxonomy" table="$table"
 
48
        loglevel="$loglevel" taxonomy="$taxonomy" table="$table"
 
49
        msg_orig="$msg_orig" msg_pattern="$msg_pattern" />
 
50
        <AAT:Inc file="octo_wizard_msg_fields" device="$device"
 
51
        service="$service" loglevel="$loglevel" 
 
52
        taxonomy="$taxonomy" table="$table"
45
53
    msg_orig="$msg_orig" msg_pattern="$msg_pattern" /><%
46
54
}
47
55
%>