debian/debbugsconfig

   1 #!/usr/bin/perl
   2
   3 @file_flag = stat( '/etc/debbugs/config');
   4 if ( !@file_flag )
   5 {
   6         system( '/bin/cp', '/usr/doc/debbugs/examples/config', '/etc/debbugs/config' );
   7         print( "copying config file" );
   8 } else { print( "skipping config file" ); }
   9
  10 @file_flag = stat( '/etc/debbugs/text');
  11 if ( !@file_flag )
  12 {
  13         system( '/bin/cp', '/usr/doc/debbugs/examples/text', '/etc/debbugs/text' );
  14         print( "copying text file" );
  15 } else { print( "skipping text file" ); }
  16
  17 @file_flag = stat( '/var/lib/debbugs/spool/nextnumber');
  18 if ( !@file_flag )
  19 {
  20         system( '/bin/cp', '/usr/doc/debbugs/examples/nextnumber', '/var/lib/debbugs/spool/nextnumber' );
  21         print( "copying next file" );
  22 } else { print( "skipping next file" ); }
  23
  24 require('/etc/debbugs/config');
  25 require('/etc/debbugs/text');
  26
  27 chop($dtime=`date -u '+%H:%M:%S GMT %a %d %h'`);
  28 $gHTMLTail =~ s/SUBSTITUTE_DTIME/$dtime/;
  29
  30 require('/etc/debbugs/html/Access.html');
  31 require('/etc/debbugs/html/Developer.html');
  32 require('/etc/debbugs/html/Reporting.html');
  33 require('/etc/debbugs/html/index.html');
  34 require('/etc/debbugs/html/server-control.html');
  35 require('/etc/debbugs/html/server-refcard.html');
  36 require('/etc/debbugs/html/server-request.html');
  37
  38 &file( 'Access.html', 'bug-log-access.txt', $gAccessHtml );
  39 &file( 'Developer.html', 'bug-maint-info.txt', $gDeveloperHtml );
  40 &file( 'Reporting.html', 'bug-reporting.txt', $gReportingHtml );
  41 &file( 'index.html', '', $gIndexHtml );
  42 &file( 'server-control.html', 'bug-maint-mailcontrol.txt', $gControlHtml );
  43 &file( 'server-refcard.html', 'bug-mailserver-refcard.txt', $gRefcardHtml );
  44 &file( 'server-request.html', 'bug-log-mailserver.txt', $gRequestHtml );
  45
  46 exec( '/usr/sbin/debbugs-maketxt' );
  47 quit(0);
  48
  49 sub file {
  50     local ($name,$txtname,$file)= @_;
  51     unlink( "$gWebDir/$name" );
  52     if( open( ORIG, ">$gWebDir/$name" ) ) {
  53         print ORIG $file;
  54                 close( ORIG );
  55                 print "wrote $gWebDir/$name\n";
  56     } else {
  57         print "unable to write $gWebDir/$name\n";
  58     }
  59 }