2010-07-05 20:38:04 +00:00
|
|
|
#!/usr/bin/php -q
|
|
|
|
<?php
|
|
|
|
/***************************************************************************
|
|
|
|
* __________ __ ___.
|
|
|
|
* Open \______ \ ____ ____ | | _\_ |__ _______ ___
|
|
|
|
* Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
|
|
|
|
* Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
|
|
|
|
* Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
|
|
|
|
* \/ \/ \/ \/ \/
|
|
|
|
* $Id$
|
|
|
|
*
|
|
|
|
* Copyright (C) 2010 Robert Bieber
|
|
|
|
*
|
|
|
|
* This program is free software; you can redistribute it and/or
|
|
|
|
* modify it under the terms of the GNU General Public License
|
|
|
|
* as published by the Free Software Foundation; either version 2
|
|
|
|
* of the License, or (at your option) any later version.
|
|
|
|
*
|
|
|
|
* This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
|
|
|
|
* KIND, either express or implied.
|
|
|
|
*
|
|
|
|
****************************************************************************/
|
|
|
|
|
|
|
|
if($argc < 2)
|
|
|
|
$path = getcwd();
|
|
|
|
else
|
|
|
|
$path = $argv[1];
|
2010-07-05 20:42:08 +00:00
|
|
|
$path = rtrim($path, "/");
|
2010-07-05 20:38:04 +00:00
|
|
|
$dir = dir($path);
|
|
|
|
$split = explode("/", $path);
|
2010-07-05 20:42:08 +00:00
|
|
|
$last = $split[count($split) - 1];
|
2010-07-05 20:38:04 +00:00
|
|
|
echo "\t<qresource prefix=\"/$last\">\n";
|
|
|
|
while(false !== ($entry = $dir->read()))
|
|
|
|
{
|
|
|
|
if($entry == '.' || $entry == '..')
|
|
|
|
continue;
|
|
|
|
echo "\t\t";
|
|
|
|
echo "<file alias = \"$entry\">";
|
2010-07-05 20:42:08 +00:00
|
|
|
echo $path . '/' . $entry . "</file>";
|
2010-07-05 20:38:04 +00:00
|
|
|
echo "\n";
|
|
|
|
}
|
|
|
|
echo "\t</qresource>\n";
|
|
|
|
$dir->close();
|
|
|
|
|
|
|
|
?>
|