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/</</g; 22$text =~ s/>/>/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