1#!/usr/bin/perl
2
3# Mark Palmer markpalmer@us.ibm.com
4
5use Cisco::IPPhone;
6
7$mytext = new Cisco::IPPhone;
8
9my $text = '';
10my $temp = '';
11
12foreach $var (sort(keys(%ENV))) {
13    $val = $ENV{$var};
14    $val =~ s|\n|\\n|g;
15    $val =~ s|"|\\"|g;
16    $temp = "${var}=\"${val}\"\n";
17    $text .= substr($temp,0,50);
18    $text .= "\n";
19}
20
21$text =~ s/</&lt;/g;
22$text =~ s/>/&gt;/g;
23
24$mytext->Text ({ Title => "IPPhone Environment Variables",
25                  Prompt => "",
26                  Text => "$text" });
27
28$mytext->AddSoftKeyItem( { Name => "Update", URL => "SoftKey:Update",
29                           Position => "1" });
30$mytext->AddSoftKeyItem( { Name => "Exit", URL => "SoftKey:Exit",
31                           Position => "2" });
32
33print $mytext->Content;
34
35