← Back to branch summary

~ubuntu-branches/ubuntu/natty/freeradius/natty-updates

« back to all changes in this revision

Viewing changes to doc/rfc/genref.pl

  • Committer: Bazaar Package Importer
  • Author(s): Jeremie Corbier
  • Date: 2006-07-08 19:41:05 UTC
  • mto: (3.1.8 edgy) (4.1.3 sid) (1.1.14 upstream)
  • mto: This revision was merged to the branch mainline in revision 4.
  • Revision ID: james.westby@ubuntu.com-20060708194105-bxbr4e6m4dfw2x4x
Tags: upstream-1.1.2
Import upstream version 1.1.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
doc/rfc/genref.pl
1
 
#!/usr/bin/perl
2
 
foreach $file (@ARGV) {
3
 
    open FILE, "<$file" || die "Error opening $file: $!\n";
4
 
 
5
 
    $ref = $file;
6
 
    $ref =~ s/\..*//g;
7
 
 
8
 
    while (<FILE>) {
9
 
        next if (!/^(\d+\.)+\s+([a-zA-Z]+-)+[a-zA-Z]/);
10
 
 
11
 
        chop;
12
 
        split;
13
 
        print $ref, "\t", $_[1], "\n";
14
 
    }
15
 
 
16
 
    close FILE;
17
 
}