bind8/view_text.cgi

   1 #!/usr/local/bin/perl
   2 # view_text.cgi
   3 # Display the records in a zone
   4
   5 require './bind8-lib.pl';
   6 &ReadParse();
   7 $zone = &get_zone_name($in{'index'}, $in{'view'});
   8 $file = &absolute_path($zone->{'file'});
   9 $tv = $zone->{'type'};
  10 &can_edit_zone($zone) ||
  11         &error($text{'master_ecannot'});
  12 $access{'file'} || &error($text{'text_ecannot'});
  13 &ui_print_header($file, $text{'text_title2'}, "",
  14                  undef, undef, undef, undef, &restart_links($zone));
  15
  16 print &text('text_desc2', "<tt>$file</tt>"),"<p>\n";
  17
  18 $text = &read_file_contents(&make_chroot($file));
  19 if ($text) {
  20         print &ui_table_start(undef, "width=100%", 2);
  21         print &ui_table_row(undef, "<pre>".&html_escape($text)."</pre>", 2);
  22         print &ui_table_end();
  23         }
  24 else {
  25         print "$text{'text_none'}<p>\n";
  26         }
  27
  28 &ui_print_footer(($tv eq "master" ? "edit_master.cgi" :
  29          $tv eq "forward" ? "edit_forward.cgi" : "edit_slave.cgi").
  30         "?index=$in{'index'}&view=$in{'view'}", $text{'master_return'});