Gheek.net

January 27, 2008

tftp_cgi

Filed under: cgi, perl — Tags: , , — lancevermilion @ 11:24 pm
#!/usr/local/bin/perl
#
# Lists files in the /tftpboot folder
#
######################################

@files = `du -h /tftpboot/*`;

format FORMAT_TFTP =
@<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$size,          $filename,
.

print
  "Content-type: text/html\n\n" .
  "\n" .
  "Files in /tftpboot\n" .
  "\n" .
  "\n" .
  "

Files in /tftpboot

\n" . "

\n" . "\n"; print "

\n";

print "File Size       Filename\n";
foreach $eachline (@files) {
  my @line = split(/\//, $eachline);
  $line[1] =~ s/\/tftpboot\///g;
    $size = $line[0];
    $filename = $line[2];
    $~ = 'FORMAT_TFTP';
    write();
}
  print "

\n";
print "\n" .
"


\n" .
"\n";

Advertisements

Leave a Comment »

No comments yet.

RSS feed for comments on this post. TrackBack URI

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

Blog at WordPress.com.

%d bloggers like this: