Go to the source code of this file.
Functions | |
| GetOptions ("verbose!"=>\$verbose,"directory=s"=>\$directory,"file=s"=>\$file,"title=s"=>\$title,"archivedir=s"=>\$archiveDir) | |
| my (@ArchiveDirEntries) | |
| if (!$directory||!$file) | |
| if (!-r"$directory/$file") | |
| my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) | |
| if ($verbose) | |
Variables | |
| my | $verbose = 1 |
| my | $directory |
| my | $file |
| my | $title = "" |
| my | $archiveDir |
| $size = $size * 1.0 / 1024 / 1024 | |
| GetOptions | ( | "verbose!" | , | |
| \$ | verbose | |||
| ) |
| my | ( | @ | ArchiveDirEntries | ) |
| if | ( | !$directory||!$ | file | ) |
Definition at line 29 of file myth_archive_job.pl.
Definition at line 39 of file myth_archive_job.pl.
| my | ( | $ | dev, | |
| $ | ino, | |||
| $ | mode, | |||
| $ | nlink, | |||
| $ | uid, | |||
| $ | gid, | |||
| $ | rdev, | |||
| $ | size, | |||
| $ | atime, | |||
| $ | mtime, | |||
| $ | ctime, | |||
| $ | blksize, | |||
| $ | blocks | |||
| ) |
| if | ( | $ | verbose | ) |
Definition at line 47 of file myth_archive_job.pl.
| my $verbose = 1 |
Definition at line 3 of file myth_archive_job.pl.
| my $directory |
| my $file |
Definition at line 5 of file myth_archive_job.pl.
| my $title = "" |
Definition at line 6 of file myth_archive_job.pl.
| my $archiveDir |
Definition at line 7 of file myth_archive_job.pl.
Definition at line 45 of file myth_archive_job.pl.
1.5.5