3 @file_flag = stat( '/etc/debbugs/config');
6 system( '/bin/cp', '/usr/share/doc/debbugs/examples/config', '/etc/debbugs/config' );
7 print( "copying config file" );
8 } else { print( "skipping config file" ); }
10 @file_flag = stat( '/etc/debbugs/text');
13 system( '/bin/cp', '/usr/share/doc/debbugs/examples/text', '/etc/debbugs/text' );
14 print( "copying text file" );
15 } else { print( "skipping text file" ); }
17 @file_flag = stat( '/var/lib/debbugs/spool/nextnumber');
20 system( '/bin/cp', '/usr/share/doc/debbugs/examples/nextnumber', '/var/lib/debbugs/spool/nextnumber' );
21 print( "copying next file" );
22 } else { print( "skipping next file" ); }
24 require('/etc/debbugs/config');
25 require('/etc/debbugs/text');
27 chop($dtime=`date -u '+%H:%M:%S GMT %a %d %h'`);
28 $gHTMLTail =~ s/SUBSTITUTE_DTIME/$dtime/;
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');
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 );
46 exec( '/usr/sbin/debbugs-maketxt' );
50 local ($name,$txtname,$file)= @_;
51 unlink( "$gWebDir/$name" );
52 if( open( ORIG, ">$gWebDir/$name" ) ) {
55 print "wrote $gWebDir/$name\n";
57 print "unable to write $gWebDir/$name\n";